libffcall-2.4/0000775000000000000000000000000014061422457010253 500000000000000libffcall-2.4/common/0000775000000000000000000000000014061422456011542 500000000000000libffcall-2.4/common/asm-powerpc.sh0000775000000000000000000000263213347755312014267 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.4/common/asm-m68k.h0000664000000000000000000000517013347755311013206 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.4/common/asm-x86_64.h0000664000000000000000000002640414035707716013363 00000000000000// Assembly language support for x86_64 CPU. // Bruno Haible 2016-12-28 // Copyright (C) 1997-2021 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.4/common/asm-arm.h0000664000000000000000000000500214060640146013162 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.4/common/asm-riscv.sh0000775000000000000000000000255413347755313013742 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.4/common/noexecstack.h0000664000000000000000000000022213136760230014133 00000000000000#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.4/common/asm-hppa.sh0000775000000000000000000000375413347755310013544 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.4/common/noexecstack-arm.h0000664000000000000000000000022213136760230014710 00000000000000#if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",%progbits #endif libffcall-2.4/common/asm-arm64.sh0000775000000000000000000000473114061147245013535 00000000000000#!/bin/sh # Translate the assembler syntax of arm64 assembler programs # Usage: asm-arm64.sh < linux-arm64-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-2021 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 tmpremove='rm -f $tmpscript1 $tmpscript2 $tmpscript3' 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 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 cat > $tmpscript3 << \EOF # ----------- Introduce macro syntax for PIC addressing of functions s/^ adrp \([a-z0-9]*\), *\([A-Za-z0-9_]*\)/ adrp \1, PAGE(C(\2))/ s/[$]:lo12:\([A-Za-z0-9_]*\)/PAGEOFF(C(\1))/ s/:lo12:\([A-Za-z0-9_]*\)/PAGEOFF(C(\1))/ # ----------- Introduce macro syntax for PIC addressing of variables s/PAGE(C(\(vacall_function\)))/GOTPAGE(C(\1))/ s/ ldr \([a-z0-9]*\), \[\(.*\)PAGEOFF(C(\(vacall_function\)))\].*/ ldr \1, [\2GOTPAGEOFF(C(\3))]\n GOTINDIR(\1)/ EOF sed -f $tmpscript1 | \ sed -f $tmpscript2 | \ sed -f $tmpscript3 eval "$tmpremove" libffcall-2.4/common/asm-hppa.h0000664000000000000000000000522113347755310013345 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.4/common/asm-arm64.h0000664000000000000000000000702114061241502013331 00000000000000// Assembly language support for arm64 CPU. // Bruno Haible 1999-05-29 // Copyright (C) 1999-2021 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. // GOTPAGE(variable) // This expands to a second argument for the 'adrp' instruction. // GOTPAGEOFF(variable) // This expands to an offset, to be used with GOTPAGE(variable). // GOTINDIR(register) // This expands to an indirect load instruction, on platforms which // use a "large" memory model. // PAGE(function) // This expands to a second argument for the 'adrp' instruction. // PAGEOFF(function) // This expands to an offset, to be used with PAGE(function). // 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 #if defined __APPLE__ && defined __MACH__ #define GOTPAGE(variable) variable@GOTPAGE #define GOTPAGEOFF(variable) variable@GOTPAGEOFF #define GOTINDIR(register) ldr register,[register] #define PAGE(function) function@PAGE #define PAGEOFF(function) function@PAGEOFF #else #define GOTPAGE(variable) variable #define GOTPAGEOFF(variable) $:lo12:variable #define GOTINDIR(register) #define PAGE(function) function #define PAGEOFF(function) $:lo12:function #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) || (defined __APPLE__ && defined __MACH__)) #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.4/common/asm-mips.h0000664000000000000000000000202313347755312013364 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.4/common/asm-m68k.sh0000775000000000000000000000527613347755311013403 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.4/common/asm-hppa64.sh0000775000000000000000000000364013347755307013716 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.4/common/uniq-u.c0000664000000000000000000001441013347755315013055 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.4/common/asm-s390.sh0000775000000000000000000000255113347755313013307 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.4/common/structcpy.c0000664000000000000000000000226413347755315013703 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.4/common/asm-i386.sh0000775000000000000000000001344313347755311013302 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.4/common/asm-alpha.sh0000775000000000000000000000254613347755306013704 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.4/common/asm-mips.sh0000775000000000000000000000315013527357564013563 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.4/common/asm-sparc.sh0000775000000000000000000000361013347755314013717 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.4/common/asm-x86_64.sh0000775000000000000000000001333113347755314013546 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.4/common/asm-sparc.h0000664000000000000000000000566413347755313013543 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.4/common/asm-arm.sh0000775000000000000000000000416514061373343013364 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-2021 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)/ # ----------- Eliminate assembler pseudo-ops that allowed old syntax for inline # asms but that are not understood by the FreeBSD assembler /\.syntax divided/d # ----------- 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.4/common/asm-i386.h0000664000000000000000000002735713347755310013124 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.4/avcall/0000775000000000000000000000000014061422457011515 500000000000000libffcall-2.4/avcall/avcall-compat.c0000664000000000000000000000155713347755253014345 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.4/avcall/avcall-riscv64-lp64d-linux.s0000664000000000000000000001011214061422370016432 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,.L77 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,.L78 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,.L79 jalr t4 lw t1,24(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 li t4,2 beq t1,t4,.L71 li t4,3 beq t1,t4,.L71 li t4,4 beq t1,t4,.L71 li t4,5 beq t1,t4,.L72 li t4,6 beq t1,t4,.L72 li t4,7 beq t1,t4,.L73 li t4,8 beq t1,t4,.L73 and t4,t1,-3 li t6,9 beq t4,t6,.L75 addw t4,t1,-10 and t4,t4,-3 sext.w t4,t4 beqz t4,.L75 li t6,15 beq t1,t6,.L75 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 li s4,8 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,.L38 bgtu s1,s4,.L39 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 .L77: fld fa1,120(s1) j .L13 .L79: ld s1,16(s1) jalr t4 fsd fa0,0(s1) j .L26 .L71: ld t1,16(s1) sb t3,0(t1) 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 .L78: fld fa3,136(s1) j .L17 .L72: ld t1,16(s1) sh t3,0(t1) j .L26 .L18: lw t3,68(s1) and t3,t3,16 beqz t3,.L19 flw fa4,92(s1) j .L19 .L73: ld t1,16(s1) sw 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) sd 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 .L39: 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 .L38: sub t4,zero,t4 and t4,t4,t2 xor t4,t4,t0 sd t4,0(t6) sll t2,a1,s5 bleu s1,t1,.L80 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 .L80: 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.4/avcall/avcall-x86_64-windows.s0000664000000000000000000001222114061422367015505 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 .L76 .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 .L77 .L12: movl 24(%rbx), %eax cmpl $13, %eax je .L78 cmpl $14, %eax je .L79 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 cmpl $2, %edx je .L71 cmpl $3, %edx je .L71 cmpl $4, %edx je .L71 cmpl $5, %edx je .L72 cmpl $6, %edx je .L72 cmpl $7, %edx je .L73 cmpl $8, %edx je .L73 cmpl $9, %edx je .L74 cmpl $10, %edx je .L74 cmpl $11, %edx je .L74 cmpl $12, %edx je .L74 cmpl $15, %edx je .L74 cmpl $16, %edx jne .L18 testl $512, (%rbx) je .L18 movq 32(%rbx), %r8 leaq -4(%r8), %rdx testq $-5, %rdx je .L34 leaq -1(%r8), %rdx cmpq $1, %rdx ja .L18 .L34: movq 16(%rbx), %rdx movq %rdx, %r9 andl $7, %edx addq %rdx, %r8 andq $-8, %r9 cmpq $8, %r8 jbe .L80 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 .L77: .LCFI6: movsd 120(%rbx), %xmm3 jmp .L12 .p2align 4,,10 .p2align 3 .L76: movss 88(%rbx), %xmm3 jmp .L7 .p2align 4,,10 .p2align 3 .L71: movq 16(%rbx), %rdx movb %al, (%rdx) leaq -16(%rbp), %rsp xorl %eax, %eax popq %rbx .LCFI7: popq %rsi .LCFI8: popq %rbp .LCFI9: ret .p2align 4,,10 .p2align 3 .L72: .LCFI10: movq 16(%rbx), %rdx movw %ax, (%rdx) leaq -16(%rbp), %rsp xorl %eax, %eax popq %rbx .LCFI11: popq %rsi .LCFI12: popq %rbp .LCFI13: ret .L74: .LCFI14: movq 16(%rbx), %rdx movq %rax, (%rdx) jmp .L18 .p2align 4,,10 .p2align 3 .L79: 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 .L78: .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 .L73: movq 16(%rbx), %rdx movl %eax, (%rdx) jmp .L18 .L80: 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.4/avcall/avcall-mips64.c0000664000000000000000000006020614061147262014165 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret1 __asm__("$2"); */ register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ #if defined(_MIPSEL) if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #else if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - ((__avrword)1 << (sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = - ((__avrword)1 << (3*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif #endif } } } } return 0; } libffcall-2.4/avcall/avcall-x86_64-windows-macro.S0000664000000000000000000002055114061422367016551 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(76)) 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(77)) L(12): INSN2(mov,l ,X4 MEM_DISP(rbx,24), R(eax)) INSN2(cmp,l ,NUM(13), R(eax)) INSN1(je,_ ,L(78)) INSN2(cmp,l ,NUM(14), R(eax)) INSN1(je,_ ,L(79)) 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(cmp,l ,NUM(2), R(edx)) INSN1(je,_ ,L(71)) INSN2(cmp,l ,NUM(3), R(edx)) INSN1(je,_ ,L(71)) INSN2(cmp,l ,NUM(4), R(edx)) INSN1(je,_ ,L(71)) INSN2(cmp,l ,NUM(5), R(edx)) INSN1(je,_ ,L(72)) INSN2(cmp,l ,NUM(6), R(edx)) INSN1(je,_ ,L(72)) INSN2(cmp,l ,NUM(7), R(edx)) INSN1(je,_ ,L(73)) INSN2(cmp,l ,NUM(8), R(edx)) INSN1(je,_ ,L(73)) INSN2(cmp,l ,NUM(9), R(edx)) INSN1(je,_ ,L(74)) INSN2(cmp,l ,NUM(10), R(edx)) INSN1(je,_ ,L(74)) INSN2(cmp,l ,NUM(11), R(edx)) INSN1(je,_ ,L(74)) INSN2(cmp,l ,NUM(12), R(edx)) INSN1(je,_ ,L(74)) INSN2(cmp,l ,NUM(15), R(edx)) INSN1(je,_ ,L(74)) 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(34)) INSN2(lea,q ,X8 MEM_DISP(r8,-1), R(rdx)) INSN2(cmp,q ,NUM(1), R(rdx)) INSN1(ja,_ ,L(18)) L(34): 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(80)) 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(77): L(CFI6): INSN2S(movs,d ,X8 MEM_DISP(rbx,120), R(xmm3)) INSN1(jmp,_ ,L(12)) P2ALIGN(4,10) P2ALIGN(3,7) L(76): INSN2S(movs,s ,X4 MEM_DISP(rbx,88), R(xmm3)) INSN1(jmp,_ ,L(7)) P2ALIGN(4,10) P2ALIGN(3,7) L(71): 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(CFI7): INSN1(pop,q ,R(rsi)) L(CFI8): INSN1(pop,q ,R(rbp)) L(CFI9): ret P2ALIGN(4,10) P2ALIGN(3,7) L(72): L(CFI10): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,w ,R(ax),X2 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 L(74): L(CFI14): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,q ,R(rax),X8 MEM(rdx)) INSN1(jmp,_ ,L(18)) P2ALIGN(4,10) P2ALIGN(3,7) L(79): 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(78): 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(73): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rdx)) INSN2(mov,l ,R(eax),X4 MEM(rdx)) INSN1(jmp,_ ,L(18)) L(80): 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.4/avcall/avcall-sparc64-macro.S0000664000000000000000000002172614061422365015410 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(L97) andcc %g3, 2, %g0 bne,pt %xcc, L(L98) andcc %g3, 4, %g0 L(L133): bne,pt %xcc, L(L99) andcc %g3, 8, %g0 L(L132): bne,pt %xcc, L(L100) andcc %g3, 16, %g0 L(L131): bne,pt %xcc, L(L101) andcc %g3, 32, %g0 L(L130): bne,pt %xcc, L(L102) andcc %g3, 64, %g0 L(L129): bne,pt %xcc, L(L103) andcc %g3, 128, %g0 L(L128): bne,pt %xcc, L(L104) andcc %g3, 256, %g0 L(L127): bne,pt %xcc, L(L105) andcc %g3, 512, %g0 L(L126): bne,pt %xcc, L(L106) andcc %g3, 1024, %g0 L(L125): bne,pt %xcc, L(L107) andcc %g3, 2048, %g0 L(L124): bne,pt %xcc, L(L108) sethi %hi(4096), %g1 L(L123): andcc %g3, %g1, %g0 bne,pt %icc, L(L109) sethi %hi(8192), %g1 L(L122): andcc %g3, %g1, %g0 bne,pt %icc, L(L110) sethi %hi(16384), %g1 L(L121): andcc %g3, %g1, %g0 bne,pt %icc, L(L111) sethi %hi(32768), %g1 L(L120): andcc %g3, %g1, %g0 bne,pt %icc, L(L112) nop L(L2): cmp %o7, 6 L(L119): bg,pn %icc, L(L117) add %o7, -6, %g1 ldx [%i0+48], %g3 L(L118): ldx [%g3+40], %o5 L(L116): 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, 2 be,pn %icc, L(L89) cmp %g1, 3 be,pn %icc, L(L89) cmp %g1, 4 be,pn %icc, L(L89) cmp %g1, 5 be,pn %icc, L(L90) cmp %g1, 6 be,pn %icc, L(L90) cmp %g1, 7 be,pn %icc, L(L91) cmp %g1, 8 be,pn %icc, L(L91) cmp %g1, 9 be,pn %icc, L(L95) cmp %g1, 10 be,pn %icc, L(L95) cmp %g1, 11 be,pn %icc, L(L95) cmp %g1, 12 be,pn %icc, L(L95) cmp %g1, 13 be,pn %icc, L(L114) cmp %g1, 14 be,pn %icc, L(L115) cmp %g1, 15 be,pn %icc, L(L95) 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(L71) add %g2, %g5, %g4 cmp %g4, 8 bgu,pt %xcc, L(L73) 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 ba,pt %xcc, L(L38) stx %g5, [%i0] L(L89): ldx [%i0+16], %g1 stb %l3, [%g1] L(L38): return %i7+8 mov 0, %o0 L(L112): ldd [%g2+120],%f30 cmp %o7, 6 ble,a,pt %icc, L(L118) ldx [%i0+48], %g3 add %o7, -6, %g1 L(L117): 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(L116) ldx [%g3+40], %o5 L(L111): ldd [%g2+112],%f28 sethi %hi(32768), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L119) cmp %o7, 6 ba,pt %xcc, L(L112) nop L(L110): ldd [%g2+104],%f26 sethi %hi(16384), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L120) sethi %hi(32768), %g1 ba,pt %xcc, L(L111) nop L(L109): ldd [%g2+96],%f24 sethi %hi(8192), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L121) sethi %hi(16384), %g1 ba,pt %xcc, L(L110) nop L(L108): ldd [%g2+88],%f22 sethi %hi(4096), %g1 andcc %g3, %g1, %g0 be,pt %icc, L(L122) sethi %hi(8192), %g1 ba,pt %xcc, L(L109) nop L(L107): ldd [%g2+80],%f20 andcc %g3, 2048, %g0 be,pt %xcc, L(L123) sethi %hi(4096), %g1 ba,pt %xcc, L(L108) nop L(L106): ldd [%g2+72],%f18 andcc %g3, 1024, %g0 be,pt %xcc, L(L124) andcc %g3, 2048, %g0 ba,pt %xcc, L(L107) nop L(L105): ldd [%g2+64],%f16 andcc %g3, 512, %g0 be,pt %xcc, L(L125) andcc %g3, 1024, %g0 ba,pt %xcc, L(L106) nop L(L104): ldd [%g2+56],%f14 andcc %g3, 256, %g0 be,pt %xcc, L(L126) andcc %g3, 512, %g0 ba,pt %xcc, L(L105) nop L(L103): ldd [%g2+48],%f12 andcc %g3, 128, %g0 be,pt %xcc, L(L127) andcc %g3, 256, %g0 ba,pt %xcc, L(L104) nop L(L102): ldd [%g2+40],%f10 andcc %g3, 64, %g0 be,pt %xcc, L(L128) andcc %g3, 128, %g0 ba,pt %xcc, L(L103) nop L(L101): ldd [%g2+32],%f8 andcc %g3, 32, %g0 be,pt %xcc, L(L129) andcc %g3, 64, %g0 ba,pt %xcc, L(L102) nop L(L100): ldd [%g2+24],%f6 andcc %g3, 16, %g0 be,pt %xcc, L(L130) andcc %g3, 32, %g0 ba,pt %xcc, L(L101) nop L(L99): ldd [%g2+16],%f4 andcc %g3, 8, %g0 be,pt %xcc, L(L131) andcc %g3, 16, %g0 ba,pt %xcc, L(L100) nop L(L98): ldd [%g2+8],%f2 andcc %g3, 4, %g0 be,pt %xcc, L(L132) andcc %g3, 8, %g0 ba,pt %xcc, L(L99) nop L(L97): ldd [%g2+0],%f0 andcc %g3, 2, %g0 be,pt %xcc, L(L133) andcc %g3, 4, %g0 ba,pt %xcc, L(L98) nop L(L90): ldx [%i0+16], %g1 sth %l3, [%g1] return %i7+8 mov 0, %o0 L(L95): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) stx %l3, [%g1] L(L91): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) st %l3, [%g1] L(L114): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) st %f0, [%g1] L(L115): ldx [%i0+16], %g1 ba,pt %xcc, L(L38) std %f0, [%g1] L(L71): cmp %g2, 16 bgu,pt %xcc, L(L75) 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(L77) 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(L73): 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(L77): 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(L75): bgu,pt %xcc, L(L79) 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(L81) 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): 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(L83) 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(L81): 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(L83): 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.4/avcall/avcall-alpha-macro.S0000664000000000000000000000534514061422365015212 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 $1,24($9) zapnot $1,15,$3 cmpeq $3,1,$2 bne $2,$L5 cmpeq $3,2,$1 bne $1,$L50 cmpeq $3,3,$1 bne $1,$L50 cmpeq $3,4,$1 bne $1,$L50 cmpeq $3,5,$1 bne $1,$L52 cmpeq $3,6,$1 bne $1,$L52 cmpeq $3,7,$1 bne $1,$L53 cmpeq $3,8,$1 bne $1,$L53 cmpeq $3,9,$1 bne $1,$L54 cmpeq $3,10,$1 bne $1,$L54 cmpeq $3,11,$1 bne $1,$L54 cmpeq $3,12,$1 bne $1,$L54 cmpeq $3,13,$1 bne $1,$L56 cmpeq $3,14,$1 bne $1,$L57 cmpeq $3,15,$1 bne $1,$L54 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,$L50 cmpeq $2,2,$1 bne $1,$L52 cmpeq $2,4,$1 bne $1,$L53 cmpeq $2,8,$1 bne $1,$L54 cmpeq $2,16,$1 beq $1,$L5 ldq $1,16($9) stq $4,8($1) cpys $f31,$f31,$f31 stq $0,0($1) br $31,$L5 .align 4 $L50: ldq $1,16($9) bis $31,$31,$31 insbl $0,$1,$3 ldq_u $2,0($1) mskbl $2,$1,$2 bis $3,$2,$3 stq_u $3,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 $L52: mov $15,$30 ldq $1,16($9) inswl $0,$1,$3 ldq_u $2,0($1) mov $31,$0 mskwl $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) stq $0,0($1) br $31,$L5 $L53: ldq $1,16($9) bis $31,$31,$31 stl $0,0($1) br $31,$L5 $L56: cvtts $f0,$f0 ldq $1,16($9) sts $f0,0($1) br $31,$L5 $L57: 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.4/avcall/avcall-hppa-linux.s0000664000000000000000000001050614061422365015146 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,.L57 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) .L56: ldw 12(%r4),%r21 ldi 16,%r20 comb,=,n %r20,%r21,.L62 .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 2,%r21,.L60 comib,=,n 3,%r21,.L60 comib,=,n 4,%r21,.L60 comib,=,n 5,%r21,.L59 comib,=,n 6,%r21,.L59 comib,=,n 7,%r21,.L61 comib,=,n 8,%r21,.L61 comib,=,n 9,%r21,.L61 comib,=,n 10,%r21,.L61 ldo -11(%r21),%r20 comib,<<,n 1,%r20,.L38 ldw 8(%r4),%r20 stw %r29,4(%r20) .L58: stw %r2,0(%r20) .L19: ldw -20(%r3),%r2 .L65: ldi 0,%r28 ldw 8(%r3),%r5 ldw 12(%r3),%r4 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 .L38: comib,=,n 13,%r21,.L63 comib,=,n 14,%r21,.L64 comib,=,n 15,%r21,.L61 ldi 16,%r20 comb,<>,n %r20,%r21,.L65 ldw -20(%r3),%r2 ldw 0(%r4),%r20 bb,>=,n %r20,30,.L65 ldw -20(%r3),%r2 ldw 16(%r4),%r22 ldo -1(%r22),%r20 comib,<<,n 7,%r20,.L65 ldw -20(%r3),%r2 ldw 8(%r4),%r20 extru %r20,31,2,%r26 copy %r20,%r4 depi 0,31,2,%r4 comib,<< 4,%r22,.L49 addl %r26,%r22,%r21 comib,<< 4,%r21,.L50 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) .L50: 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) .L49: zdep %r26,28,29,%r26 mtsar %r26 zvdepi 2,32,%r20 comib,<< 8,%r21,.L53 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) .L53: 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) .L61: b .L58 ldw 8(%r4),%r20 .L64: ldw 8(%r4),%r20 b .L19 fstds %fr4,0(%r20) .L63: ldw 8(%r4),%r20 b .L19 fstws %fr4L,0(%r20) .L59: ldw 8(%r4),%r20 b .L19 sth %r2,0(%r20) .L60: ldw 8(%r4),%r20 b .L19 stb %r2,0(%r20) .L62: b .L7 ldw 8(%r4),%r28 .L57: b .L56 ldw 28(%r26),%r29 .EXIT .PROCEND .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.4/avcall/minitests-c++.cc0000664000000000000000000000133213347755263014342 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.4/avcall/avcall-arm64.c0000664000000000000000000003632214061147266014002 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 8-bytes alignment (but on macOS only 4-bytes 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 __avrword iarg1 __asm__("x0"); register __avrword iarg2 __asm__("x1"); register __avrword iarg3 __asm__("x2"); register __avrword iarg4 __asm__("x3"); register __avrword iarg5 __asm__("x4"); register __avrword iarg6 __asm__("x5"); register __avrword iarg7 __asm__("x6"); register __avrword 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 __avrword iretreg __asm__("x0"); register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.4/avcall/avcall-riscv32-ilp32d-macro.S0000664000000000000000000001012514061422370016477 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) 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,.L79 .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,.L80 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,.L81 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) add sp,sp,32 jr ra .L79: 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,.L82 jalr t4 lw t1,12(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 li t4,2 beq t1,t4,.L72 li t4,3 beq t1,t4,.L72 li t4,4 beq t1,t4,.L72 li t4,5 beq t1,t4,.L73 li t4,6 beq t1,t4,.L73 li t4,7 beq t1,t4,.L77 li t4,8 beq t1,t4,.L77 li t4,9 beq t1,t4,.L77 li t4,10 beq t1,t4,.L77 add t6,t1,-11 li t4,1 bleu t6,t4,.L83 li t6,15 beq t1,t6,.L77 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 s4,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,s4,.L39 bgtu t1,s4,.L40 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 .L80: fld fa1,96(s1) j .L13 .L82: lw s1,8(s1) jalr t4 fsd fa0,0(s1) j .L26 .L72: lw t1,8(s1) sb t3,0(t1) 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 .L81: fld fa3,112(s1) j .L17 .L73: lw t1,8(s1) sh t3,0(t1) j .L26 .L18: lw t3,44(s1) and t3,t3,16 beqz t3,.L19 flw fa4,68(s1) j .L19 .L77: lw t1,8(s1) sw 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 .L83: lw t1,8(s1) sw a0,0(t1) sw a1,4(t1) j .L26 .L40: 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 .L39: sub t4,zero,t4 and t4,t4,s1 xor t4,t4,t2 sw t4,0(t0) li t4,8 sll s1,a1,s2 bleu t1,t4,.L84 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 .L84: 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.4/avcall/avcall-arm-macro.S0000664000000000000000000000332714061422365014702 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(45) 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(45): 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, $2 beq L(48) cmp r2, $3 beq L(48) cmp r2, $4 beq L(48) cmp r2, $5 beq L(47) cmp r2, $6 beq L(47) cmp r2, $7 beq L(54) cmp r2, $8 beq L(54) cmp r2, $9 beq L(54) cmp r2, $10 beq L(54) sub r3, r2, $11 cmp r3, $1 bls L(53) 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(54) cmp r2, $16 beq L(55) L(8): mov r0, $0 ldmea fp, {r4, r5, fp, sp, pc} L(55): ldr r3, [r5, $0] tst r3, $512 beq L(8) ldr r3, [r5, $16] cmp r3, $1 beq L(48) cmp r3, $2 beq L(47) cmp r3, $4 bhi L(41) L(54): ldr r3, [r5, $8] L(46): str ip, [r3, $0] b L(8) L(41): cmp r3, $8 bne L(8) L(53): ldr r3, [r5, $8] str r1, [r3, $4] b L(46) L(47): ldr r3, [r5, $8] strh ip, [r3, $0] // movhi b L(8) L(48): 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.4/avcall/avcall-s390x.c0000664000000000000000000001421614061147262013731 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iarg1 __asm__("r2"); register __avrword iarg2 __asm__("r3"); register __avrword iarg3 __asm__("r4"); register __avrword iarg4 __asm__("r5"); register __avrword 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 __avrword iretreg __asm__("r2"); register double dret __asm__("f0"); /* We need to put a value in r6, but it's a call-saved register. */ __avrword 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 { __avrword iret = (*l->func)(); /* save return value */ if (l->rtype == __AVvoid) { } 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.4/avcall/avcall-powerpc64-elfv2-linux.S0000664000000000000000000000755414061422367017036 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 cmplwi 7,9,2 beq 7,.L43 cmplwi 7,9,3 beq 7,.L43 cmplwi 7,9,4 beq 7,.L43 cmplwi 7,9,5 beq 7,.L44 cmplwi 7,9,6 beq 7,.L44 cmplwi 7,9,7 beq 7,.L45 cmplwi 7,9,8 beq 7,.L45 cmplwi 7,9,9 beq 7,.L49 cmplwi 7,9,10 beq 7,.L49 cmplwi 7,9,11 beq 7,.L49 cmplwi 7,9,12 beq 7,.L49 cmplwi 7,9,13 beq 7,.L51 cmplwi 7,9,14 beq 7,.L52 cmplwi 7,9,15 beq 7,.L49 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,.L34 cmpldi 7,10,8 bgt 7,.L35 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 .L43: 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 .L45: ld 9,16(30) stw 3,0(9) b .L19 .p2align 4,,15 .L44: ld 9,16(30) sth 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 .L49: 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 .L52: ld 9,16(30) stfd 1,0(9) b .L19 .L51: ld 9,16(30) stfs 1,0(9) b .L19 .L34: 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,.L53 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 .L35: 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 .L53: 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.4/avcall/avcall-hppa.c0000664000000000000000000002754114061147262014000 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret1 __asm__("%r28"); */ register __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = iret; ((__avrword*)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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - ((__avrword)1 << (sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (sizeof(__avrword)*8-end_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (end_offset*8-sizeof(__avrword)*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (2*sizeof(__avrword)*8-end_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ ((iret << (2*sizeof(__avrword)*8-end_offset*8)) | (iret2 >> (end_offset*4-sizeof(__avrword)*4) >> (end_offset*4-sizeof(__avrword)*4)))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret2 << (2*sizeof(__avrword)*8-end_offset*8))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = - ((__avrword)1 << (3*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (end_offset*8-2*sizeof(__avrword)*8))) & mask0; wordaddr[1] = (iret << (3*sizeof(__avrword)*8-end_offset*8)) | (iret2 >> (end_offset*8-2*sizeof(__avrword)*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (3*sizeof(__avrword)*8-end_offset*8))) & mask2; } } #endif } } } return 0; } libffcall-2.4/avcall/avcall-mipsn32eb-macro.S0000664000000000000000000002027314061422364015723 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,.L124 andi $6,$2,0x2 .set macro .set reorder lwc1 $f12,44($16) andi $6,$2,0x2 .L124: .set noreorder .set nomacro beq $6,$0,.L125 andi $6,$2,0x4 .set macro .set reorder lwc1 $f13,48($16) andi $6,$2,0x4 .L125: .set noreorder .set nomacro beq $6,$0,.L126 andi $6,$2,0x8 .set macro .set reorder lwc1 $f14,52($16) andi $6,$2,0x8 .L126: .set noreorder .set nomacro beq $6,$0,.L127 andi $6,$2,0x10 .set macro .set reorder lwc1 $f15,56($16) andi $6,$2,0x10 .L127: .set noreorder .set nomacro beq $6,$0,.L128 andi $6,$2,0x20 .set macro .set reorder lwc1 $f16,60($16) andi $6,$2,0x20 .L128: .set noreorder .set nomacro beq $6,$0,.L129 andi $6,$2,0x40 .set macro .set reorder lwc1 $f17,64($16) andi $6,$2,0x40 .L129: .set noreorder .set nomacro beql $6,$0,.L130 andi $2,$2,0x80 .set macro .set reorder lwc1 $f18,68($16) andi $2,$2,0x80 .L130: bne $2,$0,.L117 .L2: lw $2,40($16) .L123: .set noreorder .set nomacro beql $2,$0,.L122 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L131 andi $6,$2,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $6,$2,0x2 .L131: .set noreorder .set nomacro beq $6,$0,.L132 andi $6,$2,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $6,$2,0x4 .L132: .set noreorder .set nomacro beq $6,$0,.L133 andi $6,$2,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $6,$2,0x8 .L133: .set noreorder .set nomacro beq $6,$0,.L134 andi $6,$2,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $6,$2,0x10 .L134: .set noreorder .set nomacro beq $6,$0,.L135 andi $6,$2,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $6,$2,0x20 .L135: .set noreorder .set nomacro beq $6,$0,.L136 andi $6,$2,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $6,$2,0x40 .L136: .set noreorder .set nomacro beql $6,$0,.L137 andi $2,$2,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $2,$2,0x80 .L137: bne $2,$0,.L118 slt $4,$4,9 .L122: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L82: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L82 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 beq $4,$5,.L19 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 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,.L115 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L115 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 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,.L138 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,.L37 lw $4,16($16) .set macro .set reorder lw $3,16($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L107 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L109 li $4,4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L110 li $4,8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L139 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L138: 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 .L118: ldc1 $f19,56($12) .set noreorder .set nomacro b .L122 slt $4,$4,9 .set macro .set reorder .align 3 .L117: lwc1 $f19,72($16) .set noreorder .set nomacro b .L123 lw $2,40($16) .set macro .set reorder .align 3 .L107: 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 .align 3 .L110: 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 .align 3 .L109: lw $3,8($16) sh $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 sdc1 $f0,0($2) .set macro .set reorder .L115: lw $3,8($16) .L139: .set noreorder .set nomacro b .L19 sd $2,0($3) .set macro .set reorder .L119: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 addu $4,$4,$5 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L42 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 .L41: 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,.L121 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 .L42: 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 .L121: 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.4/avcall/avcall-sparc-macro.S0000664000000000000000000000342614061422365015233 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, -1128, %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(L51) sra %g3, 2, %g4 L(L2): mov 6, %g1 cmp %g1, %g4 bge L(L46) ld [%i0+24], %l0 L(L7): sll %g1, 2, %g3 ld [%l0+%g3], %o7 add %g1, 1, %g1 cmp %g1, %g4 bl L(L7) st %o7, [%l1+%g3] L(L46): ld [%l0+20], %o5 ld [%i0+4], %g3 ld [%l0], %o0 ld [%l0+4], %o1 ld [%l0+8], %o2 ld [%l0+12], %o3 call %g3, 0 ld [%l0+16], %o4 nop ld [%i0+12], %o7 cmp %o7, 1 be L(L9) mov %o0, %l0 cmp %o7, 2 be L(L50) cmp %o7, 3 be L(L50) cmp %o7, 4 be L(L50) cmp %o7, 5 be L(L49) cmp %o7, 6 be L(L49) cmp %o7, 7 be L(L48) cmp %o7, 8 be L(L48) cmp %o7, 9 be L(L48) cmp %o7, 10 be L(L48) add %o7, -11, %g3 cmp %g3, 1 bgu L(L28) cmp %o7, 13 ld [%i0+8], %g3 st %o0, [%g3] b L(L9) st %o1, [%g3+4] L(L28): be L(L52) cmp %o7, 14 be L(L53) cmp %o7, 15 be L(L48) cmp %o7, 16 bne L(L9) nop ld [%i0], %g3 andcc %g3, 2, %g0 be L(L9) nop ld [%i0+16], %g3 cmp %g3, 1 be L(L50) cmp %g3, 2 be L(L49) cmp %g3, 4 bne L(L9) nop L(L48): ld [%i0+8], %g3 b L(L9) st %l0, [%g3] L(L49): ld [%i0+8], %g3 b L(L9) sth %l0, [%g3] L(L50): ld [%i0+8], %g3 b L(L9) stb %l0, [%g3] L(L53): ld [%i0+8], %g3 b L(L9) std %f0, [%g3] L(L52): ld [%i0], %g3 andcc %g3, 32, %g0 bne,a L(L31) fdtos %f0, %f0 L(L31): ld [%i0+8], %g3 b L(L9) st %f0, [%g3] L(L51): ld [%i0+8], %g3 b L(L2) st %g3, [%sp+64] L(L9): 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.4/avcall/avcall-powerpc64.c0000664000000000000000000003331014061147262014670 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("r3"); */ register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif } } #endif } return 0; } libffcall-2.4/avcall/avcall-structcpy.c0000664000000000000000000000142413347755262015113 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.4/avcall/avcall-powerpc64-linux.S0000664000000000000000000000517614061422367016020 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 cmplwi 7,9,2 beq 7,.L36 cmplwi 7,9,3 beq 7,.L36 cmplwi 7,9,4 beq 7,.L36 cmplwi 7,9,5 beq 7,.L37 cmplwi 7,9,6 beq 7,.L37 cmplwi 7,9,7 beq 7,.L38 cmplwi 7,9,8 beq 7,.L38 cmplwi 7,9,9 beq 7,.L39 cmplwi 7,9,10 beq 7,.L39 cmplwi 7,9,11 beq 7,.L39 cmplwi 7,9,12 beq 7,.L39 cmplwi 7,9,13 beq 7,.L41 cmplwi 7,9,14 beq 7,.L42 cmplwi 7,9,15 beq 7,.L39 .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) 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 .L38: ld 9,16(30) stw 3,0(9) b .L19 .p2align 4,,15 .L37: ld 9,16(30) sth 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 .L39: 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 .L42: ld 9,16(30) stfd 1,0(9) b .L19 .L41: ld 9,16(30) stfs 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.4/avcall/avcall-m68k.c0000664000000000000000000001065514061147262013633 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("d0"); */ register __avrword 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; __avrword i; __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = i2; } } } return 0; } libffcall-2.4/avcall/avcall-hppa64.c0000664000000000000000000004337114061147262014151 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword arg1 __asm__("r26"); register __avrword arg2 __asm__("r25"); register __avrword arg3 __asm__("r24"); register __avrword arg4 __asm__("r23"); register __avrword arg5 __asm__("r22"); register __avrword arg6 __asm__("r21"); register __avrword arg7 __asm__("r20"); register __avrword 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 __avrword iret1 __asm__("%r28"); */ register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - ((__avrword)1 << (sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = - ((__avrword)1 << (3*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.4/avcall/avcall-powerpc-sysv4-macro.S0000664000000000000000000000420314061422366016663 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,.L71 mtctr 0 .L72: slwi 9,3,2 addi 3,3,1 lwzx 0,9,11 stwx 0,9,10 bdnz .L72 .L71: 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,2 beq- 0,.L75 cmpwi 0,9,3 beq- 0,.L75 cmpwi 0,9,4 beq- 0,.L75 cmpwi 0,9,5 beq- 0,.L74 cmpwi 0,9,6 beq- 0,.L74 cmpwi 0,9,7 beq- 0,.L81 cmpwi 0,9,8 beq- 0,.L81 cmpwi 0,9,9 beq- 0,.L81 cmpwi 0,9,10 beq- 0,.L81 addi 0,9,-11 cmplwi 0,0,1 ble- 0,.L80 cmpwi 0,9,13 beq- 0,.L82 cmpwi 0,9,14 beq- 0,.L83 cmpwi 0,9,15 beq- 0,.L81 cmpwi 0,9,16 beq- 0,.L84 .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 .L84: lwz 0,0(30) andi. 9,0,512 beq- 0,.L34 lwz 0,16(30) cmpwi 0,0,1 beq- 0,.L75 cmpwi 0,0,2 beq- 0,.L74 cmpwi 0,0,4 beq- 0,.L81 cmpwi 0,0,8 bne+ 0,.L34 .L80: lwz 9,8(30) stw 4,4(9) .L73: stw 3,0(9) b .L34 .L81: lwz 9,8(30) b .L73 .L74: lwz 9,8(30) sth 3,0(9) b .L34 .L75: lwz 9,8(30) stb 3,0(9) b .L34 .L83: lwz 9,8(30) stfd 1,0(9) b .L34 .L82: 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.4/avcall/avcall-alpha-linux.s0000664000000000000000000000522514061422365015305 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 $1,24($9) zapnot $1,15,$3 cmpeq $3,1,$2 bne $2,$L5 cmpeq $3,2,$1 bne $1,$L50 cmpeq $3,3,$1 bne $1,$L50 cmpeq $3,4,$1 bne $1,$L50 cmpeq $3,5,$1 bne $1,$L52 cmpeq $3,6,$1 bne $1,$L52 cmpeq $3,7,$1 bne $1,$L53 cmpeq $3,8,$1 bne $1,$L53 cmpeq $3,9,$1 bne $1,$L54 cmpeq $3,10,$1 bne $1,$L54 cmpeq $3,11,$1 bne $1,$L54 cmpeq $3,12,$1 bne $1,$L54 cmpeq $3,13,$1 bne $1,$L56 cmpeq $3,14,$1 bne $1,$L57 cmpeq $3,15,$1 bne $1,$L54 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,$L50 cmpeq $2,2,$1 bne $1,$L52 cmpeq $2,4,$1 bne $1,$L53 cmpeq $2,8,$1 bne $1,$L54 cmpeq $2,16,$1 beq $1,$L5 ldq $1,16($9) stq $4,8($1) cpys $f31,$f31,$f31 stq $0,0($1) br $31,$L5 .align 4 $L50: ldq $1,16($9) bis $31,$31,$31 insbl $0,$1,$3 ldq_u $2,0($1) mskbl $2,$1,$2 bis $3,$2,$3 stq_u $3,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 $L52: mov $15,$30 ldq $1,16($9) inswl $0,$1,$3 ldq_u $2,0($1) mov $31,$0 mskwl $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) stq $0,0($1) br $31,$L5 $L53: ldq $1,16($9) bis $31,$31,$31 stl $0,0($1) br $31,$L5 $L56: cvtts $f0,$f0 ldq $1,16($9) sts $f0,0($1) br $31,$L5 $L57: 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.4/avcall/DOC0000664000000000000000000001411713146127475011776 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.4/avcall/avcall-mips64el-macro.S0000664000000000000000000002037214061422365015565 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,.L123 andi $4,$3,0x2 .set macro .set reorder lwc1 $f12,76($16) andi $4,$3,0x2 .L123: .set noreorder .set nomacro beq $4,$0,.L124 andi $4,$3,0x4 .set macro .set reorder lwc1 $f13,80($16) andi $4,$3,0x4 .L124: .set noreorder .set nomacro beq $4,$0,.L125 andi $4,$3,0x8 .set macro .set reorder lwc1 $f14,84($16) andi $4,$3,0x8 .L125: .set noreorder .set nomacro beq $4,$0,.L126 andi $4,$3,0x10 .set macro .set reorder lwc1 $f15,88($16) andi $4,$3,0x10 .L126: .set noreorder .set nomacro beq $4,$0,.L127 andi $4,$3,0x20 .set macro .set reorder lwc1 $f16,92($16) andi $4,$3,0x20 .L127: .set noreorder .set nomacro beq $4,$0,.L128 andi $4,$3,0x40 .set macro .set reorder lwc1 $f17,96($16) andi $4,$3,0x40 .L128: .set noreorder .set nomacro beql $4,$0,.L129 andi $3,$3,0x80 .set macro .set reorder lwc1 $f18,100($16) andi $3,$3,0x80 .L129: bne $3,$0,.L116 .L2: lw $3,72($16) .L122: .set noreorder .set nomacro beql $3,$0,.L121 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L130 andi $4,$3,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $4,$3,0x2 .L130: .set noreorder .set nomacro beq $4,$0,.L131 andi $4,$3,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $4,$3,0x4 .L131: .set noreorder .set nomacro beq $4,$0,.L132 andi $4,$3,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $4,$3,0x8 .L132: .set noreorder .set nomacro beq $4,$0,.L133 andi $4,$3,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $4,$3,0x10 .L133: .set noreorder .set nomacro beq $4,$0,.L134 andi $4,$3,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $4,$3,0x20 .L134: .set noreorder .set nomacro beq $4,$0,.L135 andi $4,$3,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $4,$3,0x40 .L135: .set noreorder .set nomacro beql $4,$0,.L136 andi $3,$3,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $3,$3,0x80 .L136: bne $3,$0,.L117 slt $3,$6,9 .L121: .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 beq $4,$5,.L19 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 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,.L109 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,11 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L118 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L137 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,.L37 ld $5,32($16) .set macro .set reorder ld $3,32($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L106 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L108 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,.L138 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L137: 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 .L117: ldc1 $f19,56($12) .set noreorder .set nomacro b .L121 slt $3,$6,9 .set macro .set reorder .align 3 .L116: lwc1 $f19,104($16) .set noreorder .set nomacro b .L122 lw $3,72($16) .set macro .set reorder .align 3 .L106: 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 sw $2,0($3) .set macro .set reorder .align 3 .L108: ld $3,16($16) sh $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 .L109: ld $3,16($16) .align 3 .L138: 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 .L119: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L118: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beq $3,$0,.L42 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 .L41: 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,.L120 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 .L42: 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 .L120: 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.4/avcall/avcall-sparc64.c0000664000000000000000000006450414061147262014332 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword o0 __asm__("%o0"); register __avrword o1 __asm__("%o1"); register __avrword o2 __asm__("%o2"); register __avrword o3 __asm__("%o3"); register __avrword o4 __asm__("%o4"); register __avrword 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; __avrword 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 __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - ((__avrword)1 << (sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else if (count <= 2*sizeof(__avrword)) { /* Use iret, iret2. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = - ((__avrword)1 << (3*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avrword)*8-start_offset*8))) & mask2; } } else if (count <= 3*sizeof(__avrword)) { /* Use iret, iret2, iret3. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 3*sizeof(__avrword)) { /* 2*sizeof(__avrword) < end_offset ≤ 3*sizeof(__avrword) */ __avrword mask2 = - ((__avrword)1 << (3*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ ((iret2 << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret3 >> (start_offset*8)))) & mask2; } else { /* 3*sizeof(__avrword) < end_offset < 4*sizeof(__avrword), start_offset > 0 */ __avrword mask3 = - ((__avrword)1 << (4*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] = (iret2 << (sizeof(__avrword)*8-start_offset*8)) | (iret3 >> (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ (iret3 << (sizeof(__avrword)*8-start_offset*8))) & mask3; } } else { /* Use iret, iret2, iret3, iret4. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 4*sizeof(__avrword)) { /* 3*sizeof(__avrword) < end_offset ≤ 4*sizeof(__avrword) */ __avrword mask3 = - ((__avrword)1 << (4*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret2 >> (start_offset*8)); wordaddr[2] = (iret2 << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret3 >> (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ ((iret3 << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret4 >> (start_offset*8)))) & mask3; } else { /* 4*sizeof(__avrword) < end_offset < 5*sizeof(__avrword), start_offset > 0 */ __avrword mask4 = - ((__avrword)1 << (5*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] = (iret2 << (sizeof(__avrword)*8-start_offset*8)) | (iret3 >> (start_offset*8)); wordaddr[3] = (iret3 << (sizeof(__avrword)*8-start_offset*8)) | (iret4 >> (start_offset*8)); wordaddr[4] ^= (wordaddr[4] ^ (iret4 << (sizeof(__avrword)*8-start_offset*8))) & mask4; } } #endif } } } return 0; } libffcall-2.4/avcall/avcall-s390x-linux.s0000664000000000000000000000743014061422370015102 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,.L77 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,.L78-.L77(%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 .L72 .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,.L78-.L77(%r13) jle .L9 tmll %r1,2 lg %r10,168(%r11) jne .L73 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 .L74 tm 119(%r1),8 je .L9 le %f6,136(%r1) .L9: lg %r1,168(%r11) l %r1,24(%r1) chi %r1,13 je .L75 chi %r1,14 je .L76 lg %r10,168(%r11) lg %r1,8(%r10) basr %r14,%r1 l %r1,24(%r10) chi %r1,1 lgr %r0,%r2 je .L19 chi %r1,2 je .L68 chi %r1,3 je .L68 chi %r1,4 je .L68 chi %r1,5 je .L69 chi %r1,6 je .L69 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 .L68: 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 .L73: .cfi_restore_state ld %f2,152(%r10) j .L14 .L69: lg %r1,168(%r11) lg %r4,288(%r11) lg %r6,160(%r11) lg %r1,16(%r1) 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 sth %r0,0(%r1) br %r4 .L67: .cfi_restore_state lg %r1,168(%r11) lg %r1,16(%r1) stg %r0,0(%r1) j .L19 .L76: 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 .L75: .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 .L70: lg %r1,168(%r11) lg %r1,16(%r1) st %r0,0(%r1) j .L19 .L72: lg %r6,104(%r1) j .L7 .L74: ld %f6,168(%r1) j .L9 .section .rodata .align 8 .L77: .L78: .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.4/avcall/Makefile.devel0000664000000000000000000004366014061421734014201 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-sparc-solaris-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-arm64-macos-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-sparc-solaris.s : avcall-sparc.c avcall-internal.h avcall.h avcall-alist.h $(THISFILE) $(CROSS_TOOL) sparc-linux gcc -V 3.1 $(GCCFLAGS) -O1 -D__sparc__ -D__sun -S avcall-sparc.c -o avcall-sparc-solaris.s avcall-sparc-solaris-macro.S : avcall-sparc-solaris.s ../common/asm-sparc.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-sparc.h"' ; ../common/asm-sparc.sh < avcall-sparc-solaris.s ; cat ../common/noexecstack.h) > avcall-sparc-solaris-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.5.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.5.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-arm64.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-arm64.h"' ; ../common/asm-arm64.sh < avcall-arm64el.s ; cat ../common/noexecstack-arm.h) > avcall-arm64-macro.S $(RM) avcall-arm64el.s avcall-arm64eb.s avcall-arm64-macos-macro.S : avcall-arm64.c avcall-internal.h avcall.h avcall-alist.h ../common/asm-arm64.sh ../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -D__APPLE__ -D__MACH__ -S avcall-arm64.c -o avcall-arm64-macos.s (echo '#include "asm-arm64.h"' ; ../common/asm-arm64.sh < avcall-arm64-macos.s ; cat ../common/noexecstack-arm.h) > avcall-arm64-macos-macro.S $(RM) avcall-arm64-macos.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.4/avcall/avcall-hppa64-linux.s0000664000000000000000000002161214061422365015320 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,.L113 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) .L113: ldw 24(%r8),%r31 ldi 16,%r29 cmpb,= %r29,%r31,.L118 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,.L119 cmpib,=,n 14,%r4,.L120 #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 2,%r2,.L117 cmpib,=,n 3,%r2,.L117 cmpib,=,n 4,%r2,.L117 cmpib,=,n 5,%r2,.L116 cmpib,=,n 6,%r2,.L116 cmpib,=,n 7,%r2,.L115 cmpib,=,n 8,%r2,.L115 cmpib,=,n 9,%r2,.L114 cmpib,=,n 11,%r2,.L114 cmpib,=,n 10,%r2,.L114 cmpib,=,n 12,%r2,.L114 cmpib,= 15,%r2,.L114 ldi 16,%r31 cmpb,=,n %r31,%r2,.L121 .L50: ldd -16(%r3),%r2 .L136: 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 .L121: ldw 0(%r8),%r31 extrd,u %r31,54+1-1,1,%r31 cmpib,= 0,%r31,.L136 ldd -16(%r3),%r2 ldd 32(%r8),%r2 ldo -1(%r2),%r31 cmpib,*<<,n 15,%r31,.L136 ldd -16(%r3),%r2 cmpib,*=,n 1,%r2,.L122 cmpib,*=,n 2,%r2,.L123 cmpib,*= 3,%r2,.L124 extrd,s %r28,23,24,%r4 cmpib,*= 4,%r2,.L125 extrd,s %r28,31,32,%r5 cmpib,*=,n 5,%r2,.L126 cmpib,*=,n 6,%r2,.L127 cmpib,*= 7,%r2,.L128 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,.L136 ldd -16(%r3),%r2 cmpib,*=,n 9,%r2,.L129 cmpib,*=,n 10,%r2,.L130 cmpib,*=,n 11,%r2,.L131 cmpib,*=,n 12,%r2,.L132 cmpib,*= 13,%r2,.L133 extrd,s %r29,7,8,%r31 cmpib,*=,n 14,%r2,.L134 cmpib,*= 15,%r2,.L135 ldi 16,%r31 cmpb,*<> %r31,%r2,.L136 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) .L135: 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) .L134: 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) .L133: 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) .L132: 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) .L131: 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) .L130: 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) .L129: ldd 16(%r8),%r31 extrd,s %r29,7,8,%r29 b .L50 stb %r29,8(%r31) .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 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) .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 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) .L126: 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) .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 stb %r2,1(%r29) ldd 16(%r8),%r29 stb %r4,2(%r29) ldd 16(%r8),%r31 b .L50 stb %r5,3(%r31) .L124: 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) .L123: 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) .L122: ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 b .L50 stb %r29,0(%r31) .L114: ldd 16(%r8),%r29 b .L50 std %r1,0(%r29) .L115: ldd 16(%r8),%r29 b .L50 stw %r1,0(%r29) .L116: ldd 16(%r8),%r29 b .L50 sth %r1,0(%r29) .L117: ldd 16(%r8),%r29 b .L50 stb %r1,0(%r29) .L120: #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) .L119: #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 .L118: b .L7 ldd 16(%r8),%r28 .EXIT .PROCEND .Lfe1: .size avcall_call,.Lfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.4/avcall/avcall-armhf-macro.S0000664000000000000000000001135514061422366015221 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) // 87 "avcall-armhf.c" 1 vldr.32 s0,[r4, $56] // 0 "" 2 .arm .syntax unified L(4): tst r3, $2 beq L(7) // 89 "avcall-armhf.c" 1 vldr.32 s1,[r4, $60] // 0 "" 2 .arm .syntax unified L(7): tst r3, $4 beq L(8) // 91 "avcall-armhf.c" 1 vldr.32 s2,[r4, $64] // 0 "" 2 .arm .syntax unified L(8): tst r3, $8 beq L(9) // 93 "avcall-armhf.c" 1 vldr.32 s3,[r4, $68] // 0 "" 2 .arm .syntax unified L(9): tst r3, $16 beq L(10) // 95 "avcall-armhf.c" 1 vldr.32 s4,[r4, $72] // 0 "" 2 .arm .syntax unified L(10): tst r3, $32 beq L(11) // 97 "avcall-armhf.c" 1 vldr.32 s5,[r4, $76] // 0 "" 2 .arm .syntax unified L(11): tst r3, $64 beq L(12) // 99 "avcall-armhf.c" 1 vldr.32 s6,[r4, $80] // 0 "" 2 .arm .syntax unified L(12): tst r3, $128 beq L(13) // 101 "avcall-armhf.c" 1 vldr.32 s7,[r4, $84] // 0 "" 2 .arm .syntax unified L(13): tst r3, $256 beq L(14) // 103 "avcall-armhf.c" 1 vldr.32 s8,[r4, $88] // 0 "" 2 .arm .syntax unified L(14): tst r3, $512 beq L(15) // 105 "avcall-armhf.c" 1 vldr.32 s9,[r4, $92] // 0 "" 2 .arm .syntax unified L(15): tst r3, $1024 beq L(16) // 107 "avcall-armhf.c" 1 vldr.32 s10,[r4, $96] // 0 "" 2 .arm .syntax unified L(16): tst r3, $2048 beq L(17) // 109 "avcall-armhf.c" 1 vldr.32 s11,[r4, $100] // 0 "" 2 .arm .syntax unified L(17): tst r3, $4096 beq L(18) // 111 "avcall-armhf.c" 1 vldr.32 s12,[r4, $104] // 0 "" 2 .arm .syntax unified L(18): tst r3, $8192 beq L(19) // 113 "avcall-armhf.c" 1 vldr.32 s13,[r4, $108] // 0 "" 2 .arm .syntax unified L(19): tst r3, $16384 beq L(20) // 115 "avcall-armhf.c" 1 vldr.32 s14,[r4, $112] // 0 "" 2 .arm .syntax unified L(20): tst r3, $32768 beq L(21) // 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) // 121 "avcall-armhf.c" 1 vldr.64 d0,[r4, $120] // 0 "" 2 .arm .syntax unified L(22): tst r3, $2 beq L(23) // 123 "avcall-armhf.c" 1 vldr.64 d1,[r4, $128] // 0 "" 2 .arm .syntax unified L(23): tst r3, $4 beq L(24) // 125 "avcall-armhf.c" 1 vldr.64 d2,[r4, $136] // 0 "" 2 .arm .syntax unified L(24): tst r3, $8 beq L(25) // 127 "avcall-armhf.c" 1 vldr.64 d3,[r4, $144] // 0 "" 2 .arm .syntax unified L(25): tst r3, $16 beq L(26) // 129 "avcall-armhf.c" 1 vldr.64 d4,[r4, $152] // 0 "" 2 .arm .syntax unified L(26): tst r3, $32 beq L(27) // 131 "avcall-armhf.c" 1 vldr.64 d5,[r4, $160] // 0 "" 2 .arm .syntax unified L(27): tst r3, $64 beq L(28) // 133 "avcall-armhf.c" 1 vldr.64 d6,[r4, $168] // 0 "" 2 .arm .syntax unified L(28): tst r3, $128 beq L(29) // 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, $2 beq L(126) cmp r3, $3 beq L(126) cmp r3, $4 beq L(126) cmp r3, $5 beq L(128) cmp r3, $6 beq L(128) cmp r3, $7 beq L(129) cmp r3, $8 beq L(129) cmp r3, $9 beq L(129) cmp r3, $10 beq L(129) sub r2, r3, $11 cmp r2, $1 bls L(130) cmp r3, $13 beq L(132) cmp r3, $14 beq L(133) cmp r3, $15 beq L(129) cmp r3, $16 bne L(30) ldr r3, [r4] tst r3, $512 beq L(30) ldr r3, [r4, $16] cmp r3, $1 beq L(126) cmp r3, $2 beq L(128) cmp r3, $4 bls L(129) cmp r3, $8 bne L(30) L(130): 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(126): ldr r3, [r4, $8] strb r0, [r3] mov r0, $0 sub sp, fp, $12 // sp needed pop {r4, r5, fp, pc} L(129): 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] strh r0, [r3] // movhi mov r0, $0 sub sp, fp, $12 // sp needed pop {r4, r5, fp, pc} L(132): ldr r3, [r4, $8] vstr.32 s0, [r3] b L(30) L(133): 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.4/avcall/Makefile.in0000664000000000000000000004426014061422000013470 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 = 2:0:1 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 $(srcdir)/avcall-sparc-solaris-macro.S case "$(OS)" in \ solaris*) input=avcall-sparc-solaris-macro.S ;; \ *) input=avcall-sparc-macro.S ;; \ esac; \ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common - < $(srcdir)/$${input} | 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 $(srcdir)/avcall-arm64-macos-macro.S case "$(OS)" in \ macos* | darwin*) input=avcall-arm64-macos-macro.S ;; \ *) input=avcall-arm64-macro.S ;; \ esac; \ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/$${input} | 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 avcall-libapi.lo @IF_MSVC@ ml64 -c -nologo avcall-x86_64.asm @IF_MSVC@ mkdir -p .libs; cp avcall-x86_64.@OBJEXT@ .libs/avcall-x86_64.@OBJEXT@ @IF_MSVC@ sed -e 's/avcall-libapi/avcall-x86_64/g' < avcall-libapi.lo > avcall-x86_64.lo @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-arm64-macos-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-sparc-solaris.s avcall-sparc-solaris-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.4/avcall/avcall-internal.h0000664000000000000000000021171714061147266014675 00000000000000/* * Copyright 1993-1995 Bill Triggs * Copyright 1995-2021 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++] = (__avrword)((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_int(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (int)(VAL), 0) \ : __av_word(LIST,(int)(VAL))) #else #define __av_int(LIST,VAL) __av_word(LIST,(int)(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_uint(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (unsigned int)(VAL), 0) \ : __av_word(LIST,(unsigned int)(VAL))) #else #define __av_uint(LIST,VAL) __av_word(LIST,(unsigned int)(VAL)) #endif #if (defined(__arm64__) && !(defined(__APPLE__) && defined(__MACH__))) || 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))) #elif defined(__arm64__) && defined(__APPLE__) && defined(__MACH__) #define __av_long(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (long)(VAL), 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ ((LIST).aptr)[-2] = (unsigned int)(unsigned long)(long)(VAL), \ ((LIST).aptr)[-1] = (unsigned int)((unsigned long)(long)(VAL) >> 32), \ 0))) #else #define __av_long(LIST,VAL) __av_word(LIST,(long)(VAL)) #endif #if (defined(__arm64__) && !(defined(__APPLE__) && defined(__MACH__))) || 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))) #elif defined(__arm64__) && defined(__APPLE__) && defined(__MACH__) #define __av_ulong(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (unsigned long)(VAL), 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ ((LIST).aptr)[-2] = (unsigned int)(unsigned long)(VAL), \ ((LIST).aptr)[-1] = (unsigned int)((unsigned long)(VAL) >> 32), \ 0))) #else #define __av_ulong(LIST,VAL) __av_word(LIST,(unsigned long)(VAL)) #endif #if (defined(__arm64__) && !(defined(__APPLE__) && defined(__MACH__))) || 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++] = (__avrword)(VAL), 0) \ : __av_word(LIST,VAL)) #endif #elif defined(__arm64__) && defined(__APPLE__) && defined(__MACH__) #define __av_ptr(LIST,VAL) \ ((LIST).ianum < __AV_IARG_NUM \ ? ((LIST).iargs[(LIST).ianum++] = (unsigned long)(VAL), 0) \ : ((LIST).aptr + 2 > (LIST).eptr \ ? -1 : \ ((LIST).aptr += 2, \ ((LIST).aptr)[-2] = (unsigned int)(unsigned long)(VAL), \ ((LIST).aptr)[-1] = (unsigned int)((unsigned long)(VAL) >> 32), \ 0))) #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(__avrword)+__AV_alignof(TYPE)/sizeof(__avrword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avrword))) <= __AV_IARG_NUM \ ? ((LIST).ianum = (((LIST).ianum + sizeof(TYPE)/sizeof(__avrword)+__AV_alignof(TYPE)/sizeof(__avrword)-1) & -(intptr_t)(__AV_alignof(TYPE)/sizeof(__avrword))), \ ((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++] = (__avrword)(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(__avrword)-1)/sizeof(__avrword) <= __AV_IARG_NUM \ ? ((LIST).ianum += (sizeof(TYPE)+sizeof(__avrword)-1)/sizeof(__avrword), \ ((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 += sizeof(double)/sizeof(__avword), \ 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(__avrword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avrword) \ ? (__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(__avrword)-1) & -(intptr_t)sizeof(__avrword))/sizeof(__avrword), \ 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++] = (__avrword)(LIST).eptr, \ 0)) \ : (((LIST).aptr += sizeof(void*)/sizeof(__avword)) \ > ((LIST).eptr = (__avword*)((uintptr_t)(LIST).eptr - (((TYPE_SIZE)+7)&-8)))\ ? -1 : \ (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)(LIST).eptr,VAL), \ ((void**)(LIST).aptr)[-1] = (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++] = (__avrword)(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(__avrword)-1) / sizeof(__avrword) <= __AV_IARG_NUM) \ ? (__av_struct_copy(TYPE_SIZE,TYPE_ALIGN,(void*)&(LIST).iargs[(LIST).ianum],VAL), \ (LIST).ianum += ((TYPE_SIZE) + sizeof(__avrword)-1) / sizeof(__avrword), \ 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(__avrword)+(TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) <= __AV_IARG_NUM*sizeof(__avrword) \ ? ((LIST).ianum += (((((TYPE_SIZE)+(TYPE_ALIGN)-1) & -(intptr_t)(TYPE_ALIGN)) + sizeof(__avrword)-1) & -(intptr_t)sizeof(__avrword))/sizeof(__avrword), \ __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++] = (__avrword)(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.4/avcall/avcall-sparc-linux.s0000664000000000000000000000316614061422365015332 00000000000000 .file "avcall-sparc.c" .section ".text" .align 4 .global avcall_call .type avcall_call,#function .proc 04 avcall_call: !#PROLOGUE# 0 save %sp, -1128, %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 .LL51 sra %g3, 2, %g4 .LL2: mov 6, %g1 cmp %g1, %g4 bge .LL46 ld [%i0+24], %l0 .LL7: sll %g1, 2, %g3 ld [%l0+%g3], %o7 add %g1, 1, %g1 cmp %g1, %g4 bl .LL7 st %o7, [%l1+%g3] .LL46: ld [%l0+20], %o5 ld [%i0+4], %g3 ld [%l0], %o0 ld [%l0+4], %o1 ld [%l0+8], %o2 ld [%l0+12], %o3 call %g3, 0 ld [%l0+16], %o4 nop ld [%i0+12], %o7 cmp %o7, 1 be .LL9 mov %o0, %l0 cmp %o7, 2 be .LL50 cmp %o7, 3 be .LL50 cmp %o7, 4 be .LL50 cmp %o7, 5 be .LL49 cmp %o7, 6 be .LL49 cmp %o7, 7 be .LL48 cmp %o7, 8 be .LL48 cmp %o7, 9 be .LL48 cmp %o7, 10 be .LL48 add %o7, -11, %g3 cmp %g3, 1 bgu .LL28 cmp %o7, 13 ld [%i0+8], %g3 st %o0, [%g3] b .LL9 st %o1, [%g3+4] .LL28: be .LL52 cmp %o7, 14 be .LL53 cmp %o7, 15 be .LL48 cmp %o7, 16 bne .LL9 nop ld [%i0], %g3 andcc %g3, 2, %g0 be .LL9 nop ld [%i0+16], %g3 cmp %g3, 1 be .LL50 cmp %g3, 2 be .LL49 cmp %g3, 4 bne .LL9 nop .LL48: ld [%i0+8], %g3 b .LL9 st %l0, [%g3] .LL49: ld [%i0+8], %g3 b .LL9 sth %l0, [%g3] .LL50: ld [%i0+8], %g3 b .LL9 stb %l0, [%g3] .LL53: ld [%i0+8], %g3 b .LL9 std %f0, [%g3] .LL52: ld [%i0], %g3 andcc %g3, 32, %g0 bne,a .LL31 fdtos %f0, %f0 .LL31: ld [%i0+8], %g3 b .LL9 st %f0, [%g3] .LL51: ld [%i0+8], %g3 b .LL2 st %g3, [%sp+64] .LL9: ret restore %g0, 0, %o0 .LLfe1: .size avcall_call,.LLfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.4/avcall/avcall-x86_64-x32-linux.s0000664000000000000000000002262014061422367015570 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 .L76: movq (%edi,%eax,8), %rdx movq %rdx, (%esi,%eax,8) addl $1, %eax cmpl %eax, %ecx jne .L76 .L6: movl 12(%ebx), %eax cmpl $13, %eax je .L93 cmpl $14, %eax je .L94 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 cmpl $2, %ecx je .L84 cmpl $3, %ecx je .L84 cmpl $4, %ecx je .L84 cmpl $5, %ecx je .L85 cmpl $6, %ecx je .L85 cmpl $7, %ecx je .L89 cmpl $8, %ecx je .L89 cmpl $9, %ecx je .L89 cmpl $10, %ecx je .L89 cmpl $11, %ecx je .L90 cmpl $12, %ecx je .L90 cmpl $15, %ecx je .L89 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 .L66 cmpl $8, %r8d ja .L67 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 .L95 cmpl $6, %r8d je .L96 cmpl $5, %r8d je .L97 cmpl $4, %r8d je .L98 cmpl $3, %r8d je .L99 cmpl $2, %r8d je .L100 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 .L93: 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 .L84: movl 8(%ebx), %edx movb %al, (%edx) leal -16(%rbp), %esp xorl %eax, %eax popq %rbx popq %r12 popq %rbp .LCFI5: ret .p2align 4,,10 .p2align 3 .L94: .LCFI6: 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 .LCFI7: ret .p2align 4,,10 .p2align 3 .L7: .LCFI8: je .L101 cmpl $6, %r8d je .L102 cmpl $5, %r8d je .L103 cmpl $4, %r8d je .L104 cmpl $3, %r8d je .L105 cmpl $2, %r8d je .L106 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 .LCFI9: ret .p2align 4,,10 .p2align 3 .L100: .LCFI10: pxor %xmm9, %xmm9 movapd %xmm9, %xmm10 movapd %xmm9, %xmm11 movapd %xmm9, %xmm12 movapd %xmm9, %xmm13 movapd %xmm9, %xmm14 jmp .L50 .L24: je .L107 cmpl $6, %r8d je .L108 cmpl $5, %r8d je .L109 cmpl $4, %r8d je .L110 cmpl $3, %r8d je .L111 cmpl $2, %r8d je .L112 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 .L85: movl 8(%ebx), %edx movw %ax, (%edx) jmp .L22 .L89: movl 8(%ebx), %edx movl %eax, (%edx) jmp .L22 .L106: pxor %xmm9, %xmm9 movapd %xmm9, %xmm10 movapd %xmm9, %xmm11 movapd %xmm9, %xmm12 movapd %xmm9, %xmm13 movapd %xmm9, %xmm14 jmp .L18 .L90: movl 8(%ebx), %edx movq %rax, (%edx) jmp .L22 .L112: pxor %xmm9, %xmm9 movapd %xmm9, %xmm10 movapd %xmm9, %xmm11 movapd %xmm9, %xmm12 movapd %xmm9, %xmm13 movapd %xmm9, %xmm14 jmp .L35 .L66: 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 .L113 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 .L67: 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 .L113: 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 .L99: pxor %xmm10, %xmm10 movapd %xmm10, %xmm11 movapd %xmm10, %xmm12 movapd %xmm10, %xmm13 movapd %xmm10, %xmm14 jmp .L48 .L111: pxor %xmm10, %xmm10 movapd %xmm10, %xmm11 movapd %xmm10, %xmm12 movapd %xmm10, %xmm13 movapd %xmm10, %xmm14 jmp .L33 .L110: pxor %xmm11, %xmm11 movapd %xmm11, %xmm12 movapd %xmm11, %xmm13 movapd %xmm11, %xmm14 jmp .L31 .L95: pxor %xmm14, %xmm14 jmp .L40 .L96: pxor %xmm13, %xmm13 movapd %xmm13, %xmm14 jmp .L42 .L97: pxor %xmm12, %xmm12 movapd %xmm12, %xmm13 movapd %xmm12, %xmm14 jmp .L44 .L98: pxor %xmm11, %xmm11 movapd %xmm11, %xmm12 movapd %xmm11, %xmm13 movapd %xmm11, %xmm14 jmp .L46 .L109: pxor %xmm12, %xmm12 movapd %xmm12, %xmm13 movapd %xmm12, %xmm14 jmp .L29 .L108: pxor %xmm13, %xmm13 movapd %xmm13, %xmm14 jmp .L27 .L107: pxor %xmm14, %xmm14 jmp .L25 .L105: pxor %xmm10, %xmm10 movapd %xmm10, %xmm11 movapd %xmm10, %xmm12 movapd %xmm10, %xmm13 movapd %xmm10, %xmm14 jmp .L16 .L104: pxor %xmm11, %xmm11 movapd %xmm11, %xmm12 movapd %xmm11, %xmm13 movapd %xmm11, %xmm14 jmp .L14 .L103: pxor %xmm12, %xmm12 movapd %xmm12, %xmm13 movapd %xmm12, %xmm14 jmp .L12 .L102: pxor %xmm13, %xmm13 movapd %xmm13, %xmm14 jmp .L10 .L101: 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 .align 4 .LEFDE1: .ident "GCC: (GNU) 5.4.0" .section .note.GNU-stack,"",@progbits libffcall-2.4/avcall/avcall-powerpc-macos.s0000664000000000000000000000436414061422366015646 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,L87 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 L86: 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,2 beq- cr0,L90 cmpwi cr0,r9,3 beq- cr0,L90 cmpwi cr0,r9,4 beq- cr0,L90 cmpwi cr0,r9,5 beq- cr0,L89 cmpwi cr0,r9,6 beq- cr0,L89 cmpwi cr0,r9,7 beq- cr0,L96 cmpwi cr0,r9,8 beq- cr0,L96 cmpwi cr0,r9,9 beq- cr0,L96 cmpwi cr0,r9,10 beq- cr0,L96 addi r0,r9,-11 cmplwi cr0,r0,1 ble- cr0,L95 cmpwi cr0,r9,13 beq- cr0,L97 cmpwi cr0,r9,14 beq- cr0,L98 cmpwi cr0,r9,15 beq- cr0,L96 cmpwi cr0,r9,16 beq- cr0,L99 L49: lwz r1,0(r1) li r3,0 lwz r0,8(r1) lmw r29,-12(r1) mtlr r0 blr L99: lwz r0,0(r29) andi. r9,r0,512 beq- cr0,L49 lwz r0,16(r29) cmpwi cr0,r0,1 beq- cr0,L90 cmpwi cr0,r0,2 beq- cr0,L89 cmpwi cr0,r0,4 beq- cr0,L96 cmpwi cr0,r0,8 bne+ cr0,L49 L95: lwz r9,8(r29) stw r4,4(r9) L88: stw r3,0(r9) b L49 L96: lwz r9,8(r29) b L88 L89: lwz r9,8(r29) sth r3,0(r9) b L49 L90: lwz r9,8(r29) stb r3,0(r9) b L49 L98: lwz r9,8(r29) stfd f1,0(r9) b L49 L97: lwz r9,8(r29) stfs f1,0(r9) b L49 L87: lwz r12,24(r29) b L86 libffcall-2.4/avcall/avcall-mips.c0000664000000000000000000001265014061147262014013 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = iret; ((__avrword*)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.4/avcall/avcall-mipsn32el-linux.s0000664000000000000000000002270514061422364016035 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,.L124 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 .L124: .set noreorder .set nomacro beq $6,$0,.L125 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 .L125: .set noreorder .set nomacro beq $6,$0,.L126 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 .L126: .set noreorder .set nomacro beq $6,$0,.L127 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 .L127: .set noreorder .set nomacro beq $6,$0,.L128 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 .L128: .set noreorder .set nomacro beq $6,$0,.L129 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 .L129: .set noreorder .set nomacro beql $6,$0,.L130 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 .L130: bne $2,$0,.L117 .L2: lw $2,40($16) .L123: .set noreorder .set nomacro beql $2,$0,.L122 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L131 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 .L131: .set noreorder .set nomacro beq $6,$0,.L132 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 .L132: .set noreorder .set nomacro beq $6,$0,.L133 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 .L133: .set noreorder .set nomacro beq $6,$0,.L134 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 .L134: .set noreorder .set nomacro beq $6,$0,.L135 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 .L135: .set noreorder .set nomacro beq $6,$0,.L136 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 .L136: .set noreorder .set nomacro beql $6,$0,.L137 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 .L137: bne $2,$0,.L118 slt $4,$4,9 .L122: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L82: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L82 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 beq $4,$5,.L19 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 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,.L115 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L115 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 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,.L138 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,.L37 lw $5,16($16) .set macro .set reorder lw $3,16($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L107 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L109 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L110 li $4,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L139 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L138: 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 .L118: #APP # 112 "avcall-mipsn32.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L122 slt $4,$4,9 .set macro .set reorder .align 3 .L117: #APP # 92 "avcall-mipsn32.c" 1 lwc1 $f19,72($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L123 lw $2,40($16) .set macro .set reorder .align 3 .L107: 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 .align 3 .L110: 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 .align 3 .L109: lw $3,8($16) sh $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 sdc1 $f0,0($2) .set macro .set reorder .L115: lw $3,8($16) .L139: .set noreorder .set nomacro b .L19 sd $2,0($3) .set macro .set reorder .L119: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beql $3,$0,.L42 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 .L41: 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,.L121 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 .L42: 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 .L121: 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.4/avcall/avcall-s390-linux.s0000664000000000000000000000336614061422367014724 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 .L53 .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 .L53: 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 chi %r4,2 je .L56 chi %r4,3 je .L56 chi %r4,4 je .L56 chi %r4,5 je .L55 chi %r4,6 je .L55 chi %r4,7 je .L62 chi %r4,8 je .L62 chi %r4,9 je .L62 chi %r4,10 je .L62 lr %r1,%r4 ahi %r1,-11 cl %r1,.LC0-.LT0_0(%r13) jle .L61 chi %r4,13 je .L63 chi %r4,14 je .L64 chi %r4,15 je .L62 chi %r4,16 je .L65 .L16: lhi %r2,0 l %r4,152(%r11) lm %r6,%r15,120(%r11) br %r4 .L65: tm 2(%r10),2 je .L16 l %r1,16(%r10) chi %r1,1 je .L56 chi %r1,2 je .L55 chi %r1,4 je .L62 chi %r1,8 jne .L16 .L61: l %r1,8(%r10) st %r3,4(%r1) .L54: st %r2,0(%r1) j .L16 .L62: l %r1,8(%r10) j .L54 .L55: l %r1,8(%r10) sth %r2,0(%r1) j .L16 .L56: l %r1,8(%r10) stc %r2,0(%r1) j .L16 .L64: l %r1,8(%r10) std %f0,0(%r1) j .L16 .L63: 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.4/avcall/avcall.man0000664000000000000000000002403714061422203013367 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.4/avcall/avcall-hppa64-macro.S0000664000000000000000000002221414061422365015221 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(113) 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(113)) ldw 24(%r8),%r31 ldi 16,%r29 cmpb,= %r29,%r31,L(118) 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(119) cmpib,=,n 14,%r4,L(120) 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 2,%r2,L(117) cmpib,=,n 3,%r2,L(117) cmpib,=,n 4,%r2,L(117) cmpib,=,n 5,%r2,L(116) cmpib,=,n 6,%r2,L(116) cmpib,=,n 7,%r2,L(115) cmpib,=,n 8,%r2,L(115) cmpib,=,n 9,%r2,L(114) cmpib,=,n 11,%r2,L(114) cmpib,=,n 10,%r2,L(114) cmpib,=,n 12,%r2,L(114) cmpib,= 15,%r2,L(114) ldi 16,%r31 cmpb,=,n %r31,%r2,L(121) DEF(L(50)) ldd -16(%r3),%r2 DEF(L(136)) 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(121)) ldw 0(%r8),%r31 extrd,u %r31,54+1-1,1,%r31 cmpib,= 0,%r31,L(136) ldd -16(%r3),%r2 ldd 32(%r8),%r2 ldo -1(%r2),%r31 cmpib,*<<,n 15,%r31,L(136) ldd -16(%r3),%r2 cmpib,*=,n 1,%r2,L(122) cmpib,*=,n 2,%r2,L(123) cmpib,*= 3,%r2,L(124) extrd,s %r28,23,24,%r4 cmpib,*= 4,%r2,L(125) extrd,s %r28,31,32,%r5 cmpib,*=,n 5,%r2,L(126) cmpib,*=,n 6,%r2,L(127) cmpib,*= 7,%r2,L(128) 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(136) ldd -16(%r3),%r2 cmpib,*=,n 9,%r2,L(129) cmpib,*=,n 10,%r2,L(130) cmpib,*=,n 11,%r2,L(131) cmpib,*=,n 12,%r2,L(132) cmpib,*= 13,%r2,L(133) extrd,s %r29,7,8,%r31 cmpib,*=,n 14,%r2,L(134) cmpib,*= 15,%r2,L(135) ldi 16,%r31 cmpb,*<> %r31,%r2,L(136) 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(135)) 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(134)) 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(133)) 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(132)) 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(131)) 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(130)) 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(129)) ldd 16(%r8),%r31 extrd,s %r29,7,8,%r29 b L(50) stb %r29,8(%r31) 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 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(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 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(126)) 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(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 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(124)) 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(123)) 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(122)) ldd 16(%r8),%r31 extrd,s %r28,7,8,%r29 b L(50) stb %r29,0(%r31) DEF(L(114)) ldd 16(%r8),%r29 b L(50) std %r1,0(%r29) DEF(L(115)) ldd 16(%r8),%r29 b L(50) stw %r1,0(%r29) DEF(L(116)) ldd 16(%r8),%r29 b L(50) sth %r1,0(%r29) DEF(L(117)) ldd 16(%r8),%r29 b L(50) stb %r1,0(%r29) DEF(L(120)) 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(119)) 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(118)) 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.4/avcall/avcall-sparc.c0000664000000000000000000030517614061421734014162 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword o0 __asm__("%o0"); register __avrword o1 __asm__("%o1"); register __avrword o2 __asm__("%o2"); register __avrword o3 __asm__("%o3"); register __avrword o4 __asm__("%o4"); register __avrword 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 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; __avrword 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 defined(__sun) 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 used to generate the calling instructions on the stack, * but that does not work on Solaris 11, where the stack is not executable. * For its trampolines, GCC uses a function __enable_execute_stack that * invokes mprotect(); but that it excessive for the use-case here. * So, instead use an array of precompiled trampolines. */ { unsigned int n = l->rsize; /* FRAGILE: This use of a local label does not work when compiled with gcc-3.1 -O2! */ void *trampoline = (char *) &&trampolines + n * 24; #if 0 o0 = l->args[0]; /* This instruction gets omitted! */ o1 = l->args[1]; o2 = l->args[2]; o3 = l->args[3]; o4 = l->args[4]; o5 = l->args[5]; #else void *ptr = l->args; __asm__ __volatile__ ("ld [%0],%%o0" : : "r" (ptr)); __asm__ __volatile__ ("ld [%0+4],%%o1" : : "r" (ptr)); __asm__ __volatile__ ("ld [%0+8],%%o2" : : "r" (ptr)); __asm__ __volatile__ ("ld [%0+12],%%o3" : : "r" (ptr)); __asm__ __volatile__ ("ld [%0+16],%%o4" : : "r" (ptr)); __asm__ __volatile__ ("ld [%0+20],%%o5" : : "r" (ptr)); #endif callee = l->func; __asm__ __volatile__ ("jmp %0" "\n\t" "nop" : : "r" (trampoline)); trampolines: /* Each of these trampolines has the form call %g2 0x9FC08000 nop 0x01000000 unimp n n mov 0,%i0 0xB0102000 ret 0x81C7E008 restore 0x81E80000 */ #define TRAMPOLINE(n) \ __asm__ __volatile__ ( "call %g2" \ "\n\t" "nop" \ "\n\t" ".long " #n \ "\n\t" "mov 0,%i0" \ "\n\t" "ret" \ "\n\t" "restore"); TRAMPOLINE(0); TRAMPOLINE(1) TRAMPOLINE(2) TRAMPOLINE(3) TRAMPOLINE(4) TRAMPOLINE(5) TRAMPOLINE(6) TRAMPOLINE(7) TRAMPOLINE(8) TRAMPOLINE(9) TRAMPOLINE(10) TRAMPOLINE(11) TRAMPOLINE(12) TRAMPOLINE(13) TRAMPOLINE(14) TRAMPOLINE(15) TRAMPOLINE(16) TRAMPOLINE(17) TRAMPOLINE(18) TRAMPOLINE(19) TRAMPOLINE(20) TRAMPOLINE(21) TRAMPOLINE(22) TRAMPOLINE(23) TRAMPOLINE(24) TRAMPOLINE(25) TRAMPOLINE(26) TRAMPOLINE(27) TRAMPOLINE(28) TRAMPOLINE(29) TRAMPOLINE(30) TRAMPOLINE(31) TRAMPOLINE(32) TRAMPOLINE(33) TRAMPOLINE(34) TRAMPOLINE(35) TRAMPOLINE(36) TRAMPOLINE(37) TRAMPOLINE(38) TRAMPOLINE(39) TRAMPOLINE(40) TRAMPOLINE(41) TRAMPOLINE(42) TRAMPOLINE(43) TRAMPOLINE(44) TRAMPOLINE(45) TRAMPOLINE(46) TRAMPOLINE(47) TRAMPOLINE(48) TRAMPOLINE(49) TRAMPOLINE(50) TRAMPOLINE(51) TRAMPOLINE(52) TRAMPOLINE(53) TRAMPOLINE(54) TRAMPOLINE(55) TRAMPOLINE(56) TRAMPOLINE(57) TRAMPOLINE(58) TRAMPOLINE(59) TRAMPOLINE(60) TRAMPOLINE(61) TRAMPOLINE(62) TRAMPOLINE(63) TRAMPOLINE(64) TRAMPOLINE(65) TRAMPOLINE(66) TRAMPOLINE(67) TRAMPOLINE(68) TRAMPOLINE(69) TRAMPOLINE(70) TRAMPOLINE(71) TRAMPOLINE(72) TRAMPOLINE(73) TRAMPOLINE(74) TRAMPOLINE(75) TRAMPOLINE(76) TRAMPOLINE(77) TRAMPOLINE(78) TRAMPOLINE(79) TRAMPOLINE(80) TRAMPOLINE(81) TRAMPOLINE(82) TRAMPOLINE(83) TRAMPOLINE(84) TRAMPOLINE(85) TRAMPOLINE(86) TRAMPOLINE(87) TRAMPOLINE(88) TRAMPOLINE(89) TRAMPOLINE(90) TRAMPOLINE(91) TRAMPOLINE(92) TRAMPOLINE(93) TRAMPOLINE(94) TRAMPOLINE(95) TRAMPOLINE(96) TRAMPOLINE(97) TRAMPOLINE(98) TRAMPOLINE(99) TRAMPOLINE(100) TRAMPOLINE(101) TRAMPOLINE(102) TRAMPOLINE(103) TRAMPOLINE(104) TRAMPOLINE(105) TRAMPOLINE(106) TRAMPOLINE(107) TRAMPOLINE(108) TRAMPOLINE(109) TRAMPOLINE(110) TRAMPOLINE(111) TRAMPOLINE(112) TRAMPOLINE(113) TRAMPOLINE(114) TRAMPOLINE(115) TRAMPOLINE(116) TRAMPOLINE(117) TRAMPOLINE(118) TRAMPOLINE(119) TRAMPOLINE(120) TRAMPOLINE(121) TRAMPOLINE(122) TRAMPOLINE(123) TRAMPOLINE(124) TRAMPOLINE(125) TRAMPOLINE(126) TRAMPOLINE(127) TRAMPOLINE(128) TRAMPOLINE(129) TRAMPOLINE(130) TRAMPOLINE(131) TRAMPOLINE(132) TRAMPOLINE(133) TRAMPOLINE(134) TRAMPOLINE(135) TRAMPOLINE(136) TRAMPOLINE(137) TRAMPOLINE(138) TRAMPOLINE(139) TRAMPOLINE(140) TRAMPOLINE(141) TRAMPOLINE(142) TRAMPOLINE(143) TRAMPOLINE(144) TRAMPOLINE(145) TRAMPOLINE(146) TRAMPOLINE(147) TRAMPOLINE(148) TRAMPOLINE(149) TRAMPOLINE(150) TRAMPOLINE(151) TRAMPOLINE(152) TRAMPOLINE(153) TRAMPOLINE(154) TRAMPOLINE(155) TRAMPOLINE(156) TRAMPOLINE(157) TRAMPOLINE(158) TRAMPOLINE(159) TRAMPOLINE(160) TRAMPOLINE(161) TRAMPOLINE(162) TRAMPOLINE(163) TRAMPOLINE(164) TRAMPOLINE(165) TRAMPOLINE(166) TRAMPOLINE(167) TRAMPOLINE(168) TRAMPOLINE(169) TRAMPOLINE(170) TRAMPOLINE(171) TRAMPOLINE(172) TRAMPOLINE(173) TRAMPOLINE(174) TRAMPOLINE(175) TRAMPOLINE(176) TRAMPOLINE(177) TRAMPOLINE(178) TRAMPOLINE(179) TRAMPOLINE(180) TRAMPOLINE(181) TRAMPOLINE(182) TRAMPOLINE(183) TRAMPOLINE(184) TRAMPOLINE(185) TRAMPOLINE(186) TRAMPOLINE(187) TRAMPOLINE(188) TRAMPOLINE(189) TRAMPOLINE(190) TRAMPOLINE(191) TRAMPOLINE(192) TRAMPOLINE(193) TRAMPOLINE(194) TRAMPOLINE(195) TRAMPOLINE(196) TRAMPOLINE(197) TRAMPOLINE(198) TRAMPOLINE(199) TRAMPOLINE(200) TRAMPOLINE(201) TRAMPOLINE(202) TRAMPOLINE(203) TRAMPOLINE(204) TRAMPOLINE(205) TRAMPOLINE(206) TRAMPOLINE(207) TRAMPOLINE(208) TRAMPOLINE(209) TRAMPOLINE(210) TRAMPOLINE(211) TRAMPOLINE(212) TRAMPOLINE(213) TRAMPOLINE(214) TRAMPOLINE(215) TRAMPOLINE(216) TRAMPOLINE(217) TRAMPOLINE(218) TRAMPOLINE(219) TRAMPOLINE(220) TRAMPOLINE(221) TRAMPOLINE(222) TRAMPOLINE(223) TRAMPOLINE(224) TRAMPOLINE(225) TRAMPOLINE(226) TRAMPOLINE(227) TRAMPOLINE(228) TRAMPOLINE(229) TRAMPOLINE(230) TRAMPOLINE(231) TRAMPOLINE(232) TRAMPOLINE(233) TRAMPOLINE(234) TRAMPOLINE(235) TRAMPOLINE(236) TRAMPOLINE(237) TRAMPOLINE(238) TRAMPOLINE(239) TRAMPOLINE(240) TRAMPOLINE(241) TRAMPOLINE(242) TRAMPOLINE(243) TRAMPOLINE(244) TRAMPOLINE(245) TRAMPOLINE(246) TRAMPOLINE(247) TRAMPOLINE(248) TRAMPOLINE(249) TRAMPOLINE(250) TRAMPOLINE(251) TRAMPOLINE(252) TRAMPOLINE(253) TRAMPOLINE(254) TRAMPOLINE(255) TRAMPOLINE(256) TRAMPOLINE(257) TRAMPOLINE(258) TRAMPOLINE(259) TRAMPOLINE(260) TRAMPOLINE(261) TRAMPOLINE(262) TRAMPOLINE(263) TRAMPOLINE(264) TRAMPOLINE(265) TRAMPOLINE(266) TRAMPOLINE(267) TRAMPOLINE(268) TRAMPOLINE(269) TRAMPOLINE(270) TRAMPOLINE(271) TRAMPOLINE(272) TRAMPOLINE(273) TRAMPOLINE(274) TRAMPOLINE(275) TRAMPOLINE(276) TRAMPOLINE(277) TRAMPOLINE(278) TRAMPOLINE(279) TRAMPOLINE(280) TRAMPOLINE(281) TRAMPOLINE(282) TRAMPOLINE(283) TRAMPOLINE(284) TRAMPOLINE(285) TRAMPOLINE(286) TRAMPOLINE(287) TRAMPOLINE(288) TRAMPOLINE(289) TRAMPOLINE(290) TRAMPOLINE(291) TRAMPOLINE(292) TRAMPOLINE(293) TRAMPOLINE(294) TRAMPOLINE(295) TRAMPOLINE(296) TRAMPOLINE(297) TRAMPOLINE(298) TRAMPOLINE(299) TRAMPOLINE(300) TRAMPOLINE(301) TRAMPOLINE(302) TRAMPOLINE(303) TRAMPOLINE(304) TRAMPOLINE(305) TRAMPOLINE(306) TRAMPOLINE(307) TRAMPOLINE(308) TRAMPOLINE(309) TRAMPOLINE(310) TRAMPOLINE(311) TRAMPOLINE(312) TRAMPOLINE(313) TRAMPOLINE(314) TRAMPOLINE(315) TRAMPOLINE(316) TRAMPOLINE(317) TRAMPOLINE(318) TRAMPOLINE(319) TRAMPOLINE(320) TRAMPOLINE(321) TRAMPOLINE(322) TRAMPOLINE(323) TRAMPOLINE(324) TRAMPOLINE(325) TRAMPOLINE(326) TRAMPOLINE(327) TRAMPOLINE(328) TRAMPOLINE(329) TRAMPOLINE(330) TRAMPOLINE(331) TRAMPOLINE(332) TRAMPOLINE(333) TRAMPOLINE(334) TRAMPOLINE(335) TRAMPOLINE(336) TRAMPOLINE(337) TRAMPOLINE(338) TRAMPOLINE(339) TRAMPOLINE(340) TRAMPOLINE(341) TRAMPOLINE(342) TRAMPOLINE(343) TRAMPOLINE(344) TRAMPOLINE(345) TRAMPOLINE(346) TRAMPOLINE(347) TRAMPOLINE(348) TRAMPOLINE(349) TRAMPOLINE(350) TRAMPOLINE(351) TRAMPOLINE(352) TRAMPOLINE(353) TRAMPOLINE(354) TRAMPOLINE(355) TRAMPOLINE(356) TRAMPOLINE(357) TRAMPOLINE(358) TRAMPOLINE(359) TRAMPOLINE(360) TRAMPOLINE(361) TRAMPOLINE(362) TRAMPOLINE(363) TRAMPOLINE(364) TRAMPOLINE(365) TRAMPOLINE(366) TRAMPOLINE(367) TRAMPOLINE(368) TRAMPOLINE(369) TRAMPOLINE(370) TRAMPOLINE(371) TRAMPOLINE(372) TRAMPOLINE(373) TRAMPOLINE(374) TRAMPOLINE(375) TRAMPOLINE(376) TRAMPOLINE(377) TRAMPOLINE(378) TRAMPOLINE(379) TRAMPOLINE(380) TRAMPOLINE(381) TRAMPOLINE(382) TRAMPOLINE(383) TRAMPOLINE(384) TRAMPOLINE(385) TRAMPOLINE(386) TRAMPOLINE(387) TRAMPOLINE(388) TRAMPOLINE(389) TRAMPOLINE(390) TRAMPOLINE(391) TRAMPOLINE(392) TRAMPOLINE(393) TRAMPOLINE(394) TRAMPOLINE(395) TRAMPOLINE(396) TRAMPOLINE(397) TRAMPOLINE(398) TRAMPOLINE(399) TRAMPOLINE(400) TRAMPOLINE(401) TRAMPOLINE(402) TRAMPOLINE(403) TRAMPOLINE(404) TRAMPOLINE(405) TRAMPOLINE(406) TRAMPOLINE(407) TRAMPOLINE(408) TRAMPOLINE(409) TRAMPOLINE(410) TRAMPOLINE(411) TRAMPOLINE(412) TRAMPOLINE(413) TRAMPOLINE(414) TRAMPOLINE(415) TRAMPOLINE(416) TRAMPOLINE(417) TRAMPOLINE(418) TRAMPOLINE(419) TRAMPOLINE(420) TRAMPOLINE(421) TRAMPOLINE(422) TRAMPOLINE(423) TRAMPOLINE(424) TRAMPOLINE(425) TRAMPOLINE(426) TRAMPOLINE(427) TRAMPOLINE(428) TRAMPOLINE(429) TRAMPOLINE(430) TRAMPOLINE(431) TRAMPOLINE(432) TRAMPOLINE(433) TRAMPOLINE(434) TRAMPOLINE(435) TRAMPOLINE(436) TRAMPOLINE(437) TRAMPOLINE(438) TRAMPOLINE(439) TRAMPOLINE(440) TRAMPOLINE(441) TRAMPOLINE(442) TRAMPOLINE(443) TRAMPOLINE(444) TRAMPOLINE(445) TRAMPOLINE(446) TRAMPOLINE(447) TRAMPOLINE(448) TRAMPOLINE(449) TRAMPOLINE(450) TRAMPOLINE(451) TRAMPOLINE(452) TRAMPOLINE(453) TRAMPOLINE(454) TRAMPOLINE(455) TRAMPOLINE(456) TRAMPOLINE(457) TRAMPOLINE(458) TRAMPOLINE(459) TRAMPOLINE(460) TRAMPOLINE(461) TRAMPOLINE(462) TRAMPOLINE(463) TRAMPOLINE(464) TRAMPOLINE(465) TRAMPOLINE(466) TRAMPOLINE(467) TRAMPOLINE(468) TRAMPOLINE(469) TRAMPOLINE(470) TRAMPOLINE(471) TRAMPOLINE(472) TRAMPOLINE(473) TRAMPOLINE(474) TRAMPOLINE(475) TRAMPOLINE(476) TRAMPOLINE(477) TRAMPOLINE(478) TRAMPOLINE(479) TRAMPOLINE(480) TRAMPOLINE(481) TRAMPOLINE(482) TRAMPOLINE(483) TRAMPOLINE(484) TRAMPOLINE(485) TRAMPOLINE(486) TRAMPOLINE(487) TRAMPOLINE(488) TRAMPOLINE(489) TRAMPOLINE(490) TRAMPOLINE(491) TRAMPOLINE(492) TRAMPOLINE(493) TRAMPOLINE(494) TRAMPOLINE(495) TRAMPOLINE(496) TRAMPOLINE(497) TRAMPOLINE(498) TRAMPOLINE(499) TRAMPOLINE(500) TRAMPOLINE(501) TRAMPOLINE(502) TRAMPOLINE(503) TRAMPOLINE(504) TRAMPOLINE(505) TRAMPOLINE(506) TRAMPOLINE(507) TRAMPOLINE(508) TRAMPOLINE(509) TRAMPOLINE(510) TRAMPOLINE(511) TRAMPOLINE(512) TRAMPOLINE(513) TRAMPOLINE(514) TRAMPOLINE(515) TRAMPOLINE(516) TRAMPOLINE(517) TRAMPOLINE(518) TRAMPOLINE(519) TRAMPOLINE(520) TRAMPOLINE(521) TRAMPOLINE(522) TRAMPOLINE(523) TRAMPOLINE(524) TRAMPOLINE(525) TRAMPOLINE(526) TRAMPOLINE(527) TRAMPOLINE(528) TRAMPOLINE(529) TRAMPOLINE(530) TRAMPOLINE(531) TRAMPOLINE(532) TRAMPOLINE(533) TRAMPOLINE(534) TRAMPOLINE(535) TRAMPOLINE(536) TRAMPOLINE(537) TRAMPOLINE(538) TRAMPOLINE(539) TRAMPOLINE(540) TRAMPOLINE(541) TRAMPOLINE(542) TRAMPOLINE(543) TRAMPOLINE(544) TRAMPOLINE(545) TRAMPOLINE(546) TRAMPOLINE(547) TRAMPOLINE(548) TRAMPOLINE(549) TRAMPOLINE(550) TRAMPOLINE(551) TRAMPOLINE(552) TRAMPOLINE(553) TRAMPOLINE(554) TRAMPOLINE(555) TRAMPOLINE(556) TRAMPOLINE(557) TRAMPOLINE(558) TRAMPOLINE(559) TRAMPOLINE(560) TRAMPOLINE(561) TRAMPOLINE(562) TRAMPOLINE(563) TRAMPOLINE(564) TRAMPOLINE(565) TRAMPOLINE(566) TRAMPOLINE(567) TRAMPOLINE(568) TRAMPOLINE(569) TRAMPOLINE(570) TRAMPOLINE(571) TRAMPOLINE(572) TRAMPOLINE(573) TRAMPOLINE(574) TRAMPOLINE(575) TRAMPOLINE(576) TRAMPOLINE(577) TRAMPOLINE(578) TRAMPOLINE(579) TRAMPOLINE(580) TRAMPOLINE(581) TRAMPOLINE(582) TRAMPOLINE(583) TRAMPOLINE(584) TRAMPOLINE(585) TRAMPOLINE(586) TRAMPOLINE(587) TRAMPOLINE(588) TRAMPOLINE(589) TRAMPOLINE(590) TRAMPOLINE(591) TRAMPOLINE(592) TRAMPOLINE(593) TRAMPOLINE(594) TRAMPOLINE(595) TRAMPOLINE(596) TRAMPOLINE(597) TRAMPOLINE(598) TRAMPOLINE(599) TRAMPOLINE(600) TRAMPOLINE(601) TRAMPOLINE(602) TRAMPOLINE(603) TRAMPOLINE(604) TRAMPOLINE(605) TRAMPOLINE(606) TRAMPOLINE(607) TRAMPOLINE(608) TRAMPOLINE(609) TRAMPOLINE(610) TRAMPOLINE(611) TRAMPOLINE(612) TRAMPOLINE(613) TRAMPOLINE(614) TRAMPOLINE(615) TRAMPOLINE(616) TRAMPOLINE(617) TRAMPOLINE(618) TRAMPOLINE(619) TRAMPOLINE(620) TRAMPOLINE(621) TRAMPOLINE(622) TRAMPOLINE(623) TRAMPOLINE(624) TRAMPOLINE(625) TRAMPOLINE(626) TRAMPOLINE(627) TRAMPOLINE(628) TRAMPOLINE(629) TRAMPOLINE(630) TRAMPOLINE(631) TRAMPOLINE(632) TRAMPOLINE(633) TRAMPOLINE(634) TRAMPOLINE(635) TRAMPOLINE(636) TRAMPOLINE(637) TRAMPOLINE(638) TRAMPOLINE(639) TRAMPOLINE(640) TRAMPOLINE(641) TRAMPOLINE(642) TRAMPOLINE(643) TRAMPOLINE(644) TRAMPOLINE(645) TRAMPOLINE(646) TRAMPOLINE(647) TRAMPOLINE(648) TRAMPOLINE(649) TRAMPOLINE(650) TRAMPOLINE(651) TRAMPOLINE(652) TRAMPOLINE(653) TRAMPOLINE(654) TRAMPOLINE(655) TRAMPOLINE(656) TRAMPOLINE(657) TRAMPOLINE(658) TRAMPOLINE(659) TRAMPOLINE(660) TRAMPOLINE(661) TRAMPOLINE(662) TRAMPOLINE(663) TRAMPOLINE(664) TRAMPOLINE(665) TRAMPOLINE(666) TRAMPOLINE(667) TRAMPOLINE(668) TRAMPOLINE(669) TRAMPOLINE(670) TRAMPOLINE(671) TRAMPOLINE(672) TRAMPOLINE(673) TRAMPOLINE(674) TRAMPOLINE(675) TRAMPOLINE(676) TRAMPOLINE(677) TRAMPOLINE(678) TRAMPOLINE(679) TRAMPOLINE(680) TRAMPOLINE(681) TRAMPOLINE(682) TRAMPOLINE(683) TRAMPOLINE(684) TRAMPOLINE(685) TRAMPOLINE(686) TRAMPOLINE(687) TRAMPOLINE(688) TRAMPOLINE(689) TRAMPOLINE(690) TRAMPOLINE(691) TRAMPOLINE(692) TRAMPOLINE(693) TRAMPOLINE(694) TRAMPOLINE(695) TRAMPOLINE(696) TRAMPOLINE(697) TRAMPOLINE(698) TRAMPOLINE(699) TRAMPOLINE(700) TRAMPOLINE(701) TRAMPOLINE(702) TRAMPOLINE(703) TRAMPOLINE(704) TRAMPOLINE(705) TRAMPOLINE(706) TRAMPOLINE(707) TRAMPOLINE(708) TRAMPOLINE(709) TRAMPOLINE(710) TRAMPOLINE(711) TRAMPOLINE(712) TRAMPOLINE(713) TRAMPOLINE(714) TRAMPOLINE(715) TRAMPOLINE(716) TRAMPOLINE(717) TRAMPOLINE(718) TRAMPOLINE(719) TRAMPOLINE(720) TRAMPOLINE(721) TRAMPOLINE(722) TRAMPOLINE(723) TRAMPOLINE(724) TRAMPOLINE(725) TRAMPOLINE(726) TRAMPOLINE(727) TRAMPOLINE(728) TRAMPOLINE(729) TRAMPOLINE(730) TRAMPOLINE(731) TRAMPOLINE(732) TRAMPOLINE(733) TRAMPOLINE(734) TRAMPOLINE(735) TRAMPOLINE(736) TRAMPOLINE(737) TRAMPOLINE(738) TRAMPOLINE(739) TRAMPOLINE(740) TRAMPOLINE(741) TRAMPOLINE(742) TRAMPOLINE(743) TRAMPOLINE(744) TRAMPOLINE(745) TRAMPOLINE(746) TRAMPOLINE(747) TRAMPOLINE(748) TRAMPOLINE(749) TRAMPOLINE(750) TRAMPOLINE(751) TRAMPOLINE(752) TRAMPOLINE(753) TRAMPOLINE(754) TRAMPOLINE(755) TRAMPOLINE(756) TRAMPOLINE(757) TRAMPOLINE(758) TRAMPOLINE(759) TRAMPOLINE(760) TRAMPOLINE(761) TRAMPOLINE(762) TRAMPOLINE(763) TRAMPOLINE(764) TRAMPOLINE(765) TRAMPOLINE(766) TRAMPOLINE(767) TRAMPOLINE(768) TRAMPOLINE(769) TRAMPOLINE(770) TRAMPOLINE(771) TRAMPOLINE(772) TRAMPOLINE(773) TRAMPOLINE(774) TRAMPOLINE(775) TRAMPOLINE(776) TRAMPOLINE(777) TRAMPOLINE(778) TRAMPOLINE(779) TRAMPOLINE(780) TRAMPOLINE(781) TRAMPOLINE(782) TRAMPOLINE(783) TRAMPOLINE(784) TRAMPOLINE(785) TRAMPOLINE(786) TRAMPOLINE(787) TRAMPOLINE(788) TRAMPOLINE(789) TRAMPOLINE(790) TRAMPOLINE(791) TRAMPOLINE(792) TRAMPOLINE(793) TRAMPOLINE(794) TRAMPOLINE(795) TRAMPOLINE(796) TRAMPOLINE(797) TRAMPOLINE(798) TRAMPOLINE(799) TRAMPOLINE(800) TRAMPOLINE(801) TRAMPOLINE(802) TRAMPOLINE(803) TRAMPOLINE(804) TRAMPOLINE(805) TRAMPOLINE(806) TRAMPOLINE(807) TRAMPOLINE(808) TRAMPOLINE(809) TRAMPOLINE(810) TRAMPOLINE(811) TRAMPOLINE(812) TRAMPOLINE(813) TRAMPOLINE(814) TRAMPOLINE(815) TRAMPOLINE(816) TRAMPOLINE(817) TRAMPOLINE(818) TRAMPOLINE(819) TRAMPOLINE(820) TRAMPOLINE(821) TRAMPOLINE(822) TRAMPOLINE(823) TRAMPOLINE(824) TRAMPOLINE(825) TRAMPOLINE(826) TRAMPOLINE(827) TRAMPOLINE(828) TRAMPOLINE(829) TRAMPOLINE(830) TRAMPOLINE(831) TRAMPOLINE(832) TRAMPOLINE(833) TRAMPOLINE(834) TRAMPOLINE(835) TRAMPOLINE(836) TRAMPOLINE(837) TRAMPOLINE(838) TRAMPOLINE(839) TRAMPOLINE(840) TRAMPOLINE(841) TRAMPOLINE(842) TRAMPOLINE(843) TRAMPOLINE(844) TRAMPOLINE(845) TRAMPOLINE(846) TRAMPOLINE(847) TRAMPOLINE(848) TRAMPOLINE(849) TRAMPOLINE(850) TRAMPOLINE(851) TRAMPOLINE(852) TRAMPOLINE(853) TRAMPOLINE(854) TRAMPOLINE(855) TRAMPOLINE(856) TRAMPOLINE(857) TRAMPOLINE(858) TRAMPOLINE(859) TRAMPOLINE(860) TRAMPOLINE(861) TRAMPOLINE(862) TRAMPOLINE(863) TRAMPOLINE(864) TRAMPOLINE(865) TRAMPOLINE(866) TRAMPOLINE(867) TRAMPOLINE(868) TRAMPOLINE(869) TRAMPOLINE(870) TRAMPOLINE(871) TRAMPOLINE(872) TRAMPOLINE(873) TRAMPOLINE(874) TRAMPOLINE(875) TRAMPOLINE(876) TRAMPOLINE(877) TRAMPOLINE(878) TRAMPOLINE(879) TRAMPOLINE(880) TRAMPOLINE(881) TRAMPOLINE(882) TRAMPOLINE(883) TRAMPOLINE(884) TRAMPOLINE(885) TRAMPOLINE(886) TRAMPOLINE(887) TRAMPOLINE(888) TRAMPOLINE(889) TRAMPOLINE(890) TRAMPOLINE(891) TRAMPOLINE(892) TRAMPOLINE(893) TRAMPOLINE(894) TRAMPOLINE(895) TRAMPOLINE(896) TRAMPOLINE(897) TRAMPOLINE(898) TRAMPOLINE(899) TRAMPOLINE(900) TRAMPOLINE(901) TRAMPOLINE(902) TRAMPOLINE(903) TRAMPOLINE(904) TRAMPOLINE(905) TRAMPOLINE(906) TRAMPOLINE(907) TRAMPOLINE(908) TRAMPOLINE(909) TRAMPOLINE(910) TRAMPOLINE(911) TRAMPOLINE(912) TRAMPOLINE(913) TRAMPOLINE(914) TRAMPOLINE(915) TRAMPOLINE(916) TRAMPOLINE(917) TRAMPOLINE(918) TRAMPOLINE(919) TRAMPOLINE(920) TRAMPOLINE(921) TRAMPOLINE(922) TRAMPOLINE(923) TRAMPOLINE(924) TRAMPOLINE(925) TRAMPOLINE(926) TRAMPOLINE(927) TRAMPOLINE(928) TRAMPOLINE(929) TRAMPOLINE(930) TRAMPOLINE(931) TRAMPOLINE(932) TRAMPOLINE(933) TRAMPOLINE(934) TRAMPOLINE(935) TRAMPOLINE(936) TRAMPOLINE(937) TRAMPOLINE(938) TRAMPOLINE(939) TRAMPOLINE(940) TRAMPOLINE(941) TRAMPOLINE(942) TRAMPOLINE(943) TRAMPOLINE(944) TRAMPOLINE(945) TRAMPOLINE(946) TRAMPOLINE(947) TRAMPOLINE(948) TRAMPOLINE(949) TRAMPOLINE(950) TRAMPOLINE(951) TRAMPOLINE(952) TRAMPOLINE(953) TRAMPOLINE(954) TRAMPOLINE(955) TRAMPOLINE(956) TRAMPOLINE(957) TRAMPOLINE(958) TRAMPOLINE(959) TRAMPOLINE(960) TRAMPOLINE(961) TRAMPOLINE(962) TRAMPOLINE(963) TRAMPOLINE(964) TRAMPOLINE(965) TRAMPOLINE(966) TRAMPOLINE(967) TRAMPOLINE(968) TRAMPOLINE(969) TRAMPOLINE(970) TRAMPOLINE(971) TRAMPOLINE(972) TRAMPOLINE(973) TRAMPOLINE(974) TRAMPOLINE(975) TRAMPOLINE(976) TRAMPOLINE(977) TRAMPOLINE(978) TRAMPOLINE(979) TRAMPOLINE(980) TRAMPOLINE(981) TRAMPOLINE(982) TRAMPOLINE(983) TRAMPOLINE(984) TRAMPOLINE(985) TRAMPOLINE(986) TRAMPOLINE(987) TRAMPOLINE(988) TRAMPOLINE(989) TRAMPOLINE(990) TRAMPOLINE(991) TRAMPOLINE(992) TRAMPOLINE(993) TRAMPOLINE(994) TRAMPOLINE(995) TRAMPOLINE(996) TRAMPOLINE(997) TRAMPOLINE(998) TRAMPOLINE(999) TRAMPOLINE(1000) TRAMPOLINE(1001) TRAMPOLINE(1002) TRAMPOLINE(1003) TRAMPOLINE(1004) TRAMPOLINE(1005) TRAMPOLINE(1006) TRAMPOLINE(1007) TRAMPOLINE(1008) TRAMPOLINE(1009) TRAMPOLINE(1010) TRAMPOLINE(1011) TRAMPOLINE(1012) TRAMPOLINE(1013) TRAMPOLINE(1014) TRAMPOLINE(1015) TRAMPOLINE(1016) TRAMPOLINE(1017) TRAMPOLINE(1018) TRAMPOLINE(1019) TRAMPOLINE(1020) TRAMPOLINE(1021) TRAMPOLINE(1022) TRAMPOLINE(1023) TRAMPOLINE(1024) TRAMPOLINE(1025) TRAMPOLINE(1026) TRAMPOLINE(1027) TRAMPOLINE(1028) TRAMPOLINE(1029) TRAMPOLINE(1030) TRAMPOLINE(1031) TRAMPOLINE(1032) TRAMPOLINE(1033) TRAMPOLINE(1034) TRAMPOLINE(1035) TRAMPOLINE(1036) TRAMPOLINE(1037) TRAMPOLINE(1038) TRAMPOLINE(1039) TRAMPOLINE(1040) TRAMPOLINE(1041) TRAMPOLINE(1042) TRAMPOLINE(1043) TRAMPOLINE(1044) TRAMPOLINE(1045) TRAMPOLINE(1046) TRAMPOLINE(1047) TRAMPOLINE(1048) TRAMPOLINE(1049) TRAMPOLINE(1050) TRAMPOLINE(1051) TRAMPOLINE(1052) TRAMPOLINE(1053) TRAMPOLINE(1054) TRAMPOLINE(1055) TRAMPOLINE(1056) TRAMPOLINE(1057) TRAMPOLINE(1058) TRAMPOLINE(1059) TRAMPOLINE(1060) TRAMPOLINE(1061) TRAMPOLINE(1062) TRAMPOLINE(1063) TRAMPOLINE(1064) TRAMPOLINE(1065) TRAMPOLINE(1066) TRAMPOLINE(1067) TRAMPOLINE(1068) TRAMPOLINE(1069) TRAMPOLINE(1070) TRAMPOLINE(1071) TRAMPOLINE(1072) TRAMPOLINE(1073) TRAMPOLINE(1074) TRAMPOLINE(1075) TRAMPOLINE(1076) TRAMPOLINE(1077) TRAMPOLINE(1078) TRAMPOLINE(1079) TRAMPOLINE(1080) TRAMPOLINE(1081) TRAMPOLINE(1082) TRAMPOLINE(1083) TRAMPOLINE(1084) TRAMPOLINE(1085) TRAMPOLINE(1086) TRAMPOLINE(1087) TRAMPOLINE(1088) TRAMPOLINE(1089) TRAMPOLINE(1090) TRAMPOLINE(1091) TRAMPOLINE(1092) TRAMPOLINE(1093) TRAMPOLINE(1094) TRAMPOLINE(1095) TRAMPOLINE(1096) TRAMPOLINE(1097) TRAMPOLINE(1098) TRAMPOLINE(1099) TRAMPOLINE(1100) TRAMPOLINE(1101) TRAMPOLINE(1102) TRAMPOLINE(1103) TRAMPOLINE(1104) TRAMPOLINE(1105) TRAMPOLINE(1106) TRAMPOLINE(1107) TRAMPOLINE(1108) TRAMPOLINE(1109) TRAMPOLINE(1110) TRAMPOLINE(1111) TRAMPOLINE(1112) TRAMPOLINE(1113) TRAMPOLINE(1114) TRAMPOLINE(1115) TRAMPOLINE(1116) TRAMPOLINE(1117) TRAMPOLINE(1118) TRAMPOLINE(1119) TRAMPOLINE(1120) TRAMPOLINE(1121) TRAMPOLINE(1122) TRAMPOLINE(1123) TRAMPOLINE(1124) TRAMPOLINE(1125) TRAMPOLINE(1126) TRAMPOLINE(1127) TRAMPOLINE(1128) TRAMPOLINE(1129) TRAMPOLINE(1130) TRAMPOLINE(1131) TRAMPOLINE(1132) TRAMPOLINE(1133) TRAMPOLINE(1134) TRAMPOLINE(1135) TRAMPOLINE(1136) TRAMPOLINE(1137) TRAMPOLINE(1138) TRAMPOLINE(1139) TRAMPOLINE(1140) TRAMPOLINE(1141) TRAMPOLINE(1142) TRAMPOLINE(1143) TRAMPOLINE(1144) TRAMPOLINE(1145) TRAMPOLINE(1146) TRAMPOLINE(1147) TRAMPOLINE(1148) TRAMPOLINE(1149) TRAMPOLINE(1150) TRAMPOLINE(1151) TRAMPOLINE(1152) TRAMPOLINE(1153) TRAMPOLINE(1154) TRAMPOLINE(1155) TRAMPOLINE(1156) TRAMPOLINE(1157) TRAMPOLINE(1158) TRAMPOLINE(1159) TRAMPOLINE(1160) TRAMPOLINE(1161) TRAMPOLINE(1162) TRAMPOLINE(1163) TRAMPOLINE(1164) TRAMPOLINE(1165) TRAMPOLINE(1166) TRAMPOLINE(1167) TRAMPOLINE(1168) TRAMPOLINE(1169) TRAMPOLINE(1170) TRAMPOLINE(1171) TRAMPOLINE(1172) TRAMPOLINE(1173) TRAMPOLINE(1174) TRAMPOLINE(1175) TRAMPOLINE(1176) TRAMPOLINE(1177) TRAMPOLINE(1178) TRAMPOLINE(1179) TRAMPOLINE(1180) TRAMPOLINE(1181) TRAMPOLINE(1182) TRAMPOLINE(1183) TRAMPOLINE(1184) TRAMPOLINE(1185) TRAMPOLINE(1186) TRAMPOLINE(1187) TRAMPOLINE(1188) TRAMPOLINE(1189) TRAMPOLINE(1190) TRAMPOLINE(1191) TRAMPOLINE(1192) TRAMPOLINE(1193) TRAMPOLINE(1194) TRAMPOLINE(1195) TRAMPOLINE(1196) TRAMPOLINE(1197) TRAMPOLINE(1198) TRAMPOLINE(1199) TRAMPOLINE(1200) TRAMPOLINE(1201) TRAMPOLINE(1202) TRAMPOLINE(1203) TRAMPOLINE(1204) TRAMPOLINE(1205) TRAMPOLINE(1206) TRAMPOLINE(1207) TRAMPOLINE(1208) TRAMPOLINE(1209) TRAMPOLINE(1210) TRAMPOLINE(1211) TRAMPOLINE(1212) TRAMPOLINE(1213) TRAMPOLINE(1214) TRAMPOLINE(1215) TRAMPOLINE(1216) TRAMPOLINE(1217) TRAMPOLINE(1218) TRAMPOLINE(1219) TRAMPOLINE(1220) TRAMPOLINE(1221) TRAMPOLINE(1222) TRAMPOLINE(1223) TRAMPOLINE(1224) TRAMPOLINE(1225) TRAMPOLINE(1226) TRAMPOLINE(1227) TRAMPOLINE(1228) TRAMPOLINE(1229) TRAMPOLINE(1230) TRAMPOLINE(1231) TRAMPOLINE(1232) TRAMPOLINE(1233) TRAMPOLINE(1234) TRAMPOLINE(1235) TRAMPOLINE(1236) TRAMPOLINE(1237) TRAMPOLINE(1238) TRAMPOLINE(1239) TRAMPOLINE(1240) TRAMPOLINE(1241) TRAMPOLINE(1242) TRAMPOLINE(1243) TRAMPOLINE(1244) TRAMPOLINE(1245) TRAMPOLINE(1246) TRAMPOLINE(1247) TRAMPOLINE(1248) TRAMPOLINE(1249) TRAMPOLINE(1250) TRAMPOLINE(1251) TRAMPOLINE(1252) TRAMPOLINE(1253) TRAMPOLINE(1254) TRAMPOLINE(1255) TRAMPOLINE(1256) TRAMPOLINE(1257) TRAMPOLINE(1258) TRAMPOLINE(1259) TRAMPOLINE(1260) TRAMPOLINE(1261) TRAMPOLINE(1262) TRAMPOLINE(1263) TRAMPOLINE(1264) TRAMPOLINE(1265) TRAMPOLINE(1266) TRAMPOLINE(1267) TRAMPOLINE(1268) TRAMPOLINE(1269) TRAMPOLINE(1270) TRAMPOLINE(1271) TRAMPOLINE(1272) TRAMPOLINE(1273) TRAMPOLINE(1274) TRAMPOLINE(1275) TRAMPOLINE(1276) TRAMPOLINE(1277) TRAMPOLINE(1278) TRAMPOLINE(1279) TRAMPOLINE(1280) TRAMPOLINE(1281) TRAMPOLINE(1282) TRAMPOLINE(1283) TRAMPOLINE(1284) TRAMPOLINE(1285) TRAMPOLINE(1286) TRAMPOLINE(1287) TRAMPOLINE(1288) TRAMPOLINE(1289) TRAMPOLINE(1290) TRAMPOLINE(1291) TRAMPOLINE(1292) TRAMPOLINE(1293) TRAMPOLINE(1294) TRAMPOLINE(1295) TRAMPOLINE(1296) TRAMPOLINE(1297) TRAMPOLINE(1298) TRAMPOLINE(1299) TRAMPOLINE(1300) TRAMPOLINE(1301) TRAMPOLINE(1302) TRAMPOLINE(1303) TRAMPOLINE(1304) TRAMPOLINE(1305) TRAMPOLINE(1306) TRAMPOLINE(1307) TRAMPOLINE(1308) TRAMPOLINE(1309) TRAMPOLINE(1310) TRAMPOLINE(1311) TRAMPOLINE(1312) TRAMPOLINE(1313) TRAMPOLINE(1314) TRAMPOLINE(1315) TRAMPOLINE(1316) TRAMPOLINE(1317) TRAMPOLINE(1318) TRAMPOLINE(1319) TRAMPOLINE(1320) TRAMPOLINE(1321) TRAMPOLINE(1322) TRAMPOLINE(1323) TRAMPOLINE(1324) TRAMPOLINE(1325) TRAMPOLINE(1326) TRAMPOLINE(1327) TRAMPOLINE(1328) TRAMPOLINE(1329) TRAMPOLINE(1330) TRAMPOLINE(1331) TRAMPOLINE(1332) TRAMPOLINE(1333) TRAMPOLINE(1334) TRAMPOLINE(1335) TRAMPOLINE(1336) TRAMPOLINE(1337) TRAMPOLINE(1338) TRAMPOLINE(1339) TRAMPOLINE(1340) TRAMPOLINE(1341) TRAMPOLINE(1342) TRAMPOLINE(1343) TRAMPOLINE(1344) TRAMPOLINE(1345) TRAMPOLINE(1346) TRAMPOLINE(1347) TRAMPOLINE(1348) TRAMPOLINE(1349) TRAMPOLINE(1350) TRAMPOLINE(1351) TRAMPOLINE(1352) TRAMPOLINE(1353) TRAMPOLINE(1354) TRAMPOLINE(1355) TRAMPOLINE(1356) TRAMPOLINE(1357) TRAMPOLINE(1358) TRAMPOLINE(1359) TRAMPOLINE(1360) TRAMPOLINE(1361) TRAMPOLINE(1362) TRAMPOLINE(1363) TRAMPOLINE(1364) TRAMPOLINE(1365) TRAMPOLINE(1366) TRAMPOLINE(1367) TRAMPOLINE(1368) TRAMPOLINE(1369) TRAMPOLINE(1370) TRAMPOLINE(1371) TRAMPOLINE(1372) TRAMPOLINE(1373) TRAMPOLINE(1374) TRAMPOLINE(1375) TRAMPOLINE(1376) TRAMPOLINE(1377) TRAMPOLINE(1378) TRAMPOLINE(1379) TRAMPOLINE(1380) TRAMPOLINE(1381) TRAMPOLINE(1382) TRAMPOLINE(1383) TRAMPOLINE(1384) TRAMPOLINE(1385) TRAMPOLINE(1386) TRAMPOLINE(1387) TRAMPOLINE(1388) TRAMPOLINE(1389) TRAMPOLINE(1390) TRAMPOLINE(1391) TRAMPOLINE(1392) TRAMPOLINE(1393) TRAMPOLINE(1394) TRAMPOLINE(1395) TRAMPOLINE(1396) TRAMPOLINE(1397) TRAMPOLINE(1398) TRAMPOLINE(1399) TRAMPOLINE(1400) TRAMPOLINE(1401) TRAMPOLINE(1402) TRAMPOLINE(1403) TRAMPOLINE(1404) TRAMPOLINE(1405) TRAMPOLINE(1406) TRAMPOLINE(1407) TRAMPOLINE(1408) TRAMPOLINE(1409) TRAMPOLINE(1410) TRAMPOLINE(1411) TRAMPOLINE(1412) TRAMPOLINE(1413) TRAMPOLINE(1414) TRAMPOLINE(1415) TRAMPOLINE(1416) TRAMPOLINE(1417) TRAMPOLINE(1418) TRAMPOLINE(1419) TRAMPOLINE(1420) TRAMPOLINE(1421) TRAMPOLINE(1422) TRAMPOLINE(1423) TRAMPOLINE(1424) TRAMPOLINE(1425) TRAMPOLINE(1426) TRAMPOLINE(1427) TRAMPOLINE(1428) TRAMPOLINE(1429) TRAMPOLINE(1430) TRAMPOLINE(1431) TRAMPOLINE(1432) TRAMPOLINE(1433) TRAMPOLINE(1434) TRAMPOLINE(1435) TRAMPOLINE(1436) TRAMPOLINE(1437) TRAMPOLINE(1438) TRAMPOLINE(1439) TRAMPOLINE(1440) TRAMPOLINE(1441) TRAMPOLINE(1442) TRAMPOLINE(1443) TRAMPOLINE(1444) TRAMPOLINE(1445) TRAMPOLINE(1446) TRAMPOLINE(1447) TRAMPOLINE(1448) TRAMPOLINE(1449) TRAMPOLINE(1450) TRAMPOLINE(1451) TRAMPOLINE(1452) TRAMPOLINE(1453) TRAMPOLINE(1454) TRAMPOLINE(1455) TRAMPOLINE(1456) TRAMPOLINE(1457) TRAMPOLINE(1458) TRAMPOLINE(1459) TRAMPOLINE(1460) TRAMPOLINE(1461) TRAMPOLINE(1462) TRAMPOLINE(1463) TRAMPOLINE(1464) TRAMPOLINE(1465) TRAMPOLINE(1466) TRAMPOLINE(1467) TRAMPOLINE(1468) TRAMPOLINE(1469) TRAMPOLINE(1470) TRAMPOLINE(1471) TRAMPOLINE(1472) TRAMPOLINE(1473) TRAMPOLINE(1474) TRAMPOLINE(1475) TRAMPOLINE(1476) TRAMPOLINE(1477) TRAMPOLINE(1478) TRAMPOLINE(1479) TRAMPOLINE(1480) TRAMPOLINE(1481) TRAMPOLINE(1482) TRAMPOLINE(1483) TRAMPOLINE(1484) TRAMPOLINE(1485) TRAMPOLINE(1486) TRAMPOLINE(1487) TRAMPOLINE(1488) TRAMPOLINE(1489) TRAMPOLINE(1490) TRAMPOLINE(1491) TRAMPOLINE(1492) TRAMPOLINE(1493) TRAMPOLINE(1494) TRAMPOLINE(1495) TRAMPOLINE(1496) TRAMPOLINE(1497) TRAMPOLINE(1498) TRAMPOLINE(1499) TRAMPOLINE(1500) TRAMPOLINE(1501) TRAMPOLINE(1502) TRAMPOLINE(1503) TRAMPOLINE(1504) TRAMPOLINE(1505) TRAMPOLINE(1506) TRAMPOLINE(1507) TRAMPOLINE(1508) TRAMPOLINE(1509) TRAMPOLINE(1510) TRAMPOLINE(1511) TRAMPOLINE(1512) TRAMPOLINE(1513) TRAMPOLINE(1514) TRAMPOLINE(1515) TRAMPOLINE(1516) TRAMPOLINE(1517) TRAMPOLINE(1518) TRAMPOLINE(1519) TRAMPOLINE(1520) TRAMPOLINE(1521) TRAMPOLINE(1522) TRAMPOLINE(1523) TRAMPOLINE(1524) TRAMPOLINE(1525) TRAMPOLINE(1526) TRAMPOLINE(1527) TRAMPOLINE(1528) TRAMPOLINE(1529) TRAMPOLINE(1530) TRAMPOLINE(1531) TRAMPOLINE(1532) TRAMPOLINE(1533) TRAMPOLINE(1534) TRAMPOLINE(1535) TRAMPOLINE(1536) TRAMPOLINE(1537) TRAMPOLINE(1538) TRAMPOLINE(1539) TRAMPOLINE(1540) TRAMPOLINE(1541) TRAMPOLINE(1542) TRAMPOLINE(1543) TRAMPOLINE(1544) TRAMPOLINE(1545) TRAMPOLINE(1546) TRAMPOLINE(1547) TRAMPOLINE(1548) TRAMPOLINE(1549) TRAMPOLINE(1550) TRAMPOLINE(1551) TRAMPOLINE(1552) TRAMPOLINE(1553) TRAMPOLINE(1554) TRAMPOLINE(1555) TRAMPOLINE(1556) TRAMPOLINE(1557) TRAMPOLINE(1558) TRAMPOLINE(1559) TRAMPOLINE(1560) TRAMPOLINE(1561) TRAMPOLINE(1562) TRAMPOLINE(1563) TRAMPOLINE(1564) TRAMPOLINE(1565) TRAMPOLINE(1566) TRAMPOLINE(1567) TRAMPOLINE(1568) TRAMPOLINE(1569) TRAMPOLINE(1570) TRAMPOLINE(1571) TRAMPOLINE(1572) TRAMPOLINE(1573) TRAMPOLINE(1574) TRAMPOLINE(1575) TRAMPOLINE(1576) TRAMPOLINE(1577) TRAMPOLINE(1578) TRAMPOLINE(1579) TRAMPOLINE(1580) TRAMPOLINE(1581) TRAMPOLINE(1582) TRAMPOLINE(1583) TRAMPOLINE(1584) TRAMPOLINE(1585) TRAMPOLINE(1586) TRAMPOLINE(1587) TRAMPOLINE(1588) TRAMPOLINE(1589) TRAMPOLINE(1590) TRAMPOLINE(1591) TRAMPOLINE(1592) TRAMPOLINE(1593) TRAMPOLINE(1594) TRAMPOLINE(1595) TRAMPOLINE(1596) TRAMPOLINE(1597) TRAMPOLINE(1598) TRAMPOLINE(1599) TRAMPOLINE(1600) TRAMPOLINE(1601) TRAMPOLINE(1602) TRAMPOLINE(1603) TRAMPOLINE(1604) TRAMPOLINE(1605) TRAMPOLINE(1606) TRAMPOLINE(1607) TRAMPOLINE(1608) TRAMPOLINE(1609) TRAMPOLINE(1610) TRAMPOLINE(1611) TRAMPOLINE(1612) TRAMPOLINE(1613) TRAMPOLINE(1614) TRAMPOLINE(1615) TRAMPOLINE(1616) TRAMPOLINE(1617) TRAMPOLINE(1618) TRAMPOLINE(1619) TRAMPOLINE(1620) TRAMPOLINE(1621) TRAMPOLINE(1622) TRAMPOLINE(1623) TRAMPOLINE(1624) TRAMPOLINE(1625) TRAMPOLINE(1626) TRAMPOLINE(1627) TRAMPOLINE(1628) TRAMPOLINE(1629) TRAMPOLINE(1630) TRAMPOLINE(1631) TRAMPOLINE(1632) TRAMPOLINE(1633) TRAMPOLINE(1634) TRAMPOLINE(1635) TRAMPOLINE(1636) TRAMPOLINE(1637) TRAMPOLINE(1638) TRAMPOLINE(1639) TRAMPOLINE(1640) TRAMPOLINE(1641) TRAMPOLINE(1642) TRAMPOLINE(1643) TRAMPOLINE(1644) TRAMPOLINE(1645) TRAMPOLINE(1646) TRAMPOLINE(1647) TRAMPOLINE(1648) TRAMPOLINE(1649) TRAMPOLINE(1650) TRAMPOLINE(1651) TRAMPOLINE(1652) TRAMPOLINE(1653) TRAMPOLINE(1654) TRAMPOLINE(1655) TRAMPOLINE(1656) TRAMPOLINE(1657) TRAMPOLINE(1658) TRAMPOLINE(1659) TRAMPOLINE(1660) TRAMPOLINE(1661) TRAMPOLINE(1662) TRAMPOLINE(1663) TRAMPOLINE(1664) TRAMPOLINE(1665) TRAMPOLINE(1666) TRAMPOLINE(1667) TRAMPOLINE(1668) TRAMPOLINE(1669) TRAMPOLINE(1670) TRAMPOLINE(1671) TRAMPOLINE(1672) TRAMPOLINE(1673) TRAMPOLINE(1674) TRAMPOLINE(1675) TRAMPOLINE(1676) TRAMPOLINE(1677) TRAMPOLINE(1678) TRAMPOLINE(1679) TRAMPOLINE(1680) TRAMPOLINE(1681) TRAMPOLINE(1682) TRAMPOLINE(1683) TRAMPOLINE(1684) TRAMPOLINE(1685) TRAMPOLINE(1686) TRAMPOLINE(1687) TRAMPOLINE(1688) TRAMPOLINE(1689) TRAMPOLINE(1690) TRAMPOLINE(1691) TRAMPOLINE(1692) TRAMPOLINE(1693) TRAMPOLINE(1694) TRAMPOLINE(1695) TRAMPOLINE(1696) TRAMPOLINE(1697) TRAMPOLINE(1698) TRAMPOLINE(1699) TRAMPOLINE(1700) TRAMPOLINE(1701) TRAMPOLINE(1702) TRAMPOLINE(1703) TRAMPOLINE(1704) TRAMPOLINE(1705) TRAMPOLINE(1706) TRAMPOLINE(1707) TRAMPOLINE(1708) TRAMPOLINE(1709) TRAMPOLINE(1710) TRAMPOLINE(1711) TRAMPOLINE(1712) TRAMPOLINE(1713) TRAMPOLINE(1714) TRAMPOLINE(1715) TRAMPOLINE(1716) TRAMPOLINE(1717) TRAMPOLINE(1718) TRAMPOLINE(1719) TRAMPOLINE(1720) TRAMPOLINE(1721) TRAMPOLINE(1722) TRAMPOLINE(1723) TRAMPOLINE(1724) TRAMPOLINE(1725) TRAMPOLINE(1726) TRAMPOLINE(1727) TRAMPOLINE(1728) TRAMPOLINE(1729) TRAMPOLINE(1730) TRAMPOLINE(1731) TRAMPOLINE(1732) TRAMPOLINE(1733) TRAMPOLINE(1734) TRAMPOLINE(1735) TRAMPOLINE(1736) TRAMPOLINE(1737) TRAMPOLINE(1738) TRAMPOLINE(1739) TRAMPOLINE(1740) TRAMPOLINE(1741) TRAMPOLINE(1742) TRAMPOLINE(1743) TRAMPOLINE(1744) TRAMPOLINE(1745) TRAMPOLINE(1746) TRAMPOLINE(1747) TRAMPOLINE(1748) TRAMPOLINE(1749) TRAMPOLINE(1750) TRAMPOLINE(1751) TRAMPOLINE(1752) TRAMPOLINE(1753) TRAMPOLINE(1754) TRAMPOLINE(1755) TRAMPOLINE(1756) TRAMPOLINE(1757) TRAMPOLINE(1758) TRAMPOLINE(1759) TRAMPOLINE(1760) TRAMPOLINE(1761) TRAMPOLINE(1762) TRAMPOLINE(1763) TRAMPOLINE(1764) TRAMPOLINE(1765) TRAMPOLINE(1766) TRAMPOLINE(1767) TRAMPOLINE(1768) TRAMPOLINE(1769) TRAMPOLINE(1770) TRAMPOLINE(1771) TRAMPOLINE(1772) TRAMPOLINE(1773) TRAMPOLINE(1774) TRAMPOLINE(1775) TRAMPOLINE(1776) TRAMPOLINE(1777) TRAMPOLINE(1778) TRAMPOLINE(1779) TRAMPOLINE(1780) TRAMPOLINE(1781) TRAMPOLINE(1782) TRAMPOLINE(1783) TRAMPOLINE(1784) TRAMPOLINE(1785) TRAMPOLINE(1786) TRAMPOLINE(1787) TRAMPOLINE(1788) TRAMPOLINE(1789) TRAMPOLINE(1790) TRAMPOLINE(1791) TRAMPOLINE(1792) TRAMPOLINE(1793) TRAMPOLINE(1794) TRAMPOLINE(1795) TRAMPOLINE(1796) TRAMPOLINE(1797) TRAMPOLINE(1798) TRAMPOLINE(1799) TRAMPOLINE(1800) TRAMPOLINE(1801) TRAMPOLINE(1802) TRAMPOLINE(1803) TRAMPOLINE(1804) TRAMPOLINE(1805) TRAMPOLINE(1806) TRAMPOLINE(1807) TRAMPOLINE(1808) TRAMPOLINE(1809) TRAMPOLINE(1810) TRAMPOLINE(1811) TRAMPOLINE(1812) TRAMPOLINE(1813) TRAMPOLINE(1814) TRAMPOLINE(1815) TRAMPOLINE(1816) TRAMPOLINE(1817) TRAMPOLINE(1818) TRAMPOLINE(1819) TRAMPOLINE(1820) TRAMPOLINE(1821) TRAMPOLINE(1822) TRAMPOLINE(1823) TRAMPOLINE(1824) TRAMPOLINE(1825) TRAMPOLINE(1826) TRAMPOLINE(1827) TRAMPOLINE(1828) TRAMPOLINE(1829) TRAMPOLINE(1830) TRAMPOLINE(1831) TRAMPOLINE(1832) TRAMPOLINE(1833) TRAMPOLINE(1834) TRAMPOLINE(1835) TRAMPOLINE(1836) TRAMPOLINE(1837) TRAMPOLINE(1838) TRAMPOLINE(1839) TRAMPOLINE(1840) TRAMPOLINE(1841) TRAMPOLINE(1842) TRAMPOLINE(1843) TRAMPOLINE(1844) TRAMPOLINE(1845) TRAMPOLINE(1846) TRAMPOLINE(1847) TRAMPOLINE(1848) TRAMPOLINE(1849) TRAMPOLINE(1850) TRAMPOLINE(1851) TRAMPOLINE(1852) TRAMPOLINE(1853) TRAMPOLINE(1854) TRAMPOLINE(1855) TRAMPOLINE(1856) TRAMPOLINE(1857) TRAMPOLINE(1858) TRAMPOLINE(1859) TRAMPOLINE(1860) TRAMPOLINE(1861) TRAMPOLINE(1862) TRAMPOLINE(1863) TRAMPOLINE(1864) TRAMPOLINE(1865) TRAMPOLINE(1866) TRAMPOLINE(1867) TRAMPOLINE(1868) TRAMPOLINE(1869) TRAMPOLINE(1870) TRAMPOLINE(1871) TRAMPOLINE(1872) TRAMPOLINE(1873) TRAMPOLINE(1874) TRAMPOLINE(1875) TRAMPOLINE(1876) TRAMPOLINE(1877) TRAMPOLINE(1878) TRAMPOLINE(1879) TRAMPOLINE(1880) TRAMPOLINE(1881) TRAMPOLINE(1882) TRAMPOLINE(1883) TRAMPOLINE(1884) TRAMPOLINE(1885) TRAMPOLINE(1886) TRAMPOLINE(1887) TRAMPOLINE(1888) TRAMPOLINE(1889) TRAMPOLINE(1890) TRAMPOLINE(1891) TRAMPOLINE(1892) TRAMPOLINE(1893) TRAMPOLINE(1894) TRAMPOLINE(1895) TRAMPOLINE(1896) TRAMPOLINE(1897) TRAMPOLINE(1898) TRAMPOLINE(1899) TRAMPOLINE(1900) TRAMPOLINE(1901) TRAMPOLINE(1902) TRAMPOLINE(1903) TRAMPOLINE(1904) TRAMPOLINE(1905) TRAMPOLINE(1906) TRAMPOLINE(1907) TRAMPOLINE(1908) TRAMPOLINE(1909) TRAMPOLINE(1910) TRAMPOLINE(1911) TRAMPOLINE(1912) TRAMPOLINE(1913) TRAMPOLINE(1914) TRAMPOLINE(1915) TRAMPOLINE(1916) TRAMPOLINE(1917) TRAMPOLINE(1918) TRAMPOLINE(1919) TRAMPOLINE(1920) TRAMPOLINE(1921) TRAMPOLINE(1922) TRAMPOLINE(1923) TRAMPOLINE(1924) TRAMPOLINE(1925) TRAMPOLINE(1926) TRAMPOLINE(1927) TRAMPOLINE(1928) TRAMPOLINE(1929) TRAMPOLINE(1930) TRAMPOLINE(1931) TRAMPOLINE(1932) TRAMPOLINE(1933) TRAMPOLINE(1934) TRAMPOLINE(1935) TRAMPOLINE(1936) TRAMPOLINE(1937) TRAMPOLINE(1938) TRAMPOLINE(1939) TRAMPOLINE(1940) TRAMPOLINE(1941) TRAMPOLINE(1942) TRAMPOLINE(1943) TRAMPOLINE(1944) TRAMPOLINE(1945) TRAMPOLINE(1946) TRAMPOLINE(1947) TRAMPOLINE(1948) TRAMPOLINE(1949) TRAMPOLINE(1950) TRAMPOLINE(1951) TRAMPOLINE(1952) TRAMPOLINE(1953) TRAMPOLINE(1954) TRAMPOLINE(1955) TRAMPOLINE(1956) TRAMPOLINE(1957) TRAMPOLINE(1958) TRAMPOLINE(1959) TRAMPOLINE(1960) TRAMPOLINE(1961) TRAMPOLINE(1962) TRAMPOLINE(1963) TRAMPOLINE(1964) TRAMPOLINE(1965) TRAMPOLINE(1966) TRAMPOLINE(1967) TRAMPOLINE(1968) TRAMPOLINE(1969) TRAMPOLINE(1970) TRAMPOLINE(1971) TRAMPOLINE(1972) TRAMPOLINE(1973) TRAMPOLINE(1974) TRAMPOLINE(1975) TRAMPOLINE(1976) TRAMPOLINE(1977) TRAMPOLINE(1978) TRAMPOLINE(1979) TRAMPOLINE(1980) TRAMPOLINE(1981) TRAMPOLINE(1982) TRAMPOLINE(1983) TRAMPOLINE(1984) TRAMPOLINE(1985) TRAMPOLINE(1986) TRAMPOLINE(1987) TRAMPOLINE(1988) TRAMPOLINE(1989) TRAMPOLINE(1990) TRAMPOLINE(1991) TRAMPOLINE(1992) TRAMPOLINE(1993) TRAMPOLINE(1994) TRAMPOLINE(1995) TRAMPOLINE(1996) TRAMPOLINE(1997) TRAMPOLINE(1998) TRAMPOLINE(1999) TRAMPOLINE(2000) TRAMPOLINE(2001) TRAMPOLINE(2002) TRAMPOLINE(2003) TRAMPOLINE(2004) TRAMPOLINE(2005) TRAMPOLINE(2006) TRAMPOLINE(2007) TRAMPOLINE(2008) TRAMPOLINE(2009) TRAMPOLINE(2010) TRAMPOLINE(2011) TRAMPOLINE(2012) TRAMPOLINE(2013) TRAMPOLINE(2014) TRAMPOLINE(2015) TRAMPOLINE(2016) TRAMPOLINE(2017) TRAMPOLINE(2018) TRAMPOLINE(2019) TRAMPOLINE(2020) TRAMPOLINE(2021) TRAMPOLINE(2022) TRAMPOLINE(2023) TRAMPOLINE(2024) TRAMPOLINE(2025) TRAMPOLINE(2026) TRAMPOLINE(2027) TRAMPOLINE(2028) TRAMPOLINE(2029) TRAMPOLINE(2030) TRAMPOLINE(2031) TRAMPOLINE(2032) TRAMPOLINE(2033) TRAMPOLINE(2034) TRAMPOLINE(2035) TRAMPOLINE(2036) TRAMPOLINE(2037) TRAMPOLINE(2038) TRAMPOLINE(2039) TRAMPOLINE(2040) TRAMPOLINE(2041) TRAMPOLINE(2042) TRAMPOLINE(2043) TRAMPOLINE(2044) TRAMPOLINE(2045) TRAMPOLINE(2046) TRAMPOLINE(2047) TRAMPOLINE(2048) TRAMPOLINE(2049) TRAMPOLINE(2050) TRAMPOLINE(2051) TRAMPOLINE(2052) TRAMPOLINE(2053) TRAMPOLINE(2054) TRAMPOLINE(2055) TRAMPOLINE(2056) TRAMPOLINE(2057) TRAMPOLINE(2058) TRAMPOLINE(2059) TRAMPOLINE(2060) TRAMPOLINE(2061) TRAMPOLINE(2062) TRAMPOLINE(2063) TRAMPOLINE(2064) TRAMPOLINE(2065) TRAMPOLINE(2066) TRAMPOLINE(2067) TRAMPOLINE(2068) TRAMPOLINE(2069) TRAMPOLINE(2070) TRAMPOLINE(2071) TRAMPOLINE(2072) TRAMPOLINE(2073) TRAMPOLINE(2074) TRAMPOLINE(2075) TRAMPOLINE(2076) TRAMPOLINE(2077) TRAMPOLINE(2078) TRAMPOLINE(2079) TRAMPOLINE(2080) TRAMPOLINE(2081) TRAMPOLINE(2082) TRAMPOLINE(2083) TRAMPOLINE(2084) TRAMPOLINE(2085) TRAMPOLINE(2086) TRAMPOLINE(2087) TRAMPOLINE(2088) TRAMPOLINE(2089) TRAMPOLINE(2090) TRAMPOLINE(2091) TRAMPOLINE(2092) TRAMPOLINE(2093) TRAMPOLINE(2094) TRAMPOLINE(2095) TRAMPOLINE(2096) TRAMPOLINE(2097) TRAMPOLINE(2098) TRAMPOLINE(2099) TRAMPOLINE(2100) TRAMPOLINE(2101) TRAMPOLINE(2102) TRAMPOLINE(2103) TRAMPOLINE(2104) TRAMPOLINE(2105) TRAMPOLINE(2106) TRAMPOLINE(2107) TRAMPOLINE(2108) TRAMPOLINE(2109) TRAMPOLINE(2110) TRAMPOLINE(2111) TRAMPOLINE(2112) TRAMPOLINE(2113) TRAMPOLINE(2114) TRAMPOLINE(2115) TRAMPOLINE(2116) TRAMPOLINE(2117) TRAMPOLINE(2118) TRAMPOLINE(2119) TRAMPOLINE(2120) TRAMPOLINE(2121) TRAMPOLINE(2122) TRAMPOLINE(2123) TRAMPOLINE(2124) TRAMPOLINE(2125) TRAMPOLINE(2126) TRAMPOLINE(2127) TRAMPOLINE(2128) TRAMPOLINE(2129) TRAMPOLINE(2130) TRAMPOLINE(2131) TRAMPOLINE(2132) TRAMPOLINE(2133) TRAMPOLINE(2134) TRAMPOLINE(2135) TRAMPOLINE(2136) TRAMPOLINE(2137) TRAMPOLINE(2138) TRAMPOLINE(2139) TRAMPOLINE(2140) TRAMPOLINE(2141) TRAMPOLINE(2142) TRAMPOLINE(2143) TRAMPOLINE(2144) TRAMPOLINE(2145) TRAMPOLINE(2146) TRAMPOLINE(2147) TRAMPOLINE(2148) TRAMPOLINE(2149) TRAMPOLINE(2150) TRAMPOLINE(2151) TRAMPOLINE(2152) TRAMPOLINE(2153) TRAMPOLINE(2154) TRAMPOLINE(2155) TRAMPOLINE(2156) TRAMPOLINE(2157) TRAMPOLINE(2158) TRAMPOLINE(2159) TRAMPOLINE(2160) TRAMPOLINE(2161) TRAMPOLINE(2162) TRAMPOLINE(2163) TRAMPOLINE(2164) TRAMPOLINE(2165) TRAMPOLINE(2166) TRAMPOLINE(2167) TRAMPOLINE(2168) TRAMPOLINE(2169) TRAMPOLINE(2170) TRAMPOLINE(2171) TRAMPOLINE(2172) TRAMPOLINE(2173) TRAMPOLINE(2174) TRAMPOLINE(2175) TRAMPOLINE(2176) TRAMPOLINE(2177) TRAMPOLINE(2178) TRAMPOLINE(2179) TRAMPOLINE(2180) TRAMPOLINE(2181) TRAMPOLINE(2182) TRAMPOLINE(2183) TRAMPOLINE(2184) TRAMPOLINE(2185) TRAMPOLINE(2186) TRAMPOLINE(2187) TRAMPOLINE(2188) TRAMPOLINE(2189) TRAMPOLINE(2190) TRAMPOLINE(2191) TRAMPOLINE(2192) TRAMPOLINE(2193) TRAMPOLINE(2194) TRAMPOLINE(2195) TRAMPOLINE(2196) TRAMPOLINE(2197) TRAMPOLINE(2198) TRAMPOLINE(2199) TRAMPOLINE(2200) TRAMPOLINE(2201) TRAMPOLINE(2202) TRAMPOLINE(2203) TRAMPOLINE(2204) TRAMPOLINE(2205) TRAMPOLINE(2206) TRAMPOLINE(2207) TRAMPOLINE(2208) TRAMPOLINE(2209) TRAMPOLINE(2210) TRAMPOLINE(2211) TRAMPOLINE(2212) TRAMPOLINE(2213) TRAMPOLINE(2214) TRAMPOLINE(2215) TRAMPOLINE(2216) TRAMPOLINE(2217) TRAMPOLINE(2218) TRAMPOLINE(2219) TRAMPOLINE(2220) TRAMPOLINE(2221) TRAMPOLINE(2222) TRAMPOLINE(2223) TRAMPOLINE(2224) TRAMPOLINE(2225) TRAMPOLINE(2226) TRAMPOLINE(2227) TRAMPOLINE(2228) TRAMPOLINE(2229) TRAMPOLINE(2230) TRAMPOLINE(2231) TRAMPOLINE(2232) TRAMPOLINE(2233) TRAMPOLINE(2234) TRAMPOLINE(2235) TRAMPOLINE(2236) TRAMPOLINE(2237) TRAMPOLINE(2238) TRAMPOLINE(2239) TRAMPOLINE(2240) TRAMPOLINE(2241) TRAMPOLINE(2242) TRAMPOLINE(2243) TRAMPOLINE(2244) TRAMPOLINE(2245) TRAMPOLINE(2246) TRAMPOLINE(2247) TRAMPOLINE(2248) TRAMPOLINE(2249) TRAMPOLINE(2250) TRAMPOLINE(2251) TRAMPOLINE(2252) TRAMPOLINE(2253) TRAMPOLINE(2254) TRAMPOLINE(2255) TRAMPOLINE(2256) TRAMPOLINE(2257) TRAMPOLINE(2258) TRAMPOLINE(2259) TRAMPOLINE(2260) TRAMPOLINE(2261) TRAMPOLINE(2262) TRAMPOLINE(2263) TRAMPOLINE(2264) TRAMPOLINE(2265) TRAMPOLINE(2266) TRAMPOLINE(2267) TRAMPOLINE(2268) TRAMPOLINE(2269) TRAMPOLINE(2270) TRAMPOLINE(2271) TRAMPOLINE(2272) TRAMPOLINE(2273) TRAMPOLINE(2274) TRAMPOLINE(2275) TRAMPOLINE(2276) TRAMPOLINE(2277) TRAMPOLINE(2278) TRAMPOLINE(2279) TRAMPOLINE(2280) TRAMPOLINE(2281) TRAMPOLINE(2282) TRAMPOLINE(2283) TRAMPOLINE(2284) TRAMPOLINE(2285) TRAMPOLINE(2286) TRAMPOLINE(2287) TRAMPOLINE(2288) TRAMPOLINE(2289) TRAMPOLINE(2290) TRAMPOLINE(2291) TRAMPOLINE(2292) TRAMPOLINE(2293) TRAMPOLINE(2294) TRAMPOLINE(2295) TRAMPOLINE(2296) TRAMPOLINE(2297) TRAMPOLINE(2298) TRAMPOLINE(2299) TRAMPOLINE(2300) TRAMPOLINE(2301) TRAMPOLINE(2302) TRAMPOLINE(2303) TRAMPOLINE(2304) TRAMPOLINE(2305) TRAMPOLINE(2306) TRAMPOLINE(2307) TRAMPOLINE(2308) TRAMPOLINE(2309) TRAMPOLINE(2310) TRAMPOLINE(2311) TRAMPOLINE(2312) TRAMPOLINE(2313) TRAMPOLINE(2314) TRAMPOLINE(2315) TRAMPOLINE(2316) TRAMPOLINE(2317) TRAMPOLINE(2318) TRAMPOLINE(2319) TRAMPOLINE(2320) TRAMPOLINE(2321) TRAMPOLINE(2322) TRAMPOLINE(2323) TRAMPOLINE(2324) TRAMPOLINE(2325) TRAMPOLINE(2326) TRAMPOLINE(2327) TRAMPOLINE(2328) TRAMPOLINE(2329) TRAMPOLINE(2330) TRAMPOLINE(2331) TRAMPOLINE(2332) TRAMPOLINE(2333) TRAMPOLINE(2334) TRAMPOLINE(2335) TRAMPOLINE(2336) TRAMPOLINE(2337) TRAMPOLINE(2338) TRAMPOLINE(2339) TRAMPOLINE(2340) TRAMPOLINE(2341) TRAMPOLINE(2342) TRAMPOLINE(2343) TRAMPOLINE(2344) TRAMPOLINE(2345) TRAMPOLINE(2346) TRAMPOLINE(2347) TRAMPOLINE(2348) TRAMPOLINE(2349) TRAMPOLINE(2350) TRAMPOLINE(2351) TRAMPOLINE(2352) TRAMPOLINE(2353) TRAMPOLINE(2354) TRAMPOLINE(2355) TRAMPOLINE(2356) TRAMPOLINE(2357) TRAMPOLINE(2358) TRAMPOLINE(2359) TRAMPOLINE(2360) TRAMPOLINE(2361) TRAMPOLINE(2362) TRAMPOLINE(2363) TRAMPOLINE(2364) TRAMPOLINE(2365) TRAMPOLINE(2366) TRAMPOLINE(2367) TRAMPOLINE(2368) TRAMPOLINE(2369) TRAMPOLINE(2370) TRAMPOLINE(2371) TRAMPOLINE(2372) TRAMPOLINE(2373) TRAMPOLINE(2374) TRAMPOLINE(2375) TRAMPOLINE(2376) TRAMPOLINE(2377) TRAMPOLINE(2378) TRAMPOLINE(2379) TRAMPOLINE(2380) TRAMPOLINE(2381) TRAMPOLINE(2382) TRAMPOLINE(2383) TRAMPOLINE(2384) TRAMPOLINE(2385) TRAMPOLINE(2386) TRAMPOLINE(2387) TRAMPOLINE(2388) TRAMPOLINE(2389) TRAMPOLINE(2390) TRAMPOLINE(2391) TRAMPOLINE(2392) TRAMPOLINE(2393) TRAMPOLINE(2394) TRAMPOLINE(2395) TRAMPOLINE(2396) TRAMPOLINE(2397) TRAMPOLINE(2398) TRAMPOLINE(2399) TRAMPOLINE(2400) TRAMPOLINE(2401) TRAMPOLINE(2402) TRAMPOLINE(2403) TRAMPOLINE(2404) TRAMPOLINE(2405) TRAMPOLINE(2406) TRAMPOLINE(2407) TRAMPOLINE(2408) TRAMPOLINE(2409) TRAMPOLINE(2410) TRAMPOLINE(2411) TRAMPOLINE(2412) TRAMPOLINE(2413) TRAMPOLINE(2414) TRAMPOLINE(2415) TRAMPOLINE(2416) TRAMPOLINE(2417) TRAMPOLINE(2418) TRAMPOLINE(2419) TRAMPOLINE(2420) TRAMPOLINE(2421) TRAMPOLINE(2422) TRAMPOLINE(2423) TRAMPOLINE(2424) TRAMPOLINE(2425) TRAMPOLINE(2426) TRAMPOLINE(2427) TRAMPOLINE(2428) TRAMPOLINE(2429) TRAMPOLINE(2430) TRAMPOLINE(2431) TRAMPOLINE(2432) TRAMPOLINE(2433) TRAMPOLINE(2434) TRAMPOLINE(2435) TRAMPOLINE(2436) TRAMPOLINE(2437) TRAMPOLINE(2438) TRAMPOLINE(2439) TRAMPOLINE(2440) TRAMPOLINE(2441) TRAMPOLINE(2442) TRAMPOLINE(2443) TRAMPOLINE(2444) TRAMPOLINE(2445) TRAMPOLINE(2446) TRAMPOLINE(2447) TRAMPOLINE(2448) TRAMPOLINE(2449) TRAMPOLINE(2450) TRAMPOLINE(2451) TRAMPOLINE(2452) TRAMPOLINE(2453) TRAMPOLINE(2454) TRAMPOLINE(2455) TRAMPOLINE(2456) TRAMPOLINE(2457) TRAMPOLINE(2458) TRAMPOLINE(2459) TRAMPOLINE(2460) TRAMPOLINE(2461) TRAMPOLINE(2462) TRAMPOLINE(2463) TRAMPOLINE(2464) TRAMPOLINE(2465) TRAMPOLINE(2466) TRAMPOLINE(2467) TRAMPOLINE(2468) TRAMPOLINE(2469) TRAMPOLINE(2470) TRAMPOLINE(2471) TRAMPOLINE(2472) TRAMPOLINE(2473) TRAMPOLINE(2474) TRAMPOLINE(2475) TRAMPOLINE(2476) TRAMPOLINE(2477) TRAMPOLINE(2478) TRAMPOLINE(2479) TRAMPOLINE(2480) TRAMPOLINE(2481) TRAMPOLINE(2482) TRAMPOLINE(2483) TRAMPOLINE(2484) TRAMPOLINE(2485) TRAMPOLINE(2486) TRAMPOLINE(2487) TRAMPOLINE(2488) TRAMPOLINE(2489) TRAMPOLINE(2490) TRAMPOLINE(2491) TRAMPOLINE(2492) TRAMPOLINE(2493) TRAMPOLINE(2494) TRAMPOLINE(2495) TRAMPOLINE(2496) TRAMPOLINE(2497) TRAMPOLINE(2498) TRAMPOLINE(2499) TRAMPOLINE(2500) TRAMPOLINE(2501) TRAMPOLINE(2502) TRAMPOLINE(2503) TRAMPOLINE(2504) TRAMPOLINE(2505) TRAMPOLINE(2506) TRAMPOLINE(2507) TRAMPOLINE(2508) TRAMPOLINE(2509) TRAMPOLINE(2510) TRAMPOLINE(2511) TRAMPOLINE(2512) TRAMPOLINE(2513) TRAMPOLINE(2514) TRAMPOLINE(2515) TRAMPOLINE(2516) TRAMPOLINE(2517) TRAMPOLINE(2518) TRAMPOLINE(2519) TRAMPOLINE(2520) TRAMPOLINE(2521) TRAMPOLINE(2522) TRAMPOLINE(2523) TRAMPOLINE(2524) TRAMPOLINE(2525) TRAMPOLINE(2526) TRAMPOLINE(2527) TRAMPOLINE(2528) TRAMPOLINE(2529) TRAMPOLINE(2530) TRAMPOLINE(2531) TRAMPOLINE(2532) TRAMPOLINE(2533) TRAMPOLINE(2534) TRAMPOLINE(2535) TRAMPOLINE(2536) TRAMPOLINE(2537) TRAMPOLINE(2538) TRAMPOLINE(2539) TRAMPOLINE(2540) TRAMPOLINE(2541) TRAMPOLINE(2542) TRAMPOLINE(2543) TRAMPOLINE(2544) TRAMPOLINE(2545) TRAMPOLINE(2546) TRAMPOLINE(2547) TRAMPOLINE(2548) TRAMPOLINE(2549) TRAMPOLINE(2550) TRAMPOLINE(2551) TRAMPOLINE(2552) TRAMPOLINE(2553) TRAMPOLINE(2554) TRAMPOLINE(2555) TRAMPOLINE(2556) TRAMPOLINE(2557) TRAMPOLINE(2558) TRAMPOLINE(2559) TRAMPOLINE(2560) TRAMPOLINE(2561) TRAMPOLINE(2562) TRAMPOLINE(2563) TRAMPOLINE(2564) TRAMPOLINE(2565) TRAMPOLINE(2566) TRAMPOLINE(2567) TRAMPOLINE(2568) TRAMPOLINE(2569) TRAMPOLINE(2570) TRAMPOLINE(2571) TRAMPOLINE(2572) TRAMPOLINE(2573) TRAMPOLINE(2574) TRAMPOLINE(2575) TRAMPOLINE(2576) TRAMPOLINE(2577) TRAMPOLINE(2578) TRAMPOLINE(2579) TRAMPOLINE(2580) TRAMPOLINE(2581) TRAMPOLINE(2582) TRAMPOLINE(2583) TRAMPOLINE(2584) TRAMPOLINE(2585) TRAMPOLINE(2586) TRAMPOLINE(2587) TRAMPOLINE(2588) TRAMPOLINE(2589) TRAMPOLINE(2590) TRAMPOLINE(2591) TRAMPOLINE(2592) TRAMPOLINE(2593) TRAMPOLINE(2594) TRAMPOLINE(2595) TRAMPOLINE(2596) TRAMPOLINE(2597) TRAMPOLINE(2598) TRAMPOLINE(2599) TRAMPOLINE(2600) TRAMPOLINE(2601) TRAMPOLINE(2602) TRAMPOLINE(2603) TRAMPOLINE(2604) TRAMPOLINE(2605) TRAMPOLINE(2606) TRAMPOLINE(2607) TRAMPOLINE(2608) TRAMPOLINE(2609) TRAMPOLINE(2610) TRAMPOLINE(2611) TRAMPOLINE(2612) TRAMPOLINE(2613) TRAMPOLINE(2614) TRAMPOLINE(2615) TRAMPOLINE(2616) TRAMPOLINE(2617) TRAMPOLINE(2618) TRAMPOLINE(2619) TRAMPOLINE(2620) TRAMPOLINE(2621) TRAMPOLINE(2622) TRAMPOLINE(2623) TRAMPOLINE(2624) TRAMPOLINE(2625) TRAMPOLINE(2626) TRAMPOLINE(2627) TRAMPOLINE(2628) TRAMPOLINE(2629) TRAMPOLINE(2630) TRAMPOLINE(2631) TRAMPOLINE(2632) TRAMPOLINE(2633) TRAMPOLINE(2634) TRAMPOLINE(2635) TRAMPOLINE(2636) TRAMPOLINE(2637) TRAMPOLINE(2638) TRAMPOLINE(2639) TRAMPOLINE(2640) TRAMPOLINE(2641) TRAMPOLINE(2642) TRAMPOLINE(2643) TRAMPOLINE(2644) TRAMPOLINE(2645) TRAMPOLINE(2646) TRAMPOLINE(2647) TRAMPOLINE(2648) TRAMPOLINE(2649) TRAMPOLINE(2650) TRAMPOLINE(2651) TRAMPOLINE(2652) TRAMPOLINE(2653) TRAMPOLINE(2654) TRAMPOLINE(2655) TRAMPOLINE(2656) TRAMPOLINE(2657) TRAMPOLINE(2658) TRAMPOLINE(2659) TRAMPOLINE(2660) TRAMPOLINE(2661) TRAMPOLINE(2662) TRAMPOLINE(2663) TRAMPOLINE(2664) TRAMPOLINE(2665) TRAMPOLINE(2666) TRAMPOLINE(2667) TRAMPOLINE(2668) TRAMPOLINE(2669) TRAMPOLINE(2670) TRAMPOLINE(2671) TRAMPOLINE(2672) TRAMPOLINE(2673) TRAMPOLINE(2674) TRAMPOLINE(2675) TRAMPOLINE(2676) TRAMPOLINE(2677) TRAMPOLINE(2678) TRAMPOLINE(2679) TRAMPOLINE(2680) TRAMPOLINE(2681) TRAMPOLINE(2682) TRAMPOLINE(2683) TRAMPOLINE(2684) TRAMPOLINE(2685) TRAMPOLINE(2686) TRAMPOLINE(2687) TRAMPOLINE(2688) TRAMPOLINE(2689) TRAMPOLINE(2690) TRAMPOLINE(2691) TRAMPOLINE(2692) TRAMPOLINE(2693) TRAMPOLINE(2694) TRAMPOLINE(2695) TRAMPOLINE(2696) TRAMPOLINE(2697) TRAMPOLINE(2698) TRAMPOLINE(2699) TRAMPOLINE(2700) TRAMPOLINE(2701) TRAMPOLINE(2702) TRAMPOLINE(2703) TRAMPOLINE(2704) TRAMPOLINE(2705) TRAMPOLINE(2706) TRAMPOLINE(2707) TRAMPOLINE(2708) TRAMPOLINE(2709) TRAMPOLINE(2710) TRAMPOLINE(2711) TRAMPOLINE(2712) TRAMPOLINE(2713) TRAMPOLINE(2714) TRAMPOLINE(2715) TRAMPOLINE(2716) TRAMPOLINE(2717) TRAMPOLINE(2718) TRAMPOLINE(2719) TRAMPOLINE(2720) TRAMPOLINE(2721) TRAMPOLINE(2722) TRAMPOLINE(2723) TRAMPOLINE(2724) TRAMPOLINE(2725) TRAMPOLINE(2726) TRAMPOLINE(2727) TRAMPOLINE(2728) TRAMPOLINE(2729) TRAMPOLINE(2730) TRAMPOLINE(2731) TRAMPOLINE(2732) TRAMPOLINE(2733) TRAMPOLINE(2734) TRAMPOLINE(2735) TRAMPOLINE(2736) TRAMPOLINE(2737) TRAMPOLINE(2738) TRAMPOLINE(2739) TRAMPOLINE(2740) TRAMPOLINE(2741) TRAMPOLINE(2742) TRAMPOLINE(2743) TRAMPOLINE(2744) TRAMPOLINE(2745) TRAMPOLINE(2746) TRAMPOLINE(2747) TRAMPOLINE(2748) TRAMPOLINE(2749) TRAMPOLINE(2750) TRAMPOLINE(2751) TRAMPOLINE(2752) TRAMPOLINE(2753) TRAMPOLINE(2754) TRAMPOLINE(2755) TRAMPOLINE(2756) TRAMPOLINE(2757) TRAMPOLINE(2758) TRAMPOLINE(2759) TRAMPOLINE(2760) TRAMPOLINE(2761) TRAMPOLINE(2762) TRAMPOLINE(2763) TRAMPOLINE(2764) TRAMPOLINE(2765) TRAMPOLINE(2766) TRAMPOLINE(2767) TRAMPOLINE(2768) TRAMPOLINE(2769) TRAMPOLINE(2770) TRAMPOLINE(2771) TRAMPOLINE(2772) TRAMPOLINE(2773) TRAMPOLINE(2774) TRAMPOLINE(2775) TRAMPOLINE(2776) TRAMPOLINE(2777) TRAMPOLINE(2778) TRAMPOLINE(2779) TRAMPOLINE(2780) TRAMPOLINE(2781) TRAMPOLINE(2782) TRAMPOLINE(2783) TRAMPOLINE(2784) TRAMPOLINE(2785) TRAMPOLINE(2786) TRAMPOLINE(2787) TRAMPOLINE(2788) TRAMPOLINE(2789) TRAMPOLINE(2790) TRAMPOLINE(2791) TRAMPOLINE(2792) TRAMPOLINE(2793) TRAMPOLINE(2794) TRAMPOLINE(2795) TRAMPOLINE(2796) TRAMPOLINE(2797) TRAMPOLINE(2798) TRAMPOLINE(2799) TRAMPOLINE(2800) TRAMPOLINE(2801) TRAMPOLINE(2802) TRAMPOLINE(2803) TRAMPOLINE(2804) TRAMPOLINE(2805) TRAMPOLINE(2806) TRAMPOLINE(2807) TRAMPOLINE(2808) TRAMPOLINE(2809) TRAMPOLINE(2810) TRAMPOLINE(2811) TRAMPOLINE(2812) TRAMPOLINE(2813) TRAMPOLINE(2814) TRAMPOLINE(2815) TRAMPOLINE(2816) TRAMPOLINE(2817) TRAMPOLINE(2818) TRAMPOLINE(2819) TRAMPOLINE(2820) TRAMPOLINE(2821) TRAMPOLINE(2822) TRAMPOLINE(2823) TRAMPOLINE(2824) TRAMPOLINE(2825) TRAMPOLINE(2826) TRAMPOLINE(2827) TRAMPOLINE(2828) TRAMPOLINE(2829) TRAMPOLINE(2830) TRAMPOLINE(2831) TRAMPOLINE(2832) TRAMPOLINE(2833) TRAMPOLINE(2834) TRAMPOLINE(2835) TRAMPOLINE(2836) TRAMPOLINE(2837) TRAMPOLINE(2838) TRAMPOLINE(2839) TRAMPOLINE(2840) TRAMPOLINE(2841) TRAMPOLINE(2842) TRAMPOLINE(2843) TRAMPOLINE(2844) TRAMPOLINE(2845) TRAMPOLINE(2846) TRAMPOLINE(2847) TRAMPOLINE(2848) TRAMPOLINE(2849) TRAMPOLINE(2850) TRAMPOLINE(2851) TRAMPOLINE(2852) TRAMPOLINE(2853) TRAMPOLINE(2854) TRAMPOLINE(2855) TRAMPOLINE(2856) TRAMPOLINE(2857) TRAMPOLINE(2858) TRAMPOLINE(2859) TRAMPOLINE(2860) TRAMPOLINE(2861) TRAMPOLINE(2862) TRAMPOLINE(2863) TRAMPOLINE(2864) TRAMPOLINE(2865) TRAMPOLINE(2866) TRAMPOLINE(2867) TRAMPOLINE(2868) TRAMPOLINE(2869) TRAMPOLINE(2870) TRAMPOLINE(2871) TRAMPOLINE(2872) TRAMPOLINE(2873) TRAMPOLINE(2874) TRAMPOLINE(2875) TRAMPOLINE(2876) TRAMPOLINE(2877) TRAMPOLINE(2878) TRAMPOLINE(2879) TRAMPOLINE(2880) TRAMPOLINE(2881) TRAMPOLINE(2882) TRAMPOLINE(2883) TRAMPOLINE(2884) TRAMPOLINE(2885) TRAMPOLINE(2886) TRAMPOLINE(2887) TRAMPOLINE(2888) TRAMPOLINE(2889) TRAMPOLINE(2890) TRAMPOLINE(2891) TRAMPOLINE(2892) TRAMPOLINE(2893) TRAMPOLINE(2894) TRAMPOLINE(2895) TRAMPOLINE(2896) TRAMPOLINE(2897) TRAMPOLINE(2898) TRAMPOLINE(2899) TRAMPOLINE(2900) TRAMPOLINE(2901) TRAMPOLINE(2902) TRAMPOLINE(2903) TRAMPOLINE(2904) TRAMPOLINE(2905) TRAMPOLINE(2906) TRAMPOLINE(2907) TRAMPOLINE(2908) TRAMPOLINE(2909) TRAMPOLINE(2910) TRAMPOLINE(2911) TRAMPOLINE(2912) TRAMPOLINE(2913) TRAMPOLINE(2914) TRAMPOLINE(2915) TRAMPOLINE(2916) TRAMPOLINE(2917) TRAMPOLINE(2918) TRAMPOLINE(2919) TRAMPOLINE(2920) TRAMPOLINE(2921) TRAMPOLINE(2922) TRAMPOLINE(2923) TRAMPOLINE(2924) TRAMPOLINE(2925) TRAMPOLINE(2926) TRAMPOLINE(2927) TRAMPOLINE(2928) TRAMPOLINE(2929) TRAMPOLINE(2930) TRAMPOLINE(2931) TRAMPOLINE(2932) TRAMPOLINE(2933) TRAMPOLINE(2934) TRAMPOLINE(2935) TRAMPOLINE(2936) TRAMPOLINE(2937) TRAMPOLINE(2938) TRAMPOLINE(2939) TRAMPOLINE(2940) TRAMPOLINE(2941) TRAMPOLINE(2942) TRAMPOLINE(2943) TRAMPOLINE(2944) TRAMPOLINE(2945) TRAMPOLINE(2946) TRAMPOLINE(2947) TRAMPOLINE(2948) TRAMPOLINE(2949) TRAMPOLINE(2950) TRAMPOLINE(2951) TRAMPOLINE(2952) TRAMPOLINE(2953) TRAMPOLINE(2954) TRAMPOLINE(2955) TRAMPOLINE(2956) TRAMPOLINE(2957) TRAMPOLINE(2958) TRAMPOLINE(2959) TRAMPOLINE(2960) TRAMPOLINE(2961) TRAMPOLINE(2962) TRAMPOLINE(2963) TRAMPOLINE(2964) TRAMPOLINE(2965) TRAMPOLINE(2966) TRAMPOLINE(2967) TRAMPOLINE(2968) TRAMPOLINE(2969) TRAMPOLINE(2970) TRAMPOLINE(2971) TRAMPOLINE(2972) TRAMPOLINE(2973) TRAMPOLINE(2974) TRAMPOLINE(2975) TRAMPOLINE(2976) TRAMPOLINE(2977) TRAMPOLINE(2978) TRAMPOLINE(2979) TRAMPOLINE(2980) TRAMPOLINE(2981) TRAMPOLINE(2982) TRAMPOLINE(2983) TRAMPOLINE(2984) TRAMPOLINE(2985) TRAMPOLINE(2986) TRAMPOLINE(2987) TRAMPOLINE(2988) TRAMPOLINE(2989) TRAMPOLINE(2990) TRAMPOLINE(2991) TRAMPOLINE(2992) TRAMPOLINE(2993) TRAMPOLINE(2994) TRAMPOLINE(2995) TRAMPOLINE(2996) TRAMPOLINE(2997) TRAMPOLINE(2998) TRAMPOLINE(2999) TRAMPOLINE(3000) TRAMPOLINE(3001) TRAMPOLINE(3002) TRAMPOLINE(3003) TRAMPOLINE(3004) TRAMPOLINE(3005) TRAMPOLINE(3006) TRAMPOLINE(3007) TRAMPOLINE(3008) TRAMPOLINE(3009) TRAMPOLINE(3010) TRAMPOLINE(3011) TRAMPOLINE(3012) TRAMPOLINE(3013) TRAMPOLINE(3014) TRAMPOLINE(3015) TRAMPOLINE(3016) TRAMPOLINE(3017) TRAMPOLINE(3018) TRAMPOLINE(3019) TRAMPOLINE(3020) TRAMPOLINE(3021) TRAMPOLINE(3022) TRAMPOLINE(3023) TRAMPOLINE(3024) TRAMPOLINE(3025) TRAMPOLINE(3026) TRAMPOLINE(3027) TRAMPOLINE(3028) TRAMPOLINE(3029) TRAMPOLINE(3030) TRAMPOLINE(3031) TRAMPOLINE(3032) TRAMPOLINE(3033) TRAMPOLINE(3034) TRAMPOLINE(3035) TRAMPOLINE(3036) TRAMPOLINE(3037) TRAMPOLINE(3038) TRAMPOLINE(3039) TRAMPOLINE(3040) TRAMPOLINE(3041) TRAMPOLINE(3042) TRAMPOLINE(3043) TRAMPOLINE(3044) TRAMPOLINE(3045) TRAMPOLINE(3046) TRAMPOLINE(3047) TRAMPOLINE(3048) TRAMPOLINE(3049) TRAMPOLINE(3050) TRAMPOLINE(3051) TRAMPOLINE(3052) TRAMPOLINE(3053) TRAMPOLINE(3054) TRAMPOLINE(3055) TRAMPOLINE(3056) TRAMPOLINE(3057) TRAMPOLINE(3058) TRAMPOLINE(3059) TRAMPOLINE(3060) TRAMPOLINE(3061) TRAMPOLINE(3062) TRAMPOLINE(3063) TRAMPOLINE(3064) TRAMPOLINE(3065) TRAMPOLINE(3066) TRAMPOLINE(3067) TRAMPOLINE(3068) TRAMPOLINE(3069) TRAMPOLINE(3070) TRAMPOLINE(3071) TRAMPOLINE(3072) TRAMPOLINE(3073) TRAMPOLINE(3074) TRAMPOLINE(3075) TRAMPOLINE(3076) TRAMPOLINE(3077) TRAMPOLINE(3078) TRAMPOLINE(3079) TRAMPOLINE(3080) TRAMPOLINE(3081) TRAMPOLINE(3082) TRAMPOLINE(3083) TRAMPOLINE(3084) TRAMPOLINE(3085) TRAMPOLINE(3086) TRAMPOLINE(3087) TRAMPOLINE(3088) TRAMPOLINE(3089) TRAMPOLINE(3090) TRAMPOLINE(3091) TRAMPOLINE(3092) TRAMPOLINE(3093) TRAMPOLINE(3094) TRAMPOLINE(3095) TRAMPOLINE(3096) TRAMPOLINE(3097) TRAMPOLINE(3098) TRAMPOLINE(3099) TRAMPOLINE(3100) TRAMPOLINE(3101) TRAMPOLINE(3102) TRAMPOLINE(3103) TRAMPOLINE(3104) TRAMPOLINE(3105) TRAMPOLINE(3106) TRAMPOLINE(3107) TRAMPOLINE(3108) TRAMPOLINE(3109) TRAMPOLINE(3110) TRAMPOLINE(3111) TRAMPOLINE(3112) TRAMPOLINE(3113) TRAMPOLINE(3114) TRAMPOLINE(3115) TRAMPOLINE(3116) TRAMPOLINE(3117) TRAMPOLINE(3118) TRAMPOLINE(3119) TRAMPOLINE(3120) TRAMPOLINE(3121) TRAMPOLINE(3122) TRAMPOLINE(3123) TRAMPOLINE(3124) TRAMPOLINE(3125) TRAMPOLINE(3126) TRAMPOLINE(3127) TRAMPOLINE(3128) TRAMPOLINE(3129) TRAMPOLINE(3130) TRAMPOLINE(3131) TRAMPOLINE(3132) TRAMPOLINE(3133) TRAMPOLINE(3134) TRAMPOLINE(3135) TRAMPOLINE(3136) TRAMPOLINE(3137) TRAMPOLINE(3138) TRAMPOLINE(3139) TRAMPOLINE(3140) TRAMPOLINE(3141) TRAMPOLINE(3142) TRAMPOLINE(3143) TRAMPOLINE(3144) TRAMPOLINE(3145) TRAMPOLINE(3146) TRAMPOLINE(3147) TRAMPOLINE(3148) TRAMPOLINE(3149) TRAMPOLINE(3150) TRAMPOLINE(3151) TRAMPOLINE(3152) TRAMPOLINE(3153) TRAMPOLINE(3154) TRAMPOLINE(3155) TRAMPOLINE(3156) TRAMPOLINE(3157) TRAMPOLINE(3158) TRAMPOLINE(3159) TRAMPOLINE(3160) TRAMPOLINE(3161) TRAMPOLINE(3162) TRAMPOLINE(3163) TRAMPOLINE(3164) TRAMPOLINE(3165) TRAMPOLINE(3166) TRAMPOLINE(3167) TRAMPOLINE(3168) TRAMPOLINE(3169) TRAMPOLINE(3170) TRAMPOLINE(3171) TRAMPOLINE(3172) TRAMPOLINE(3173) TRAMPOLINE(3174) TRAMPOLINE(3175) TRAMPOLINE(3176) TRAMPOLINE(3177) TRAMPOLINE(3178) TRAMPOLINE(3179) TRAMPOLINE(3180) TRAMPOLINE(3181) TRAMPOLINE(3182) TRAMPOLINE(3183) TRAMPOLINE(3184) TRAMPOLINE(3185) TRAMPOLINE(3186) TRAMPOLINE(3187) TRAMPOLINE(3188) TRAMPOLINE(3189) TRAMPOLINE(3190) TRAMPOLINE(3191) TRAMPOLINE(3192) TRAMPOLINE(3193) TRAMPOLINE(3194) TRAMPOLINE(3195) TRAMPOLINE(3196) TRAMPOLINE(3197) TRAMPOLINE(3198) TRAMPOLINE(3199) TRAMPOLINE(3200) TRAMPOLINE(3201) TRAMPOLINE(3202) TRAMPOLINE(3203) TRAMPOLINE(3204) TRAMPOLINE(3205) TRAMPOLINE(3206) TRAMPOLINE(3207) TRAMPOLINE(3208) TRAMPOLINE(3209) TRAMPOLINE(3210) TRAMPOLINE(3211) TRAMPOLINE(3212) TRAMPOLINE(3213) TRAMPOLINE(3214) TRAMPOLINE(3215) TRAMPOLINE(3216) TRAMPOLINE(3217) TRAMPOLINE(3218) TRAMPOLINE(3219) TRAMPOLINE(3220) TRAMPOLINE(3221) TRAMPOLINE(3222) TRAMPOLINE(3223) TRAMPOLINE(3224) TRAMPOLINE(3225) TRAMPOLINE(3226) TRAMPOLINE(3227) TRAMPOLINE(3228) TRAMPOLINE(3229) TRAMPOLINE(3230) TRAMPOLINE(3231) TRAMPOLINE(3232) TRAMPOLINE(3233) TRAMPOLINE(3234) TRAMPOLINE(3235) TRAMPOLINE(3236) TRAMPOLINE(3237) TRAMPOLINE(3238) TRAMPOLINE(3239) TRAMPOLINE(3240) TRAMPOLINE(3241) TRAMPOLINE(3242) TRAMPOLINE(3243) TRAMPOLINE(3244) TRAMPOLINE(3245) TRAMPOLINE(3246) TRAMPOLINE(3247) TRAMPOLINE(3248) TRAMPOLINE(3249) TRAMPOLINE(3250) TRAMPOLINE(3251) TRAMPOLINE(3252) TRAMPOLINE(3253) TRAMPOLINE(3254) TRAMPOLINE(3255) TRAMPOLINE(3256) TRAMPOLINE(3257) TRAMPOLINE(3258) TRAMPOLINE(3259) TRAMPOLINE(3260) TRAMPOLINE(3261) TRAMPOLINE(3262) TRAMPOLINE(3263) TRAMPOLINE(3264) TRAMPOLINE(3265) TRAMPOLINE(3266) TRAMPOLINE(3267) TRAMPOLINE(3268) TRAMPOLINE(3269) TRAMPOLINE(3270) TRAMPOLINE(3271) TRAMPOLINE(3272) TRAMPOLINE(3273) TRAMPOLINE(3274) TRAMPOLINE(3275) TRAMPOLINE(3276) TRAMPOLINE(3277) TRAMPOLINE(3278) TRAMPOLINE(3279) TRAMPOLINE(3280) TRAMPOLINE(3281) TRAMPOLINE(3282) TRAMPOLINE(3283) TRAMPOLINE(3284) TRAMPOLINE(3285) TRAMPOLINE(3286) TRAMPOLINE(3287) TRAMPOLINE(3288) TRAMPOLINE(3289) TRAMPOLINE(3290) TRAMPOLINE(3291) TRAMPOLINE(3292) TRAMPOLINE(3293) TRAMPOLINE(3294) TRAMPOLINE(3295) TRAMPOLINE(3296) TRAMPOLINE(3297) TRAMPOLINE(3298) TRAMPOLINE(3299) TRAMPOLINE(3300) TRAMPOLINE(3301) TRAMPOLINE(3302) TRAMPOLINE(3303) TRAMPOLINE(3304) TRAMPOLINE(3305) TRAMPOLINE(3306) TRAMPOLINE(3307) TRAMPOLINE(3308) TRAMPOLINE(3309) TRAMPOLINE(3310) TRAMPOLINE(3311) TRAMPOLINE(3312) TRAMPOLINE(3313) TRAMPOLINE(3314) TRAMPOLINE(3315) TRAMPOLINE(3316) TRAMPOLINE(3317) TRAMPOLINE(3318) TRAMPOLINE(3319) TRAMPOLINE(3320) TRAMPOLINE(3321) TRAMPOLINE(3322) TRAMPOLINE(3323) TRAMPOLINE(3324) TRAMPOLINE(3325) TRAMPOLINE(3326) TRAMPOLINE(3327) TRAMPOLINE(3328) TRAMPOLINE(3329) TRAMPOLINE(3330) TRAMPOLINE(3331) TRAMPOLINE(3332) TRAMPOLINE(3333) TRAMPOLINE(3334) TRAMPOLINE(3335) TRAMPOLINE(3336) TRAMPOLINE(3337) TRAMPOLINE(3338) TRAMPOLINE(3339) TRAMPOLINE(3340) TRAMPOLINE(3341) TRAMPOLINE(3342) TRAMPOLINE(3343) TRAMPOLINE(3344) TRAMPOLINE(3345) TRAMPOLINE(3346) TRAMPOLINE(3347) TRAMPOLINE(3348) TRAMPOLINE(3349) TRAMPOLINE(3350) TRAMPOLINE(3351) TRAMPOLINE(3352) TRAMPOLINE(3353) TRAMPOLINE(3354) TRAMPOLINE(3355) TRAMPOLINE(3356) TRAMPOLINE(3357) TRAMPOLINE(3358) TRAMPOLINE(3359) TRAMPOLINE(3360) TRAMPOLINE(3361) TRAMPOLINE(3362) TRAMPOLINE(3363) TRAMPOLINE(3364) TRAMPOLINE(3365) TRAMPOLINE(3366) TRAMPOLINE(3367) TRAMPOLINE(3368) TRAMPOLINE(3369) TRAMPOLINE(3370) TRAMPOLINE(3371) TRAMPOLINE(3372) TRAMPOLINE(3373) TRAMPOLINE(3374) TRAMPOLINE(3375) TRAMPOLINE(3376) TRAMPOLINE(3377) TRAMPOLINE(3378) TRAMPOLINE(3379) TRAMPOLINE(3380) TRAMPOLINE(3381) TRAMPOLINE(3382) TRAMPOLINE(3383) TRAMPOLINE(3384) TRAMPOLINE(3385) TRAMPOLINE(3386) TRAMPOLINE(3387) TRAMPOLINE(3388) TRAMPOLINE(3389) TRAMPOLINE(3390) TRAMPOLINE(3391) TRAMPOLINE(3392) TRAMPOLINE(3393) TRAMPOLINE(3394) TRAMPOLINE(3395) TRAMPOLINE(3396) TRAMPOLINE(3397) TRAMPOLINE(3398) TRAMPOLINE(3399) TRAMPOLINE(3400) TRAMPOLINE(3401) TRAMPOLINE(3402) TRAMPOLINE(3403) TRAMPOLINE(3404) TRAMPOLINE(3405) TRAMPOLINE(3406) TRAMPOLINE(3407) TRAMPOLINE(3408) TRAMPOLINE(3409) TRAMPOLINE(3410) TRAMPOLINE(3411) TRAMPOLINE(3412) TRAMPOLINE(3413) TRAMPOLINE(3414) TRAMPOLINE(3415) TRAMPOLINE(3416) TRAMPOLINE(3417) TRAMPOLINE(3418) TRAMPOLINE(3419) TRAMPOLINE(3420) TRAMPOLINE(3421) TRAMPOLINE(3422) TRAMPOLINE(3423) TRAMPOLINE(3424) TRAMPOLINE(3425) TRAMPOLINE(3426) TRAMPOLINE(3427) TRAMPOLINE(3428) TRAMPOLINE(3429) TRAMPOLINE(3430) TRAMPOLINE(3431) TRAMPOLINE(3432) TRAMPOLINE(3433) TRAMPOLINE(3434) TRAMPOLINE(3435) TRAMPOLINE(3436) TRAMPOLINE(3437) TRAMPOLINE(3438) TRAMPOLINE(3439) TRAMPOLINE(3440) TRAMPOLINE(3441) TRAMPOLINE(3442) TRAMPOLINE(3443) TRAMPOLINE(3444) TRAMPOLINE(3445) TRAMPOLINE(3446) TRAMPOLINE(3447) TRAMPOLINE(3448) TRAMPOLINE(3449) TRAMPOLINE(3450) TRAMPOLINE(3451) TRAMPOLINE(3452) TRAMPOLINE(3453) TRAMPOLINE(3454) TRAMPOLINE(3455) TRAMPOLINE(3456) TRAMPOLINE(3457) TRAMPOLINE(3458) TRAMPOLINE(3459) TRAMPOLINE(3460) TRAMPOLINE(3461) TRAMPOLINE(3462) TRAMPOLINE(3463) TRAMPOLINE(3464) TRAMPOLINE(3465) TRAMPOLINE(3466) TRAMPOLINE(3467) TRAMPOLINE(3468) TRAMPOLINE(3469) TRAMPOLINE(3470) TRAMPOLINE(3471) TRAMPOLINE(3472) TRAMPOLINE(3473) TRAMPOLINE(3474) TRAMPOLINE(3475) TRAMPOLINE(3476) TRAMPOLINE(3477) TRAMPOLINE(3478) TRAMPOLINE(3479) TRAMPOLINE(3480) TRAMPOLINE(3481) TRAMPOLINE(3482) TRAMPOLINE(3483) TRAMPOLINE(3484) TRAMPOLINE(3485) TRAMPOLINE(3486) TRAMPOLINE(3487) TRAMPOLINE(3488) TRAMPOLINE(3489) TRAMPOLINE(3490) TRAMPOLINE(3491) TRAMPOLINE(3492) TRAMPOLINE(3493) TRAMPOLINE(3494) TRAMPOLINE(3495) TRAMPOLINE(3496) TRAMPOLINE(3497) TRAMPOLINE(3498) TRAMPOLINE(3499) TRAMPOLINE(3500) TRAMPOLINE(3501) TRAMPOLINE(3502) TRAMPOLINE(3503) TRAMPOLINE(3504) TRAMPOLINE(3505) TRAMPOLINE(3506) TRAMPOLINE(3507) TRAMPOLINE(3508) TRAMPOLINE(3509) TRAMPOLINE(3510) TRAMPOLINE(3511) TRAMPOLINE(3512) TRAMPOLINE(3513) TRAMPOLINE(3514) TRAMPOLINE(3515) TRAMPOLINE(3516) TRAMPOLINE(3517) TRAMPOLINE(3518) TRAMPOLINE(3519) TRAMPOLINE(3520) TRAMPOLINE(3521) TRAMPOLINE(3522) TRAMPOLINE(3523) TRAMPOLINE(3524) TRAMPOLINE(3525) TRAMPOLINE(3526) TRAMPOLINE(3527) TRAMPOLINE(3528) TRAMPOLINE(3529) TRAMPOLINE(3530) TRAMPOLINE(3531) TRAMPOLINE(3532) TRAMPOLINE(3533) TRAMPOLINE(3534) TRAMPOLINE(3535) TRAMPOLINE(3536) TRAMPOLINE(3537) TRAMPOLINE(3538) TRAMPOLINE(3539) TRAMPOLINE(3540) TRAMPOLINE(3541) TRAMPOLINE(3542) TRAMPOLINE(3543) TRAMPOLINE(3544) TRAMPOLINE(3545) TRAMPOLINE(3546) TRAMPOLINE(3547) TRAMPOLINE(3548) TRAMPOLINE(3549) TRAMPOLINE(3550) TRAMPOLINE(3551) TRAMPOLINE(3552) TRAMPOLINE(3553) TRAMPOLINE(3554) TRAMPOLINE(3555) TRAMPOLINE(3556) TRAMPOLINE(3557) TRAMPOLINE(3558) TRAMPOLINE(3559) TRAMPOLINE(3560) TRAMPOLINE(3561) TRAMPOLINE(3562) TRAMPOLINE(3563) TRAMPOLINE(3564) TRAMPOLINE(3565) TRAMPOLINE(3566) TRAMPOLINE(3567) TRAMPOLINE(3568) TRAMPOLINE(3569) TRAMPOLINE(3570) TRAMPOLINE(3571) TRAMPOLINE(3572) TRAMPOLINE(3573) TRAMPOLINE(3574) TRAMPOLINE(3575) TRAMPOLINE(3576) TRAMPOLINE(3577) TRAMPOLINE(3578) TRAMPOLINE(3579) TRAMPOLINE(3580) TRAMPOLINE(3581) TRAMPOLINE(3582) TRAMPOLINE(3583) TRAMPOLINE(3584) TRAMPOLINE(3585) TRAMPOLINE(3586) TRAMPOLINE(3587) TRAMPOLINE(3588) TRAMPOLINE(3589) TRAMPOLINE(3590) TRAMPOLINE(3591) TRAMPOLINE(3592) TRAMPOLINE(3593) TRAMPOLINE(3594) TRAMPOLINE(3595) TRAMPOLINE(3596) TRAMPOLINE(3597) TRAMPOLINE(3598) TRAMPOLINE(3599) TRAMPOLINE(3600) TRAMPOLINE(3601) TRAMPOLINE(3602) TRAMPOLINE(3603) TRAMPOLINE(3604) TRAMPOLINE(3605) TRAMPOLINE(3606) TRAMPOLINE(3607) TRAMPOLINE(3608) TRAMPOLINE(3609) TRAMPOLINE(3610) TRAMPOLINE(3611) TRAMPOLINE(3612) TRAMPOLINE(3613) TRAMPOLINE(3614) TRAMPOLINE(3615) TRAMPOLINE(3616) TRAMPOLINE(3617) TRAMPOLINE(3618) TRAMPOLINE(3619) TRAMPOLINE(3620) TRAMPOLINE(3621) TRAMPOLINE(3622) TRAMPOLINE(3623) TRAMPOLINE(3624) TRAMPOLINE(3625) TRAMPOLINE(3626) TRAMPOLINE(3627) TRAMPOLINE(3628) TRAMPOLINE(3629) TRAMPOLINE(3630) TRAMPOLINE(3631) TRAMPOLINE(3632) TRAMPOLINE(3633) TRAMPOLINE(3634) TRAMPOLINE(3635) TRAMPOLINE(3636) TRAMPOLINE(3637) TRAMPOLINE(3638) TRAMPOLINE(3639) TRAMPOLINE(3640) TRAMPOLINE(3641) TRAMPOLINE(3642) TRAMPOLINE(3643) TRAMPOLINE(3644) TRAMPOLINE(3645) TRAMPOLINE(3646) TRAMPOLINE(3647) TRAMPOLINE(3648) TRAMPOLINE(3649) TRAMPOLINE(3650) TRAMPOLINE(3651) TRAMPOLINE(3652) TRAMPOLINE(3653) TRAMPOLINE(3654) TRAMPOLINE(3655) TRAMPOLINE(3656) TRAMPOLINE(3657) TRAMPOLINE(3658) TRAMPOLINE(3659) TRAMPOLINE(3660) TRAMPOLINE(3661) TRAMPOLINE(3662) TRAMPOLINE(3663) TRAMPOLINE(3664) TRAMPOLINE(3665) TRAMPOLINE(3666) TRAMPOLINE(3667) TRAMPOLINE(3668) TRAMPOLINE(3669) TRAMPOLINE(3670) TRAMPOLINE(3671) TRAMPOLINE(3672) TRAMPOLINE(3673) TRAMPOLINE(3674) TRAMPOLINE(3675) TRAMPOLINE(3676) TRAMPOLINE(3677) TRAMPOLINE(3678) TRAMPOLINE(3679) TRAMPOLINE(3680) TRAMPOLINE(3681) TRAMPOLINE(3682) TRAMPOLINE(3683) TRAMPOLINE(3684) TRAMPOLINE(3685) TRAMPOLINE(3686) TRAMPOLINE(3687) TRAMPOLINE(3688) TRAMPOLINE(3689) TRAMPOLINE(3690) TRAMPOLINE(3691) TRAMPOLINE(3692) TRAMPOLINE(3693) TRAMPOLINE(3694) TRAMPOLINE(3695) TRAMPOLINE(3696) TRAMPOLINE(3697) TRAMPOLINE(3698) TRAMPOLINE(3699) TRAMPOLINE(3700) TRAMPOLINE(3701) TRAMPOLINE(3702) TRAMPOLINE(3703) TRAMPOLINE(3704) TRAMPOLINE(3705) TRAMPOLINE(3706) TRAMPOLINE(3707) TRAMPOLINE(3708) TRAMPOLINE(3709) TRAMPOLINE(3710) TRAMPOLINE(3711) TRAMPOLINE(3712) TRAMPOLINE(3713) TRAMPOLINE(3714) TRAMPOLINE(3715) TRAMPOLINE(3716) TRAMPOLINE(3717) TRAMPOLINE(3718) TRAMPOLINE(3719) TRAMPOLINE(3720) TRAMPOLINE(3721) TRAMPOLINE(3722) TRAMPOLINE(3723) TRAMPOLINE(3724) TRAMPOLINE(3725) TRAMPOLINE(3726) TRAMPOLINE(3727) TRAMPOLINE(3728) TRAMPOLINE(3729) TRAMPOLINE(3730) TRAMPOLINE(3731) TRAMPOLINE(3732) TRAMPOLINE(3733) TRAMPOLINE(3734) TRAMPOLINE(3735) TRAMPOLINE(3736) TRAMPOLINE(3737) TRAMPOLINE(3738) TRAMPOLINE(3739) TRAMPOLINE(3740) TRAMPOLINE(3741) TRAMPOLINE(3742) TRAMPOLINE(3743) TRAMPOLINE(3744) TRAMPOLINE(3745) TRAMPOLINE(3746) TRAMPOLINE(3747) TRAMPOLINE(3748) TRAMPOLINE(3749) TRAMPOLINE(3750) TRAMPOLINE(3751) TRAMPOLINE(3752) TRAMPOLINE(3753) TRAMPOLINE(3754) TRAMPOLINE(3755) TRAMPOLINE(3756) TRAMPOLINE(3757) TRAMPOLINE(3758) TRAMPOLINE(3759) TRAMPOLINE(3760) TRAMPOLINE(3761) TRAMPOLINE(3762) TRAMPOLINE(3763) TRAMPOLINE(3764) TRAMPOLINE(3765) TRAMPOLINE(3766) TRAMPOLINE(3767) TRAMPOLINE(3768) TRAMPOLINE(3769) TRAMPOLINE(3770) TRAMPOLINE(3771) TRAMPOLINE(3772) TRAMPOLINE(3773) TRAMPOLINE(3774) TRAMPOLINE(3775) TRAMPOLINE(3776) TRAMPOLINE(3777) TRAMPOLINE(3778) TRAMPOLINE(3779) TRAMPOLINE(3780) TRAMPOLINE(3781) TRAMPOLINE(3782) TRAMPOLINE(3783) TRAMPOLINE(3784) TRAMPOLINE(3785) TRAMPOLINE(3786) TRAMPOLINE(3787) TRAMPOLINE(3788) TRAMPOLINE(3789) TRAMPOLINE(3790) TRAMPOLINE(3791) TRAMPOLINE(3792) TRAMPOLINE(3793) TRAMPOLINE(3794) TRAMPOLINE(3795) TRAMPOLINE(3796) TRAMPOLINE(3797) TRAMPOLINE(3798) TRAMPOLINE(3799) TRAMPOLINE(3800) TRAMPOLINE(3801) TRAMPOLINE(3802) TRAMPOLINE(3803) TRAMPOLINE(3804) TRAMPOLINE(3805) TRAMPOLINE(3806) TRAMPOLINE(3807) TRAMPOLINE(3808) TRAMPOLINE(3809) TRAMPOLINE(3810) TRAMPOLINE(3811) TRAMPOLINE(3812) TRAMPOLINE(3813) TRAMPOLINE(3814) TRAMPOLINE(3815) TRAMPOLINE(3816) TRAMPOLINE(3817) TRAMPOLINE(3818) TRAMPOLINE(3819) TRAMPOLINE(3820) TRAMPOLINE(3821) TRAMPOLINE(3822) TRAMPOLINE(3823) TRAMPOLINE(3824) TRAMPOLINE(3825) TRAMPOLINE(3826) TRAMPOLINE(3827) TRAMPOLINE(3828) TRAMPOLINE(3829) TRAMPOLINE(3830) TRAMPOLINE(3831) TRAMPOLINE(3832) TRAMPOLINE(3833) TRAMPOLINE(3834) TRAMPOLINE(3835) TRAMPOLINE(3836) TRAMPOLINE(3837) TRAMPOLINE(3838) TRAMPOLINE(3839) TRAMPOLINE(3840) TRAMPOLINE(3841) TRAMPOLINE(3842) TRAMPOLINE(3843) TRAMPOLINE(3844) TRAMPOLINE(3845) TRAMPOLINE(3846) TRAMPOLINE(3847) TRAMPOLINE(3848) TRAMPOLINE(3849) TRAMPOLINE(3850) TRAMPOLINE(3851) TRAMPOLINE(3852) TRAMPOLINE(3853) TRAMPOLINE(3854) TRAMPOLINE(3855) TRAMPOLINE(3856) TRAMPOLINE(3857) TRAMPOLINE(3858) TRAMPOLINE(3859) TRAMPOLINE(3860) TRAMPOLINE(3861) TRAMPOLINE(3862) TRAMPOLINE(3863) TRAMPOLINE(3864) TRAMPOLINE(3865) TRAMPOLINE(3866) TRAMPOLINE(3867) TRAMPOLINE(3868) TRAMPOLINE(3869) TRAMPOLINE(3870) TRAMPOLINE(3871) TRAMPOLINE(3872) TRAMPOLINE(3873) TRAMPOLINE(3874) TRAMPOLINE(3875) TRAMPOLINE(3876) TRAMPOLINE(3877) TRAMPOLINE(3878) TRAMPOLINE(3879) TRAMPOLINE(3880) TRAMPOLINE(3881) TRAMPOLINE(3882) TRAMPOLINE(3883) TRAMPOLINE(3884) TRAMPOLINE(3885) TRAMPOLINE(3886) TRAMPOLINE(3887) TRAMPOLINE(3888) TRAMPOLINE(3889) TRAMPOLINE(3890) TRAMPOLINE(3891) TRAMPOLINE(3892) TRAMPOLINE(3893) TRAMPOLINE(3894) TRAMPOLINE(3895) TRAMPOLINE(3896) TRAMPOLINE(3897) TRAMPOLINE(3898) TRAMPOLINE(3899) TRAMPOLINE(3900) TRAMPOLINE(3901) TRAMPOLINE(3902) TRAMPOLINE(3903) TRAMPOLINE(3904) TRAMPOLINE(3905) TRAMPOLINE(3906) TRAMPOLINE(3907) TRAMPOLINE(3908) TRAMPOLINE(3909) TRAMPOLINE(3910) TRAMPOLINE(3911) TRAMPOLINE(3912) TRAMPOLINE(3913) TRAMPOLINE(3914) TRAMPOLINE(3915) TRAMPOLINE(3916) TRAMPOLINE(3917) TRAMPOLINE(3918) TRAMPOLINE(3919) TRAMPOLINE(3920) TRAMPOLINE(3921) TRAMPOLINE(3922) TRAMPOLINE(3923) TRAMPOLINE(3924) TRAMPOLINE(3925) TRAMPOLINE(3926) TRAMPOLINE(3927) TRAMPOLINE(3928) TRAMPOLINE(3929) TRAMPOLINE(3930) TRAMPOLINE(3931) TRAMPOLINE(3932) TRAMPOLINE(3933) TRAMPOLINE(3934) TRAMPOLINE(3935) TRAMPOLINE(3936) TRAMPOLINE(3937) TRAMPOLINE(3938) TRAMPOLINE(3939) TRAMPOLINE(3940) TRAMPOLINE(3941) TRAMPOLINE(3942) TRAMPOLINE(3943) TRAMPOLINE(3944) TRAMPOLINE(3945) TRAMPOLINE(3946) TRAMPOLINE(3947) TRAMPOLINE(3948) TRAMPOLINE(3949) TRAMPOLINE(3950) TRAMPOLINE(3951) TRAMPOLINE(3952) TRAMPOLINE(3953) TRAMPOLINE(3954) TRAMPOLINE(3955) TRAMPOLINE(3956) TRAMPOLINE(3957) TRAMPOLINE(3958) TRAMPOLINE(3959) TRAMPOLINE(3960) TRAMPOLINE(3961) TRAMPOLINE(3962) TRAMPOLINE(3963) TRAMPOLINE(3964) TRAMPOLINE(3965) TRAMPOLINE(3966) TRAMPOLINE(3967) TRAMPOLINE(3968) TRAMPOLINE(3969) TRAMPOLINE(3970) TRAMPOLINE(3971) TRAMPOLINE(3972) TRAMPOLINE(3973) TRAMPOLINE(3974) TRAMPOLINE(3975) TRAMPOLINE(3976) TRAMPOLINE(3977) TRAMPOLINE(3978) TRAMPOLINE(3979) TRAMPOLINE(3980) TRAMPOLINE(3981) TRAMPOLINE(3982) TRAMPOLINE(3983) TRAMPOLINE(3984) TRAMPOLINE(3985) TRAMPOLINE(3986) TRAMPOLINE(3987) TRAMPOLINE(3988) TRAMPOLINE(3989) TRAMPOLINE(3990) TRAMPOLINE(3991) TRAMPOLINE(3992) TRAMPOLINE(3993) TRAMPOLINE(3994) TRAMPOLINE(3995) TRAMPOLINE(3996) TRAMPOLINE(3997) TRAMPOLINE(3998) TRAMPOLINE(3999) TRAMPOLINE(4000) TRAMPOLINE(4001) TRAMPOLINE(4002) TRAMPOLINE(4003) TRAMPOLINE(4004) TRAMPOLINE(4005) TRAMPOLINE(4006) TRAMPOLINE(4007) TRAMPOLINE(4008) TRAMPOLINE(4009) TRAMPOLINE(4010) TRAMPOLINE(4011) TRAMPOLINE(4012) TRAMPOLINE(4013) TRAMPOLINE(4014) TRAMPOLINE(4015) TRAMPOLINE(4016) TRAMPOLINE(4017) TRAMPOLINE(4018) TRAMPOLINE(4019) TRAMPOLINE(4020) TRAMPOLINE(4021) TRAMPOLINE(4022) TRAMPOLINE(4023) TRAMPOLINE(4024) TRAMPOLINE(4025) TRAMPOLINE(4026) TRAMPOLINE(4027) TRAMPOLINE(4028) TRAMPOLINE(4029) TRAMPOLINE(4030) TRAMPOLINE(4031) TRAMPOLINE(4032) TRAMPOLINE(4033) TRAMPOLINE(4034) TRAMPOLINE(4035) TRAMPOLINE(4036) TRAMPOLINE(4037) TRAMPOLINE(4038) TRAMPOLINE(4039) TRAMPOLINE(4040) TRAMPOLINE(4041) TRAMPOLINE(4042) TRAMPOLINE(4043) TRAMPOLINE(4044) TRAMPOLINE(4045) TRAMPOLINE(4046) TRAMPOLINE(4047) TRAMPOLINE(4048) TRAMPOLINE(4049) TRAMPOLINE(4050) TRAMPOLINE(4051) TRAMPOLINE(4052) TRAMPOLINE(4053) TRAMPOLINE(4054) TRAMPOLINE(4055) TRAMPOLINE(4056) TRAMPOLINE(4057) TRAMPOLINE(4058) TRAMPOLINE(4059) TRAMPOLINE(4060) TRAMPOLINE(4061) TRAMPOLINE(4062) TRAMPOLINE(4063) TRAMPOLINE(4064) TRAMPOLINE(4065) TRAMPOLINE(4066) TRAMPOLINE(4067) TRAMPOLINE(4068) TRAMPOLINE(4069) TRAMPOLINE(4070) TRAMPOLINE(4071) TRAMPOLINE(4072) TRAMPOLINE(4073) TRAMPOLINE(4074) TRAMPOLINE(4075) TRAMPOLINE(4076) TRAMPOLINE(4077) TRAMPOLINE(4078) TRAMPOLINE(4079) TRAMPOLINE(4080) TRAMPOLINE(4081) TRAMPOLINE(4082) TRAMPOLINE(4083) TRAMPOLINE(4084) TRAMPOLINE(4085) TRAMPOLINE(4086) TRAMPOLINE(4087) TRAMPOLINE(4088) TRAMPOLINE(4089) TRAMPOLINE(4090) TRAMPOLINE(4091) TRAMPOLINE(4092) TRAMPOLINE(4093) TRAMPOLINE(4094) TRAMPOLINE(4095) } #endif /* call function with 1st 6 args */ i = ({ register __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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.4/avcall/avcall-riscv32.c0000664000000000000000000002453114061147262014337 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iarg1 __asm__("a0"); register __avrword iarg2 __asm__("a1"); register __avrword iarg3 __asm__("a2"); register __avrword iarg4 __asm__("a3"); register __avrword iarg5 __asm__("a4"); register __avrword iarg6 __asm__("a5"); register __avrword iarg7 __asm__("a6"); register __avrword 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 __avrword iretreg __asm__("a0"); register __avrword 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 { __avrword iret, iret2; iret = (*l->func)(); iret2 = iret2reg; /* save return value */ if (l->rtype == __AVvoid) { } 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; ((__avrword*)raddr)[0] = iret; ((__avrword*)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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.4/avcall/avcall-x86_64-linux.s0000664000000000000000000002352114061422367015157 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 .L124 cmpl $14, %eax je .L125 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 cmpl $2, %eax je .L119 cmpl $3, %eax je .L119 cmpl $4, %eax .p2align 4,,5 je .L119 cmpl $5, %eax .p2align 4,,5 je .L120 cmpl $6, %eax .p2align 4,,5 je .L120 cmpl $7, %eax .p2align 4,,5 je .L121 cmpl $8, %eax .p2align 4,,5 je .L121 cmpl $9, %eax .p2align 4,,5 je .L122 cmpl $10, %eax .p2align 4,,5 je .L122 cmpl $11, %eax .p2align 4,,5 je .L122 cmpl $12, %eax .p2align 4,,5 je .L122 cmpl $15, %eax .p2align 4,,5 je .L122 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 .L110 cmpq $8, %r11 ja .L112 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) jmp .L31 .p2align 4,,7 .L58: je .L126 cmpl $5, %r9d jle .L64 xorl %r9d, %r9d movq %r9, -32(%rbp) movlpd -32(%rbp), %xmm10 .p2align 4,,3 jmp .L63 .L119: movq 16(%rbx), %rax movb %r8b, (%rax) .L31: leaq -24(%rbp), %rsp xorl %eax, %eax popq %rbx popq %r12 popq %r13 leave ret .L124: 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: 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 .L126: xorpd %xmm10, %xmm10 .p2align 4,,7 jmp .L60 .L34: .p2align 4,,7 jne .L37 xorpd %xmm10, %xmm10 .p2align 4,,7 jmp .L36 .L120: movq 16(%rbx), %rax movw %r8w, (%rax) .p2align 4,,5 jmp .L31 .L10: cmpl $5, %r9d .p2align 4,,3 jg .L127 .p2align 4,,5 jne .L16 xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r11 movlpd -32(%rbp), %xmm10 jmp .L15 .L64: .p2align 4,,3 je .L128 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 .L129 jne .L43 xorl %r10d, %r10d movq %r10, -32(%rbp) movq %r10, %r11 movlpd -32(%rbp), %xmm10 jmp .L42 .L127: xorl %r9d, %r9d movq %r9, -32(%rbp) movlpd -32(%rbp), %xmm10 jmp .L12 .L128: xorl %r9d, %r9d movq %r9, -32(%rbp) movq %r9, %r11 movlpd -32(%rbp), %xmm10 jmp .L66 .L129: xorl %r10d, %r10d movq %r10, -32(%rbp) movlpd -32(%rbp), %xmm10 jmp .L39 .L121: movq 16(%rbx), %rax movl %r8d, (%rax) jmp .L31 .L122: movq 16(%rbx), %rax movq %r8, (%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 .L130 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 .L131 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 .L110: 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 .L114 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 .L112: 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 .L52: jne .L132 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 .L130: 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 .L114: 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 .L131: 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 .L132: 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 .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.4/avcall/avcall-m68k.mit.S0000664000000000000000000000437114061422364014400 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(52) movel $sp,$a1 movel $d1,$a0 movel $d0,$d2 .even L(6): movel $a0@+,$a1@+ subql #1,$d2 jne L(6) L(52): moveq #16,$d0 cmpl $a2@(12),$d0 jeq L(57) 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) moveq #2,$d4 cmpl $a1,$d4 jeq L(56) moveq #3,$d4 cmpl $a1,$d4 jeq L(56) moveq #4,$d4 cmpl $a1,$d4 jeq L(56) moveq #5,$d4 cmpl $a1,$d4 jeq L(55) moveq #6,$d4 cmpl $a1,$d4 jeq L(55) moveq #7,$d4 cmpl $a1,$d4 jeq L(53) moveq #8,$d4 cmpl $a1,$d4 jeq L(53) moveq #9,$d4 cmpl $a1,$d4 jeq L(53) moveq #10,$d4 cmpl $a1,$d4 jeq L(53) lea $a1@(-11),$a0 moveq #1,$d4 cmpl $a0,$d4 jcc L(54) moveq #13,$d4 cmpl $a1,$d4 jeq L(58) moveq #14,$d4 cmpl $a1,$d4 jeq L(59) moveq #15,$d0 cmpl $a1,$d0 jeq L(53) 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(56) moveq #2,$d1 cmpl $d0,$d1 jeq L(55) moveq #4,$d4 cmpl $d0,$d4 jeq L(53) moveq #8,$d1 cmpl $d0,$d1 jne L(9) L(54): movel $a2@(8),$a0 movel $d2,$a0@ movel $d3,$a0@(4) jra L(9) .even L(53): movel $a2@(8),$a0 movel $d2,$a0@ jra L(9) .even L(55): movel $a2@(8),$a0 movew $d2,$a0@ jra L(9) .even L(56): movel $a2@(8),$a0 moveb $d2,$a0@ jra L(9) .even L(59): btst #6,$a2@(3) jeq L(37) movel $a2@(8),$a0 fmoved $fp0,$a0@ jra L(9) .even L(37): movel $a2@(8),$a0 movel $d0,$a0@ movel $d1,$a0@(4) jra L(9) .even L(58): movel $a2@,$d2 btst #6,$d2 jeq L(31) movel $a2@(8),$a0 fmoves $fp0,$a0@ jra L(9) .even L(31): btst #5,$d2 jeq L(33) movel $a2@(8),$a0 movel $d1,$sp@- movel $d0,$sp@- fmoved $sp@+,$fp0 fmoves $fp0,$a0@ jra L(9) .even L(33): movel $a2@(8),$a0 movel $d0,$a0@ jra L(9) .even L(57): 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.4/avcall/avcall-libapi.c0000664000000000000000000000513014061147262014276 00000000000000/* * Copyright 2017-2021 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, __avrword(*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, __avrword(*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_int (av_alist* list, int val) { return __av_int(AV_LIST_INNER(list),val); } int avcall_arg_uint (av_alist* list, unsigned int val) { return __av_uint(AV_LIST_INNER(list),val); } 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.4/avcall/avcall-mipseb-linux.s0000664000000000000000000001073714061422364015502 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,$L54 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 $L54: .set noreorder .set nomacro beql $6,$0,$L55 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 $L55: .set noreorder .set nomacro beql $2,$0,$L56 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 $L56: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L36: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L36 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 beq $4,$5,$L7 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L51 lw $4,8($16) .set macro .set reorder li $3,13 # 0xd .set noreorder .set nomacro beq $4,$3,$L52 li $3,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L53 li $3,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L49 li $3,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L57 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,$L47 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L48 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L58 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L57: 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 $L47: 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 $L49: lw $3,8($16) $L58: 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 $L48: lw $3,8($16) sh $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 $L51: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L52: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L53: 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.4/avcall/avcall-mipsel-macro.S0000664000000000000000000001013614061422364015407 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,$L54 andi $6,$6,0x2 .set macro .set reorder l.d $f12,56($16) andi $6,$6,0x2 $L54: .set noreorder .set nomacro beql $6,$0,$L55 andi $2,$2,0x2 .set macro .set reorder l.s $f14,52($16) andi $2,$2,0x2 $L55: .set noreorder .set nomacro beql $2,$0,$L56 slt $4,$4,5 .set macro .set reorder l.d $f14,64($16) slt $4,$4,5 $L56: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L36: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L36 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 beq $4,$5,$L7 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L51 lw $4,8($16) .set macro .set reorder li $3,13 .set noreorder .set nomacro beq $4,$3,$L52 li $3,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L53 li $3,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L49 li $3,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L57 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,$L47 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L48 li $4,4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L58 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L57: 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 $L47: 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 $L49: lw $3,8($16) $L58: 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 $L48: lw $3,8($16) sh $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 $L51: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L52: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L53: 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.4/avcall/avcall-ia64-macro.S0000664000000000000000000003416014061422367014667 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 .L68 ;; .L7: .mib nop 0 cmp4.ne p6, p7 = 13, r15 (p7) br.cond.dpnt .L69 ;; .L16: .mib cmp4.ne p6, p7 = 14, r15 adds r15 = 8, r32 (p7) br.cond.dpnt .L70 .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 ;; .mfb cmp4.ne p6, p7 = 2, r14 nop 0 (p7) br.cond.dpnt .L62 ;; .mfb cmp4.ne p6, p7 = 3, r14 nop 0 (p7) br.cond.dpnt .L62 ;; .mfb cmp4.ne p6, p7 = 4, r14 nop 0 (p7) br.cond.dpnt .L62 ;; .mfb cmp4.ne p6, p7 = 5, r14 nop 0 (p7) br.cond.dpnt .L63 ;; .mfb cmp4.ne p6, p7 = 6, r14 nop 0 (p7) br.cond.dpnt .L63 ;; .mfb cmp4.ne p6, p7 = 7, r14 nop 0 (p7) br.cond.dpnt .L64 ;; .mfb cmp4.ne p6, p7 = 8, r14 nop 0 (p7) br.cond.dpnt .L64 ;; .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 .L66 ;; .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 .L66 ;; .mfb cmp4.ne p6, p7 = 15, r14 nop 0 (p7) br.cond.dpnt .L66 ;; .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 .L45 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r23 (p6) br.cond.dptk .L47 .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 .L68: .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 .L69: .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 ;; .L62: .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 st1 [r14] = r28 nop 0 br.ret.sptk.many b0 .L70: .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 ;; .L63: .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 st2 [r14] = r28 nop 0 br.ret.sptk.many b0 .L64: .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 st4 [r14] = r28 nop 0 br.ret.sptk.many b0 .L66: .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 st8 [r14] = r28 nop 0 br.ret.sptk.many b0 .L45: .body .copy_state 7 .mib nop 0 cmp.ltu p6, p7 = 16, r19 (p6) br.cond.dptk .L49 ;; .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 .L51 .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 .L47: .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 .L49: .body .copy_state 9 .mib nop 0 cmp.ltu p6, p7 = 24, r19 (p6) br.cond.dptk .L53 ;; .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 .L55 .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 10 .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 .L51: .body .copy_state 10 .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 11 .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 .L55: .body .copy_state 11 .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 12 .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 .L53: .body .copy_state 12 .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 .L57 .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 13 .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 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.4/avcall/README0000664000000000000000000000453613347755263012337 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.4/avcall/avcall.30000664000000000000000000002111613146127475012771 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.4/avcall/avcall-i386.c0000664000000000000000000001143614061147262013535 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("eax"); */ register __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = iret2; } } } } return 0; } libffcall-2.4/avcall/avcall-sparc-solaris-macro.S0000664000000000000000000064275414061422365016722 00000000000000#include "asm-sparc.h" .section ".text" .align 4 L(LGETPC0): retl add %o7, %l7, %l7 .align 4 .global C(avcall_call) DECLARE_FUNCTION(avcall_call) .proc 04 FUNBEGIN(avcall_call) !$PROLOGUE$ 0 save %sp, -1128, %sp sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call L(LGETPC0) add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 add %sp, 68, %l1 ld [%i0+20], %o7 ld [%i0+24], %g3 sub %o7, %g3, %g1 ld [%i0+12], %g3 cmp %g3, 16 bne L(L2) sra %g1, 2, %g1 ld [%i0+8], %g3 st %g3, [%sp+64] L(L2): mov 6, %l0 cmp %l0, %g1 bge,a L(L53) ld [%i0+12], %g3 ld [%i0+24], %g4 L(L7): sll %l0, 2, %o7 ld [%g4+%o7], %g3 add %l0, 1, %l0 cmp %l0, %g1 bl L(L7) st %g3, [%l1+%o7] ld [%i0+12], %g3 L(L53): cmp %g3, 16 bne,a L(L54) ld [%i0+24], %g3 ld [%i0], %g3 andcc %g3, 16, %g0 be,a L(L54) ld [%i0+24], %g3 ld [%i0+16], %g3 sll %g3, 1, %o7 add %o7, %g3, %o7 sll %o7, 3, %o7 sethi %hi(_GLOBAL_OFFSET_TABLE_-(L(L9)-.)), %g3 or %g3, %lo(_GLOBAL_OFFSET_TABLE_-(L(L9)-.)), %g3 sub %l7, %g3, %g3 add %o7, %g3, %o7 ld [%i0+24], %g3 ld [%g3],%o0 ld [%g3+4],%o1 ld [%g3+8],%o2 ld [%g3+12],%o3 ld [%g3+16],%o4 ld [%g3+20],%o5 ld [%i0+4], %g2 jmp %o7 nop L(L9): call %g2 nop .long 0 mov 0,%i0 ret restore call %g2 nop .long 1 mov 0,%i0 ret restore call %g2 nop .long 2 mov 0,%i0 ret restore call %g2 nop .long 3 mov 0,%i0 ret restore call %g2 nop .long 4 mov 0,%i0 ret restore call %g2 nop .long 5 mov 0,%i0 ret restore call %g2 nop .long 6 mov 0,%i0 ret restore call %g2 nop .long 7 mov 0,%i0 ret restore call %g2 nop .long 8 mov 0,%i0 ret restore call %g2 nop .long 9 mov 0,%i0 ret restore call %g2 nop .long 10 mov 0,%i0 ret restore call %g2 nop .long 11 mov 0,%i0 ret restore call %g2 nop .long 12 mov 0,%i0 ret restore call %g2 nop .long 13 mov 0,%i0 ret restore call %g2 nop .long 14 mov 0,%i0 ret restore call %g2 nop .long 15 mov 0,%i0 ret restore call %g2 nop .long 16 mov 0,%i0 ret restore call %g2 nop .long 17 mov 0,%i0 ret restore call %g2 nop .long 18 mov 0,%i0 ret restore call %g2 nop .long 19 mov 0,%i0 ret restore call %g2 nop .long 20 mov 0,%i0 ret restore call %g2 nop .long 21 mov 0,%i0 ret restore call %g2 nop .long 22 mov 0,%i0 ret restore call %g2 nop .long 23 mov 0,%i0 ret restore call %g2 nop .long 24 mov 0,%i0 ret restore call %g2 nop .long 25 mov 0,%i0 ret restore call %g2 nop .long 26 mov 0,%i0 ret restore call %g2 nop .long 27 mov 0,%i0 ret restore call %g2 nop .long 28 mov 0,%i0 ret restore call %g2 nop .long 29 mov 0,%i0 ret restore call %g2 nop .long 30 mov 0,%i0 ret restore call %g2 nop .long 31 mov 0,%i0 ret restore call %g2 nop .long 32 mov 0,%i0 ret restore call %g2 nop .long 33 mov 0,%i0 ret restore call %g2 nop .long 34 mov 0,%i0 ret restore call %g2 nop .long 35 mov 0,%i0 ret restore call %g2 nop .long 36 mov 0,%i0 ret restore call %g2 nop .long 37 mov 0,%i0 ret restore call %g2 nop .long 38 mov 0,%i0 ret restore call %g2 nop .long 39 mov 0,%i0 ret restore call %g2 nop .long 40 mov 0,%i0 ret restore call %g2 nop .long 41 mov 0,%i0 ret restore call %g2 nop .long 42 mov 0,%i0 ret restore call %g2 nop .long 43 mov 0,%i0 ret restore call %g2 nop .long 44 mov 0,%i0 ret restore call %g2 nop .long 45 mov 0,%i0 ret restore call %g2 nop .long 46 mov 0,%i0 ret restore call %g2 nop .long 47 mov 0,%i0 ret restore call %g2 nop .long 48 mov 0,%i0 ret restore call %g2 nop .long 49 mov 0,%i0 ret restore call %g2 nop .long 50 mov 0,%i0 ret restore call %g2 nop .long 51 mov 0,%i0 ret restore call %g2 nop .long 52 mov 0,%i0 ret restore call %g2 nop .long 53 mov 0,%i0 ret restore call %g2 nop .long 54 mov 0,%i0 ret restore call %g2 nop .long 55 mov 0,%i0 ret restore call %g2 nop .long 56 mov 0,%i0 ret restore call %g2 nop .long 57 mov 0,%i0 ret restore call %g2 nop .long 58 mov 0,%i0 ret restore call %g2 nop .long 59 mov 0,%i0 ret restore call %g2 nop .long 60 mov 0,%i0 ret restore call %g2 nop .long 61 mov 0,%i0 ret restore call %g2 nop .long 62 mov 0,%i0 ret restore call %g2 nop .long 63 mov 0,%i0 ret restore call %g2 nop .long 64 mov 0,%i0 ret restore call %g2 nop .long 65 mov 0,%i0 ret restore call %g2 nop .long 66 mov 0,%i0 ret restore call %g2 nop .long 67 mov 0,%i0 ret restore call %g2 nop .long 68 mov 0,%i0 ret restore call %g2 nop .long 69 mov 0,%i0 ret restore call %g2 nop .long 70 mov 0,%i0 ret restore call %g2 nop .long 71 mov 0,%i0 ret restore call %g2 nop .long 72 mov 0,%i0 ret restore call %g2 nop .long 73 mov 0,%i0 ret restore call %g2 nop .long 74 mov 0,%i0 ret restore call %g2 nop .long 75 mov 0,%i0 ret restore call %g2 nop .long 76 mov 0,%i0 ret restore call %g2 nop .long 77 mov 0,%i0 ret restore call %g2 nop .long 78 mov 0,%i0 ret restore call %g2 nop .long 79 mov 0,%i0 ret restore call %g2 nop .long 80 mov 0,%i0 ret restore call %g2 nop .long 81 mov 0,%i0 ret restore call %g2 nop .long 82 mov 0,%i0 ret restore call %g2 nop .long 83 mov 0,%i0 ret restore call %g2 nop .long 84 mov 0,%i0 ret restore call %g2 nop .long 85 mov 0,%i0 ret restore call %g2 nop .long 86 mov 0,%i0 ret restore call %g2 nop .long 87 mov 0,%i0 ret restore call %g2 nop .long 88 mov 0,%i0 ret restore call %g2 nop .long 89 mov 0,%i0 ret restore call %g2 nop .long 90 mov 0,%i0 ret restore call %g2 nop .long 91 mov 0,%i0 ret restore call %g2 nop .long 92 mov 0,%i0 ret restore call %g2 nop .long 93 mov 0,%i0 ret restore call %g2 nop .long 94 mov 0,%i0 ret restore call %g2 nop .long 95 mov 0,%i0 ret restore call %g2 nop .long 96 mov 0,%i0 ret restore call %g2 nop .long 97 mov 0,%i0 ret restore call %g2 nop .long 98 mov 0,%i0 ret restore call %g2 nop .long 99 mov 0,%i0 ret restore call %g2 nop .long 100 mov 0,%i0 ret restore call %g2 nop .long 101 mov 0,%i0 ret restore call %g2 nop .long 102 mov 0,%i0 ret restore call %g2 nop .long 103 mov 0,%i0 ret restore call %g2 nop .long 104 mov 0,%i0 ret restore call %g2 nop .long 105 mov 0,%i0 ret restore call %g2 nop .long 106 mov 0,%i0 ret restore call %g2 nop .long 107 mov 0,%i0 ret restore call %g2 nop .long 108 mov 0,%i0 ret restore call %g2 nop .long 109 mov 0,%i0 ret restore call %g2 nop .long 110 mov 0,%i0 ret restore call %g2 nop .long 111 mov 0,%i0 ret restore call %g2 nop .long 112 mov 0,%i0 ret restore call %g2 nop .long 113 mov 0,%i0 ret restore call %g2 nop .long 114 mov 0,%i0 ret restore call %g2 nop .long 115 mov 0,%i0 ret restore call %g2 nop .long 116 mov 0,%i0 ret restore call %g2 nop .long 117 mov 0,%i0 ret restore call %g2 nop .long 118 mov 0,%i0 ret restore call %g2 nop .long 119 mov 0,%i0 ret restore call %g2 nop .long 120 mov 0,%i0 ret restore call %g2 nop .long 121 mov 0,%i0 ret restore call %g2 nop .long 122 mov 0,%i0 ret restore call %g2 nop .long 123 mov 0,%i0 ret restore call %g2 nop .long 124 mov 0,%i0 ret restore call %g2 nop .long 125 mov 0,%i0 ret restore call %g2 nop .long 126 mov 0,%i0 ret restore call %g2 nop .long 127 mov 0,%i0 ret restore call %g2 nop .long 128 mov 0,%i0 ret restore call %g2 nop .long 129 mov 0,%i0 ret restore call %g2 nop .long 130 mov 0,%i0 ret restore call %g2 nop .long 131 mov 0,%i0 ret restore call %g2 nop .long 132 mov 0,%i0 ret restore call %g2 nop .long 133 mov 0,%i0 ret restore call %g2 nop .long 134 mov 0,%i0 ret restore call %g2 nop .long 135 mov 0,%i0 ret restore call %g2 nop .long 136 mov 0,%i0 ret restore call %g2 nop .long 137 mov 0,%i0 ret restore call %g2 nop .long 138 mov 0,%i0 ret restore call %g2 nop .long 139 mov 0,%i0 ret restore call %g2 nop .long 140 mov 0,%i0 ret restore call %g2 nop .long 141 mov 0,%i0 ret restore call %g2 nop .long 142 mov 0,%i0 ret restore call %g2 nop .long 143 mov 0,%i0 ret restore call %g2 nop .long 144 mov 0,%i0 ret restore call %g2 nop .long 145 mov 0,%i0 ret restore call %g2 nop .long 146 mov 0,%i0 ret restore call %g2 nop .long 147 mov 0,%i0 ret restore call %g2 nop .long 148 mov 0,%i0 ret restore call %g2 nop .long 149 mov 0,%i0 ret restore call %g2 nop .long 150 mov 0,%i0 ret restore call %g2 nop .long 151 mov 0,%i0 ret restore call %g2 nop .long 152 mov 0,%i0 ret restore call %g2 nop .long 153 mov 0,%i0 ret restore call %g2 nop .long 154 mov 0,%i0 ret restore call %g2 nop .long 155 mov 0,%i0 ret restore call %g2 nop .long 156 mov 0,%i0 ret restore call %g2 nop .long 157 mov 0,%i0 ret restore call %g2 nop .long 158 mov 0,%i0 ret restore call %g2 nop .long 159 mov 0,%i0 ret restore call %g2 nop .long 160 mov 0,%i0 ret restore call %g2 nop .long 161 mov 0,%i0 ret restore call %g2 nop .long 162 mov 0,%i0 ret restore call %g2 nop .long 163 mov 0,%i0 ret restore call %g2 nop .long 164 mov 0,%i0 ret restore call %g2 nop .long 165 mov 0,%i0 ret restore call %g2 nop .long 166 mov 0,%i0 ret restore call %g2 nop .long 167 mov 0,%i0 ret restore call %g2 nop .long 168 mov 0,%i0 ret restore call %g2 nop .long 169 mov 0,%i0 ret restore call %g2 nop .long 170 mov 0,%i0 ret restore call %g2 nop .long 171 mov 0,%i0 ret restore call %g2 nop .long 172 mov 0,%i0 ret restore call %g2 nop .long 173 mov 0,%i0 ret restore call %g2 nop .long 174 mov 0,%i0 ret restore call %g2 nop .long 175 mov 0,%i0 ret restore call %g2 nop .long 176 mov 0,%i0 ret restore call %g2 nop .long 177 mov 0,%i0 ret restore call %g2 nop .long 178 mov 0,%i0 ret restore call %g2 nop .long 179 mov 0,%i0 ret restore call %g2 nop .long 180 mov 0,%i0 ret restore call %g2 nop .long 181 mov 0,%i0 ret restore call %g2 nop .long 182 mov 0,%i0 ret restore call %g2 nop .long 183 mov 0,%i0 ret restore call %g2 nop .long 184 mov 0,%i0 ret restore call %g2 nop .long 185 mov 0,%i0 ret restore call %g2 nop .long 186 mov 0,%i0 ret restore call %g2 nop .long 187 mov 0,%i0 ret restore call %g2 nop .long 188 mov 0,%i0 ret restore call %g2 nop .long 189 mov 0,%i0 ret restore call %g2 nop .long 190 mov 0,%i0 ret restore call %g2 nop .long 191 mov 0,%i0 ret restore call %g2 nop .long 192 mov 0,%i0 ret restore call %g2 nop .long 193 mov 0,%i0 ret restore call %g2 nop .long 194 mov 0,%i0 ret restore call %g2 nop .long 195 mov 0,%i0 ret restore call %g2 nop .long 196 mov 0,%i0 ret restore call %g2 nop .long 197 mov 0,%i0 ret restore call %g2 nop .long 198 mov 0,%i0 ret restore call %g2 nop .long 199 mov 0,%i0 ret restore call %g2 nop .long 200 mov 0,%i0 ret restore call %g2 nop .long 201 mov 0,%i0 ret restore call %g2 nop .long 202 mov 0,%i0 ret restore call %g2 nop .long 203 mov 0,%i0 ret restore call %g2 nop .long 204 mov 0,%i0 ret restore call %g2 nop .long 205 mov 0,%i0 ret restore call %g2 nop .long 206 mov 0,%i0 ret restore call %g2 nop .long 207 mov 0,%i0 ret restore call %g2 nop .long 208 mov 0,%i0 ret restore call %g2 nop .long 209 mov 0,%i0 ret restore call %g2 nop .long 210 mov 0,%i0 ret restore call %g2 nop .long 211 mov 0,%i0 ret restore call %g2 nop .long 212 mov 0,%i0 ret restore call %g2 nop .long 213 mov 0,%i0 ret restore call %g2 nop .long 214 mov 0,%i0 ret restore call %g2 nop .long 215 mov 0,%i0 ret restore call %g2 nop .long 216 mov 0,%i0 ret restore call %g2 nop .long 217 mov 0,%i0 ret restore call %g2 nop .long 218 mov 0,%i0 ret restore call %g2 nop .long 219 mov 0,%i0 ret restore call %g2 nop .long 220 mov 0,%i0 ret restore call %g2 nop .long 221 mov 0,%i0 ret restore call %g2 nop .long 222 mov 0,%i0 ret restore call %g2 nop .long 223 mov 0,%i0 ret restore call %g2 nop .long 224 mov 0,%i0 ret restore call %g2 nop .long 225 mov 0,%i0 ret restore call %g2 nop .long 226 mov 0,%i0 ret restore call %g2 nop .long 227 mov 0,%i0 ret restore call %g2 nop .long 228 mov 0,%i0 ret restore call %g2 nop .long 229 mov 0,%i0 ret restore call %g2 nop .long 230 mov 0,%i0 ret restore call %g2 nop .long 231 mov 0,%i0 ret restore call %g2 nop .long 232 mov 0,%i0 ret restore call %g2 nop .long 233 mov 0,%i0 ret restore call %g2 nop .long 234 mov 0,%i0 ret restore call %g2 nop .long 235 mov 0,%i0 ret restore call %g2 nop .long 236 mov 0,%i0 ret restore call %g2 nop .long 237 mov 0,%i0 ret restore call %g2 nop .long 238 mov 0,%i0 ret restore call %g2 nop .long 239 mov 0,%i0 ret restore call %g2 nop .long 240 mov 0,%i0 ret restore call %g2 nop .long 241 mov 0,%i0 ret restore call %g2 nop .long 242 mov 0,%i0 ret restore call %g2 nop .long 243 mov 0,%i0 ret restore call %g2 nop .long 244 mov 0,%i0 ret restore call %g2 nop .long 245 mov 0,%i0 ret restore call %g2 nop .long 246 mov 0,%i0 ret restore call %g2 nop .long 247 mov 0,%i0 ret restore call %g2 nop .long 248 mov 0,%i0 ret restore call %g2 nop .long 249 mov 0,%i0 ret restore call %g2 nop .long 250 mov 0,%i0 ret restore call %g2 nop .long 251 mov 0,%i0 ret restore call %g2 nop .long 252 mov 0,%i0 ret restore call %g2 nop .long 253 mov 0,%i0 ret restore call %g2 nop .long 254 mov 0,%i0 ret restore call %g2 nop .long 255 mov 0,%i0 ret restore call %g2 nop .long 256 mov 0,%i0 ret restore call %g2 nop .long 257 mov 0,%i0 ret restore call %g2 nop .long 258 mov 0,%i0 ret restore call %g2 nop .long 259 mov 0,%i0 ret restore call %g2 nop .long 260 mov 0,%i0 ret restore call %g2 nop .long 261 mov 0,%i0 ret restore call %g2 nop .long 262 mov 0,%i0 ret restore call %g2 nop .long 263 mov 0,%i0 ret restore call %g2 nop .long 264 mov 0,%i0 ret restore call %g2 nop .long 265 mov 0,%i0 ret restore call %g2 nop .long 266 mov 0,%i0 ret restore call %g2 nop .long 267 mov 0,%i0 ret restore call %g2 nop .long 268 mov 0,%i0 ret restore call %g2 nop .long 269 mov 0,%i0 ret restore call %g2 nop .long 270 mov 0,%i0 ret restore call %g2 nop .long 271 mov 0,%i0 ret restore call %g2 nop .long 272 mov 0,%i0 ret restore call %g2 nop .long 273 mov 0,%i0 ret restore call %g2 nop .long 274 mov 0,%i0 ret restore call %g2 nop .long 275 mov 0,%i0 ret restore call %g2 nop .long 276 mov 0,%i0 ret restore call %g2 nop .long 277 mov 0,%i0 ret restore call %g2 nop .long 278 mov 0,%i0 ret restore call %g2 nop .long 279 mov 0,%i0 ret restore call %g2 nop .long 280 mov 0,%i0 ret restore call %g2 nop .long 281 mov 0,%i0 ret restore call %g2 nop .long 282 mov 0,%i0 ret restore call %g2 nop .long 283 mov 0,%i0 ret restore call %g2 nop .long 284 mov 0,%i0 ret restore call %g2 nop .long 285 mov 0,%i0 ret restore call %g2 nop .long 286 mov 0,%i0 ret restore call %g2 nop .long 287 mov 0,%i0 ret restore call %g2 nop .long 288 mov 0,%i0 ret restore call %g2 nop .long 289 mov 0,%i0 ret restore call %g2 nop .long 290 mov 0,%i0 ret restore call %g2 nop .long 291 mov 0,%i0 ret restore call %g2 nop .long 292 mov 0,%i0 ret restore call %g2 nop .long 293 mov 0,%i0 ret restore call %g2 nop .long 294 mov 0,%i0 ret restore call %g2 nop .long 295 mov 0,%i0 ret restore call %g2 nop .long 296 mov 0,%i0 ret restore call %g2 nop .long 297 mov 0,%i0 ret restore call %g2 nop .long 298 mov 0,%i0 ret restore call %g2 nop .long 299 mov 0,%i0 ret restore call %g2 nop .long 300 mov 0,%i0 ret restore call %g2 nop .long 301 mov 0,%i0 ret restore call %g2 nop .long 302 mov 0,%i0 ret restore call %g2 nop .long 303 mov 0,%i0 ret restore call %g2 nop .long 304 mov 0,%i0 ret restore call %g2 nop .long 305 mov 0,%i0 ret restore call %g2 nop .long 306 mov 0,%i0 ret restore call %g2 nop .long 307 mov 0,%i0 ret restore call %g2 nop .long 308 mov 0,%i0 ret restore call %g2 nop .long 309 mov 0,%i0 ret restore call %g2 nop .long 310 mov 0,%i0 ret restore call %g2 nop .long 311 mov 0,%i0 ret restore call %g2 nop .long 312 mov 0,%i0 ret restore call %g2 nop .long 313 mov 0,%i0 ret restore call %g2 nop .long 314 mov 0,%i0 ret restore call %g2 nop .long 315 mov 0,%i0 ret restore call %g2 nop .long 316 mov 0,%i0 ret restore call %g2 nop .long 317 mov 0,%i0 ret restore call %g2 nop .long 318 mov 0,%i0 ret restore call %g2 nop .long 319 mov 0,%i0 ret restore call %g2 nop .long 320 mov 0,%i0 ret restore call %g2 nop .long 321 mov 0,%i0 ret restore call %g2 nop .long 322 mov 0,%i0 ret restore call %g2 nop .long 323 mov 0,%i0 ret restore call %g2 nop .long 324 mov 0,%i0 ret restore call %g2 nop .long 325 mov 0,%i0 ret restore call %g2 nop .long 326 mov 0,%i0 ret restore call %g2 nop .long 327 mov 0,%i0 ret restore call %g2 nop .long 328 mov 0,%i0 ret restore call %g2 nop .long 329 mov 0,%i0 ret restore call %g2 nop .long 330 mov 0,%i0 ret restore call %g2 nop .long 331 mov 0,%i0 ret restore call %g2 nop .long 332 mov 0,%i0 ret restore call %g2 nop .long 333 mov 0,%i0 ret restore call %g2 nop .long 334 mov 0,%i0 ret restore call %g2 nop .long 335 mov 0,%i0 ret restore call %g2 nop .long 336 mov 0,%i0 ret restore call %g2 nop .long 337 mov 0,%i0 ret restore call %g2 nop .long 338 mov 0,%i0 ret restore call %g2 nop .long 339 mov 0,%i0 ret restore call %g2 nop .long 340 mov 0,%i0 ret restore call %g2 nop .long 341 mov 0,%i0 ret restore call %g2 nop .long 342 mov 0,%i0 ret restore call %g2 nop .long 343 mov 0,%i0 ret restore call %g2 nop .long 344 mov 0,%i0 ret restore call %g2 nop .long 345 mov 0,%i0 ret restore call %g2 nop .long 346 mov 0,%i0 ret restore call %g2 nop .long 347 mov 0,%i0 ret restore call %g2 nop .long 348 mov 0,%i0 ret restore call %g2 nop .long 349 mov 0,%i0 ret restore call %g2 nop .long 350 mov 0,%i0 ret restore call %g2 nop .long 351 mov 0,%i0 ret restore call %g2 nop .long 352 mov 0,%i0 ret restore call %g2 nop .long 353 mov 0,%i0 ret restore call %g2 nop .long 354 mov 0,%i0 ret restore call %g2 nop .long 355 mov 0,%i0 ret restore call %g2 nop .long 356 mov 0,%i0 ret restore call %g2 nop .long 357 mov 0,%i0 ret restore call %g2 nop .long 358 mov 0,%i0 ret restore call %g2 nop .long 359 mov 0,%i0 ret restore call %g2 nop .long 360 mov 0,%i0 ret restore call %g2 nop .long 361 mov 0,%i0 ret restore call %g2 nop .long 362 mov 0,%i0 ret restore call %g2 nop .long 363 mov 0,%i0 ret restore call %g2 nop .long 364 mov 0,%i0 ret restore call %g2 nop .long 365 mov 0,%i0 ret restore call %g2 nop .long 366 mov 0,%i0 ret restore call %g2 nop .long 367 mov 0,%i0 ret restore call %g2 nop .long 368 mov 0,%i0 ret restore call %g2 nop .long 369 mov 0,%i0 ret restore call %g2 nop .long 370 mov 0,%i0 ret restore call %g2 nop .long 371 mov 0,%i0 ret restore call %g2 nop .long 372 mov 0,%i0 ret restore call %g2 nop .long 373 mov 0,%i0 ret restore call %g2 nop .long 374 mov 0,%i0 ret restore call %g2 nop .long 375 mov 0,%i0 ret restore call %g2 nop .long 376 mov 0,%i0 ret restore call %g2 nop .long 377 mov 0,%i0 ret restore call %g2 nop .long 378 mov 0,%i0 ret restore call %g2 nop .long 379 mov 0,%i0 ret restore call %g2 nop .long 380 mov 0,%i0 ret restore call %g2 nop .long 381 mov 0,%i0 ret restore call %g2 nop .long 382 mov 0,%i0 ret restore call %g2 nop .long 383 mov 0,%i0 ret restore call %g2 nop .long 384 mov 0,%i0 ret restore call %g2 nop .long 385 mov 0,%i0 ret restore call %g2 nop .long 386 mov 0,%i0 ret restore call %g2 nop .long 387 mov 0,%i0 ret restore call %g2 nop .long 388 mov 0,%i0 ret restore call %g2 nop .long 389 mov 0,%i0 ret restore call %g2 nop .long 390 mov 0,%i0 ret restore call %g2 nop .long 391 mov 0,%i0 ret restore call %g2 nop .long 392 mov 0,%i0 ret restore call %g2 nop .long 393 mov 0,%i0 ret restore call %g2 nop .long 394 mov 0,%i0 ret restore call %g2 nop .long 395 mov 0,%i0 ret restore call %g2 nop .long 396 mov 0,%i0 ret restore call %g2 nop .long 397 mov 0,%i0 ret restore call %g2 nop .long 398 mov 0,%i0 ret restore call %g2 nop .long 399 mov 0,%i0 ret restore call %g2 nop .long 400 mov 0,%i0 ret restore call %g2 nop .long 401 mov 0,%i0 ret restore call %g2 nop .long 402 mov 0,%i0 ret restore call %g2 nop .long 403 mov 0,%i0 ret restore call %g2 nop .long 404 mov 0,%i0 ret restore call %g2 nop .long 405 mov 0,%i0 ret restore call %g2 nop .long 406 mov 0,%i0 ret restore call %g2 nop .long 407 mov 0,%i0 ret restore call %g2 nop .long 408 mov 0,%i0 ret restore call %g2 nop .long 409 mov 0,%i0 ret restore call %g2 nop .long 410 mov 0,%i0 ret restore call %g2 nop .long 411 mov 0,%i0 ret restore call %g2 nop .long 412 mov 0,%i0 ret restore call %g2 nop .long 413 mov 0,%i0 ret restore call %g2 nop .long 414 mov 0,%i0 ret restore call %g2 nop .long 415 mov 0,%i0 ret restore call %g2 nop .long 416 mov 0,%i0 ret restore call %g2 nop .long 417 mov 0,%i0 ret restore call %g2 nop .long 418 mov 0,%i0 ret restore call %g2 nop .long 419 mov 0,%i0 ret restore call %g2 nop .long 420 mov 0,%i0 ret restore call %g2 nop .long 421 mov 0,%i0 ret restore call %g2 nop .long 422 mov 0,%i0 ret restore call %g2 nop .long 423 mov 0,%i0 ret restore call %g2 nop .long 424 mov 0,%i0 ret restore call %g2 nop .long 425 mov 0,%i0 ret restore call %g2 nop .long 426 mov 0,%i0 ret restore call %g2 nop .long 427 mov 0,%i0 ret restore call %g2 nop .long 428 mov 0,%i0 ret restore call %g2 nop .long 429 mov 0,%i0 ret restore call %g2 nop .long 430 mov 0,%i0 ret restore call %g2 nop .long 431 mov 0,%i0 ret restore call %g2 nop .long 432 mov 0,%i0 ret restore call %g2 nop .long 433 mov 0,%i0 ret restore call %g2 nop .long 434 mov 0,%i0 ret restore call %g2 nop .long 435 mov 0,%i0 ret restore call %g2 nop .long 436 mov 0,%i0 ret restore call %g2 nop .long 437 mov 0,%i0 ret restore call %g2 nop .long 438 mov 0,%i0 ret restore call %g2 nop .long 439 mov 0,%i0 ret restore call %g2 nop .long 440 mov 0,%i0 ret restore call %g2 nop .long 441 mov 0,%i0 ret restore call %g2 nop .long 442 mov 0,%i0 ret restore call %g2 nop .long 443 mov 0,%i0 ret restore call %g2 nop .long 444 mov 0,%i0 ret restore call %g2 nop .long 445 mov 0,%i0 ret restore call %g2 nop .long 446 mov 0,%i0 ret restore call %g2 nop .long 447 mov 0,%i0 ret restore call %g2 nop .long 448 mov 0,%i0 ret restore call %g2 nop .long 449 mov 0,%i0 ret restore call %g2 nop .long 450 mov 0,%i0 ret restore call %g2 nop .long 451 mov 0,%i0 ret restore call %g2 nop .long 452 mov 0,%i0 ret restore call %g2 nop .long 453 mov 0,%i0 ret restore call %g2 nop .long 454 mov 0,%i0 ret restore call %g2 nop .long 455 mov 0,%i0 ret restore call %g2 nop .long 456 mov 0,%i0 ret restore call %g2 nop .long 457 mov 0,%i0 ret restore call %g2 nop .long 458 mov 0,%i0 ret restore call %g2 nop .long 459 mov 0,%i0 ret restore call %g2 nop .long 460 mov 0,%i0 ret restore call %g2 nop .long 461 mov 0,%i0 ret restore call %g2 nop .long 462 mov 0,%i0 ret restore call %g2 nop .long 463 mov 0,%i0 ret restore call %g2 nop .long 464 mov 0,%i0 ret restore call %g2 nop .long 465 mov 0,%i0 ret restore call %g2 nop .long 466 mov 0,%i0 ret restore call %g2 nop .long 467 mov 0,%i0 ret restore call %g2 nop .long 468 mov 0,%i0 ret restore call %g2 nop .long 469 mov 0,%i0 ret restore call %g2 nop .long 470 mov 0,%i0 ret restore call %g2 nop .long 471 mov 0,%i0 ret restore call %g2 nop .long 472 mov 0,%i0 ret restore call %g2 nop .long 473 mov 0,%i0 ret restore call %g2 nop .long 474 mov 0,%i0 ret restore call %g2 nop .long 475 mov 0,%i0 ret restore call %g2 nop .long 476 mov 0,%i0 ret restore call %g2 nop .long 477 mov 0,%i0 ret restore call %g2 nop .long 478 mov 0,%i0 ret restore call %g2 nop .long 479 mov 0,%i0 ret restore call %g2 nop .long 480 mov 0,%i0 ret restore call %g2 nop .long 481 mov 0,%i0 ret restore call %g2 nop .long 482 mov 0,%i0 ret restore call %g2 nop .long 483 mov 0,%i0 ret restore call %g2 nop .long 484 mov 0,%i0 ret restore call %g2 nop .long 485 mov 0,%i0 ret restore call %g2 nop .long 486 mov 0,%i0 ret restore call %g2 nop .long 487 mov 0,%i0 ret restore call %g2 nop .long 488 mov 0,%i0 ret restore call %g2 nop .long 489 mov 0,%i0 ret restore call %g2 nop .long 490 mov 0,%i0 ret restore call %g2 nop .long 491 mov 0,%i0 ret restore call %g2 nop .long 492 mov 0,%i0 ret restore call %g2 nop .long 493 mov 0,%i0 ret restore call %g2 nop .long 494 mov 0,%i0 ret restore call %g2 nop .long 495 mov 0,%i0 ret restore call %g2 nop .long 496 mov 0,%i0 ret restore call %g2 nop .long 497 mov 0,%i0 ret restore call %g2 nop .long 498 mov 0,%i0 ret restore call %g2 nop .long 499 mov 0,%i0 ret restore call %g2 nop .long 500 mov 0,%i0 ret restore call %g2 nop .long 501 mov 0,%i0 ret restore call %g2 nop .long 502 mov 0,%i0 ret restore call %g2 nop .long 503 mov 0,%i0 ret restore call %g2 nop .long 504 mov 0,%i0 ret restore call %g2 nop .long 505 mov 0,%i0 ret restore call %g2 nop .long 506 mov 0,%i0 ret restore call %g2 nop .long 507 mov 0,%i0 ret restore call %g2 nop .long 508 mov 0,%i0 ret restore call %g2 nop .long 509 mov 0,%i0 ret restore call %g2 nop .long 510 mov 0,%i0 ret restore call %g2 nop .long 511 mov 0,%i0 ret restore call %g2 nop .long 512 mov 0,%i0 ret restore call %g2 nop .long 513 mov 0,%i0 ret restore call %g2 nop .long 514 mov 0,%i0 ret restore call %g2 nop .long 515 mov 0,%i0 ret restore call %g2 nop .long 516 mov 0,%i0 ret restore call %g2 nop .long 517 mov 0,%i0 ret restore call %g2 nop .long 518 mov 0,%i0 ret restore call %g2 nop .long 519 mov 0,%i0 ret restore call %g2 nop .long 520 mov 0,%i0 ret restore call %g2 nop .long 521 mov 0,%i0 ret restore call %g2 nop .long 522 mov 0,%i0 ret restore call %g2 nop .long 523 mov 0,%i0 ret restore call %g2 nop .long 524 mov 0,%i0 ret restore call %g2 nop .long 525 mov 0,%i0 ret restore call %g2 nop .long 526 mov 0,%i0 ret restore call %g2 nop .long 527 mov 0,%i0 ret restore call %g2 nop .long 528 mov 0,%i0 ret restore call %g2 nop .long 529 mov 0,%i0 ret restore call %g2 nop .long 530 mov 0,%i0 ret restore call %g2 nop .long 531 mov 0,%i0 ret restore call %g2 nop .long 532 mov 0,%i0 ret restore call %g2 nop .long 533 mov 0,%i0 ret restore call %g2 nop .long 534 mov 0,%i0 ret restore call %g2 nop .long 535 mov 0,%i0 ret restore call %g2 nop .long 536 mov 0,%i0 ret restore call %g2 nop .long 537 mov 0,%i0 ret restore call %g2 nop .long 538 mov 0,%i0 ret restore call %g2 nop .long 539 mov 0,%i0 ret restore call %g2 nop .long 540 mov 0,%i0 ret restore call %g2 nop .long 541 mov 0,%i0 ret restore call %g2 nop .long 542 mov 0,%i0 ret restore call %g2 nop .long 543 mov 0,%i0 ret restore call %g2 nop .long 544 mov 0,%i0 ret restore call %g2 nop .long 545 mov 0,%i0 ret restore call %g2 nop .long 546 mov 0,%i0 ret restore call %g2 nop .long 547 mov 0,%i0 ret restore call %g2 nop .long 548 mov 0,%i0 ret restore call %g2 nop .long 549 mov 0,%i0 ret restore call %g2 nop .long 550 mov 0,%i0 ret restore call %g2 nop .long 551 mov 0,%i0 ret restore call %g2 nop .long 552 mov 0,%i0 ret restore call %g2 nop .long 553 mov 0,%i0 ret restore call %g2 nop .long 554 mov 0,%i0 ret restore call %g2 nop .long 555 mov 0,%i0 ret restore call %g2 nop .long 556 mov 0,%i0 ret restore call %g2 nop .long 557 mov 0,%i0 ret restore call %g2 nop .long 558 mov 0,%i0 ret restore call %g2 nop .long 559 mov 0,%i0 ret restore call %g2 nop .long 560 mov 0,%i0 ret restore call %g2 nop .long 561 mov 0,%i0 ret restore call %g2 nop .long 562 mov 0,%i0 ret restore call %g2 nop .long 563 mov 0,%i0 ret restore call %g2 nop .long 564 mov 0,%i0 ret restore call %g2 nop .long 565 mov 0,%i0 ret restore call %g2 nop .long 566 mov 0,%i0 ret restore call %g2 nop .long 567 mov 0,%i0 ret restore call %g2 nop .long 568 mov 0,%i0 ret restore call %g2 nop .long 569 mov 0,%i0 ret restore call %g2 nop .long 570 mov 0,%i0 ret restore call %g2 nop .long 571 mov 0,%i0 ret restore call %g2 nop .long 572 mov 0,%i0 ret restore call %g2 nop .long 573 mov 0,%i0 ret restore call %g2 nop .long 574 mov 0,%i0 ret restore call %g2 nop .long 575 mov 0,%i0 ret restore call %g2 nop .long 576 mov 0,%i0 ret restore call %g2 nop .long 577 mov 0,%i0 ret restore call %g2 nop .long 578 mov 0,%i0 ret restore call %g2 nop .long 579 mov 0,%i0 ret restore call %g2 nop .long 580 mov 0,%i0 ret restore call %g2 nop .long 581 mov 0,%i0 ret restore call %g2 nop .long 582 mov 0,%i0 ret restore call %g2 nop .long 583 mov 0,%i0 ret restore call %g2 nop .long 584 mov 0,%i0 ret restore call %g2 nop .long 585 mov 0,%i0 ret restore call %g2 nop .long 586 mov 0,%i0 ret restore call %g2 nop .long 587 mov 0,%i0 ret restore call %g2 nop .long 588 mov 0,%i0 ret restore call %g2 nop .long 589 mov 0,%i0 ret restore call %g2 nop .long 590 mov 0,%i0 ret restore call %g2 nop .long 591 mov 0,%i0 ret restore call %g2 nop .long 592 mov 0,%i0 ret restore call %g2 nop .long 593 mov 0,%i0 ret restore call %g2 nop .long 594 mov 0,%i0 ret restore call %g2 nop .long 595 mov 0,%i0 ret restore call %g2 nop .long 596 mov 0,%i0 ret restore call %g2 nop .long 597 mov 0,%i0 ret restore call %g2 nop .long 598 mov 0,%i0 ret restore call %g2 nop .long 599 mov 0,%i0 ret restore call %g2 nop .long 600 mov 0,%i0 ret restore call %g2 nop .long 601 mov 0,%i0 ret restore call %g2 nop .long 602 mov 0,%i0 ret restore call %g2 nop .long 603 mov 0,%i0 ret restore call %g2 nop .long 604 mov 0,%i0 ret restore call %g2 nop .long 605 mov 0,%i0 ret restore call %g2 nop .long 606 mov 0,%i0 ret restore call %g2 nop .long 607 mov 0,%i0 ret restore call %g2 nop .long 608 mov 0,%i0 ret restore call %g2 nop .long 609 mov 0,%i0 ret restore call %g2 nop .long 610 mov 0,%i0 ret restore call %g2 nop .long 611 mov 0,%i0 ret restore call %g2 nop .long 612 mov 0,%i0 ret restore call %g2 nop .long 613 mov 0,%i0 ret restore call %g2 nop .long 614 mov 0,%i0 ret restore call %g2 nop .long 615 mov 0,%i0 ret restore call %g2 nop .long 616 mov 0,%i0 ret restore call %g2 nop .long 617 mov 0,%i0 ret restore call %g2 nop .long 618 mov 0,%i0 ret restore call %g2 nop .long 619 mov 0,%i0 ret restore call %g2 nop .long 620 mov 0,%i0 ret restore call %g2 nop .long 621 mov 0,%i0 ret restore call %g2 nop .long 622 mov 0,%i0 ret restore call %g2 nop .long 623 mov 0,%i0 ret restore call %g2 nop .long 624 mov 0,%i0 ret restore call %g2 nop .long 625 mov 0,%i0 ret restore call %g2 nop .long 626 mov 0,%i0 ret restore call %g2 nop .long 627 mov 0,%i0 ret restore call %g2 nop .long 628 mov 0,%i0 ret restore call %g2 nop .long 629 mov 0,%i0 ret restore call %g2 nop .long 630 mov 0,%i0 ret restore call %g2 nop .long 631 mov 0,%i0 ret restore call %g2 nop .long 632 mov 0,%i0 ret restore call %g2 nop .long 633 mov 0,%i0 ret restore call %g2 nop .long 634 mov 0,%i0 ret restore call %g2 nop .long 635 mov 0,%i0 ret restore call %g2 nop .long 636 mov 0,%i0 ret restore call %g2 nop .long 637 mov 0,%i0 ret restore call %g2 nop .long 638 mov 0,%i0 ret restore call %g2 nop .long 639 mov 0,%i0 ret restore call %g2 nop .long 640 mov 0,%i0 ret restore call %g2 nop .long 641 mov 0,%i0 ret restore call %g2 nop .long 642 mov 0,%i0 ret restore call %g2 nop .long 643 mov 0,%i0 ret restore call %g2 nop .long 644 mov 0,%i0 ret restore call %g2 nop .long 645 mov 0,%i0 ret restore call %g2 nop .long 646 mov 0,%i0 ret restore call %g2 nop .long 647 mov 0,%i0 ret restore call %g2 nop .long 648 mov 0,%i0 ret restore call %g2 nop .long 649 mov 0,%i0 ret restore call %g2 nop .long 650 mov 0,%i0 ret restore call %g2 nop .long 651 mov 0,%i0 ret restore call %g2 nop .long 652 mov 0,%i0 ret restore call %g2 nop .long 653 mov 0,%i0 ret restore call %g2 nop .long 654 mov 0,%i0 ret restore call %g2 nop .long 655 mov 0,%i0 ret restore call %g2 nop .long 656 mov 0,%i0 ret restore call %g2 nop .long 657 mov 0,%i0 ret restore call %g2 nop .long 658 mov 0,%i0 ret restore call %g2 nop .long 659 mov 0,%i0 ret restore call %g2 nop .long 660 mov 0,%i0 ret restore call %g2 nop .long 661 mov 0,%i0 ret restore call %g2 nop .long 662 mov 0,%i0 ret restore call %g2 nop .long 663 mov 0,%i0 ret restore call %g2 nop .long 664 mov 0,%i0 ret restore call %g2 nop .long 665 mov 0,%i0 ret restore call %g2 nop .long 666 mov 0,%i0 ret restore call %g2 nop .long 667 mov 0,%i0 ret restore call %g2 nop .long 668 mov 0,%i0 ret restore call %g2 nop .long 669 mov 0,%i0 ret restore call %g2 nop .long 670 mov 0,%i0 ret restore call %g2 nop .long 671 mov 0,%i0 ret restore call %g2 nop .long 672 mov 0,%i0 ret restore call %g2 nop .long 673 mov 0,%i0 ret restore call %g2 nop .long 674 mov 0,%i0 ret restore call %g2 nop .long 675 mov 0,%i0 ret restore call %g2 nop .long 676 mov 0,%i0 ret restore call %g2 nop .long 677 mov 0,%i0 ret restore call %g2 nop .long 678 mov 0,%i0 ret restore call %g2 nop .long 679 mov 0,%i0 ret restore call %g2 nop .long 680 mov 0,%i0 ret restore call %g2 nop .long 681 mov 0,%i0 ret restore call %g2 nop .long 682 mov 0,%i0 ret restore call %g2 nop .long 683 mov 0,%i0 ret restore call %g2 nop .long 684 mov 0,%i0 ret restore call %g2 nop .long 685 mov 0,%i0 ret restore call %g2 nop .long 686 mov 0,%i0 ret restore call %g2 nop .long 687 mov 0,%i0 ret restore call %g2 nop .long 688 mov 0,%i0 ret restore call %g2 nop .long 689 mov 0,%i0 ret restore call %g2 nop .long 690 mov 0,%i0 ret restore call %g2 nop .long 691 mov 0,%i0 ret restore call %g2 nop .long 692 mov 0,%i0 ret restore call %g2 nop .long 693 mov 0,%i0 ret restore call %g2 nop .long 694 mov 0,%i0 ret restore call %g2 nop .long 695 mov 0,%i0 ret restore call %g2 nop .long 696 mov 0,%i0 ret restore call %g2 nop .long 697 mov 0,%i0 ret restore call %g2 nop .long 698 mov 0,%i0 ret restore call %g2 nop .long 699 mov 0,%i0 ret restore call %g2 nop .long 700 mov 0,%i0 ret restore call %g2 nop .long 701 mov 0,%i0 ret restore call %g2 nop .long 702 mov 0,%i0 ret restore call %g2 nop .long 703 mov 0,%i0 ret restore call %g2 nop .long 704 mov 0,%i0 ret restore call %g2 nop .long 705 mov 0,%i0 ret restore call %g2 nop .long 706 mov 0,%i0 ret restore call %g2 nop .long 707 mov 0,%i0 ret restore call %g2 nop .long 708 mov 0,%i0 ret restore call %g2 nop .long 709 mov 0,%i0 ret restore call %g2 nop .long 710 mov 0,%i0 ret restore call %g2 nop .long 711 mov 0,%i0 ret restore call %g2 nop .long 712 mov 0,%i0 ret restore call %g2 nop .long 713 mov 0,%i0 ret restore call %g2 nop .long 714 mov 0,%i0 ret restore call %g2 nop .long 715 mov 0,%i0 ret restore call %g2 nop .long 716 mov 0,%i0 ret restore call %g2 nop .long 717 mov 0,%i0 ret restore call %g2 nop .long 718 mov 0,%i0 ret restore call %g2 nop .long 719 mov 0,%i0 ret restore call %g2 nop .long 720 mov 0,%i0 ret restore call %g2 nop .long 721 mov 0,%i0 ret restore call %g2 nop .long 722 mov 0,%i0 ret restore call %g2 nop .long 723 mov 0,%i0 ret restore call %g2 nop .long 724 mov 0,%i0 ret restore call %g2 nop .long 725 mov 0,%i0 ret restore call %g2 nop .long 726 mov 0,%i0 ret restore call %g2 nop .long 727 mov 0,%i0 ret restore call %g2 nop .long 728 mov 0,%i0 ret restore call %g2 nop .long 729 mov 0,%i0 ret restore call %g2 nop .long 730 mov 0,%i0 ret restore call %g2 nop .long 731 mov 0,%i0 ret restore call %g2 nop .long 732 mov 0,%i0 ret restore call %g2 nop .long 733 mov 0,%i0 ret restore call %g2 nop .long 734 mov 0,%i0 ret restore call %g2 nop .long 735 mov 0,%i0 ret restore call %g2 nop .long 736 mov 0,%i0 ret restore call %g2 nop .long 737 mov 0,%i0 ret restore call %g2 nop .long 738 mov 0,%i0 ret restore call %g2 nop .long 739 mov 0,%i0 ret restore call %g2 nop .long 740 mov 0,%i0 ret restore call %g2 nop .long 741 mov 0,%i0 ret restore call %g2 nop .long 742 mov 0,%i0 ret restore call %g2 nop .long 743 mov 0,%i0 ret restore call %g2 nop .long 744 mov 0,%i0 ret restore call %g2 nop .long 745 mov 0,%i0 ret restore call %g2 nop .long 746 mov 0,%i0 ret restore call %g2 nop .long 747 mov 0,%i0 ret restore call %g2 nop .long 748 mov 0,%i0 ret restore call %g2 nop .long 749 mov 0,%i0 ret restore call %g2 nop .long 750 mov 0,%i0 ret restore call %g2 nop .long 751 mov 0,%i0 ret restore call %g2 nop .long 752 mov 0,%i0 ret restore call %g2 nop .long 753 mov 0,%i0 ret restore call %g2 nop .long 754 mov 0,%i0 ret restore call %g2 nop .long 755 mov 0,%i0 ret restore call %g2 nop .long 756 mov 0,%i0 ret restore call %g2 nop .long 757 mov 0,%i0 ret restore call %g2 nop .long 758 mov 0,%i0 ret restore call %g2 nop .long 759 mov 0,%i0 ret restore call %g2 nop .long 760 mov 0,%i0 ret restore call %g2 nop .long 761 mov 0,%i0 ret restore call %g2 nop .long 762 mov 0,%i0 ret restore call %g2 nop .long 763 mov 0,%i0 ret restore call %g2 nop .long 764 mov 0,%i0 ret restore call %g2 nop .long 765 mov 0,%i0 ret restore call %g2 nop .long 766 mov 0,%i0 ret restore call %g2 nop .long 767 mov 0,%i0 ret restore call %g2 nop .long 768 mov 0,%i0 ret restore call %g2 nop .long 769 mov 0,%i0 ret restore call %g2 nop .long 770 mov 0,%i0 ret restore call %g2 nop .long 771 mov 0,%i0 ret restore call %g2 nop .long 772 mov 0,%i0 ret restore call %g2 nop .long 773 mov 0,%i0 ret restore call %g2 nop .long 774 mov 0,%i0 ret restore call %g2 nop .long 775 mov 0,%i0 ret restore call %g2 nop .long 776 mov 0,%i0 ret restore call %g2 nop .long 777 mov 0,%i0 ret restore call %g2 nop .long 778 mov 0,%i0 ret restore call %g2 nop .long 779 mov 0,%i0 ret restore call %g2 nop .long 780 mov 0,%i0 ret restore call %g2 nop .long 781 mov 0,%i0 ret restore call %g2 nop .long 782 mov 0,%i0 ret restore call %g2 nop .long 783 mov 0,%i0 ret restore call %g2 nop .long 784 mov 0,%i0 ret restore call %g2 nop .long 785 mov 0,%i0 ret restore call %g2 nop .long 786 mov 0,%i0 ret restore call %g2 nop .long 787 mov 0,%i0 ret restore call %g2 nop .long 788 mov 0,%i0 ret restore call %g2 nop .long 789 mov 0,%i0 ret restore call %g2 nop .long 790 mov 0,%i0 ret restore call %g2 nop .long 791 mov 0,%i0 ret restore call %g2 nop .long 792 mov 0,%i0 ret restore call %g2 nop .long 793 mov 0,%i0 ret restore call %g2 nop .long 794 mov 0,%i0 ret restore call %g2 nop .long 795 mov 0,%i0 ret restore call %g2 nop .long 796 mov 0,%i0 ret restore call %g2 nop .long 797 mov 0,%i0 ret restore call %g2 nop .long 798 mov 0,%i0 ret restore call %g2 nop .long 799 mov 0,%i0 ret restore call %g2 nop .long 800 mov 0,%i0 ret restore call %g2 nop .long 801 mov 0,%i0 ret restore call %g2 nop .long 802 mov 0,%i0 ret restore call %g2 nop .long 803 mov 0,%i0 ret restore call %g2 nop .long 804 mov 0,%i0 ret restore call %g2 nop .long 805 mov 0,%i0 ret restore call %g2 nop .long 806 mov 0,%i0 ret restore call %g2 nop .long 807 mov 0,%i0 ret restore call %g2 nop .long 808 mov 0,%i0 ret restore call %g2 nop .long 809 mov 0,%i0 ret restore call %g2 nop .long 810 mov 0,%i0 ret restore call %g2 nop .long 811 mov 0,%i0 ret restore call %g2 nop .long 812 mov 0,%i0 ret restore call %g2 nop .long 813 mov 0,%i0 ret restore call %g2 nop .long 814 mov 0,%i0 ret restore call %g2 nop .long 815 mov 0,%i0 ret restore call %g2 nop .long 816 mov 0,%i0 ret restore call %g2 nop .long 817 mov 0,%i0 ret restore call %g2 nop .long 818 mov 0,%i0 ret restore call %g2 nop .long 819 mov 0,%i0 ret restore call %g2 nop .long 820 mov 0,%i0 ret restore call %g2 nop .long 821 mov 0,%i0 ret restore call %g2 nop .long 822 mov 0,%i0 ret restore call %g2 nop .long 823 mov 0,%i0 ret restore call %g2 nop .long 824 mov 0,%i0 ret restore call %g2 nop .long 825 mov 0,%i0 ret restore call %g2 nop .long 826 mov 0,%i0 ret restore call %g2 nop .long 827 mov 0,%i0 ret restore call %g2 nop .long 828 mov 0,%i0 ret restore call %g2 nop .long 829 mov 0,%i0 ret restore call %g2 nop .long 830 mov 0,%i0 ret restore call %g2 nop .long 831 mov 0,%i0 ret restore call %g2 nop .long 832 mov 0,%i0 ret restore call %g2 nop .long 833 mov 0,%i0 ret restore call %g2 nop .long 834 mov 0,%i0 ret restore call %g2 nop .long 835 mov 0,%i0 ret restore call %g2 nop .long 836 mov 0,%i0 ret restore call %g2 nop .long 837 mov 0,%i0 ret restore call %g2 nop .long 838 mov 0,%i0 ret restore call %g2 nop .long 839 mov 0,%i0 ret restore call %g2 nop .long 840 mov 0,%i0 ret restore call %g2 nop .long 841 mov 0,%i0 ret restore call %g2 nop .long 842 mov 0,%i0 ret restore call %g2 nop .long 843 mov 0,%i0 ret restore call %g2 nop .long 844 mov 0,%i0 ret restore call %g2 nop .long 845 mov 0,%i0 ret restore call %g2 nop .long 846 mov 0,%i0 ret restore call %g2 nop .long 847 mov 0,%i0 ret restore call %g2 nop .long 848 mov 0,%i0 ret restore call %g2 nop .long 849 mov 0,%i0 ret restore call %g2 nop .long 850 mov 0,%i0 ret restore call %g2 nop .long 851 mov 0,%i0 ret restore call %g2 nop .long 852 mov 0,%i0 ret restore call %g2 nop .long 853 mov 0,%i0 ret restore call %g2 nop .long 854 mov 0,%i0 ret restore call %g2 nop .long 855 mov 0,%i0 ret restore call %g2 nop .long 856 mov 0,%i0 ret restore call %g2 nop .long 857 mov 0,%i0 ret restore call %g2 nop .long 858 mov 0,%i0 ret restore call %g2 nop .long 859 mov 0,%i0 ret restore call %g2 nop .long 860 mov 0,%i0 ret restore call %g2 nop .long 861 mov 0,%i0 ret restore call %g2 nop .long 862 mov 0,%i0 ret restore call %g2 nop .long 863 mov 0,%i0 ret restore call %g2 nop .long 864 mov 0,%i0 ret restore call %g2 nop .long 865 mov 0,%i0 ret restore call %g2 nop .long 866 mov 0,%i0 ret restore call %g2 nop .long 867 mov 0,%i0 ret restore call %g2 nop .long 868 mov 0,%i0 ret restore call %g2 nop .long 869 mov 0,%i0 ret restore call %g2 nop .long 870 mov 0,%i0 ret restore call %g2 nop .long 871 mov 0,%i0 ret restore call %g2 nop .long 872 mov 0,%i0 ret restore call %g2 nop .long 873 mov 0,%i0 ret restore call %g2 nop .long 874 mov 0,%i0 ret restore call %g2 nop .long 875 mov 0,%i0 ret restore call %g2 nop .long 876 mov 0,%i0 ret restore call %g2 nop .long 877 mov 0,%i0 ret restore call %g2 nop .long 878 mov 0,%i0 ret restore call %g2 nop .long 879 mov 0,%i0 ret restore call %g2 nop .long 880 mov 0,%i0 ret restore call %g2 nop .long 881 mov 0,%i0 ret restore call %g2 nop .long 882 mov 0,%i0 ret restore call %g2 nop .long 883 mov 0,%i0 ret restore call %g2 nop .long 884 mov 0,%i0 ret restore call %g2 nop .long 885 mov 0,%i0 ret restore call %g2 nop .long 886 mov 0,%i0 ret restore call %g2 nop .long 887 mov 0,%i0 ret restore call %g2 nop .long 888 mov 0,%i0 ret restore call %g2 nop .long 889 mov 0,%i0 ret restore call %g2 nop .long 890 mov 0,%i0 ret restore call %g2 nop .long 891 mov 0,%i0 ret restore call %g2 nop .long 892 mov 0,%i0 ret restore call %g2 nop .long 893 mov 0,%i0 ret restore call %g2 nop .long 894 mov 0,%i0 ret restore call %g2 nop .long 895 mov 0,%i0 ret restore call %g2 nop .long 896 mov 0,%i0 ret restore call %g2 nop .long 897 mov 0,%i0 ret restore call %g2 nop .long 898 mov 0,%i0 ret restore call %g2 nop .long 899 mov 0,%i0 ret restore call %g2 nop .long 900 mov 0,%i0 ret restore call %g2 nop .long 901 mov 0,%i0 ret restore call %g2 nop .long 902 mov 0,%i0 ret restore call %g2 nop .long 903 mov 0,%i0 ret restore call %g2 nop .long 904 mov 0,%i0 ret restore call %g2 nop .long 905 mov 0,%i0 ret restore call %g2 nop .long 906 mov 0,%i0 ret restore call %g2 nop .long 907 mov 0,%i0 ret restore call %g2 nop .long 908 mov 0,%i0 ret restore call %g2 nop .long 909 mov 0,%i0 ret restore call %g2 nop .long 910 mov 0,%i0 ret restore call %g2 nop .long 911 mov 0,%i0 ret restore call %g2 nop .long 912 mov 0,%i0 ret restore call %g2 nop .long 913 mov 0,%i0 ret restore call %g2 nop .long 914 mov 0,%i0 ret restore call %g2 nop .long 915 mov 0,%i0 ret restore call %g2 nop .long 916 mov 0,%i0 ret restore call %g2 nop .long 917 mov 0,%i0 ret restore call %g2 nop .long 918 mov 0,%i0 ret restore call %g2 nop .long 919 mov 0,%i0 ret restore call %g2 nop .long 920 mov 0,%i0 ret restore call %g2 nop .long 921 mov 0,%i0 ret restore call %g2 nop .long 922 mov 0,%i0 ret restore call %g2 nop .long 923 mov 0,%i0 ret restore call %g2 nop .long 924 mov 0,%i0 ret restore call %g2 nop .long 925 mov 0,%i0 ret restore call %g2 nop .long 926 mov 0,%i0 ret restore call %g2 nop .long 927 mov 0,%i0 ret restore call %g2 nop .long 928 mov 0,%i0 ret restore call %g2 nop .long 929 mov 0,%i0 ret restore call %g2 nop .long 930 mov 0,%i0 ret restore call %g2 nop .long 931 mov 0,%i0 ret restore call %g2 nop .long 932 mov 0,%i0 ret restore call %g2 nop .long 933 mov 0,%i0 ret restore call %g2 nop .long 934 mov 0,%i0 ret restore call %g2 nop .long 935 mov 0,%i0 ret restore call %g2 nop .long 936 mov 0,%i0 ret restore call %g2 nop .long 937 mov 0,%i0 ret restore call %g2 nop .long 938 mov 0,%i0 ret restore call %g2 nop .long 939 mov 0,%i0 ret restore call %g2 nop .long 940 mov 0,%i0 ret restore call %g2 nop .long 941 mov 0,%i0 ret restore call %g2 nop .long 942 mov 0,%i0 ret restore call %g2 nop .long 943 mov 0,%i0 ret restore call %g2 nop .long 944 mov 0,%i0 ret restore call %g2 nop .long 945 mov 0,%i0 ret restore call %g2 nop .long 946 mov 0,%i0 ret restore call %g2 nop .long 947 mov 0,%i0 ret restore call %g2 nop .long 948 mov 0,%i0 ret restore call %g2 nop .long 949 mov 0,%i0 ret restore call %g2 nop .long 950 mov 0,%i0 ret restore call %g2 nop .long 951 mov 0,%i0 ret restore call %g2 nop .long 952 mov 0,%i0 ret restore call %g2 nop .long 953 mov 0,%i0 ret restore call %g2 nop .long 954 mov 0,%i0 ret restore call %g2 nop .long 955 mov 0,%i0 ret restore call %g2 nop .long 956 mov 0,%i0 ret restore call %g2 nop .long 957 mov 0,%i0 ret restore call %g2 nop .long 958 mov 0,%i0 ret restore call %g2 nop .long 959 mov 0,%i0 ret restore call %g2 nop .long 960 mov 0,%i0 ret restore call %g2 nop .long 961 mov 0,%i0 ret restore call %g2 nop .long 962 mov 0,%i0 ret restore call %g2 nop .long 963 mov 0,%i0 ret restore call %g2 nop .long 964 mov 0,%i0 ret restore call %g2 nop .long 965 mov 0,%i0 ret restore call %g2 nop .long 966 mov 0,%i0 ret restore call %g2 nop .long 967 mov 0,%i0 ret restore call %g2 nop .long 968 mov 0,%i0 ret restore call %g2 nop .long 969 mov 0,%i0 ret restore call %g2 nop .long 970 mov 0,%i0 ret restore call %g2 nop .long 971 mov 0,%i0 ret restore call %g2 nop .long 972 mov 0,%i0 ret restore call %g2 nop .long 973 mov 0,%i0 ret restore call %g2 nop .long 974 mov 0,%i0 ret restore call %g2 nop .long 975 mov 0,%i0 ret restore call %g2 nop .long 976 mov 0,%i0 ret restore call %g2 nop .long 977 mov 0,%i0 ret restore call %g2 nop .long 978 mov 0,%i0 ret restore call %g2 nop .long 979 mov 0,%i0 ret restore call %g2 nop .long 980 mov 0,%i0 ret restore call %g2 nop .long 981 mov 0,%i0 ret restore call %g2 nop .long 982 mov 0,%i0 ret restore call %g2 nop .long 983 mov 0,%i0 ret restore call %g2 nop .long 984 mov 0,%i0 ret restore call %g2 nop .long 985 mov 0,%i0 ret restore call %g2 nop .long 986 mov 0,%i0 ret restore call %g2 nop .long 987 mov 0,%i0 ret restore call %g2 nop .long 988 mov 0,%i0 ret restore call %g2 nop .long 989 mov 0,%i0 ret restore call %g2 nop .long 990 mov 0,%i0 ret restore call %g2 nop .long 991 mov 0,%i0 ret restore call %g2 nop .long 992 mov 0,%i0 ret restore call %g2 nop .long 993 mov 0,%i0 ret restore call %g2 nop .long 994 mov 0,%i0 ret restore call %g2 nop .long 995 mov 0,%i0 ret restore call %g2 nop .long 996 mov 0,%i0 ret restore call %g2 nop .long 997 mov 0,%i0 ret restore call %g2 nop .long 998 mov 0,%i0 ret restore call %g2 nop .long 999 mov 0,%i0 ret restore call %g2 nop .long 1000 mov 0,%i0 ret restore call %g2 nop .long 1001 mov 0,%i0 ret restore call %g2 nop .long 1002 mov 0,%i0 ret restore call %g2 nop .long 1003 mov 0,%i0 ret restore call %g2 nop .long 1004 mov 0,%i0 ret restore call %g2 nop .long 1005 mov 0,%i0 ret restore call %g2 nop .long 1006 mov 0,%i0 ret restore call %g2 nop .long 1007 mov 0,%i0 ret restore call %g2 nop .long 1008 mov 0,%i0 ret restore call %g2 nop .long 1009 mov 0,%i0 ret restore call %g2 nop .long 1010 mov 0,%i0 ret restore call %g2 nop .long 1011 mov 0,%i0 ret restore call %g2 nop .long 1012 mov 0,%i0 ret restore call %g2 nop .long 1013 mov 0,%i0 ret restore call %g2 nop .long 1014 mov 0,%i0 ret restore call %g2 nop .long 1015 mov 0,%i0 ret restore call %g2 nop .long 1016 mov 0,%i0 ret restore call %g2 nop .long 1017 mov 0,%i0 ret restore call %g2 nop .long 1018 mov 0,%i0 ret restore call %g2 nop .long 1019 mov 0,%i0 ret restore call %g2 nop .long 1020 mov 0,%i0 ret restore call %g2 nop .long 1021 mov 0,%i0 ret restore call %g2 nop .long 1022 mov 0,%i0 ret restore call %g2 nop .long 1023 mov 0,%i0 ret restore call %g2 nop .long 1024 mov 0,%i0 ret restore call %g2 nop .long 1025 mov 0,%i0 ret restore call %g2 nop .long 1026 mov 0,%i0 ret restore call %g2 nop .long 1027 mov 0,%i0 ret restore call %g2 nop .long 1028 mov 0,%i0 ret restore call %g2 nop .long 1029 mov 0,%i0 ret restore call %g2 nop .long 1030 mov 0,%i0 ret restore call %g2 nop .long 1031 mov 0,%i0 ret restore call %g2 nop .long 1032 mov 0,%i0 ret restore call %g2 nop .long 1033 mov 0,%i0 ret restore call %g2 nop .long 1034 mov 0,%i0 ret restore call %g2 nop .long 1035 mov 0,%i0 ret restore call %g2 nop .long 1036 mov 0,%i0 ret restore call %g2 nop .long 1037 mov 0,%i0 ret restore call %g2 nop .long 1038 mov 0,%i0 ret restore call %g2 nop .long 1039 mov 0,%i0 ret restore call %g2 nop .long 1040 mov 0,%i0 ret restore call %g2 nop .long 1041 mov 0,%i0 ret restore call %g2 nop .long 1042 mov 0,%i0 ret restore call %g2 nop .long 1043 mov 0,%i0 ret restore call %g2 nop .long 1044 mov 0,%i0 ret restore call %g2 nop .long 1045 mov 0,%i0 ret restore call %g2 nop .long 1046 mov 0,%i0 ret restore call %g2 nop .long 1047 mov 0,%i0 ret restore call %g2 nop .long 1048 mov 0,%i0 ret restore call %g2 nop .long 1049 mov 0,%i0 ret restore call %g2 nop .long 1050 mov 0,%i0 ret restore call %g2 nop .long 1051 mov 0,%i0 ret restore call %g2 nop .long 1052 mov 0,%i0 ret restore call %g2 nop .long 1053 mov 0,%i0 ret restore call %g2 nop .long 1054 mov 0,%i0 ret restore call %g2 nop .long 1055 mov 0,%i0 ret restore call %g2 nop .long 1056 mov 0,%i0 ret restore call %g2 nop .long 1057 mov 0,%i0 ret restore call %g2 nop .long 1058 mov 0,%i0 ret restore call %g2 nop .long 1059 mov 0,%i0 ret restore call %g2 nop .long 1060 mov 0,%i0 ret restore call %g2 nop .long 1061 mov 0,%i0 ret restore call %g2 nop .long 1062 mov 0,%i0 ret restore call %g2 nop .long 1063 mov 0,%i0 ret restore call %g2 nop .long 1064 mov 0,%i0 ret restore call %g2 nop .long 1065 mov 0,%i0 ret restore call %g2 nop .long 1066 mov 0,%i0 ret restore call %g2 nop .long 1067 mov 0,%i0 ret restore call %g2 nop .long 1068 mov 0,%i0 ret restore call %g2 nop .long 1069 mov 0,%i0 ret restore call %g2 nop .long 1070 mov 0,%i0 ret restore call %g2 nop .long 1071 mov 0,%i0 ret restore call %g2 nop .long 1072 mov 0,%i0 ret restore call %g2 nop .long 1073 mov 0,%i0 ret restore call %g2 nop .long 1074 mov 0,%i0 ret restore call %g2 nop .long 1075 mov 0,%i0 ret restore call %g2 nop .long 1076 mov 0,%i0 ret restore call %g2 nop .long 1077 mov 0,%i0 ret restore call %g2 nop .long 1078 mov 0,%i0 ret restore call %g2 nop .long 1079 mov 0,%i0 ret restore call %g2 nop .long 1080 mov 0,%i0 ret restore call %g2 nop .long 1081 mov 0,%i0 ret restore call %g2 nop .long 1082 mov 0,%i0 ret restore call %g2 nop .long 1083 mov 0,%i0 ret restore call %g2 nop .long 1084 mov 0,%i0 ret restore call %g2 nop .long 1085 mov 0,%i0 ret restore call %g2 nop .long 1086 mov 0,%i0 ret restore call %g2 nop .long 1087 mov 0,%i0 ret restore call %g2 nop .long 1088 mov 0,%i0 ret restore call %g2 nop .long 1089 mov 0,%i0 ret restore call %g2 nop .long 1090 mov 0,%i0 ret restore call %g2 nop .long 1091 mov 0,%i0 ret restore call %g2 nop .long 1092 mov 0,%i0 ret restore call %g2 nop .long 1093 mov 0,%i0 ret restore call %g2 nop .long 1094 mov 0,%i0 ret restore call %g2 nop .long 1095 mov 0,%i0 ret restore call %g2 nop .long 1096 mov 0,%i0 ret restore call %g2 nop .long 1097 mov 0,%i0 ret restore call %g2 nop .long 1098 mov 0,%i0 ret restore call %g2 nop .long 1099 mov 0,%i0 ret restore call %g2 nop .long 1100 mov 0,%i0 ret restore call %g2 nop .long 1101 mov 0,%i0 ret restore call %g2 nop .long 1102 mov 0,%i0 ret restore call %g2 nop .long 1103 mov 0,%i0 ret restore call %g2 nop .long 1104 mov 0,%i0 ret restore call %g2 nop .long 1105 mov 0,%i0 ret restore call %g2 nop .long 1106 mov 0,%i0 ret restore call %g2 nop .long 1107 mov 0,%i0 ret restore call %g2 nop .long 1108 mov 0,%i0 ret restore call %g2 nop .long 1109 mov 0,%i0 ret restore call %g2 nop .long 1110 mov 0,%i0 ret restore call %g2 nop .long 1111 mov 0,%i0 ret restore call %g2 nop .long 1112 mov 0,%i0 ret restore call %g2 nop .long 1113 mov 0,%i0 ret restore call %g2 nop .long 1114 mov 0,%i0 ret restore call %g2 nop .long 1115 mov 0,%i0 ret restore call %g2 nop .long 1116 mov 0,%i0 ret restore call %g2 nop .long 1117 mov 0,%i0 ret restore call %g2 nop .long 1118 mov 0,%i0 ret restore call %g2 nop .long 1119 mov 0,%i0 ret restore call %g2 nop .long 1120 mov 0,%i0 ret restore call %g2 nop .long 1121 mov 0,%i0 ret restore call %g2 nop .long 1122 mov 0,%i0 ret restore call %g2 nop .long 1123 mov 0,%i0 ret restore call %g2 nop .long 1124 mov 0,%i0 ret restore call %g2 nop .long 1125 mov 0,%i0 ret restore call %g2 nop .long 1126 mov 0,%i0 ret restore call %g2 nop .long 1127 mov 0,%i0 ret restore call %g2 nop .long 1128 mov 0,%i0 ret restore call %g2 nop .long 1129 mov 0,%i0 ret restore call %g2 nop .long 1130 mov 0,%i0 ret restore call %g2 nop .long 1131 mov 0,%i0 ret restore call %g2 nop .long 1132 mov 0,%i0 ret restore call %g2 nop .long 1133 mov 0,%i0 ret restore call %g2 nop .long 1134 mov 0,%i0 ret restore call %g2 nop .long 1135 mov 0,%i0 ret restore call %g2 nop .long 1136 mov 0,%i0 ret restore call %g2 nop .long 1137 mov 0,%i0 ret restore call %g2 nop .long 1138 mov 0,%i0 ret restore call %g2 nop .long 1139 mov 0,%i0 ret restore call %g2 nop .long 1140 mov 0,%i0 ret restore call %g2 nop .long 1141 mov 0,%i0 ret restore call %g2 nop .long 1142 mov 0,%i0 ret restore call %g2 nop .long 1143 mov 0,%i0 ret restore call %g2 nop .long 1144 mov 0,%i0 ret restore call %g2 nop .long 1145 mov 0,%i0 ret restore call %g2 nop .long 1146 mov 0,%i0 ret restore call %g2 nop .long 1147 mov 0,%i0 ret restore call %g2 nop .long 1148 mov 0,%i0 ret restore call %g2 nop .long 1149 mov 0,%i0 ret restore call %g2 nop .long 1150 mov 0,%i0 ret restore call %g2 nop .long 1151 mov 0,%i0 ret restore call %g2 nop .long 1152 mov 0,%i0 ret restore call %g2 nop .long 1153 mov 0,%i0 ret restore call %g2 nop .long 1154 mov 0,%i0 ret restore call %g2 nop .long 1155 mov 0,%i0 ret restore call %g2 nop .long 1156 mov 0,%i0 ret restore call %g2 nop .long 1157 mov 0,%i0 ret restore call %g2 nop .long 1158 mov 0,%i0 ret restore call %g2 nop .long 1159 mov 0,%i0 ret restore call %g2 nop .long 1160 mov 0,%i0 ret restore call %g2 nop .long 1161 mov 0,%i0 ret restore call %g2 nop .long 1162 mov 0,%i0 ret restore call %g2 nop .long 1163 mov 0,%i0 ret restore call %g2 nop .long 1164 mov 0,%i0 ret restore call %g2 nop .long 1165 mov 0,%i0 ret restore call %g2 nop .long 1166 mov 0,%i0 ret restore call %g2 nop .long 1167 mov 0,%i0 ret restore call %g2 nop .long 1168 mov 0,%i0 ret restore call %g2 nop .long 1169 mov 0,%i0 ret restore call %g2 nop .long 1170 mov 0,%i0 ret restore call %g2 nop .long 1171 mov 0,%i0 ret restore call %g2 nop .long 1172 mov 0,%i0 ret restore call %g2 nop .long 1173 mov 0,%i0 ret restore call %g2 nop .long 1174 mov 0,%i0 ret restore call %g2 nop .long 1175 mov 0,%i0 ret restore call %g2 nop .long 1176 mov 0,%i0 ret restore call %g2 nop .long 1177 mov 0,%i0 ret restore call %g2 nop .long 1178 mov 0,%i0 ret restore call %g2 nop .long 1179 mov 0,%i0 ret restore call %g2 nop .long 1180 mov 0,%i0 ret restore call %g2 nop .long 1181 mov 0,%i0 ret restore call %g2 nop .long 1182 mov 0,%i0 ret restore call %g2 nop .long 1183 mov 0,%i0 ret restore call %g2 nop .long 1184 mov 0,%i0 ret restore call %g2 nop .long 1185 mov 0,%i0 ret restore call %g2 nop .long 1186 mov 0,%i0 ret restore call %g2 nop .long 1187 mov 0,%i0 ret restore call %g2 nop .long 1188 mov 0,%i0 ret restore call %g2 nop .long 1189 mov 0,%i0 ret restore call %g2 nop .long 1190 mov 0,%i0 ret restore call %g2 nop .long 1191 mov 0,%i0 ret restore call %g2 nop .long 1192 mov 0,%i0 ret restore call %g2 nop .long 1193 mov 0,%i0 ret restore call %g2 nop .long 1194 mov 0,%i0 ret restore call %g2 nop .long 1195 mov 0,%i0 ret restore call %g2 nop .long 1196 mov 0,%i0 ret restore call %g2 nop .long 1197 mov 0,%i0 ret restore call %g2 nop .long 1198 mov 0,%i0 ret restore call %g2 nop .long 1199 mov 0,%i0 ret restore call %g2 nop .long 1200 mov 0,%i0 ret restore call %g2 nop .long 1201 mov 0,%i0 ret restore call %g2 nop .long 1202 mov 0,%i0 ret restore call %g2 nop .long 1203 mov 0,%i0 ret restore call %g2 nop .long 1204 mov 0,%i0 ret restore call %g2 nop .long 1205 mov 0,%i0 ret restore call %g2 nop .long 1206 mov 0,%i0 ret restore call %g2 nop .long 1207 mov 0,%i0 ret restore call %g2 nop .long 1208 mov 0,%i0 ret restore call %g2 nop .long 1209 mov 0,%i0 ret restore call %g2 nop .long 1210 mov 0,%i0 ret restore call %g2 nop .long 1211 mov 0,%i0 ret restore call %g2 nop .long 1212 mov 0,%i0 ret restore call %g2 nop .long 1213 mov 0,%i0 ret restore call %g2 nop .long 1214 mov 0,%i0 ret restore call %g2 nop .long 1215 mov 0,%i0 ret restore call %g2 nop .long 1216 mov 0,%i0 ret restore call %g2 nop .long 1217 mov 0,%i0 ret restore call %g2 nop .long 1218 mov 0,%i0 ret restore call %g2 nop .long 1219 mov 0,%i0 ret restore call %g2 nop .long 1220 mov 0,%i0 ret restore call %g2 nop .long 1221 mov 0,%i0 ret restore call %g2 nop .long 1222 mov 0,%i0 ret restore call %g2 nop .long 1223 mov 0,%i0 ret restore call %g2 nop .long 1224 mov 0,%i0 ret restore call %g2 nop .long 1225 mov 0,%i0 ret restore call %g2 nop .long 1226 mov 0,%i0 ret restore call %g2 nop .long 1227 mov 0,%i0 ret restore call %g2 nop .long 1228 mov 0,%i0 ret restore call %g2 nop .long 1229 mov 0,%i0 ret restore call %g2 nop .long 1230 mov 0,%i0 ret restore call %g2 nop .long 1231 mov 0,%i0 ret restore call %g2 nop .long 1232 mov 0,%i0 ret restore call %g2 nop .long 1233 mov 0,%i0 ret restore call %g2 nop .long 1234 mov 0,%i0 ret restore call %g2 nop .long 1235 mov 0,%i0 ret restore call %g2 nop .long 1236 mov 0,%i0 ret restore call %g2 nop .long 1237 mov 0,%i0 ret restore call %g2 nop .long 1238 mov 0,%i0 ret restore call %g2 nop .long 1239 mov 0,%i0 ret restore call %g2 nop .long 1240 mov 0,%i0 ret restore call %g2 nop .long 1241 mov 0,%i0 ret restore call %g2 nop .long 1242 mov 0,%i0 ret restore call %g2 nop .long 1243 mov 0,%i0 ret restore call %g2 nop .long 1244 mov 0,%i0 ret restore call %g2 nop .long 1245 mov 0,%i0 ret restore call %g2 nop .long 1246 mov 0,%i0 ret restore call %g2 nop .long 1247 mov 0,%i0 ret restore call %g2 nop .long 1248 mov 0,%i0 ret restore call %g2 nop .long 1249 mov 0,%i0 ret restore call %g2 nop .long 1250 mov 0,%i0 ret restore call %g2 nop .long 1251 mov 0,%i0 ret restore call %g2 nop .long 1252 mov 0,%i0 ret restore call %g2 nop .long 1253 mov 0,%i0 ret restore call %g2 nop .long 1254 mov 0,%i0 ret restore call %g2 nop .long 1255 mov 0,%i0 ret restore call %g2 nop .long 1256 mov 0,%i0 ret restore call %g2 nop .long 1257 mov 0,%i0 ret restore call %g2 nop .long 1258 mov 0,%i0 ret restore call %g2 nop .long 1259 mov 0,%i0 ret restore call %g2 nop .long 1260 mov 0,%i0 ret restore call %g2 nop .long 1261 mov 0,%i0 ret restore call %g2 nop .long 1262 mov 0,%i0 ret restore call %g2 nop .long 1263 mov 0,%i0 ret restore call %g2 nop .long 1264 mov 0,%i0 ret restore call %g2 nop .long 1265 mov 0,%i0 ret restore call %g2 nop .long 1266 mov 0,%i0 ret restore call %g2 nop .long 1267 mov 0,%i0 ret restore call %g2 nop .long 1268 mov 0,%i0 ret restore call %g2 nop .long 1269 mov 0,%i0 ret restore call %g2 nop .long 1270 mov 0,%i0 ret restore call %g2 nop .long 1271 mov 0,%i0 ret restore call %g2 nop .long 1272 mov 0,%i0 ret restore call %g2 nop .long 1273 mov 0,%i0 ret restore call %g2 nop .long 1274 mov 0,%i0 ret restore call %g2 nop .long 1275 mov 0,%i0 ret restore call %g2 nop .long 1276 mov 0,%i0 ret restore call %g2 nop .long 1277 mov 0,%i0 ret restore call %g2 nop .long 1278 mov 0,%i0 ret restore call %g2 nop .long 1279 mov 0,%i0 ret restore call %g2 nop .long 1280 mov 0,%i0 ret restore call %g2 nop .long 1281 mov 0,%i0 ret restore call %g2 nop .long 1282 mov 0,%i0 ret restore call %g2 nop .long 1283 mov 0,%i0 ret restore call %g2 nop .long 1284 mov 0,%i0 ret restore call %g2 nop .long 1285 mov 0,%i0 ret restore call %g2 nop .long 1286 mov 0,%i0 ret restore call %g2 nop .long 1287 mov 0,%i0 ret restore call %g2 nop .long 1288 mov 0,%i0 ret restore call %g2 nop .long 1289 mov 0,%i0 ret restore call %g2 nop .long 1290 mov 0,%i0 ret restore call %g2 nop .long 1291 mov 0,%i0 ret restore call %g2 nop .long 1292 mov 0,%i0 ret restore call %g2 nop .long 1293 mov 0,%i0 ret restore call %g2 nop .long 1294 mov 0,%i0 ret restore call %g2 nop .long 1295 mov 0,%i0 ret restore call %g2 nop .long 1296 mov 0,%i0 ret restore call %g2 nop .long 1297 mov 0,%i0 ret restore call %g2 nop .long 1298 mov 0,%i0 ret restore call %g2 nop .long 1299 mov 0,%i0 ret restore call %g2 nop .long 1300 mov 0,%i0 ret restore call %g2 nop .long 1301 mov 0,%i0 ret restore call %g2 nop .long 1302 mov 0,%i0 ret restore call %g2 nop .long 1303 mov 0,%i0 ret restore call %g2 nop .long 1304 mov 0,%i0 ret restore call %g2 nop .long 1305 mov 0,%i0 ret restore call %g2 nop .long 1306 mov 0,%i0 ret restore call %g2 nop .long 1307 mov 0,%i0 ret restore call %g2 nop .long 1308 mov 0,%i0 ret restore call %g2 nop .long 1309 mov 0,%i0 ret restore call %g2 nop .long 1310 mov 0,%i0 ret restore call %g2 nop .long 1311 mov 0,%i0 ret restore call %g2 nop .long 1312 mov 0,%i0 ret restore call %g2 nop .long 1313 mov 0,%i0 ret restore call %g2 nop .long 1314 mov 0,%i0 ret restore call %g2 nop .long 1315 mov 0,%i0 ret restore call %g2 nop .long 1316 mov 0,%i0 ret restore call %g2 nop .long 1317 mov 0,%i0 ret restore call %g2 nop .long 1318 mov 0,%i0 ret restore call %g2 nop .long 1319 mov 0,%i0 ret restore call %g2 nop .long 1320 mov 0,%i0 ret restore call %g2 nop .long 1321 mov 0,%i0 ret restore call %g2 nop .long 1322 mov 0,%i0 ret restore call %g2 nop .long 1323 mov 0,%i0 ret restore call %g2 nop .long 1324 mov 0,%i0 ret restore call %g2 nop .long 1325 mov 0,%i0 ret restore call %g2 nop .long 1326 mov 0,%i0 ret restore call %g2 nop .long 1327 mov 0,%i0 ret restore call %g2 nop .long 1328 mov 0,%i0 ret restore call %g2 nop .long 1329 mov 0,%i0 ret restore call %g2 nop .long 1330 mov 0,%i0 ret restore call %g2 nop .long 1331 mov 0,%i0 ret restore call %g2 nop .long 1332 mov 0,%i0 ret restore call %g2 nop .long 1333 mov 0,%i0 ret restore call %g2 nop .long 1334 mov 0,%i0 ret restore call %g2 nop .long 1335 mov 0,%i0 ret restore call %g2 nop .long 1336 mov 0,%i0 ret restore call %g2 nop .long 1337 mov 0,%i0 ret restore call %g2 nop .long 1338 mov 0,%i0 ret restore call %g2 nop .long 1339 mov 0,%i0 ret restore call %g2 nop .long 1340 mov 0,%i0 ret restore call %g2 nop .long 1341 mov 0,%i0 ret restore call %g2 nop .long 1342 mov 0,%i0 ret restore call %g2 nop .long 1343 mov 0,%i0 ret restore call %g2 nop .long 1344 mov 0,%i0 ret restore call %g2 nop .long 1345 mov 0,%i0 ret restore call %g2 nop .long 1346 mov 0,%i0 ret restore call %g2 nop .long 1347 mov 0,%i0 ret restore call %g2 nop .long 1348 mov 0,%i0 ret restore call %g2 nop .long 1349 mov 0,%i0 ret restore call %g2 nop .long 1350 mov 0,%i0 ret restore call %g2 nop .long 1351 mov 0,%i0 ret restore call %g2 nop .long 1352 mov 0,%i0 ret restore call %g2 nop .long 1353 mov 0,%i0 ret restore call %g2 nop .long 1354 mov 0,%i0 ret restore call %g2 nop .long 1355 mov 0,%i0 ret restore call %g2 nop .long 1356 mov 0,%i0 ret restore call %g2 nop .long 1357 mov 0,%i0 ret restore call %g2 nop .long 1358 mov 0,%i0 ret restore call %g2 nop .long 1359 mov 0,%i0 ret restore call %g2 nop .long 1360 mov 0,%i0 ret restore call %g2 nop .long 1361 mov 0,%i0 ret restore call %g2 nop .long 1362 mov 0,%i0 ret restore call %g2 nop .long 1363 mov 0,%i0 ret restore call %g2 nop .long 1364 mov 0,%i0 ret restore call %g2 nop .long 1365 mov 0,%i0 ret restore call %g2 nop .long 1366 mov 0,%i0 ret restore call %g2 nop .long 1367 mov 0,%i0 ret restore call %g2 nop .long 1368 mov 0,%i0 ret restore call %g2 nop .long 1369 mov 0,%i0 ret restore call %g2 nop .long 1370 mov 0,%i0 ret restore call %g2 nop .long 1371 mov 0,%i0 ret restore call %g2 nop .long 1372 mov 0,%i0 ret restore call %g2 nop .long 1373 mov 0,%i0 ret restore call %g2 nop .long 1374 mov 0,%i0 ret restore call %g2 nop .long 1375 mov 0,%i0 ret restore call %g2 nop .long 1376 mov 0,%i0 ret restore call %g2 nop .long 1377 mov 0,%i0 ret restore call %g2 nop .long 1378 mov 0,%i0 ret restore call %g2 nop .long 1379 mov 0,%i0 ret restore call %g2 nop .long 1380 mov 0,%i0 ret restore call %g2 nop .long 1381 mov 0,%i0 ret restore call %g2 nop .long 1382 mov 0,%i0 ret restore call %g2 nop .long 1383 mov 0,%i0 ret restore call %g2 nop .long 1384 mov 0,%i0 ret restore call %g2 nop .long 1385 mov 0,%i0 ret restore call %g2 nop .long 1386 mov 0,%i0 ret restore call %g2 nop .long 1387 mov 0,%i0 ret restore call %g2 nop .long 1388 mov 0,%i0 ret restore call %g2 nop .long 1389 mov 0,%i0 ret restore call %g2 nop .long 1390 mov 0,%i0 ret restore call %g2 nop .long 1391 mov 0,%i0 ret restore call %g2 nop .long 1392 mov 0,%i0 ret restore call %g2 nop .long 1393 mov 0,%i0 ret restore call %g2 nop .long 1394 mov 0,%i0 ret restore call %g2 nop .long 1395 mov 0,%i0 ret restore call %g2 nop .long 1396 mov 0,%i0 ret restore call %g2 nop .long 1397 mov 0,%i0 ret restore call %g2 nop .long 1398 mov 0,%i0 ret restore call %g2 nop .long 1399 mov 0,%i0 ret restore call %g2 nop .long 1400 mov 0,%i0 ret restore call %g2 nop .long 1401 mov 0,%i0 ret restore call %g2 nop .long 1402 mov 0,%i0 ret restore call %g2 nop .long 1403 mov 0,%i0 ret restore call %g2 nop .long 1404 mov 0,%i0 ret restore call %g2 nop .long 1405 mov 0,%i0 ret restore call %g2 nop .long 1406 mov 0,%i0 ret restore call %g2 nop .long 1407 mov 0,%i0 ret restore call %g2 nop .long 1408 mov 0,%i0 ret restore call %g2 nop .long 1409 mov 0,%i0 ret restore call %g2 nop .long 1410 mov 0,%i0 ret restore call %g2 nop .long 1411 mov 0,%i0 ret restore call %g2 nop .long 1412 mov 0,%i0 ret restore call %g2 nop .long 1413 mov 0,%i0 ret restore call %g2 nop .long 1414 mov 0,%i0 ret restore call %g2 nop .long 1415 mov 0,%i0 ret restore call %g2 nop .long 1416 mov 0,%i0 ret restore call %g2 nop .long 1417 mov 0,%i0 ret restore call %g2 nop .long 1418 mov 0,%i0 ret restore call %g2 nop .long 1419 mov 0,%i0 ret restore call %g2 nop .long 1420 mov 0,%i0 ret restore call %g2 nop .long 1421 mov 0,%i0 ret restore call %g2 nop .long 1422 mov 0,%i0 ret restore call %g2 nop .long 1423 mov 0,%i0 ret restore call %g2 nop .long 1424 mov 0,%i0 ret restore call %g2 nop .long 1425 mov 0,%i0 ret restore call %g2 nop .long 1426 mov 0,%i0 ret restore call %g2 nop .long 1427 mov 0,%i0 ret restore call %g2 nop .long 1428 mov 0,%i0 ret restore call %g2 nop .long 1429 mov 0,%i0 ret restore call %g2 nop .long 1430 mov 0,%i0 ret restore call %g2 nop .long 1431 mov 0,%i0 ret restore call %g2 nop .long 1432 mov 0,%i0 ret restore call %g2 nop .long 1433 mov 0,%i0 ret restore call %g2 nop .long 1434 mov 0,%i0 ret restore call %g2 nop .long 1435 mov 0,%i0 ret restore call %g2 nop .long 1436 mov 0,%i0 ret restore call %g2 nop .long 1437 mov 0,%i0 ret restore call %g2 nop .long 1438 mov 0,%i0 ret restore call %g2 nop .long 1439 mov 0,%i0 ret restore call %g2 nop .long 1440 mov 0,%i0 ret restore call %g2 nop .long 1441 mov 0,%i0 ret restore call %g2 nop .long 1442 mov 0,%i0 ret restore call %g2 nop .long 1443 mov 0,%i0 ret restore call %g2 nop .long 1444 mov 0,%i0 ret restore call %g2 nop .long 1445 mov 0,%i0 ret restore call %g2 nop .long 1446 mov 0,%i0 ret restore call %g2 nop .long 1447 mov 0,%i0 ret restore call %g2 nop .long 1448 mov 0,%i0 ret restore call %g2 nop .long 1449 mov 0,%i0 ret restore call %g2 nop .long 1450 mov 0,%i0 ret restore call %g2 nop .long 1451 mov 0,%i0 ret restore call %g2 nop .long 1452 mov 0,%i0 ret restore call %g2 nop .long 1453 mov 0,%i0 ret restore call %g2 nop .long 1454 mov 0,%i0 ret restore call %g2 nop .long 1455 mov 0,%i0 ret restore call %g2 nop .long 1456 mov 0,%i0 ret restore call %g2 nop .long 1457 mov 0,%i0 ret restore call %g2 nop .long 1458 mov 0,%i0 ret restore call %g2 nop .long 1459 mov 0,%i0 ret restore call %g2 nop .long 1460 mov 0,%i0 ret restore call %g2 nop .long 1461 mov 0,%i0 ret restore call %g2 nop .long 1462 mov 0,%i0 ret restore call %g2 nop .long 1463 mov 0,%i0 ret restore call %g2 nop .long 1464 mov 0,%i0 ret restore call %g2 nop .long 1465 mov 0,%i0 ret restore call %g2 nop .long 1466 mov 0,%i0 ret restore call %g2 nop .long 1467 mov 0,%i0 ret restore call %g2 nop .long 1468 mov 0,%i0 ret restore call %g2 nop .long 1469 mov 0,%i0 ret restore call %g2 nop .long 1470 mov 0,%i0 ret restore call %g2 nop .long 1471 mov 0,%i0 ret restore call %g2 nop .long 1472 mov 0,%i0 ret restore call %g2 nop .long 1473 mov 0,%i0 ret restore call %g2 nop .long 1474 mov 0,%i0 ret restore call %g2 nop .long 1475 mov 0,%i0 ret restore call %g2 nop .long 1476 mov 0,%i0 ret restore call %g2 nop .long 1477 mov 0,%i0 ret restore call %g2 nop .long 1478 mov 0,%i0 ret restore call %g2 nop .long 1479 mov 0,%i0 ret restore call %g2 nop .long 1480 mov 0,%i0 ret restore call %g2 nop .long 1481 mov 0,%i0 ret restore call %g2 nop .long 1482 mov 0,%i0 ret restore call %g2 nop .long 1483 mov 0,%i0 ret restore call %g2 nop .long 1484 mov 0,%i0 ret restore call %g2 nop .long 1485 mov 0,%i0 ret restore call %g2 nop .long 1486 mov 0,%i0 ret restore call %g2 nop .long 1487 mov 0,%i0 ret restore call %g2 nop .long 1488 mov 0,%i0 ret restore call %g2 nop .long 1489 mov 0,%i0 ret restore call %g2 nop .long 1490 mov 0,%i0 ret restore call %g2 nop .long 1491 mov 0,%i0 ret restore call %g2 nop .long 1492 mov 0,%i0 ret restore call %g2 nop .long 1493 mov 0,%i0 ret restore call %g2 nop .long 1494 mov 0,%i0 ret restore call %g2 nop .long 1495 mov 0,%i0 ret restore call %g2 nop .long 1496 mov 0,%i0 ret restore call %g2 nop .long 1497 mov 0,%i0 ret restore call %g2 nop .long 1498 mov 0,%i0 ret restore call %g2 nop .long 1499 mov 0,%i0 ret restore call %g2 nop .long 1500 mov 0,%i0 ret restore call %g2 nop .long 1501 mov 0,%i0 ret restore call %g2 nop .long 1502 mov 0,%i0 ret restore call %g2 nop .long 1503 mov 0,%i0 ret restore call %g2 nop .long 1504 mov 0,%i0 ret restore call %g2 nop .long 1505 mov 0,%i0 ret restore call %g2 nop .long 1506 mov 0,%i0 ret restore call %g2 nop .long 1507 mov 0,%i0 ret restore call %g2 nop .long 1508 mov 0,%i0 ret restore call %g2 nop .long 1509 mov 0,%i0 ret restore call %g2 nop .long 1510 mov 0,%i0 ret restore call %g2 nop .long 1511 mov 0,%i0 ret restore call %g2 nop .long 1512 mov 0,%i0 ret restore call %g2 nop .long 1513 mov 0,%i0 ret restore call %g2 nop .long 1514 mov 0,%i0 ret restore call %g2 nop .long 1515 mov 0,%i0 ret restore call %g2 nop .long 1516 mov 0,%i0 ret restore call %g2 nop .long 1517 mov 0,%i0 ret restore call %g2 nop .long 1518 mov 0,%i0 ret restore call %g2 nop .long 1519 mov 0,%i0 ret restore call %g2 nop .long 1520 mov 0,%i0 ret restore call %g2 nop .long 1521 mov 0,%i0 ret restore call %g2 nop .long 1522 mov 0,%i0 ret restore call %g2 nop .long 1523 mov 0,%i0 ret restore call %g2 nop .long 1524 mov 0,%i0 ret restore call %g2 nop .long 1525 mov 0,%i0 ret restore call %g2 nop .long 1526 mov 0,%i0 ret restore call %g2 nop .long 1527 mov 0,%i0 ret restore call %g2 nop .long 1528 mov 0,%i0 ret restore call %g2 nop .long 1529 mov 0,%i0 ret restore call %g2 nop .long 1530 mov 0,%i0 ret restore call %g2 nop .long 1531 mov 0,%i0 ret restore call %g2 nop .long 1532 mov 0,%i0 ret restore call %g2 nop .long 1533 mov 0,%i0 ret restore call %g2 nop .long 1534 mov 0,%i0 ret restore call %g2 nop .long 1535 mov 0,%i0 ret restore call %g2 nop .long 1536 mov 0,%i0 ret restore call %g2 nop .long 1537 mov 0,%i0 ret restore call %g2 nop .long 1538 mov 0,%i0 ret restore call %g2 nop .long 1539 mov 0,%i0 ret restore call %g2 nop .long 1540 mov 0,%i0 ret restore call %g2 nop .long 1541 mov 0,%i0 ret restore call %g2 nop .long 1542 mov 0,%i0 ret restore call %g2 nop .long 1543 mov 0,%i0 ret restore call %g2 nop .long 1544 mov 0,%i0 ret restore call %g2 nop .long 1545 mov 0,%i0 ret restore call %g2 nop .long 1546 mov 0,%i0 ret restore call %g2 nop .long 1547 mov 0,%i0 ret restore call %g2 nop .long 1548 mov 0,%i0 ret restore call %g2 nop .long 1549 mov 0,%i0 ret restore call %g2 nop .long 1550 mov 0,%i0 ret restore call %g2 nop .long 1551 mov 0,%i0 ret restore call %g2 nop .long 1552 mov 0,%i0 ret restore call %g2 nop .long 1553 mov 0,%i0 ret restore call %g2 nop .long 1554 mov 0,%i0 ret restore call %g2 nop .long 1555 mov 0,%i0 ret restore call %g2 nop .long 1556 mov 0,%i0 ret restore call %g2 nop .long 1557 mov 0,%i0 ret restore call %g2 nop .long 1558 mov 0,%i0 ret restore call %g2 nop .long 1559 mov 0,%i0 ret restore call %g2 nop .long 1560 mov 0,%i0 ret restore call %g2 nop .long 1561 mov 0,%i0 ret restore call %g2 nop .long 1562 mov 0,%i0 ret restore call %g2 nop .long 1563 mov 0,%i0 ret restore call %g2 nop .long 1564 mov 0,%i0 ret restore call %g2 nop .long 1565 mov 0,%i0 ret restore call %g2 nop .long 1566 mov 0,%i0 ret restore call %g2 nop .long 1567 mov 0,%i0 ret restore call %g2 nop .long 1568 mov 0,%i0 ret restore call %g2 nop .long 1569 mov 0,%i0 ret restore call %g2 nop .long 1570 mov 0,%i0 ret restore call %g2 nop .long 1571 mov 0,%i0 ret restore call %g2 nop .long 1572 mov 0,%i0 ret restore call %g2 nop .long 1573 mov 0,%i0 ret restore call %g2 nop .long 1574 mov 0,%i0 ret restore call %g2 nop .long 1575 mov 0,%i0 ret restore call %g2 nop .long 1576 mov 0,%i0 ret restore call %g2 nop .long 1577 mov 0,%i0 ret restore call %g2 nop .long 1578 mov 0,%i0 ret restore call %g2 nop .long 1579 mov 0,%i0 ret restore call %g2 nop .long 1580 mov 0,%i0 ret restore call %g2 nop .long 1581 mov 0,%i0 ret restore call %g2 nop .long 1582 mov 0,%i0 ret restore call %g2 nop .long 1583 mov 0,%i0 ret restore call %g2 nop .long 1584 mov 0,%i0 ret restore call %g2 nop .long 1585 mov 0,%i0 ret restore call %g2 nop .long 1586 mov 0,%i0 ret restore call %g2 nop .long 1587 mov 0,%i0 ret restore call %g2 nop .long 1588 mov 0,%i0 ret restore call %g2 nop .long 1589 mov 0,%i0 ret restore call %g2 nop .long 1590 mov 0,%i0 ret restore call %g2 nop .long 1591 mov 0,%i0 ret restore call %g2 nop .long 1592 mov 0,%i0 ret restore call %g2 nop .long 1593 mov 0,%i0 ret restore call %g2 nop .long 1594 mov 0,%i0 ret restore call %g2 nop .long 1595 mov 0,%i0 ret restore call %g2 nop .long 1596 mov 0,%i0 ret restore call %g2 nop .long 1597 mov 0,%i0 ret restore call %g2 nop .long 1598 mov 0,%i0 ret restore call %g2 nop .long 1599 mov 0,%i0 ret restore call %g2 nop .long 1600 mov 0,%i0 ret restore call %g2 nop .long 1601 mov 0,%i0 ret restore call %g2 nop .long 1602 mov 0,%i0 ret restore call %g2 nop .long 1603 mov 0,%i0 ret restore call %g2 nop .long 1604 mov 0,%i0 ret restore call %g2 nop .long 1605 mov 0,%i0 ret restore call %g2 nop .long 1606 mov 0,%i0 ret restore call %g2 nop .long 1607 mov 0,%i0 ret restore call %g2 nop .long 1608 mov 0,%i0 ret restore call %g2 nop .long 1609 mov 0,%i0 ret restore call %g2 nop .long 1610 mov 0,%i0 ret restore call %g2 nop .long 1611 mov 0,%i0 ret restore call %g2 nop .long 1612 mov 0,%i0 ret restore call %g2 nop .long 1613 mov 0,%i0 ret restore call %g2 nop .long 1614 mov 0,%i0 ret restore call %g2 nop .long 1615 mov 0,%i0 ret restore call %g2 nop .long 1616 mov 0,%i0 ret restore call %g2 nop .long 1617 mov 0,%i0 ret restore call %g2 nop .long 1618 mov 0,%i0 ret restore call %g2 nop .long 1619 mov 0,%i0 ret restore call %g2 nop .long 1620 mov 0,%i0 ret restore call %g2 nop .long 1621 mov 0,%i0 ret restore call %g2 nop .long 1622 mov 0,%i0 ret restore call %g2 nop .long 1623 mov 0,%i0 ret restore call %g2 nop .long 1624 mov 0,%i0 ret restore call %g2 nop .long 1625 mov 0,%i0 ret restore call %g2 nop .long 1626 mov 0,%i0 ret restore call %g2 nop .long 1627 mov 0,%i0 ret restore call %g2 nop .long 1628 mov 0,%i0 ret restore call %g2 nop .long 1629 mov 0,%i0 ret restore call %g2 nop .long 1630 mov 0,%i0 ret restore call %g2 nop .long 1631 mov 0,%i0 ret restore call %g2 nop .long 1632 mov 0,%i0 ret restore call %g2 nop .long 1633 mov 0,%i0 ret restore call %g2 nop .long 1634 mov 0,%i0 ret restore call %g2 nop .long 1635 mov 0,%i0 ret restore call %g2 nop .long 1636 mov 0,%i0 ret restore call %g2 nop .long 1637 mov 0,%i0 ret restore call %g2 nop .long 1638 mov 0,%i0 ret restore call %g2 nop .long 1639 mov 0,%i0 ret restore call %g2 nop .long 1640 mov 0,%i0 ret restore call %g2 nop .long 1641 mov 0,%i0 ret restore call %g2 nop .long 1642 mov 0,%i0 ret restore call %g2 nop .long 1643 mov 0,%i0 ret restore call %g2 nop .long 1644 mov 0,%i0 ret restore call %g2 nop .long 1645 mov 0,%i0 ret restore call %g2 nop .long 1646 mov 0,%i0 ret restore call %g2 nop .long 1647 mov 0,%i0 ret restore call %g2 nop .long 1648 mov 0,%i0 ret restore call %g2 nop .long 1649 mov 0,%i0 ret restore call %g2 nop .long 1650 mov 0,%i0 ret restore call %g2 nop .long 1651 mov 0,%i0 ret restore call %g2 nop .long 1652 mov 0,%i0 ret restore call %g2 nop .long 1653 mov 0,%i0 ret restore call %g2 nop .long 1654 mov 0,%i0 ret restore call %g2 nop .long 1655 mov 0,%i0 ret restore call %g2 nop .long 1656 mov 0,%i0 ret restore call %g2 nop .long 1657 mov 0,%i0 ret restore call %g2 nop .long 1658 mov 0,%i0 ret restore call %g2 nop .long 1659 mov 0,%i0 ret restore call %g2 nop .long 1660 mov 0,%i0 ret restore call %g2 nop .long 1661 mov 0,%i0 ret restore call %g2 nop .long 1662 mov 0,%i0 ret restore call %g2 nop .long 1663 mov 0,%i0 ret restore call %g2 nop .long 1664 mov 0,%i0 ret restore call %g2 nop .long 1665 mov 0,%i0 ret restore call %g2 nop .long 1666 mov 0,%i0 ret restore call %g2 nop .long 1667 mov 0,%i0 ret restore call %g2 nop .long 1668 mov 0,%i0 ret restore call %g2 nop .long 1669 mov 0,%i0 ret restore call %g2 nop .long 1670 mov 0,%i0 ret restore call %g2 nop .long 1671 mov 0,%i0 ret restore call %g2 nop .long 1672 mov 0,%i0 ret restore call %g2 nop .long 1673 mov 0,%i0 ret restore call %g2 nop .long 1674 mov 0,%i0 ret restore call %g2 nop .long 1675 mov 0,%i0 ret restore call %g2 nop .long 1676 mov 0,%i0 ret restore call %g2 nop .long 1677 mov 0,%i0 ret restore call %g2 nop .long 1678 mov 0,%i0 ret restore call %g2 nop .long 1679 mov 0,%i0 ret restore call %g2 nop .long 1680 mov 0,%i0 ret restore call %g2 nop .long 1681 mov 0,%i0 ret restore call %g2 nop .long 1682 mov 0,%i0 ret restore call %g2 nop .long 1683 mov 0,%i0 ret restore call %g2 nop .long 1684 mov 0,%i0 ret restore call %g2 nop .long 1685 mov 0,%i0 ret restore call %g2 nop .long 1686 mov 0,%i0 ret restore call %g2 nop .long 1687 mov 0,%i0 ret restore call %g2 nop .long 1688 mov 0,%i0 ret restore call %g2 nop .long 1689 mov 0,%i0 ret restore call %g2 nop .long 1690 mov 0,%i0 ret restore call %g2 nop .long 1691 mov 0,%i0 ret restore call %g2 nop .long 1692 mov 0,%i0 ret restore call %g2 nop .long 1693 mov 0,%i0 ret restore call %g2 nop .long 1694 mov 0,%i0 ret restore call %g2 nop .long 1695 mov 0,%i0 ret restore call %g2 nop .long 1696 mov 0,%i0 ret restore call %g2 nop .long 1697 mov 0,%i0 ret restore call %g2 nop .long 1698 mov 0,%i0 ret restore call %g2 nop .long 1699 mov 0,%i0 ret restore call %g2 nop .long 1700 mov 0,%i0 ret restore call %g2 nop .long 1701 mov 0,%i0 ret restore call %g2 nop .long 1702 mov 0,%i0 ret restore call %g2 nop .long 1703 mov 0,%i0 ret restore call %g2 nop .long 1704 mov 0,%i0 ret restore call %g2 nop .long 1705 mov 0,%i0 ret restore call %g2 nop .long 1706 mov 0,%i0 ret restore call %g2 nop .long 1707 mov 0,%i0 ret restore call %g2 nop .long 1708 mov 0,%i0 ret restore call %g2 nop .long 1709 mov 0,%i0 ret restore call %g2 nop .long 1710 mov 0,%i0 ret restore call %g2 nop .long 1711 mov 0,%i0 ret restore call %g2 nop .long 1712 mov 0,%i0 ret restore call %g2 nop .long 1713 mov 0,%i0 ret restore call %g2 nop .long 1714 mov 0,%i0 ret restore call %g2 nop .long 1715 mov 0,%i0 ret restore call %g2 nop .long 1716 mov 0,%i0 ret restore call %g2 nop .long 1717 mov 0,%i0 ret restore call %g2 nop .long 1718 mov 0,%i0 ret restore call %g2 nop .long 1719 mov 0,%i0 ret restore call %g2 nop .long 1720 mov 0,%i0 ret restore call %g2 nop .long 1721 mov 0,%i0 ret restore call %g2 nop .long 1722 mov 0,%i0 ret restore call %g2 nop .long 1723 mov 0,%i0 ret restore call %g2 nop .long 1724 mov 0,%i0 ret restore call %g2 nop .long 1725 mov 0,%i0 ret restore call %g2 nop .long 1726 mov 0,%i0 ret restore call %g2 nop .long 1727 mov 0,%i0 ret restore call %g2 nop .long 1728 mov 0,%i0 ret restore call %g2 nop .long 1729 mov 0,%i0 ret restore call %g2 nop .long 1730 mov 0,%i0 ret restore call %g2 nop .long 1731 mov 0,%i0 ret restore call %g2 nop .long 1732 mov 0,%i0 ret restore call %g2 nop .long 1733 mov 0,%i0 ret restore call %g2 nop .long 1734 mov 0,%i0 ret restore call %g2 nop .long 1735 mov 0,%i0 ret restore call %g2 nop .long 1736 mov 0,%i0 ret restore call %g2 nop .long 1737 mov 0,%i0 ret restore call %g2 nop .long 1738 mov 0,%i0 ret restore call %g2 nop .long 1739 mov 0,%i0 ret restore call %g2 nop .long 1740 mov 0,%i0 ret restore call %g2 nop .long 1741 mov 0,%i0 ret restore call %g2 nop .long 1742 mov 0,%i0 ret restore call %g2 nop .long 1743 mov 0,%i0 ret restore call %g2 nop .long 1744 mov 0,%i0 ret restore call %g2 nop .long 1745 mov 0,%i0 ret restore call %g2 nop .long 1746 mov 0,%i0 ret restore call %g2 nop .long 1747 mov 0,%i0 ret restore call %g2 nop .long 1748 mov 0,%i0 ret restore call %g2 nop .long 1749 mov 0,%i0 ret restore call %g2 nop .long 1750 mov 0,%i0 ret restore call %g2 nop .long 1751 mov 0,%i0 ret restore call %g2 nop .long 1752 mov 0,%i0 ret restore call %g2 nop .long 1753 mov 0,%i0 ret restore call %g2 nop .long 1754 mov 0,%i0 ret restore call %g2 nop .long 1755 mov 0,%i0 ret restore call %g2 nop .long 1756 mov 0,%i0 ret restore call %g2 nop .long 1757 mov 0,%i0 ret restore call %g2 nop .long 1758 mov 0,%i0 ret restore call %g2 nop .long 1759 mov 0,%i0 ret restore call %g2 nop .long 1760 mov 0,%i0 ret restore call %g2 nop .long 1761 mov 0,%i0 ret restore call %g2 nop .long 1762 mov 0,%i0 ret restore call %g2 nop .long 1763 mov 0,%i0 ret restore call %g2 nop .long 1764 mov 0,%i0 ret restore call %g2 nop .long 1765 mov 0,%i0 ret restore call %g2 nop .long 1766 mov 0,%i0 ret restore call %g2 nop .long 1767 mov 0,%i0 ret restore call %g2 nop .long 1768 mov 0,%i0 ret restore call %g2 nop .long 1769 mov 0,%i0 ret restore call %g2 nop .long 1770 mov 0,%i0 ret restore call %g2 nop .long 1771 mov 0,%i0 ret restore call %g2 nop .long 1772 mov 0,%i0 ret restore call %g2 nop .long 1773 mov 0,%i0 ret restore call %g2 nop .long 1774 mov 0,%i0 ret restore call %g2 nop .long 1775 mov 0,%i0 ret restore call %g2 nop .long 1776 mov 0,%i0 ret restore call %g2 nop .long 1777 mov 0,%i0 ret restore call %g2 nop .long 1778 mov 0,%i0 ret restore call %g2 nop .long 1779 mov 0,%i0 ret restore call %g2 nop .long 1780 mov 0,%i0 ret restore call %g2 nop .long 1781 mov 0,%i0 ret restore call %g2 nop .long 1782 mov 0,%i0 ret restore call %g2 nop .long 1783 mov 0,%i0 ret restore call %g2 nop .long 1784 mov 0,%i0 ret restore call %g2 nop .long 1785 mov 0,%i0 ret restore call %g2 nop .long 1786 mov 0,%i0 ret restore call %g2 nop .long 1787 mov 0,%i0 ret restore call %g2 nop .long 1788 mov 0,%i0 ret restore call %g2 nop .long 1789 mov 0,%i0 ret restore call %g2 nop .long 1790 mov 0,%i0 ret restore call %g2 nop .long 1791 mov 0,%i0 ret restore call %g2 nop .long 1792 mov 0,%i0 ret restore call %g2 nop .long 1793 mov 0,%i0 ret restore call %g2 nop .long 1794 mov 0,%i0 ret restore call %g2 nop .long 1795 mov 0,%i0 ret restore call %g2 nop .long 1796 mov 0,%i0 ret restore call %g2 nop .long 1797 mov 0,%i0 ret restore call %g2 nop .long 1798 mov 0,%i0 ret restore call %g2 nop .long 1799 mov 0,%i0 ret restore call %g2 nop .long 1800 mov 0,%i0 ret restore call %g2 nop .long 1801 mov 0,%i0 ret restore call %g2 nop .long 1802 mov 0,%i0 ret restore call %g2 nop .long 1803 mov 0,%i0 ret restore call %g2 nop .long 1804 mov 0,%i0 ret restore call %g2 nop .long 1805 mov 0,%i0 ret restore call %g2 nop .long 1806 mov 0,%i0 ret restore call %g2 nop .long 1807 mov 0,%i0 ret restore call %g2 nop .long 1808 mov 0,%i0 ret restore call %g2 nop .long 1809 mov 0,%i0 ret restore call %g2 nop .long 1810 mov 0,%i0 ret restore call %g2 nop .long 1811 mov 0,%i0 ret restore call %g2 nop .long 1812 mov 0,%i0 ret restore call %g2 nop .long 1813 mov 0,%i0 ret restore call %g2 nop .long 1814 mov 0,%i0 ret restore call %g2 nop .long 1815 mov 0,%i0 ret restore call %g2 nop .long 1816 mov 0,%i0 ret restore call %g2 nop .long 1817 mov 0,%i0 ret restore call %g2 nop .long 1818 mov 0,%i0 ret restore call %g2 nop .long 1819 mov 0,%i0 ret restore call %g2 nop .long 1820 mov 0,%i0 ret restore call %g2 nop .long 1821 mov 0,%i0 ret restore call %g2 nop .long 1822 mov 0,%i0 ret restore call %g2 nop .long 1823 mov 0,%i0 ret restore call %g2 nop .long 1824 mov 0,%i0 ret restore call %g2 nop .long 1825 mov 0,%i0 ret restore call %g2 nop .long 1826 mov 0,%i0 ret restore call %g2 nop .long 1827 mov 0,%i0 ret restore call %g2 nop .long 1828 mov 0,%i0 ret restore call %g2 nop .long 1829 mov 0,%i0 ret restore call %g2 nop .long 1830 mov 0,%i0 ret restore call %g2 nop .long 1831 mov 0,%i0 ret restore call %g2 nop .long 1832 mov 0,%i0 ret restore call %g2 nop .long 1833 mov 0,%i0 ret restore call %g2 nop .long 1834 mov 0,%i0 ret restore call %g2 nop .long 1835 mov 0,%i0 ret restore call %g2 nop .long 1836 mov 0,%i0 ret restore call %g2 nop .long 1837 mov 0,%i0 ret restore call %g2 nop .long 1838 mov 0,%i0 ret restore call %g2 nop .long 1839 mov 0,%i0 ret restore call %g2 nop .long 1840 mov 0,%i0 ret restore call %g2 nop .long 1841 mov 0,%i0 ret restore call %g2 nop .long 1842 mov 0,%i0 ret restore call %g2 nop .long 1843 mov 0,%i0 ret restore call %g2 nop .long 1844 mov 0,%i0 ret restore call %g2 nop .long 1845 mov 0,%i0 ret restore call %g2 nop .long 1846 mov 0,%i0 ret restore call %g2 nop .long 1847 mov 0,%i0 ret restore call %g2 nop .long 1848 mov 0,%i0 ret restore call %g2 nop .long 1849 mov 0,%i0 ret restore call %g2 nop .long 1850 mov 0,%i0 ret restore call %g2 nop .long 1851 mov 0,%i0 ret restore call %g2 nop .long 1852 mov 0,%i0 ret restore call %g2 nop .long 1853 mov 0,%i0 ret restore call %g2 nop .long 1854 mov 0,%i0 ret restore call %g2 nop .long 1855 mov 0,%i0 ret restore call %g2 nop .long 1856 mov 0,%i0 ret restore call %g2 nop .long 1857 mov 0,%i0 ret restore call %g2 nop .long 1858 mov 0,%i0 ret restore call %g2 nop .long 1859 mov 0,%i0 ret restore call %g2 nop .long 1860 mov 0,%i0 ret restore call %g2 nop .long 1861 mov 0,%i0 ret restore call %g2 nop .long 1862 mov 0,%i0 ret restore call %g2 nop .long 1863 mov 0,%i0 ret restore call %g2 nop .long 1864 mov 0,%i0 ret restore call %g2 nop .long 1865 mov 0,%i0 ret restore call %g2 nop .long 1866 mov 0,%i0 ret restore call %g2 nop .long 1867 mov 0,%i0 ret restore call %g2 nop .long 1868 mov 0,%i0 ret restore call %g2 nop .long 1869 mov 0,%i0 ret restore call %g2 nop .long 1870 mov 0,%i0 ret restore call %g2 nop .long 1871 mov 0,%i0 ret restore call %g2 nop .long 1872 mov 0,%i0 ret restore call %g2 nop .long 1873 mov 0,%i0 ret restore call %g2 nop .long 1874 mov 0,%i0 ret restore call %g2 nop .long 1875 mov 0,%i0 ret restore call %g2 nop .long 1876 mov 0,%i0 ret restore call %g2 nop .long 1877 mov 0,%i0 ret restore call %g2 nop .long 1878 mov 0,%i0 ret restore call %g2 nop .long 1879 mov 0,%i0 ret restore call %g2 nop .long 1880 mov 0,%i0 ret restore call %g2 nop .long 1881 mov 0,%i0 ret restore call %g2 nop .long 1882 mov 0,%i0 ret restore call %g2 nop .long 1883 mov 0,%i0 ret restore call %g2 nop .long 1884 mov 0,%i0 ret restore call %g2 nop .long 1885 mov 0,%i0 ret restore call %g2 nop .long 1886 mov 0,%i0 ret restore call %g2 nop .long 1887 mov 0,%i0 ret restore call %g2 nop .long 1888 mov 0,%i0 ret restore call %g2 nop .long 1889 mov 0,%i0 ret restore call %g2 nop .long 1890 mov 0,%i0 ret restore call %g2 nop .long 1891 mov 0,%i0 ret restore call %g2 nop .long 1892 mov 0,%i0 ret restore call %g2 nop .long 1893 mov 0,%i0 ret restore call %g2 nop .long 1894 mov 0,%i0 ret restore call %g2 nop .long 1895 mov 0,%i0 ret restore call %g2 nop .long 1896 mov 0,%i0 ret restore call %g2 nop .long 1897 mov 0,%i0 ret restore call %g2 nop .long 1898 mov 0,%i0 ret restore call %g2 nop .long 1899 mov 0,%i0 ret restore call %g2 nop .long 1900 mov 0,%i0 ret restore call %g2 nop .long 1901 mov 0,%i0 ret restore call %g2 nop .long 1902 mov 0,%i0 ret restore call %g2 nop .long 1903 mov 0,%i0 ret restore call %g2 nop .long 1904 mov 0,%i0 ret restore call %g2 nop .long 1905 mov 0,%i0 ret restore call %g2 nop .long 1906 mov 0,%i0 ret restore call %g2 nop .long 1907 mov 0,%i0 ret restore call %g2 nop .long 1908 mov 0,%i0 ret restore call %g2 nop .long 1909 mov 0,%i0 ret restore call %g2 nop .long 1910 mov 0,%i0 ret restore call %g2 nop .long 1911 mov 0,%i0 ret restore call %g2 nop .long 1912 mov 0,%i0 ret restore call %g2 nop .long 1913 mov 0,%i0 ret restore call %g2 nop .long 1914 mov 0,%i0 ret restore call %g2 nop .long 1915 mov 0,%i0 ret restore call %g2 nop .long 1916 mov 0,%i0 ret restore call %g2 nop .long 1917 mov 0,%i0 ret restore call %g2 nop .long 1918 mov 0,%i0 ret restore call %g2 nop .long 1919 mov 0,%i0 ret restore call %g2 nop .long 1920 mov 0,%i0 ret restore call %g2 nop .long 1921 mov 0,%i0 ret restore call %g2 nop .long 1922 mov 0,%i0 ret restore call %g2 nop .long 1923 mov 0,%i0 ret restore call %g2 nop .long 1924 mov 0,%i0 ret restore call %g2 nop .long 1925 mov 0,%i0 ret restore call %g2 nop .long 1926 mov 0,%i0 ret restore call %g2 nop .long 1927 mov 0,%i0 ret restore call %g2 nop .long 1928 mov 0,%i0 ret restore call %g2 nop .long 1929 mov 0,%i0 ret restore call %g2 nop .long 1930 mov 0,%i0 ret restore call %g2 nop .long 1931 mov 0,%i0 ret restore call %g2 nop .long 1932 mov 0,%i0 ret restore call %g2 nop .long 1933 mov 0,%i0 ret restore call %g2 nop .long 1934 mov 0,%i0 ret restore call %g2 nop .long 1935 mov 0,%i0 ret restore call %g2 nop .long 1936 mov 0,%i0 ret restore call %g2 nop .long 1937 mov 0,%i0 ret restore call %g2 nop .long 1938 mov 0,%i0 ret restore call %g2 nop .long 1939 mov 0,%i0 ret restore call %g2 nop .long 1940 mov 0,%i0 ret restore call %g2 nop .long 1941 mov 0,%i0 ret restore call %g2 nop .long 1942 mov 0,%i0 ret restore call %g2 nop .long 1943 mov 0,%i0 ret restore call %g2 nop .long 1944 mov 0,%i0 ret restore call %g2 nop .long 1945 mov 0,%i0 ret restore call %g2 nop .long 1946 mov 0,%i0 ret restore call %g2 nop .long 1947 mov 0,%i0 ret restore call %g2 nop .long 1948 mov 0,%i0 ret restore call %g2 nop .long 1949 mov 0,%i0 ret restore call %g2 nop .long 1950 mov 0,%i0 ret restore call %g2 nop .long 1951 mov 0,%i0 ret restore call %g2 nop .long 1952 mov 0,%i0 ret restore call %g2 nop .long 1953 mov 0,%i0 ret restore call %g2 nop .long 1954 mov 0,%i0 ret restore call %g2 nop .long 1955 mov 0,%i0 ret restore call %g2 nop .long 1956 mov 0,%i0 ret restore call %g2 nop .long 1957 mov 0,%i0 ret restore call %g2 nop .long 1958 mov 0,%i0 ret restore call %g2 nop .long 1959 mov 0,%i0 ret restore call %g2 nop .long 1960 mov 0,%i0 ret restore call %g2 nop .long 1961 mov 0,%i0 ret restore call %g2 nop .long 1962 mov 0,%i0 ret restore call %g2 nop .long 1963 mov 0,%i0 ret restore call %g2 nop .long 1964 mov 0,%i0 ret restore call %g2 nop .long 1965 mov 0,%i0 ret restore call %g2 nop .long 1966 mov 0,%i0 ret restore call %g2 nop .long 1967 mov 0,%i0 ret restore call %g2 nop .long 1968 mov 0,%i0 ret restore call %g2 nop .long 1969 mov 0,%i0 ret restore call %g2 nop .long 1970 mov 0,%i0 ret restore call %g2 nop .long 1971 mov 0,%i0 ret restore call %g2 nop .long 1972 mov 0,%i0 ret restore call %g2 nop .long 1973 mov 0,%i0 ret restore call %g2 nop .long 1974 mov 0,%i0 ret restore call %g2 nop .long 1975 mov 0,%i0 ret restore call %g2 nop .long 1976 mov 0,%i0 ret restore call %g2 nop .long 1977 mov 0,%i0 ret restore call %g2 nop .long 1978 mov 0,%i0 ret restore call %g2 nop .long 1979 mov 0,%i0 ret restore call %g2 nop .long 1980 mov 0,%i0 ret restore call %g2 nop .long 1981 mov 0,%i0 ret restore call %g2 nop .long 1982 mov 0,%i0 ret restore call %g2 nop .long 1983 mov 0,%i0 ret restore call %g2 nop .long 1984 mov 0,%i0 ret restore call %g2 nop .long 1985 mov 0,%i0 ret restore call %g2 nop .long 1986 mov 0,%i0 ret restore call %g2 nop .long 1987 mov 0,%i0 ret restore call %g2 nop .long 1988 mov 0,%i0 ret restore call %g2 nop .long 1989 mov 0,%i0 ret restore call %g2 nop .long 1990 mov 0,%i0 ret restore call %g2 nop .long 1991 mov 0,%i0 ret restore call %g2 nop .long 1992 mov 0,%i0 ret restore call %g2 nop .long 1993 mov 0,%i0 ret restore call %g2 nop .long 1994 mov 0,%i0 ret restore call %g2 nop .long 1995 mov 0,%i0 ret restore call %g2 nop .long 1996 mov 0,%i0 ret restore call %g2 nop .long 1997 mov 0,%i0 ret restore call %g2 nop .long 1998 mov 0,%i0 ret restore call %g2 nop .long 1999 mov 0,%i0 ret restore call %g2 nop .long 2000 mov 0,%i0 ret restore call %g2 nop .long 2001 mov 0,%i0 ret restore call %g2 nop .long 2002 mov 0,%i0 ret restore call %g2 nop .long 2003 mov 0,%i0 ret restore call %g2 nop .long 2004 mov 0,%i0 ret restore call %g2 nop .long 2005 mov 0,%i0 ret restore call %g2 nop .long 2006 mov 0,%i0 ret restore call %g2 nop .long 2007 mov 0,%i0 ret restore call %g2 nop .long 2008 mov 0,%i0 ret restore call %g2 nop .long 2009 mov 0,%i0 ret restore call %g2 nop .long 2010 mov 0,%i0 ret restore call %g2 nop .long 2011 mov 0,%i0 ret restore call %g2 nop .long 2012 mov 0,%i0 ret restore call %g2 nop .long 2013 mov 0,%i0 ret restore call %g2 nop .long 2014 mov 0,%i0 ret restore call %g2 nop .long 2015 mov 0,%i0 ret restore call %g2 nop .long 2016 mov 0,%i0 ret restore call %g2 nop .long 2017 mov 0,%i0 ret restore call %g2 nop .long 2018 mov 0,%i0 ret restore call %g2 nop .long 2019 mov 0,%i0 ret restore call %g2 nop .long 2020 mov 0,%i0 ret restore call %g2 nop .long 2021 mov 0,%i0 ret restore call %g2 nop .long 2022 mov 0,%i0 ret restore call %g2 nop .long 2023 mov 0,%i0 ret restore call %g2 nop .long 2024 mov 0,%i0 ret restore call %g2 nop .long 2025 mov 0,%i0 ret restore call %g2 nop .long 2026 mov 0,%i0 ret restore call %g2 nop .long 2027 mov 0,%i0 ret restore call %g2 nop .long 2028 mov 0,%i0 ret restore call %g2 nop .long 2029 mov 0,%i0 ret restore call %g2 nop .long 2030 mov 0,%i0 ret restore call %g2 nop .long 2031 mov 0,%i0 ret restore call %g2 nop .long 2032 mov 0,%i0 ret restore call %g2 nop .long 2033 mov 0,%i0 ret restore call %g2 nop .long 2034 mov 0,%i0 ret restore call %g2 nop .long 2035 mov 0,%i0 ret restore call %g2 nop .long 2036 mov 0,%i0 ret restore call %g2 nop .long 2037 mov 0,%i0 ret restore call %g2 nop .long 2038 mov 0,%i0 ret restore call %g2 nop .long 2039 mov 0,%i0 ret restore call %g2 nop .long 2040 mov 0,%i0 ret restore call %g2 nop .long 2041 mov 0,%i0 ret restore call %g2 nop .long 2042 mov 0,%i0 ret restore call %g2 nop .long 2043 mov 0,%i0 ret restore call %g2 nop .long 2044 mov 0,%i0 ret restore call %g2 nop .long 2045 mov 0,%i0 ret restore call %g2 nop .long 2046 mov 0,%i0 ret restore call %g2 nop .long 2047 mov 0,%i0 ret restore call %g2 nop .long 2048 mov 0,%i0 ret restore call %g2 nop .long 2049 mov 0,%i0 ret restore call %g2 nop .long 2050 mov 0,%i0 ret restore call %g2 nop .long 2051 mov 0,%i0 ret restore call %g2 nop .long 2052 mov 0,%i0 ret restore call %g2 nop .long 2053 mov 0,%i0 ret restore call %g2 nop .long 2054 mov 0,%i0 ret restore call %g2 nop .long 2055 mov 0,%i0 ret restore call %g2 nop .long 2056 mov 0,%i0 ret restore call %g2 nop .long 2057 mov 0,%i0 ret restore call %g2 nop .long 2058 mov 0,%i0 ret restore call %g2 nop .long 2059 mov 0,%i0 ret restore call %g2 nop .long 2060 mov 0,%i0 ret restore call %g2 nop .long 2061 mov 0,%i0 ret restore call %g2 nop .long 2062 mov 0,%i0 ret restore call %g2 nop .long 2063 mov 0,%i0 ret restore call %g2 nop .long 2064 mov 0,%i0 ret restore call %g2 nop .long 2065 mov 0,%i0 ret restore call %g2 nop .long 2066 mov 0,%i0 ret restore call %g2 nop .long 2067 mov 0,%i0 ret restore call %g2 nop .long 2068 mov 0,%i0 ret restore call %g2 nop .long 2069 mov 0,%i0 ret restore call %g2 nop .long 2070 mov 0,%i0 ret restore call %g2 nop .long 2071 mov 0,%i0 ret restore call %g2 nop .long 2072 mov 0,%i0 ret restore call %g2 nop .long 2073 mov 0,%i0 ret restore call %g2 nop .long 2074 mov 0,%i0 ret restore call %g2 nop .long 2075 mov 0,%i0 ret restore call %g2 nop .long 2076 mov 0,%i0 ret restore call %g2 nop .long 2077 mov 0,%i0 ret restore call %g2 nop .long 2078 mov 0,%i0 ret restore call %g2 nop .long 2079 mov 0,%i0 ret restore call %g2 nop .long 2080 mov 0,%i0 ret restore call %g2 nop .long 2081 mov 0,%i0 ret restore call %g2 nop .long 2082 mov 0,%i0 ret restore call %g2 nop .long 2083 mov 0,%i0 ret restore call %g2 nop .long 2084 mov 0,%i0 ret restore call %g2 nop .long 2085 mov 0,%i0 ret restore call %g2 nop .long 2086 mov 0,%i0 ret restore call %g2 nop .long 2087 mov 0,%i0 ret restore call %g2 nop .long 2088 mov 0,%i0 ret restore call %g2 nop .long 2089 mov 0,%i0 ret restore call %g2 nop .long 2090 mov 0,%i0 ret restore call %g2 nop .long 2091 mov 0,%i0 ret restore call %g2 nop .long 2092 mov 0,%i0 ret restore call %g2 nop .long 2093 mov 0,%i0 ret restore call %g2 nop .long 2094 mov 0,%i0 ret restore call %g2 nop .long 2095 mov 0,%i0 ret restore call %g2 nop .long 2096 mov 0,%i0 ret restore call %g2 nop .long 2097 mov 0,%i0 ret restore call %g2 nop .long 2098 mov 0,%i0 ret restore call %g2 nop .long 2099 mov 0,%i0 ret restore call %g2 nop .long 2100 mov 0,%i0 ret restore call %g2 nop .long 2101 mov 0,%i0 ret restore call %g2 nop .long 2102 mov 0,%i0 ret restore call %g2 nop .long 2103 mov 0,%i0 ret restore call %g2 nop .long 2104 mov 0,%i0 ret restore call %g2 nop .long 2105 mov 0,%i0 ret restore call %g2 nop .long 2106 mov 0,%i0 ret restore call %g2 nop .long 2107 mov 0,%i0 ret restore call %g2 nop .long 2108 mov 0,%i0 ret restore call %g2 nop .long 2109 mov 0,%i0 ret restore call %g2 nop .long 2110 mov 0,%i0 ret restore call %g2 nop .long 2111 mov 0,%i0 ret restore call %g2 nop .long 2112 mov 0,%i0 ret restore call %g2 nop .long 2113 mov 0,%i0 ret restore call %g2 nop .long 2114 mov 0,%i0 ret restore call %g2 nop .long 2115 mov 0,%i0 ret restore call %g2 nop .long 2116 mov 0,%i0 ret restore call %g2 nop .long 2117 mov 0,%i0 ret restore call %g2 nop .long 2118 mov 0,%i0 ret restore call %g2 nop .long 2119 mov 0,%i0 ret restore call %g2 nop .long 2120 mov 0,%i0 ret restore call %g2 nop .long 2121 mov 0,%i0 ret restore call %g2 nop .long 2122 mov 0,%i0 ret restore call %g2 nop .long 2123 mov 0,%i0 ret restore call %g2 nop .long 2124 mov 0,%i0 ret restore call %g2 nop .long 2125 mov 0,%i0 ret restore call %g2 nop .long 2126 mov 0,%i0 ret restore call %g2 nop .long 2127 mov 0,%i0 ret restore call %g2 nop .long 2128 mov 0,%i0 ret restore call %g2 nop .long 2129 mov 0,%i0 ret restore call %g2 nop .long 2130 mov 0,%i0 ret restore call %g2 nop .long 2131 mov 0,%i0 ret restore call %g2 nop .long 2132 mov 0,%i0 ret restore call %g2 nop .long 2133 mov 0,%i0 ret restore call %g2 nop .long 2134 mov 0,%i0 ret restore call %g2 nop .long 2135 mov 0,%i0 ret restore call %g2 nop .long 2136 mov 0,%i0 ret restore call %g2 nop .long 2137 mov 0,%i0 ret restore call %g2 nop .long 2138 mov 0,%i0 ret restore call %g2 nop .long 2139 mov 0,%i0 ret restore call %g2 nop .long 2140 mov 0,%i0 ret restore call %g2 nop .long 2141 mov 0,%i0 ret restore call %g2 nop .long 2142 mov 0,%i0 ret restore call %g2 nop .long 2143 mov 0,%i0 ret restore call %g2 nop .long 2144 mov 0,%i0 ret restore call %g2 nop .long 2145 mov 0,%i0 ret restore call %g2 nop .long 2146 mov 0,%i0 ret restore call %g2 nop .long 2147 mov 0,%i0 ret restore call %g2 nop .long 2148 mov 0,%i0 ret restore call %g2 nop .long 2149 mov 0,%i0 ret restore call %g2 nop .long 2150 mov 0,%i0 ret restore call %g2 nop .long 2151 mov 0,%i0 ret restore call %g2 nop .long 2152 mov 0,%i0 ret restore call %g2 nop .long 2153 mov 0,%i0 ret restore call %g2 nop .long 2154 mov 0,%i0 ret restore call %g2 nop .long 2155 mov 0,%i0 ret restore call %g2 nop .long 2156 mov 0,%i0 ret restore call %g2 nop .long 2157 mov 0,%i0 ret restore call %g2 nop .long 2158 mov 0,%i0 ret restore call %g2 nop .long 2159 mov 0,%i0 ret restore call %g2 nop .long 2160 mov 0,%i0 ret restore call %g2 nop .long 2161 mov 0,%i0 ret restore call %g2 nop .long 2162 mov 0,%i0 ret restore call %g2 nop .long 2163 mov 0,%i0 ret restore call %g2 nop .long 2164 mov 0,%i0 ret restore call %g2 nop .long 2165 mov 0,%i0 ret restore call %g2 nop .long 2166 mov 0,%i0 ret restore call %g2 nop .long 2167 mov 0,%i0 ret restore call %g2 nop .long 2168 mov 0,%i0 ret restore call %g2 nop .long 2169 mov 0,%i0 ret restore call %g2 nop .long 2170 mov 0,%i0 ret restore call %g2 nop .long 2171 mov 0,%i0 ret restore call %g2 nop .long 2172 mov 0,%i0 ret restore call %g2 nop .long 2173 mov 0,%i0 ret restore call %g2 nop .long 2174 mov 0,%i0 ret restore call %g2 nop .long 2175 mov 0,%i0 ret restore call %g2 nop .long 2176 mov 0,%i0 ret restore call %g2 nop .long 2177 mov 0,%i0 ret restore call %g2 nop .long 2178 mov 0,%i0 ret restore call %g2 nop .long 2179 mov 0,%i0 ret restore call %g2 nop .long 2180 mov 0,%i0 ret restore call %g2 nop .long 2181 mov 0,%i0 ret restore call %g2 nop .long 2182 mov 0,%i0 ret restore call %g2 nop .long 2183 mov 0,%i0 ret restore call %g2 nop .long 2184 mov 0,%i0 ret restore call %g2 nop .long 2185 mov 0,%i0 ret restore call %g2 nop .long 2186 mov 0,%i0 ret restore call %g2 nop .long 2187 mov 0,%i0 ret restore call %g2 nop .long 2188 mov 0,%i0 ret restore call %g2 nop .long 2189 mov 0,%i0 ret restore call %g2 nop .long 2190 mov 0,%i0 ret restore call %g2 nop .long 2191 mov 0,%i0 ret restore call %g2 nop .long 2192 mov 0,%i0 ret restore call %g2 nop .long 2193 mov 0,%i0 ret restore call %g2 nop .long 2194 mov 0,%i0 ret restore call %g2 nop .long 2195 mov 0,%i0 ret restore call %g2 nop .long 2196 mov 0,%i0 ret restore call %g2 nop .long 2197 mov 0,%i0 ret restore call %g2 nop .long 2198 mov 0,%i0 ret restore call %g2 nop .long 2199 mov 0,%i0 ret restore call %g2 nop .long 2200 mov 0,%i0 ret restore call %g2 nop .long 2201 mov 0,%i0 ret restore call %g2 nop .long 2202 mov 0,%i0 ret restore call %g2 nop .long 2203 mov 0,%i0 ret restore call %g2 nop .long 2204 mov 0,%i0 ret restore call %g2 nop .long 2205 mov 0,%i0 ret restore call %g2 nop .long 2206 mov 0,%i0 ret restore call %g2 nop .long 2207 mov 0,%i0 ret restore call %g2 nop .long 2208 mov 0,%i0 ret restore call %g2 nop .long 2209 mov 0,%i0 ret restore call %g2 nop .long 2210 mov 0,%i0 ret restore call %g2 nop .long 2211 mov 0,%i0 ret restore call %g2 nop .long 2212 mov 0,%i0 ret restore call %g2 nop .long 2213 mov 0,%i0 ret restore call %g2 nop .long 2214 mov 0,%i0 ret restore call %g2 nop .long 2215 mov 0,%i0 ret restore call %g2 nop .long 2216 mov 0,%i0 ret restore call %g2 nop .long 2217 mov 0,%i0 ret restore call %g2 nop .long 2218 mov 0,%i0 ret restore call %g2 nop .long 2219 mov 0,%i0 ret restore call %g2 nop .long 2220 mov 0,%i0 ret restore call %g2 nop .long 2221 mov 0,%i0 ret restore call %g2 nop .long 2222 mov 0,%i0 ret restore call %g2 nop .long 2223 mov 0,%i0 ret restore call %g2 nop .long 2224 mov 0,%i0 ret restore call %g2 nop .long 2225 mov 0,%i0 ret restore call %g2 nop .long 2226 mov 0,%i0 ret restore call %g2 nop .long 2227 mov 0,%i0 ret restore call %g2 nop .long 2228 mov 0,%i0 ret restore call %g2 nop .long 2229 mov 0,%i0 ret restore call %g2 nop .long 2230 mov 0,%i0 ret restore call %g2 nop .long 2231 mov 0,%i0 ret restore call %g2 nop .long 2232 mov 0,%i0 ret restore call %g2 nop .long 2233 mov 0,%i0 ret restore call %g2 nop .long 2234 mov 0,%i0 ret restore call %g2 nop .long 2235 mov 0,%i0 ret restore call %g2 nop .long 2236 mov 0,%i0 ret restore call %g2 nop .long 2237 mov 0,%i0 ret restore call %g2 nop .long 2238 mov 0,%i0 ret restore call %g2 nop .long 2239 mov 0,%i0 ret restore call %g2 nop .long 2240 mov 0,%i0 ret restore call %g2 nop .long 2241 mov 0,%i0 ret restore call %g2 nop .long 2242 mov 0,%i0 ret restore call %g2 nop .long 2243 mov 0,%i0 ret restore call %g2 nop .long 2244 mov 0,%i0 ret restore call %g2 nop .long 2245 mov 0,%i0 ret restore call %g2 nop .long 2246 mov 0,%i0 ret restore call %g2 nop .long 2247 mov 0,%i0 ret restore call %g2 nop .long 2248 mov 0,%i0 ret restore call %g2 nop .long 2249 mov 0,%i0 ret restore call %g2 nop .long 2250 mov 0,%i0 ret restore call %g2 nop .long 2251 mov 0,%i0 ret restore call %g2 nop .long 2252 mov 0,%i0 ret restore call %g2 nop .long 2253 mov 0,%i0 ret restore call %g2 nop .long 2254 mov 0,%i0 ret restore call %g2 nop .long 2255 mov 0,%i0 ret restore call %g2 nop .long 2256 mov 0,%i0 ret restore call %g2 nop .long 2257 mov 0,%i0 ret restore call %g2 nop .long 2258 mov 0,%i0 ret restore call %g2 nop .long 2259 mov 0,%i0 ret restore call %g2 nop .long 2260 mov 0,%i0 ret restore call %g2 nop .long 2261 mov 0,%i0 ret restore call %g2 nop .long 2262 mov 0,%i0 ret restore call %g2 nop .long 2263 mov 0,%i0 ret restore call %g2 nop .long 2264 mov 0,%i0 ret restore call %g2 nop .long 2265 mov 0,%i0 ret restore call %g2 nop .long 2266 mov 0,%i0 ret restore call %g2 nop .long 2267 mov 0,%i0 ret restore call %g2 nop .long 2268 mov 0,%i0 ret restore call %g2 nop .long 2269 mov 0,%i0 ret restore call %g2 nop .long 2270 mov 0,%i0 ret restore call %g2 nop .long 2271 mov 0,%i0 ret restore call %g2 nop .long 2272 mov 0,%i0 ret restore call %g2 nop .long 2273 mov 0,%i0 ret restore call %g2 nop .long 2274 mov 0,%i0 ret restore call %g2 nop .long 2275 mov 0,%i0 ret restore call %g2 nop .long 2276 mov 0,%i0 ret restore call %g2 nop .long 2277 mov 0,%i0 ret restore call %g2 nop .long 2278 mov 0,%i0 ret restore call %g2 nop .long 2279 mov 0,%i0 ret restore call %g2 nop .long 2280 mov 0,%i0 ret restore call %g2 nop .long 2281 mov 0,%i0 ret restore call %g2 nop .long 2282 mov 0,%i0 ret restore call %g2 nop .long 2283 mov 0,%i0 ret restore call %g2 nop .long 2284 mov 0,%i0 ret restore call %g2 nop .long 2285 mov 0,%i0 ret restore call %g2 nop .long 2286 mov 0,%i0 ret restore call %g2 nop .long 2287 mov 0,%i0 ret restore call %g2 nop .long 2288 mov 0,%i0 ret restore call %g2 nop .long 2289 mov 0,%i0 ret restore call %g2 nop .long 2290 mov 0,%i0 ret restore call %g2 nop .long 2291 mov 0,%i0 ret restore call %g2 nop .long 2292 mov 0,%i0 ret restore call %g2 nop .long 2293 mov 0,%i0 ret restore call %g2 nop .long 2294 mov 0,%i0 ret restore call %g2 nop .long 2295 mov 0,%i0 ret restore call %g2 nop .long 2296 mov 0,%i0 ret restore call %g2 nop .long 2297 mov 0,%i0 ret restore call %g2 nop .long 2298 mov 0,%i0 ret restore call %g2 nop .long 2299 mov 0,%i0 ret restore call %g2 nop .long 2300 mov 0,%i0 ret restore call %g2 nop .long 2301 mov 0,%i0 ret restore call %g2 nop .long 2302 mov 0,%i0 ret restore call %g2 nop .long 2303 mov 0,%i0 ret restore call %g2 nop .long 2304 mov 0,%i0 ret restore call %g2 nop .long 2305 mov 0,%i0 ret restore call %g2 nop .long 2306 mov 0,%i0 ret restore call %g2 nop .long 2307 mov 0,%i0 ret restore call %g2 nop .long 2308 mov 0,%i0 ret restore call %g2 nop .long 2309 mov 0,%i0 ret restore call %g2 nop .long 2310 mov 0,%i0 ret restore call %g2 nop .long 2311 mov 0,%i0 ret restore call %g2 nop .long 2312 mov 0,%i0 ret restore call %g2 nop .long 2313 mov 0,%i0 ret restore call %g2 nop .long 2314 mov 0,%i0 ret restore call %g2 nop .long 2315 mov 0,%i0 ret restore call %g2 nop .long 2316 mov 0,%i0 ret restore call %g2 nop .long 2317 mov 0,%i0 ret restore call %g2 nop .long 2318 mov 0,%i0 ret restore call %g2 nop .long 2319 mov 0,%i0 ret restore call %g2 nop .long 2320 mov 0,%i0 ret restore call %g2 nop .long 2321 mov 0,%i0 ret restore call %g2 nop .long 2322 mov 0,%i0 ret restore call %g2 nop .long 2323 mov 0,%i0 ret restore call %g2 nop .long 2324 mov 0,%i0 ret restore call %g2 nop .long 2325 mov 0,%i0 ret restore call %g2 nop .long 2326 mov 0,%i0 ret restore call %g2 nop .long 2327 mov 0,%i0 ret restore call %g2 nop .long 2328 mov 0,%i0 ret restore call %g2 nop .long 2329 mov 0,%i0 ret restore call %g2 nop .long 2330 mov 0,%i0 ret restore call %g2 nop .long 2331 mov 0,%i0 ret restore call %g2 nop .long 2332 mov 0,%i0 ret restore call %g2 nop .long 2333 mov 0,%i0 ret restore call %g2 nop .long 2334 mov 0,%i0 ret restore call %g2 nop .long 2335 mov 0,%i0 ret restore call %g2 nop .long 2336 mov 0,%i0 ret restore call %g2 nop .long 2337 mov 0,%i0 ret restore call %g2 nop .long 2338 mov 0,%i0 ret restore call %g2 nop .long 2339 mov 0,%i0 ret restore call %g2 nop .long 2340 mov 0,%i0 ret restore call %g2 nop .long 2341 mov 0,%i0 ret restore call %g2 nop .long 2342 mov 0,%i0 ret restore call %g2 nop .long 2343 mov 0,%i0 ret restore call %g2 nop .long 2344 mov 0,%i0 ret restore call %g2 nop .long 2345 mov 0,%i0 ret restore call %g2 nop .long 2346 mov 0,%i0 ret restore call %g2 nop .long 2347 mov 0,%i0 ret restore call %g2 nop .long 2348 mov 0,%i0 ret restore call %g2 nop .long 2349 mov 0,%i0 ret restore call %g2 nop .long 2350 mov 0,%i0 ret restore call %g2 nop .long 2351 mov 0,%i0 ret restore call %g2 nop .long 2352 mov 0,%i0 ret restore call %g2 nop .long 2353 mov 0,%i0 ret restore call %g2 nop .long 2354 mov 0,%i0 ret restore call %g2 nop .long 2355 mov 0,%i0 ret restore call %g2 nop .long 2356 mov 0,%i0 ret restore call %g2 nop .long 2357 mov 0,%i0 ret restore call %g2 nop .long 2358 mov 0,%i0 ret restore call %g2 nop .long 2359 mov 0,%i0 ret restore call %g2 nop .long 2360 mov 0,%i0 ret restore call %g2 nop .long 2361 mov 0,%i0 ret restore call %g2 nop .long 2362 mov 0,%i0 ret restore call %g2 nop .long 2363 mov 0,%i0 ret restore call %g2 nop .long 2364 mov 0,%i0 ret restore call %g2 nop .long 2365 mov 0,%i0 ret restore call %g2 nop .long 2366 mov 0,%i0 ret restore call %g2 nop .long 2367 mov 0,%i0 ret restore call %g2 nop .long 2368 mov 0,%i0 ret restore call %g2 nop .long 2369 mov 0,%i0 ret restore call %g2 nop .long 2370 mov 0,%i0 ret restore call %g2 nop .long 2371 mov 0,%i0 ret restore call %g2 nop .long 2372 mov 0,%i0 ret restore call %g2 nop .long 2373 mov 0,%i0 ret restore call %g2 nop .long 2374 mov 0,%i0 ret restore call %g2 nop .long 2375 mov 0,%i0 ret restore call %g2 nop .long 2376 mov 0,%i0 ret restore call %g2 nop .long 2377 mov 0,%i0 ret restore call %g2 nop .long 2378 mov 0,%i0 ret restore call %g2 nop .long 2379 mov 0,%i0 ret restore call %g2 nop .long 2380 mov 0,%i0 ret restore call %g2 nop .long 2381 mov 0,%i0 ret restore call %g2 nop .long 2382 mov 0,%i0 ret restore call %g2 nop .long 2383 mov 0,%i0 ret restore call %g2 nop .long 2384 mov 0,%i0 ret restore call %g2 nop .long 2385 mov 0,%i0 ret restore call %g2 nop .long 2386 mov 0,%i0 ret restore call %g2 nop .long 2387 mov 0,%i0 ret restore call %g2 nop .long 2388 mov 0,%i0 ret restore call %g2 nop .long 2389 mov 0,%i0 ret restore call %g2 nop .long 2390 mov 0,%i0 ret restore call %g2 nop .long 2391 mov 0,%i0 ret restore call %g2 nop .long 2392 mov 0,%i0 ret restore call %g2 nop .long 2393 mov 0,%i0 ret restore call %g2 nop .long 2394 mov 0,%i0 ret restore call %g2 nop .long 2395 mov 0,%i0 ret restore call %g2 nop .long 2396 mov 0,%i0 ret restore call %g2 nop .long 2397 mov 0,%i0 ret restore call %g2 nop .long 2398 mov 0,%i0 ret restore call %g2 nop .long 2399 mov 0,%i0 ret restore call %g2 nop .long 2400 mov 0,%i0 ret restore call %g2 nop .long 2401 mov 0,%i0 ret restore call %g2 nop .long 2402 mov 0,%i0 ret restore call %g2 nop .long 2403 mov 0,%i0 ret restore call %g2 nop .long 2404 mov 0,%i0 ret restore call %g2 nop .long 2405 mov 0,%i0 ret restore call %g2 nop .long 2406 mov 0,%i0 ret restore call %g2 nop .long 2407 mov 0,%i0 ret restore call %g2 nop .long 2408 mov 0,%i0 ret restore call %g2 nop .long 2409 mov 0,%i0 ret restore call %g2 nop .long 2410 mov 0,%i0 ret restore call %g2 nop .long 2411 mov 0,%i0 ret restore call %g2 nop .long 2412 mov 0,%i0 ret restore call %g2 nop .long 2413 mov 0,%i0 ret restore call %g2 nop .long 2414 mov 0,%i0 ret restore call %g2 nop .long 2415 mov 0,%i0 ret restore call %g2 nop .long 2416 mov 0,%i0 ret restore call %g2 nop .long 2417 mov 0,%i0 ret restore call %g2 nop .long 2418 mov 0,%i0 ret restore call %g2 nop .long 2419 mov 0,%i0 ret restore call %g2 nop .long 2420 mov 0,%i0 ret restore call %g2 nop .long 2421 mov 0,%i0 ret restore call %g2 nop .long 2422 mov 0,%i0 ret restore call %g2 nop .long 2423 mov 0,%i0 ret restore call %g2 nop .long 2424 mov 0,%i0 ret restore call %g2 nop .long 2425 mov 0,%i0 ret restore call %g2 nop .long 2426 mov 0,%i0 ret restore call %g2 nop .long 2427 mov 0,%i0 ret restore call %g2 nop .long 2428 mov 0,%i0 ret restore call %g2 nop .long 2429 mov 0,%i0 ret restore call %g2 nop .long 2430 mov 0,%i0 ret restore call %g2 nop .long 2431 mov 0,%i0 ret restore call %g2 nop .long 2432 mov 0,%i0 ret restore call %g2 nop .long 2433 mov 0,%i0 ret restore call %g2 nop .long 2434 mov 0,%i0 ret restore call %g2 nop .long 2435 mov 0,%i0 ret restore call %g2 nop .long 2436 mov 0,%i0 ret restore call %g2 nop .long 2437 mov 0,%i0 ret restore call %g2 nop .long 2438 mov 0,%i0 ret restore call %g2 nop .long 2439 mov 0,%i0 ret restore call %g2 nop .long 2440 mov 0,%i0 ret restore call %g2 nop .long 2441 mov 0,%i0 ret restore call %g2 nop .long 2442 mov 0,%i0 ret restore call %g2 nop .long 2443 mov 0,%i0 ret restore call %g2 nop .long 2444 mov 0,%i0 ret restore call %g2 nop .long 2445 mov 0,%i0 ret restore call %g2 nop .long 2446 mov 0,%i0 ret restore call %g2 nop .long 2447 mov 0,%i0 ret restore call %g2 nop .long 2448 mov 0,%i0 ret restore call %g2 nop .long 2449 mov 0,%i0 ret restore call %g2 nop .long 2450 mov 0,%i0 ret restore call %g2 nop .long 2451 mov 0,%i0 ret restore call %g2 nop .long 2452 mov 0,%i0 ret restore call %g2 nop .long 2453 mov 0,%i0 ret restore call %g2 nop .long 2454 mov 0,%i0 ret restore call %g2 nop .long 2455 mov 0,%i0 ret restore call %g2 nop .long 2456 mov 0,%i0 ret restore call %g2 nop .long 2457 mov 0,%i0 ret restore call %g2 nop .long 2458 mov 0,%i0 ret restore call %g2 nop .long 2459 mov 0,%i0 ret restore call %g2 nop .long 2460 mov 0,%i0 ret restore call %g2 nop .long 2461 mov 0,%i0 ret restore call %g2 nop .long 2462 mov 0,%i0 ret restore call %g2 nop .long 2463 mov 0,%i0 ret restore call %g2 nop .long 2464 mov 0,%i0 ret restore call %g2 nop .long 2465 mov 0,%i0 ret restore call %g2 nop .long 2466 mov 0,%i0 ret restore call %g2 nop .long 2467 mov 0,%i0 ret restore call %g2 nop .long 2468 mov 0,%i0 ret restore call %g2 nop .long 2469 mov 0,%i0 ret restore call %g2 nop .long 2470 mov 0,%i0 ret restore call %g2 nop .long 2471 mov 0,%i0 ret restore call %g2 nop .long 2472 mov 0,%i0 ret restore call %g2 nop .long 2473 mov 0,%i0 ret restore call %g2 nop .long 2474 mov 0,%i0 ret restore call %g2 nop .long 2475 mov 0,%i0 ret restore call %g2 nop .long 2476 mov 0,%i0 ret restore call %g2 nop .long 2477 mov 0,%i0 ret restore call %g2 nop .long 2478 mov 0,%i0 ret restore call %g2 nop .long 2479 mov 0,%i0 ret restore call %g2 nop .long 2480 mov 0,%i0 ret restore call %g2 nop .long 2481 mov 0,%i0 ret restore call %g2 nop .long 2482 mov 0,%i0 ret restore call %g2 nop .long 2483 mov 0,%i0 ret restore call %g2 nop .long 2484 mov 0,%i0 ret restore call %g2 nop .long 2485 mov 0,%i0 ret restore call %g2 nop .long 2486 mov 0,%i0 ret restore call %g2 nop .long 2487 mov 0,%i0 ret restore call %g2 nop .long 2488 mov 0,%i0 ret restore call %g2 nop .long 2489 mov 0,%i0 ret restore call %g2 nop .long 2490 mov 0,%i0 ret restore call %g2 nop .long 2491 mov 0,%i0 ret restore call %g2 nop .long 2492 mov 0,%i0 ret restore call %g2 nop .long 2493 mov 0,%i0 ret restore call %g2 nop .long 2494 mov 0,%i0 ret restore call %g2 nop .long 2495 mov 0,%i0 ret restore call %g2 nop .long 2496 mov 0,%i0 ret restore call %g2 nop .long 2497 mov 0,%i0 ret restore call %g2 nop .long 2498 mov 0,%i0 ret restore call %g2 nop .long 2499 mov 0,%i0 ret restore call %g2 nop .long 2500 mov 0,%i0 ret restore call %g2 nop .long 2501 mov 0,%i0 ret restore call %g2 nop .long 2502 mov 0,%i0 ret restore call %g2 nop .long 2503 mov 0,%i0 ret restore call %g2 nop .long 2504 mov 0,%i0 ret restore call %g2 nop .long 2505 mov 0,%i0 ret restore call %g2 nop .long 2506 mov 0,%i0 ret restore call %g2 nop .long 2507 mov 0,%i0 ret restore call %g2 nop .long 2508 mov 0,%i0 ret restore call %g2 nop .long 2509 mov 0,%i0 ret restore call %g2 nop .long 2510 mov 0,%i0 ret restore call %g2 nop .long 2511 mov 0,%i0 ret restore call %g2 nop .long 2512 mov 0,%i0 ret restore call %g2 nop .long 2513 mov 0,%i0 ret restore call %g2 nop .long 2514 mov 0,%i0 ret restore call %g2 nop .long 2515 mov 0,%i0 ret restore call %g2 nop .long 2516 mov 0,%i0 ret restore call %g2 nop .long 2517 mov 0,%i0 ret restore call %g2 nop .long 2518 mov 0,%i0 ret restore call %g2 nop .long 2519 mov 0,%i0 ret restore call %g2 nop .long 2520 mov 0,%i0 ret restore call %g2 nop .long 2521 mov 0,%i0 ret restore call %g2 nop .long 2522 mov 0,%i0 ret restore call %g2 nop .long 2523 mov 0,%i0 ret restore call %g2 nop .long 2524 mov 0,%i0 ret restore call %g2 nop .long 2525 mov 0,%i0 ret restore call %g2 nop .long 2526 mov 0,%i0 ret restore call %g2 nop .long 2527 mov 0,%i0 ret restore call %g2 nop .long 2528 mov 0,%i0 ret restore call %g2 nop .long 2529 mov 0,%i0 ret restore call %g2 nop .long 2530 mov 0,%i0 ret restore call %g2 nop .long 2531 mov 0,%i0 ret restore call %g2 nop .long 2532 mov 0,%i0 ret restore call %g2 nop .long 2533 mov 0,%i0 ret restore call %g2 nop .long 2534 mov 0,%i0 ret restore call %g2 nop .long 2535 mov 0,%i0 ret restore call %g2 nop .long 2536 mov 0,%i0 ret restore call %g2 nop .long 2537 mov 0,%i0 ret restore call %g2 nop .long 2538 mov 0,%i0 ret restore call %g2 nop .long 2539 mov 0,%i0 ret restore call %g2 nop .long 2540 mov 0,%i0 ret restore call %g2 nop .long 2541 mov 0,%i0 ret restore call %g2 nop .long 2542 mov 0,%i0 ret restore call %g2 nop .long 2543 mov 0,%i0 ret restore call %g2 nop .long 2544 mov 0,%i0 ret restore call %g2 nop .long 2545 mov 0,%i0 ret restore call %g2 nop .long 2546 mov 0,%i0 ret restore call %g2 nop .long 2547 mov 0,%i0 ret restore call %g2 nop .long 2548 mov 0,%i0 ret restore call %g2 nop .long 2549 mov 0,%i0 ret restore call %g2 nop .long 2550 mov 0,%i0 ret restore call %g2 nop .long 2551 mov 0,%i0 ret restore call %g2 nop .long 2552 mov 0,%i0 ret restore call %g2 nop .long 2553 mov 0,%i0 ret restore call %g2 nop .long 2554 mov 0,%i0 ret restore call %g2 nop .long 2555 mov 0,%i0 ret restore call %g2 nop .long 2556 mov 0,%i0 ret restore call %g2 nop .long 2557 mov 0,%i0 ret restore call %g2 nop .long 2558 mov 0,%i0 ret restore call %g2 nop .long 2559 mov 0,%i0 ret restore call %g2 nop .long 2560 mov 0,%i0 ret restore call %g2 nop .long 2561 mov 0,%i0 ret restore call %g2 nop .long 2562 mov 0,%i0 ret restore call %g2 nop .long 2563 mov 0,%i0 ret restore call %g2 nop .long 2564 mov 0,%i0 ret restore call %g2 nop .long 2565 mov 0,%i0 ret restore call %g2 nop .long 2566 mov 0,%i0 ret restore call %g2 nop .long 2567 mov 0,%i0 ret restore call %g2 nop .long 2568 mov 0,%i0 ret restore call %g2 nop .long 2569 mov 0,%i0 ret restore call %g2 nop .long 2570 mov 0,%i0 ret restore call %g2 nop .long 2571 mov 0,%i0 ret restore call %g2 nop .long 2572 mov 0,%i0 ret restore call %g2 nop .long 2573 mov 0,%i0 ret restore call %g2 nop .long 2574 mov 0,%i0 ret restore call %g2 nop .long 2575 mov 0,%i0 ret restore call %g2 nop .long 2576 mov 0,%i0 ret restore call %g2 nop .long 2577 mov 0,%i0 ret restore call %g2 nop .long 2578 mov 0,%i0 ret restore call %g2 nop .long 2579 mov 0,%i0 ret restore call %g2 nop .long 2580 mov 0,%i0 ret restore call %g2 nop .long 2581 mov 0,%i0 ret restore call %g2 nop .long 2582 mov 0,%i0 ret restore call %g2 nop .long 2583 mov 0,%i0 ret restore call %g2 nop .long 2584 mov 0,%i0 ret restore call %g2 nop .long 2585 mov 0,%i0 ret restore call %g2 nop .long 2586 mov 0,%i0 ret restore call %g2 nop .long 2587 mov 0,%i0 ret restore call %g2 nop .long 2588 mov 0,%i0 ret restore call %g2 nop .long 2589 mov 0,%i0 ret restore call %g2 nop .long 2590 mov 0,%i0 ret restore call %g2 nop .long 2591 mov 0,%i0 ret restore call %g2 nop .long 2592 mov 0,%i0 ret restore call %g2 nop .long 2593 mov 0,%i0 ret restore call %g2 nop .long 2594 mov 0,%i0 ret restore call %g2 nop .long 2595 mov 0,%i0 ret restore call %g2 nop .long 2596 mov 0,%i0 ret restore call %g2 nop .long 2597 mov 0,%i0 ret restore call %g2 nop .long 2598 mov 0,%i0 ret restore call %g2 nop .long 2599 mov 0,%i0 ret restore call %g2 nop .long 2600 mov 0,%i0 ret restore call %g2 nop .long 2601 mov 0,%i0 ret restore call %g2 nop .long 2602 mov 0,%i0 ret restore call %g2 nop .long 2603 mov 0,%i0 ret restore call %g2 nop .long 2604 mov 0,%i0 ret restore call %g2 nop .long 2605 mov 0,%i0 ret restore call %g2 nop .long 2606 mov 0,%i0 ret restore call %g2 nop .long 2607 mov 0,%i0 ret restore call %g2 nop .long 2608 mov 0,%i0 ret restore call %g2 nop .long 2609 mov 0,%i0 ret restore call %g2 nop .long 2610 mov 0,%i0 ret restore call %g2 nop .long 2611 mov 0,%i0 ret restore call %g2 nop .long 2612 mov 0,%i0 ret restore call %g2 nop .long 2613 mov 0,%i0 ret restore call %g2 nop .long 2614 mov 0,%i0 ret restore call %g2 nop .long 2615 mov 0,%i0 ret restore call %g2 nop .long 2616 mov 0,%i0 ret restore call %g2 nop .long 2617 mov 0,%i0 ret restore call %g2 nop .long 2618 mov 0,%i0 ret restore call %g2 nop .long 2619 mov 0,%i0 ret restore call %g2 nop .long 2620 mov 0,%i0 ret restore call %g2 nop .long 2621 mov 0,%i0 ret restore call %g2 nop .long 2622 mov 0,%i0 ret restore call %g2 nop .long 2623 mov 0,%i0 ret restore call %g2 nop .long 2624 mov 0,%i0 ret restore call %g2 nop .long 2625 mov 0,%i0 ret restore call %g2 nop .long 2626 mov 0,%i0 ret restore call %g2 nop .long 2627 mov 0,%i0 ret restore call %g2 nop .long 2628 mov 0,%i0 ret restore call %g2 nop .long 2629 mov 0,%i0 ret restore call %g2 nop .long 2630 mov 0,%i0 ret restore call %g2 nop .long 2631 mov 0,%i0 ret restore call %g2 nop .long 2632 mov 0,%i0 ret restore call %g2 nop .long 2633 mov 0,%i0 ret restore call %g2 nop .long 2634 mov 0,%i0 ret restore call %g2 nop .long 2635 mov 0,%i0 ret restore call %g2 nop .long 2636 mov 0,%i0 ret restore call %g2 nop .long 2637 mov 0,%i0 ret restore call %g2 nop .long 2638 mov 0,%i0 ret restore call %g2 nop .long 2639 mov 0,%i0 ret restore call %g2 nop .long 2640 mov 0,%i0 ret restore call %g2 nop .long 2641 mov 0,%i0 ret restore call %g2 nop .long 2642 mov 0,%i0 ret restore call %g2 nop .long 2643 mov 0,%i0 ret restore call %g2 nop .long 2644 mov 0,%i0 ret restore call %g2 nop .long 2645 mov 0,%i0 ret restore call %g2 nop .long 2646 mov 0,%i0 ret restore call %g2 nop .long 2647 mov 0,%i0 ret restore call %g2 nop .long 2648 mov 0,%i0 ret restore call %g2 nop .long 2649 mov 0,%i0 ret restore call %g2 nop .long 2650 mov 0,%i0 ret restore call %g2 nop .long 2651 mov 0,%i0 ret restore call %g2 nop .long 2652 mov 0,%i0 ret restore call %g2 nop .long 2653 mov 0,%i0 ret restore call %g2 nop .long 2654 mov 0,%i0 ret restore call %g2 nop .long 2655 mov 0,%i0 ret restore call %g2 nop .long 2656 mov 0,%i0 ret restore call %g2 nop .long 2657 mov 0,%i0 ret restore call %g2 nop .long 2658 mov 0,%i0 ret restore call %g2 nop .long 2659 mov 0,%i0 ret restore call %g2 nop .long 2660 mov 0,%i0 ret restore call %g2 nop .long 2661 mov 0,%i0 ret restore call %g2 nop .long 2662 mov 0,%i0 ret restore call %g2 nop .long 2663 mov 0,%i0 ret restore call %g2 nop .long 2664 mov 0,%i0 ret restore call %g2 nop .long 2665 mov 0,%i0 ret restore call %g2 nop .long 2666 mov 0,%i0 ret restore call %g2 nop .long 2667 mov 0,%i0 ret restore call %g2 nop .long 2668 mov 0,%i0 ret restore call %g2 nop .long 2669 mov 0,%i0 ret restore call %g2 nop .long 2670 mov 0,%i0 ret restore call %g2 nop .long 2671 mov 0,%i0 ret restore call %g2 nop .long 2672 mov 0,%i0 ret restore call %g2 nop .long 2673 mov 0,%i0 ret restore call %g2 nop .long 2674 mov 0,%i0 ret restore call %g2 nop .long 2675 mov 0,%i0 ret restore call %g2 nop .long 2676 mov 0,%i0 ret restore call %g2 nop .long 2677 mov 0,%i0 ret restore call %g2 nop .long 2678 mov 0,%i0 ret restore call %g2 nop .long 2679 mov 0,%i0 ret restore call %g2 nop .long 2680 mov 0,%i0 ret restore call %g2 nop .long 2681 mov 0,%i0 ret restore call %g2 nop .long 2682 mov 0,%i0 ret restore call %g2 nop .long 2683 mov 0,%i0 ret restore call %g2 nop .long 2684 mov 0,%i0 ret restore call %g2 nop .long 2685 mov 0,%i0 ret restore call %g2 nop .long 2686 mov 0,%i0 ret restore call %g2 nop .long 2687 mov 0,%i0 ret restore call %g2 nop .long 2688 mov 0,%i0 ret restore call %g2 nop .long 2689 mov 0,%i0 ret restore call %g2 nop .long 2690 mov 0,%i0 ret restore call %g2 nop .long 2691 mov 0,%i0 ret restore call %g2 nop .long 2692 mov 0,%i0 ret restore call %g2 nop .long 2693 mov 0,%i0 ret restore call %g2 nop .long 2694 mov 0,%i0 ret restore call %g2 nop .long 2695 mov 0,%i0 ret restore call %g2 nop .long 2696 mov 0,%i0 ret restore call %g2 nop .long 2697 mov 0,%i0 ret restore call %g2 nop .long 2698 mov 0,%i0 ret restore call %g2 nop .long 2699 mov 0,%i0 ret restore call %g2 nop .long 2700 mov 0,%i0 ret restore call %g2 nop .long 2701 mov 0,%i0 ret restore call %g2 nop .long 2702 mov 0,%i0 ret restore call %g2 nop .long 2703 mov 0,%i0 ret restore call %g2 nop .long 2704 mov 0,%i0 ret restore call %g2 nop .long 2705 mov 0,%i0 ret restore call %g2 nop .long 2706 mov 0,%i0 ret restore call %g2 nop .long 2707 mov 0,%i0 ret restore call %g2 nop .long 2708 mov 0,%i0 ret restore call %g2 nop .long 2709 mov 0,%i0 ret restore call %g2 nop .long 2710 mov 0,%i0 ret restore call %g2 nop .long 2711 mov 0,%i0 ret restore call %g2 nop .long 2712 mov 0,%i0 ret restore call %g2 nop .long 2713 mov 0,%i0 ret restore call %g2 nop .long 2714 mov 0,%i0 ret restore call %g2 nop .long 2715 mov 0,%i0 ret restore call %g2 nop .long 2716 mov 0,%i0 ret restore call %g2 nop .long 2717 mov 0,%i0 ret restore call %g2 nop .long 2718 mov 0,%i0 ret restore call %g2 nop .long 2719 mov 0,%i0 ret restore call %g2 nop .long 2720 mov 0,%i0 ret restore call %g2 nop .long 2721 mov 0,%i0 ret restore call %g2 nop .long 2722 mov 0,%i0 ret restore call %g2 nop .long 2723 mov 0,%i0 ret restore call %g2 nop .long 2724 mov 0,%i0 ret restore call %g2 nop .long 2725 mov 0,%i0 ret restore call %g2 nop .long 2726 mov 0,%i0 ret restore call %g2 nop .long 2727 mov 0,%i0 ret restore call %g2 nop .long 2728 mov 0,%i0 ret restore call %g2 nop .long 2729 mov 0,%i0 ret restore call %g2 nop .long 2730 mov 0,%i0 ret restore call %g2 nop .long 2731 mov 0,%i0 ret restore call %g2 nop .long 2732 mov 0,%i0 ret restore call %g2 nop .long 2733 mov 0,%i0 ret restore call %g2 nop .long 2734 mov 0,%i0 ret restore call %g2 nop .long 2735 mov 0,%i0 ret restore call %g2 nop .long 2736 mov 0,%i0 ret restore call %g2 nop .long 2737 mov 0,%i0 ret restore call %g2 nop .long 2738 mov 0,%i0 ret restore call %g2 nop .long 2739 mov 0,%i0 ret restore call %g2 nop .long 2740 mov 0,%i0 ret restore call %g2 nop .long 2741 mov 0,%i0 ret restore call %g2 nop .long 2742 mov 0,%i0 ret restore call %g2 nop .long 2743 mov 0,%i0 ret restore call %g2 nop .long 2744 mov 0,%i0 ret restore call %g2 nop .long 2745 mov 0,%i0 ret restore call %g2 nop .long 2746 mov 0,%i0 ret restore call %g2 nop .long 2747 mov 0,%i0 ret restore call %g2 nop .long 2748 mov 0,%i0 ret restore call %g2 nop .long 2749 mov 0,%i0 ret restore call %g2 nop .long 2750 mov 0,%i0 ret restore call %g2 nop .long 2751 mov 0,%i0 ret restore call %g2 nop .long 2752 mov 0,%i0 ret restore call %g2 nop .long 2753 mov 0,%i0 ret restore call %g2 nop .long 2754 mov 0,%i0 ret restore call %g2 nop .long 2755 mov 0,%i0 ret restore call %g2 nop .long 2756 mov 0,%i0 ret restore call %g2 nop .long 2757 mov 0,%i0 ret restore call %g2 nop .long 2758 mov 0,%i0 ret restore call %g2 nop .long 2759 mov 0,%i0 ret restore call %g2 nop .long 2760 mov 0,%i0 ret restore call %g2 nop .long 2761 mov 0,%i0 ret restore call %g2 nop .long 2762 mov 0,%i0 ret restore call %g2 nop .long 2763 mov 0,%i0 ret restore call %g2 nop .long 2764 mov 0,%i0 ret restore call %g2 nop .long 2765 mov 0,%i0 ret restore call %g2 nop .long 2766 mov 0,%i0 ret restore call %g2 nop .long 2767 mov 0,%i0 ret restore call %g2 nop .long 2768 mov 0,%i0 ret restore call %g2 nop .long 2769 mov 0,%i0 ret restore call %g2 nop .long 2770 mov 0,%i0 ret restore call %g2 nop .long 2771 mov 0,%i0 ret restore call %g2 nop .long 2772 mov 0,%i0 ret restore call %g2 nop .long 2773 mov 0,%i0 ret restore call %g2 nop .long 2774 mov 0,%i0 ret restore call %g2 nop .long 2775 mov 0,%i0 ret restore call %g2 nop .long 2776 mov 0,%i0 ret restore call %g2 nop .long 2777 mov 0,%i0 ret restore call %g2 nop .long 2778 mov 0,%i0 ret restore call %g2 nop .long 2779 mov 0,%i0 ret restore call %g2 nop .long 2780 mov 0,%i0 ret restore call %g2 nop .long 2781 mov 0,%i0 ret restore call %g2 nop .long 2782 mov 0,%i0 ret restore call %g2 nop .long 2783 mov 0,%i0 ret restore call %g2 nop .long 2784 mov 0,%i0 ret restore call %g2 nop .long 2785 mov 0,%i0 ret restore call %g2 nop .long 2786 mov 0,%i0 ret restore call %g2 nop .long 2787 mov 0,%i0 ret restore call %g2 nop .long 2788 mov 0,%i0 ret restore call %g2 nop .long 2789 mov 0,%i0 ret restore call %g2 nop .long 2790 mov 0,%i0 ret restore call %g2 nop .long 2791 mov 0,%i0 ret restore call %g2 nop .long 2792 mov 0,%i0 ret restore call %g2 nop .long 2793 mov 0,%i0 ret restore call %g2 nop .long 2794 mov 0,%i0 ret restore call %g2 nop .long 2795 mov 0,%i0 ret restore call %g2 nop .long 2796 mov 0,%i0 ret restore call %g2 nop .long 2797 mov 0,%i0 ret restore call %g2 nop .long 2798 mov 0,%i0 ret restore call %g2 nop .long 2799 mov 0,%i0 ret restore call %g2 nop .long 2800 mov 0,%i0 ret restore call %g2 nop .long 2801 mov 0,%i0 ret restore call %g2 nop .long 2802 mov 0,%i0 ret restore call %g2 nop .long 2803 mov 0,%i0 ret restore call %g2 nop .long 2804 mov 0,%i0 ret restore call %g2 nop .long 2805 mov 0,%i0 ret restore call %g2 nop .long 2806 mov 0,%i0 ret restore call %g2 nop .long 2807 mov 0,%i0 ret restore call %g2 nop .long 2808 mov 0,%i0 ret restore call %g2 nop .long 2809 mov 0,%i0 ret restore call %g2 nop .long 2810 mov 0,%i0 ret restore call %g2 nop .long 2811 mov 0,%i0 ret restore call %g2 nop .long 2812 mov 0,%i0 ret restore call %g2 nop .long 2813 mov 0,%i0 ret restore call %g2 nop .long 2814 mov 0,%i0 ret restore call %g2 nop .long 2815 mov 0,%i0 ret restore call %g2 nop .long 2816 mov 0,%i0 ret restore call %g2 nop .long 2817 mov 0,%i0 ret restore call %g2 nop .long 2818 mov 0,%i0 ret restore call %g2 nop .long 2819 mov 0,%i0 ret restore call %g2 nop .long 2820 mov 0,%i0 ret restore call %g2 nop .long 2821 mov 0,%i0 ret restore call %g2 nop .long 2822 mov 0,%i0 ret restore call %g2 nop .long 2823 mov 0,%i0 ret restore call %g2 nop .long 2824 mov 0,%i0 ret restore call %g2 nop .long 2825 mov 0,%i0 ret restore call %g2 nop .long 2826 mov 0,%i0 ret restore call %g2 nop .long 2827 mov 0,%i0 ret restore call %g2 nop .long 2828 mov 0,%i0 ret restore call %g2 nop .long 2829 mov 0,%i0 ret restore call %g2 nop .long 2830 mov 0,%i0 ret restore call %g2 nop .long 2831 mov 0,%i0 ret restore call %g2 nop .long 2832 mov 0,%i0 ret restore call %g2 nop .long 2833 mov 0,%i0 ret restore call %g2 nop .long 2834 mov 0,%i0 ret restore call %g2 nop .long 2835 mov 0,%i0 ret restore call %g2 nop .long 2836 mov 0,%i0 ret restore call %g2 nop .long 2837 mov 0,%i0 ret restore call %g2 nop .long 2838 mov 0,%i0 ret restore call %g2 nop .long 2839 mov 0,%i0 ret restore call %g2 nop .long 2840 mov 0,%i0 ret restore call %g2 nop .long 2841 mov 0,%i0 ret restore call %g2 nop .long 2842 mov 0,%i0 ret restore call %g2 nop .long 2843 mov 0,%i0 ret restore call %g2 nop .long 2844 mov 0,%i0 ret restore call %g2 nop .long 2845 mov 0,%i0 ret restore call %g2 nop .long 2846 mov 0,%i0 ret restore call %g2 nop .long 2847 mov 0,%i0 ret restore call %g2 nop .long 2848 mov 0,%i0 ret restore call %g2 nop .long 2849 mov 0,%i0 ret restore call %g2 nop .long 2850 mov 0,%i0 ret restore call %g2 nop .long 2851 mov 0,%i0 ret restore call %g2 nop .long 2852 mov 0,%i0 ret restore call %g2 nop .long 2853 mov 0,%i0 ret restore call %g2 nop .long 2854 mov 0,%i0 ret restore call %g2 nop .long 2855 mov 0,%i0 ret restore call %g2 nop .long 2856 mov 0,%i0 ret restore call %g2 nop .long 2857 mov 0,%i0 ret restore call %g2 nop .long 2858 mov 0,%i0 ret restore call %g2 nop .long 2859 mov 0,%i0 ret restore call %g2 nop .long 2860 mov 0,%i0 ret restore call %g2 nop .long 2861 mov 0,%i0 ret restore call %g2 nop .long 2862 mov 0,%i0 ret restore call %g2 nop .long 2863 mov 0,%i0 ret restore call %g2 nop .long 2864 mov 0,%i0 ret restore call %g2 nop .long 2865 mov 0,%i0 ret restore call %g2 nop .long 2866 mov 0,%i0 ret restore call %g2 nop .long 2867 mov 0,%i0 ret restore call %g2 nop .long 2868 mov 0,%i0 ret restore call %g2 nop .long 2869 mov 0,%i0 ret restore call %g2 nop .long 2870 mov 0,%i0 ret restore call %g2 nop .long 2871 mov 0,%i0 ret restore call %g2 nop .long 2872 mov 0,%i0 ret restore call %g2 nop .long 2873 mov 0,%i0 ret restore call %g2 nop .long 2874 mov 0,%i0 ret restore call %g2 nop .long 2875 mov 0,%i0 ret restore call %g2 nop .long 2876 mov 0,%i0 ret restore call %g2 nop .long 2877 mov 0,%i0 ret restore call %g2 nop .long 2878 mov 0,%i0 ret restore call %g2 nop .long 2879 mov 0,%i0 ret restore call %g2 nop .long 2880 mov 0,%i0 ret restore call %g2 nop .long 2881 mov 0,%i0 ret restore call %g2 nop .long 2882 mov 0,%i0 ret restore call %g2 nop .long 2883 mov 0,%i0 ret restore call %g2 nop .long 2884 mov 0,%i0 ret restore call %g2 nop .long 2885 mov 0,%i0 ret restore call %g2 nop .long 2886 mov 0,%i0 ret restore call %g2 nop .long 2887 mov 0,%i0 ret restore call %g2 nop .long 2888 mov 0,%i0 ret restore call %g2 nop .long 2889 mov 0,%i0 ret restore call %g2 nop .long 2890 mov 0,%i0 ret restore call %g2 nop .long 2891 mov 0,%i0 ret restore call %g2 nop .long 2892 mov 0,%i0 ret restore call %g2 nop .long 2893 mov 0,%i0 ret restore call %g2 nop .long 2894 mov 0,%i0 ret restore call %g2 nop .long 2895 mov 0,%i0 ret restore call %g2 nop .long 2896 mov 0,%i0 ret restore call %g2 nop .long 2897 mov 0,%i0 ret restore call %g2 nop .long 2898 mov 0,%i0 ret restore call %g2 nop .long 2899 mov 0,%i0 ret restore call %g2 nop .long 2900 mov 0,%i0 ret restore call %g2 nop .long 2901 mov 0,%i0 ret restore call %g2 nop .long 2902 mov 0,%i0 ret restore call %g2 nop .long 2903 mov 0,%i0 ret restore call %g2 nop .long 2904 mov 0,%i0 ret restore call %g2 nop .long 2905 mov 0,%i0 ret restore call %g2 nop .long 2906 mov 0,%i0 ret restore call %g2 nop .long 2907 mov 0,%i0 ret restore call %g2 nop .long 2908 mov 0,%i0 ret restore call %g2 nop .long 2909 mov 0,%i0 ret restore call %g2 nop .long 2910 mov 0,%i0 ret restore call %g2 nop .long 2911 mov 0,%i0 ret restore call %g2 nop .long 2912 mov 0,%i0 ret restore call %g2 nop .long 2913 mov 0,%i0 ret restore call %g2 nop .long 2914 mov 0,%i0 ret restore call %g2 nop .long 2915 mov 0,%i0 ret restore call %g2 nop .long 2916 mov 0,%i0 ret restore call %g2 nop .long 2917 mov 0,%i0 ret restore call %g2 nop .long 2918 mov 0,%i0 ret restore call %g2 nop .long 2919 mov 0,%i0 ret restore call %g2 nop .long 2920 mov 0,%i0 ret restore call %g2 nop .long 2921 mov 0,%i0 ret restore call %g2 nop .long 2922 mov 0,%i0 ret restore call %g2 nop .long 2923 mov 0,%i0 ret restore call %g2 nop .long 2924 mov 0,%i0 ret restore call %g2 nop .long 2925 mov 0,%i0 ret restore call %g2 nop .long 2926 mov 0,%i0 ret restore call %g2 nop .long 2927 mov 0,%i0 ret restore call %g2 nop .long 2928 mov 0,%i0 ret restore call %g2 nop .long 2929 mov 0,%i0 ret restore call %g2 nop .long 2930 mov 0,%i0 ret restore call %g2 nop .long 2931 mov 0,%i0 ret restore call %g2 nop .long 2932 mov 0,%i0 ret restore call %g2 nop .long 2933 mov 0,%i0 ret restore call %g2 nop .long 2934 mov 0,%i0 ret restore call %g2 nop .long 2935 mov 0,%i0 ret restore call %g2 nop .long 2936 mov 0,%i0 ret restore call %g2 nop .long 2937 mov 0,%i0 ret restore call %g2 nop .long 2938 mov 0,%i0 ret restore call %g2 nop .long 2939 mov 0,%i0 ret restore call %g2 nop .long 2940 mov 0,%i0 ret restore call %g2 nop .long 2941 mov 0,%i0 ret restore call %g2 nop .long 2942 mov 0,%i0 ret restore call %g2 nop .long 2943 mov 0,%i0 ret restore call %g2 nop .long 2944 mov 0,%i0 ret restore call %g2 nop .long 2945 mov 0,%i0 ret restore call %g2 nop .long 2946 mov 0,%i0 ret restore call %g2 nop .long 2947 mov 0,%i0 ret restore call %g2 nop .long 2948 mov 0,%i0 ret restore call %g2 nop .long 2949 mov 0,%i0 ret restore call %g2 nop .long 2950 mov 0,%i0 ret restore call %g2 nop .long 2951 mov 0,%i0 ret restore call %g2 nop .long 2952 mov 0,%i0 ret restore call %g2 nop .long 2953 mov 0,%i0 ret restore call %g2 nop .long 2954 mov 0,%i0 ret restore call %g2 nop .long 2955 mov 0,%i0 ret restore call %g2 nop .long 2956 mov 0,%i0 ret restore call %g2 nop .long 2957 mov 0,%i0 ret restore call %g2 nop .long 2958 mov 0,%i0 ret restore call %g2 nop .long 2959 mov 0,%i0 ret restore call %g2 nop .long 2960 mov 0,%i0 ret restore call %g2 nop .long 2961 mov 0,%i0 ret restore call %g2 nop .long 2962 mov 0,%i0 ret restore call %g2 nop .long 2963 mov 0,%i0 ret restore call %g2 nop .long 2964 mov 0,%i0 ret restore call %g2 nop .long 2965 mov 0,%i0 ret restore call %g2 nop .long 2966 mov 0,%i0 ret restore call %g2 nop .long 2967 mov 0,%i0 ret restore call %g2 nop .long 2968 mov 0,%i0 ret restore call %g2 nop .long 2969 mov 0,%i0 ret restore call %g2 nop .long 2970 mov 0,%i0 ret restore call %g2 nop .long 2971 mov 0,%i0 ret restore call %g2 nop .long 2972 mov 0,%i0 ret restore call %g2 nop .long 2973 mov 0,%i0 ret restore call %g2 nop .long 2974 mov 0,%i0 ret restore call %g2 nop .long 2975 mov 0,%i0 ret restore call %g2 nop .long 2976 mov 0,%i0 ret restore call %g2 nop .long 2977 mov 0,%i0 ret restore call %g2 nop .long 2978 mov 0,%i0 ret restore call %g2 nop .long 2979 mov 0,%i0 ret restore call %g2 nop .long 2980 mov 0,%i0 ret restore call %g2 nop .long 2981 mov 0,%i0 ret restore call %g2 nop .long 2982 mov 0,%i0 ret restore call %g2 nop .long 2983 mov 0,%i0 ret restore call %g2 nop .long 2984 mov 0,%i0 ret restore call %g2 nop .long 2985 mov 0,%i0 ret restore call %g2 nop .long 2986 mov 0,%i0 ret restore call %g2 nop .long 2987 mov 0,%i0 ret restore call %g2 nop .long 2988 mov 0,%i0 ret restore call %g2 nop .long 2989 mov 0,%i0 ret restore call %g2 nop .long 2990 mov 0,%i0 ret restore call %g2 nop .long 2991 mov 0,%i0 ret restore call %g2 nop .long 2992 mov 0,%i0 ret restore call %g2 nop .long 2993 mov 0,%i0 ret restore call %g2 nop .long 2994 mov 0,%i0 ret restore call %g2 nop .long 2995 mov 0,%i0 ret restore call %g2 nop .long 2996 mov 0,%i0 ret restore call %g2 nop .long 2997 mov 0,%i0 ret restore call %g2 nop .long 2998 mov 0,%i0 ret restore call %g2 nop .long 2999 mov 0,%i0 ret restore call %g2 nop .long 3000 mov 0,%i0 ret restore call %g2 nop .long 3001 mov 0,%i0 ret restore call %g2 nop .long 3002 mov 0,%i0 ret restore call %g2 nop .long 3003 mov 0,%i0 ret restore call %g2 nop .long 3004 mov 0,%i0 ret restore call %g2 nop .long 3005 mov 0,%i0 ret restore call %g2 nop .long 3006 mov 0,%i0 ret restore call %g2 nop .long 3007 mov 0,%i0 ret restore call %g2 nop .long 3008 mov 0,%i0 ret restore call %g2 nop .long 3009 mov 0,%i0 ret restore call %g2 nop .long 3010 mov 0,%i0 ret restore call %g2 nop .long 3011 mov 0,%i0 ret restore call %g2 nop .long 3012 mov 0,%i0 ret restore call %g2 nop .long 3013 mov 0,%i0 ret restore call %g2 nop .long 3014 mov 0,%i0 ret restore call %g2 nop .long 3015 mov 0,%i0 ret restore call %g2 nop .long 3016 mov 0,%i0 ret restore call %g2 nop .long 3017 mov 0,%i0 ret restore call %g2 nop .long 3018 mov 0,%i0 ret restore call %g2 nop .long 3019 mov 0,%i0 ret restore call %g2 nop .long 3020 mov 0,%i0 ret restore call %g2 nop .long 3021 mov 0,%i0 ret restore call %g2 nop .long 3022 mov 0,%i0 ret restore call %g2 nop .long 3023 mov 0,%i0 ret restore call %g2 nop .long 3024 mov 0,%i0 ret restore call %g2 nop .long 3025 mov 0,%i0 ret restore call %g2 nop .long 3026 mov 0,%i0 ret restore call %g2 nop .long 3027 mov 0,%i0 ret restore call %g2 nop .long 3028 mov 0,%i0 ret restore call %g2 nop .long 3029 mov 0,%i0 ret restore call %g2 nop .long 3030 mov 0,%i0 ret restore call %g2 nop .long 3031 mov 0,%i0 ret restore call %g2 nop .long 3032 mov 0,%i0 ret restore call %g2 nop .long 3033 mov 0,%i0 ret restore call %g2 nop .long 3034 mov 0,%i0 ret restore call %g2 nop .long 3035 mov 0,%i0 ret restore call %g2 nop .long 3036 mov 0,%i0 ret restore call %g2 nop .long 3037 mov 0,%i0 ret restore call %g2 nop .long 3038 mov 0,%i0 ret restore call %g2 nop .long 3039 mov 0,%i0 ret restore call %g2 nop .long 3040 mov 0,%i0 ret restore call %g2 nop .long 3041 mov 0,%i0 ret restore call %g2 nop .long 3042 mov 0,%i0 ret restore call %g2 nop .long 3043 mov 0,%i0 ret restore call %g2 nop .long 3044 mov 0,%i0 ret restore call %g2 nop .long 3045 mov 0,%i0 ret restore call %g2 nop .long 3046 mov 0,%i0 ret restore call %g2 nop .long 3047 mov 0,%i0 ret restore call %g2 nop .long 3048 mov 0,%i0 ret restore call %g2 nop .long 3049 mov 0,%i0 ret restore call %g2 nop .long 3050 mov 0,%i0 ret restore call %g2 nop .long 3051 mov 0,%i0 ret restore call %g2 nop .long 3052 mov 0,%i0 ret restore call %g2 nop .long 3053 mov 0,%i0 ret restore call %g2 nop .long 3054 mov 0,%i0 ret restore call %g2 nop .long 3055 mov 0,%i0 ret restore call %g2 nop .long 3056 mov 0,%i0 ret restore call %g2 nop .long 3057 mov 0,%i0 ret restore call %g2 nop .long 3058 mov 0,%i0 ret restore call %g2 nop .long 3059 mov 0,%i0 ret restore call %g2 nop .long 3060 mov 0,%i0 ret restore call %g2 nop .long 3061 mov 0,%i0 ret restore call %g2 nop .long 3062 mov 0,%i0 ret restore call %g2 nop .long 3063 mov 0,%i0 ret restore call %g2 nop .long 3064 mov 0,%i0 ret restore call %g2 nop .long 3065 mov 0,%i0 ret restore call %g2 nop .long 3066 mov 0,%i0 ret restore call %g2 nop .long 3067 mov 0,%i0 ret restore call %g2 nop .long 3068 mov 0,%i0 ret restore call %g2 nop .long 3069 mov 0,%i0 ret restore call %g2 nop .long 3070 mov 0,%i0 ret restore call %g2 nop .long 3071 mov 0,%i0 ret restore call %g2 nop .long 3072 mov 0,%i0 ret restore call %g2 nop .long 3073 mov 0,%i0 ret restore call %g2 nop .long 3074 mov 0,%i0 ret restore call %g2 nop .long 3075 mov 0,%i0 ret restore call %g2 nop .long 3076 mov 0,%i0 ret restore call %g2 nop .long 3077 mov 0,%i0 ret restore call %g2 nop .long 3078 mov 0,%i0 ret restore call %g2 nop .long 3079 mov 0,%i0 ret restore call %g2 nop .long 3080 mov 0,%i0 ret restore call %g2 nop .long 3081 mov 0,%i0 ret restore call %g2 nop .long 3082 mov 0,%i0 ret restore call %g2 nop .long 3083 mov 0,%i0 ret restore call %g2 nop .long 3084 mov 0,%i0 ret restore call %g2 nop .long 3085 mov 0,%i0 ret restore call %g2 nop .long 3086 mov 0,%i0 ret restore call %g2 nop .long 3087 mov 0,%i0 ret restore call %g2 nop .long 3088 mov 0,%i0 ret restore call %g2 nop .long 3089 mov 0,%i0 ret restore call %g2 nop .long 3090 mov 0,%i0 ret restore call %g2 nop .long 3091 mov 0,%i0 ret restore call %g2 nop .long 3092 mov 0,%i0 ret restore call %g2 nop .long 3093 mov 0,%i0 ret restore call %g2 nop .long 3094 mov 0,%i0 ret restore call %g2 nop .long 3095 mov 0,%i0 ret restore call %g2 nop .long 3096 mov 0,%i0 ret restore call %g2 nop .long 3097 mov 0,%i0 ret restore call %g2 nop .long 3098 mov 0,%i0 ret restore call %g2 nop .long 3099 mov 0,%i0 ret restore call %g2 nop .long 3100 mov 0,%i0 ret restore call %g2 nop .long 3101 mov 0,%i0 ret restore call %g2 nop .long 3102 mov 0,%i0 ret restore call %g2 nop .long 3103 mov 0,%i0 ret restore call %g2 nop .long 3104 mov 0,%i0 ret restore call %g2 nop .long 3105 mov 0,%i0 ret restore call %g2 nop .long 3106 mov 0,%i0 ret restore call %g2 nop .long 3107 mov 0,%i0 ret restore call %g2 nop .long 3108 mov 0,%i0 ret restore call %g2 nop .long 3109 mov 0,%i0 ret restore call %g2 nop .long 3110 mov 0,%i0 ret restore call %g2 nop .long 3111 mov 0,%i0 ret restore call %g2 nop .long 3112 mov 0,%i0 ret restore call %g2 nop .long 3113 mov 0,%i0 ret restore call %g2 nop .long 3114 mov 0,%i0 ret restore call %g2 nop .long 3115 mov 0,%i0 ret restore call %g2 nop .long 3116 mov 0,%i0 ret restore call %g2 nop .long 3117 mov 0,%i0 ret restore call %g2 nop .long 3118 mov 0,%i0 ret restore call %g2 nop .long 3119 mov 0,%i0 ret restore call %g2 nop .long 3120 mov 0,%i0 ret restore call %g2 nop .long 3121 mov 0,%i0 ret restore call %g2 nop .long 3122 mov 0,%i0 ret restore call %g2 nop .long 3123 mov 0,%i0 ret restore call %g2 nop .long 3124 mov 0,%i0 ret restore call %g2 nop .long 3125 mov 0,%i0 ret restore call %g2 nop .long 3126 mov 0,%i0 ret restore call %g2 nop .long 3127 mov 0,%i0 ret restore call %g2 nop .long 3128 mov 0,%i0 ret restore call %g2 nop .long 3129 mov 0,%i0 ret restore call %g2 nop .long 3130 mov 0,%i0 ret restore call %g2 nop .long 3131 mov 0,%i0 ret restore call %g2 nop .long 3132 mov 0,%i0 ret restore call %g2 nop .long 3133 mov 0,%i0 ret restore call %g2 nop .long 3134 mov 0,%i0 ret restore call %g2 nop .long 3135 mov 0,%i0 ret restore call %g2 nop .long 3136 mov 0,%i0 ret restore call %g2 nop .long 3137 mov 0,%i0 ret restore call %g2 nop .long 3138 mov 0,%i0 ret restore call %g2 nop .long 3139 mov 0,%i0 ret restore call %g2 nop .long 3140 mov 0,%i0 ret restore call %g2 nop .long 3141 mov 0,%i0 ret restore call %g2 nop .long 3142 mov 0,%i0 ret restore call %g2 nop .long 3143 mov 0,%i0 ret restore call %g2 nop .long 3144 mov 0,%i0 ret restore call %g2 nop .long 3145 mov 0,%i0 ret restore call %g2 nop .long 3146 mov 0,%i0 ret restore call %g2 nop .long 3147 mov 0,%i0 ret restore call %g2 nop .long 3148 mov 0,%i0 ret restore call %g2 nop .long 3149 mov 0,%i0 ret restore call %g2 nop .long 3150 mov 0,%i0 ret restore call %g2 nop .long 3151 mov 0,%i0 ret restore call %g2 nop .long 3152 mov 0,%i0 ret restore call %g2 nop .long 3153 mov 0,%i0 ret restore call %g2 nop .long 3154 mov 0,%i0 ret restore call %g2 nop .long 3155 mov 0,%i0 ret restore call %g2 nop .long 3156 mov 0,%i0 ret restore call %g2 nop .long 3157 mov 0,%i0 ret restore call %g2 nop .long 3158 mov 0,%i0 ret restore call %g2 nop .long 3159 mov 0,%i0 ret restore call %g2 nop .long 3160 mov 0,%i0 ret restore call %g2 nop .long 3161 mov 0,%i0 ret restore call %g2 nop .long 3162 mov 0,%i0 ret restore call %g2 nop .long 3163 mov 0,%i0 ret restore call %g2 nop .long 3164 mov 0,%i0 ret restore call %g2 nop .long 3165 mov 0,%i0 ret restore call %g2 nop .long 3166 mov 0,%i0 ret restore call %g2 nop .long 3167 mov 0,%i0 ret restore call %g2 nop .long 3168 mov 0,%i0 ret restore call %g2 nop .long 3169 mov 0,%i0 ret restore call %g2 nop .long 3170 mov 0,%i0 ret restore call %g2 nop .long 3171 mov 0,%i0 ret restore call %g2 nop .long 3172 mov 0,%i0 ret restore call %g2 nop .long 3173 mov 0,%i0 ret restore call %g2 nop .long 3174 mov 0,%i0 ret restore call %g2 nop .long 3175 mov 0,%i0 ret restore call %g2 nop .long 3176 mov 0,%i0 ret restore call %g2 nop .long 3177 mov 0,%i0 ret restore call %g2 nop .long 3178 mov 0,%i0 ret restore call %g2 nop .long 3179 mov 0,%i0 ret restore call %g2 nop .long 3180 mov 0,%i0 ret restore call %g2 nop .long 3181 mov 0,%i0 ret restore call %g2 nop .long 3182 mov 0,%i0 ret restore call %g2 nop .long 3183 mov 0,%i0 ret restore call %g2 nop .long 3184 mov 0,%i0 ret restore call %g2 nop .long 3185 mov 0,%i0 ret restore call %g2 nop .long 3186 mov 0,%i0 ret restore call %g2 nop .long 3187 mov 0,%i0 ret restore call %g2 nop .long 3188 mov 0,%i0 ret restore call %g2 nop .long 3189 mov 0,%i0 ret restore call %g2 nop .long 3190 mov 0,%i0 ret restore call %g2 nop .long 3191 mov 0,%i0 ret restore call %g2 nop .long 3192 mov 0,%i0 ret restore call %g2 nop .long 3193 mov 0,%i0 ret restore call %g2 nop .long 3194 mov 0,%i0 ret restore call %g2 nop .long 3195 mov 0,%i0 ret restore call %g2 nop .long 3196 mov 0,%i0 ret restore call %g2 nop .long 3197 mov 0,%i0 ret restore call %g2 nop .long 3198 mov 0,%i0 ret restore call %g2 nop .long 3199 mov 0,%i0 ret restore call %g2 nop .long 3200 mov 0,%i0 ret restore call %g2 nop .long 3201 mov 0,%i0 ret restore call %g2 nop .long 3202 mov 0,%i0 ret restore call %g2 nop .long 3203 mov 0,%i0 ret restore call %g2 nop .long 3204 mov 0,%i0 ret restore call %g2 nop .long 3205 mov 0,%i0 ret restore call %g2 nop .long 3206 mov 0,%i0 ret restore call %g2 nop .long 3207 mov 0,%i0 ret restore call %g2 nop .long 3208 mov 0,%i0 ret restore call %g2 nop .long 3209 mov 0,%i0 ret restore call %g2 nop .long 3210 mov 0,%i0 ret restore call %g2 nop .long 3211 mov 0,%i0 ret restore call %g2 nop .long 3212 mov 0,%i0 ret restore call %g2 nop .long 3213 mov 0,%i0 ret restore call %g2 nop .long 3214 mov 0,%i0 ret restore call %g2 nop .long 3215 mov 0,%i0 ret restore call %g2 nop .long 3216 mov 0,%i0 ret restore call %g2 nop .long 3217 mov 0,%i0 ret restore call %g2 nop .long 3218 mov 0,%i0 ret restore call %g2 nop .long 3219 mov 0,%i0 ret restore call %g2 nop .long 3220 mov 0,%i0 ret restore call %g2 nop .long 3221 mov 0,%i0 ret restore call %g2 nop .long 3222 mov 0,%i0 ret restore call %g2 nop .long 3223 mov 0,%i0 ret restore call %g2 nop .long 3224 mov 0,%i0 ret restore call %g2 nop .long 3225 mov 0,%i0 ret restore call %g2 nop .long 3226 mov 0,%i0 ret restore call %g2 nop .long 3227 mov 0,%i0 ret restore call %g2 nop .long 3228 mov 0,%i0 ret restore call %g2 nop .long 3229 mov 0,%i0 ret restore call %g2 nop .long 3230 mov 0,%i0 ret restore call %g2 nop .long 3231 mov 0,%i0 ret restore call %g2 nop .long 3232 mov 0,%i0 ret restore call %g2 nop .long 3233 mov 0,%i0 ret restore call %g2 nop .long 3234 mov 0,%i0 ret restore call %g2 nop .long 3235 mov 0,%i0 ret restore call %g2 nop .long 3236 mov 0,%i0 ret restore call %g2 nop .long 3237 mov 0,%i0 ret restore call %g2 nop .long 3238 mov 0,%i0 ret restore call %g2 nop .long 3239 mov 0,%i0 ret restore call %g2 nop .long 3240 mov 0,%i0 ret restore call %g2 nop .long 3241 mov 0,%i0 ret restore call %g2 nop .long 3242 mov 0,%i0 ret restore call %g2 nop .long 3243 mov 0,%i0 ret restore call %g2 nop .long 3244 mov 0,%i0 ret restore call %g2 nop .long 3245 mov 0,%i0 ret restore call %g2 nop .long 3246 mov 0,%i0 ret restore call %g2 nop .long 3247 mov 0,%i0 ret restore call %g2 nop .long 3248 mov 0,%i0 ret restore call %g2 nop .long 3249 mov 0,%i0 ret restore call %g2 nop .long 3250 mov 0,%i0 ret restore call %g2 nop .long 3251 mov 0,%i0 ret restore call %g2 nop .long 3252 mov 0,%i0 ret restore call %g2 nop .long 3253 mov 0,%i0 ret restore call %g2 nop .long 3254 mov 0,%i0 ret restore call %g2 nop .long 3255 mov 0,%i0 ret restore call %g2 nop .long 3256 mov 0,%i0 ret restore call %g2 nop .long 3257 mov 0,%i0 ret restore call %g2 nop .long 3258 mov 0,%i0 ret restore call %g2 nop .long 3259 mov 0,%i0 ret restore call %g2 nop .long 3260 mov 0,%i0 ret restore call %g2 nop .long 3261 mov 0,%i0 ret restore call %g2 nop .long 3262 mov 0,%i0 ret restore call %g2 nop .long 3263 mov 0,%i0 ret restore call %g2 nop .long 3264 mov 0,%i0 ret restore call %g2 nop .long 3265 mov 0,%i0 ret restore call %g2 nop .long 3266 mov 0,%i0 ret restore call %g2 nop .long 3267 mov 0,%i0 ret restore call %g2 nop .long 3268 mov 0,%i0 ret restore call %g2 nop .long 3269 mov 0,%i0 ret restore call %g2 nop .long 3270 mov 0,%i0 ret restore call %g2 nop .long 3271 mov 0,%i0 ret restore call %g2 nop .long 3272 mov 0,%i0 ret restore call %g2 nop .long 3273 mov 0,%i0 ret restore call %g2 nop .long 3274 mov 0,%i0 ret restore call %g2 nop .long 3275 mov 0,%i0 ret restore call %g2 nop .long 3276 mov 0,%i0 ret restore call %g2 nop .long 3277 mov 0,%i0 ret restore call %g2 nop .long 3278 mov 0,%i0 ret restore call %g2 nop .long 3279 mov 0,%i0 ret restore call %g2 nop .long 3280 mov 0,%i0 ret restore call %g2 nop .long 3281 mov 0,%i0 ret restore call %g2 nop .long 3282 mov 0,%i0 ret restore call %g2 nop .long 3283 mov 0,%i0 ret restore call %g2 nop .long 3284 mov 0,%i0 ret restore call %g2 nop .long 3285 mov 0,%i0 ret restore call %g2 nop .long 3286 mov 0,%i0 ret restore call %g2 nop .long 3287 mov 0,%i0 ret restore call %g2 nop .long 3288 mov 0,%i0 ret restore call %g2 nop .long 3289 mov 0,%i0 ret restore call %g2 nop .long 3290 mov 0,%i0 ret restore call %g2 nop .long 3291 mov 0,%i0 ret restore call %g2 nop .long 3292 mov 0,%i0 ret restore call %g2 nop .long 3293 mov 0,%i0 ret restore call %g2 nop .long 3294 mov 0,%i0 ret restore call %g2 nop .long 3295 mov 0,%i0 ret restore call %g2 nop .long 3296 mov 0,%i0 ret restore call %g2 nop .long 3297 mov 0,%i0 ret restore call %g2 nop .long 3298 mov 0,%i0 ret restore call %g2 nop .long 3299 mov 0,%i0 ret restore call %g2 nop .long 3300 mov 0,%i0 ret restore call %g2 nop .long 3301 mov 0,%i0 ret restore call %g2 nop .long 3302 mov 0,%i0 ret restore call %g2 nop .long 3303 mov 0,%i0 ret restore call %g2 nop .long 3304 mov 0,%i0 ret restore call %g2 nop .long 3305 mov 0,%i0 ret restore call %g2 nop .long 3306 mov 0,%i0 ret restore call %g2 nop .long 3307 mov 0,%i0 ret restore call %g2 nop .long 3308 mov 0,%i0 ret restore call %g2 nop .long 3309 mov 0,%i0 ret restore call %g2 nop .long 3310 mov 0,%i0 ret restore call %g2 nop .long 3311 mov 0,%i0 ret restore call %g2 nop .long 3312 mov 0,%i0 ret restore call %g2 nop .long 3313 mov 0,%i0 ret restore call %g2 nop .long 3314 mov 0,%i0 ret restore call %g2 nop .long 3315 mov 0,%i0 ret restore call %g2 nop .long 3316 mov 0,%i0 ret restore call %g2 nop .long 3317 mov 0,%i0 ret restore call %g2 nop .long 3318 mov 0,%i0 ret restore call %g2 nop .long 3319 mov 0,%i0 ret restore call %g2 nop .long 3320 mov 0,%i0 ret restore call %g2 nop .long 3321 mov 0,%i0 ret restore call %g2 nop .long 3322 mov 0,%i0 ret restore call %g2 nop .long 3323 mov 0,%i0 ret restore call %g2 nop .long 3324 mov 0,%i0 ret restore call %g2 nop .long 3325 mov 0,%i0 ret restore call %g2 nop .long 3326 mov 0,%i0 ret restore call %g2 nop .long 3327 mov 0,%i0 ret restore call %g2 nop .long 3328 mov 0,%i0 ret restore call %g2 nop .long 3329 mov 0,%i0 ret restore call %g2 nop .long 3330 mov 0,%i0 ret restore call %g2 nop .long 3331 mov 0,%i0 ret restore call %g2 nop .long 3332 mov 0,%i0 ret restore call %g2 nop .long 3333 mov 0,%i0 ret restore call %g2 nop .long 3334 mov 0,%i0 ret restore call %g2 nop .long 3335 mov 0,%i0 ret restore call %g2 nop .long 3336 mov 0,%i0 ret restore call %g2 nop .long 3337 mov 0,%i0 ret restore call %g2 nop .long 3338 mov 0,%i0 ret restore call %g2 nop .long 3339 mov 0,%i0 ret restore call %g2 nop .long 3340 mov 0,%i0 ret restore call %g2 nop .long 3341 mov 0,%i0 ret restore call %g2 nop .long 3342 mov 0,%i0 ret restore call %g2 nop .long 3343 mov 0,%i0 ret restore call %g2 nop .long 3344 mov 0,%i0 ret restore call %g2 nop .long 3345 mov 0,%i0 ret restore call %g2 nop .long 3346 mov 0,%i0 ret restore call %g2 nop .long 3347 mov 0,%i0 ret restore call %g2 nop .long 3348 mov 0,%i0 ret restore call %g2 nop .long 3349 mov 0,%i0 ret restore call %g2 nop .long 3350 mov 0,%i0 ret restore call %g2 nop .long 3351 mov 0,%i0 ret restore call %g2 nop .long 3352 mov 0,%i0 ret restore call %g2 nop .long 3353 mov 0,%i0 ret restore call %g2 nop .long 3354 mov 0,%i0 ret restore call %g2 nop .long 3355 mov 0,%i0 ret restore call %g2 nop .long 3356 mov 0,%i0 ret restore call %g2 nop .long 3357 mov 0,%i0 ret restore call %g2 nop .long 3358 mov 0,%i0 ret restore call %g2 nop .long 3359 mov 0,%i0 ret restore call %g2 nop .long 3360 mov 0,%i0 ret restore call %g2 nop .long 3361 mov 0,%i0 ret restore call %g2 nop .long 3362 mov 0,%i0 ret restore call %g2 nop .long 3363 mov 0,%i0 ret restore call %g2 nop .long 3364 mov 0,%i0 ret restore call %g2 nop .long 3365 mov 0,%i0 ret restore call %g2 nop .long 3366 mov 0,%i0 ret restore call %g2 nop .long 3367 mov 0,%i0 ret restore call %g2 nop .long 3368 mov 0,%i0 ret restore call %g2 nop .long 3369 mov 0,%i0 ret restore call %g2 nop .long 3370 mov 0,%i0 ret restore call %g2 nop .long 3371 mov 0,%i0 ret restore call %g2 nop .long 3372 mov 0,%i0 ret restore call %g2 nop .long 3373 mov 0,%i0 ret restore call %g2 nop .long 3374 mov 0,%i0 ret restore call %g2 nop .long 3375 mov 0,%i0 ret restore call %g2 nop .long 3376 mov 0,%i0 ret restore call %g2 nop .long 3377 mov 0,%i0 ret restore call %g2 nop .long 3378 mov 0,%i0 ret restore call %g2 nop .long 3379 mov 0,%i0 ret restore call %g2 nop .long 3380 mov 0,%i0 ret restore call %g2 nop .long 3381 mov 0,%i0 ret restore call %g2 nop .long 3382 mov 0,%i0 ret restore call %g2 nop .long 3383 mov 0,%i0 ret restore call %g2 nop .long 3384 mov 0,%i0 ret restore call %g2 nop .long 3385 mov 0,%i0 ret restore call %g2 nop .long 3386 mov 0,%i0 ret restore call %g2 nop .long 3387 mov 0,%i0 ret restore call %g2 nop .long 3388 mov 0,%i0 ret restore call %g2 nop .long 3389 mov 0,%i0 ret restore call %g2 nop .long 3390 mov 0,%i0 ret restore call %g2 nop .long 3391 mov 0,%i0 ret restore call %g2 nop .long 3392 mov 0,%i0 ret restore call %g2 nop .long 3393 mov 0,%i0 ret restore call %g2 nop .long 3394 mov 0,%i0 ret restore call %g2 nop .long 3395 mov 0,%i0 ret restore call %g2 nop .long 3396 mov 0,%i0 ret restore call %g2 nop .long 3397 mov 0,%i0 ret restore call %g2 nop .long 3398 mov 0,%i0 ret restore call %g2 nop .long 3399 mov 0,%i0 ret restore call %g2 nop .long 3400 mov 0,%i0 ret restore call %g2 nop .long 3401 mov 0,%i0 ret restore call %g2 nop .long 3402 mov 0,%i0 ret restore call %g2 nop .long 3403 mov 0,%i0 ret restore call %g2 nop .long 3404 mov 0,%i0 ret restore call %g2 nop .long 3405 mov 0,%i0 ret restore call %g2 nop .long 3406 mov 0,%i0 ret restore call %g2 nop .long 3407 mov 0,%i0 ret restore call %g2 nop .long 3408 mov 0,%i0 ret restore call %g2 nop .long 3409 mov 0,%i0 ret restore call %g2 nop .long 3410 mov 0,%i0 ret restore call %g2 nop .long 3411 mov 0,%i0 ret restore call %g2 nop .long 3412 mov 0,%i0 ret restore call %g2 nop .long 3413 mov 0,%i0 ret restore call %g2 nop .long 3414 mov 0,%i0 ret restore call %g2 nop .long 3415 mov 0,%i0 ret restore call %g2 nop .long 3416 mov 0,%i0 ret restore call %g2 nop .long 3417 mov 0,%i0 ret restore call %g2 nop .long 3418 mov 0,%i0 ret restore call %g2 nop .long 3419 mov 0,%i0 ret restore call %g2 nop .long 3420 mov 0,%i0 ret restore call %g2 nop .long 3421 mov 0,%i0 ret restore call %g2 nop .long 3422 mov 0,%i0 ret restore call %g2 nop .long 3423 mov 0,%i0 ret restore call %g2 nop .long 3424 mov 0,%i0 ret restore call %g2 nop .long 3425 mov 0,%i0 ret restore call %g2 nop .long 3426 mov 0,%i0 ret restore call %g2 nop .long 3427 mov 0,%i0 ret restore call %g2 nop .long 3428 mov 0,%i0 ret restore call %g2 nop .long 3429 mov 0,%i0 ret restore call %g2 nop .long 3430 mov 0,%i0 ret restore call %g2 nop .long 3431 mov 0,%i0 ret restore call %g2 nop .long 3432 mov 0,%i0 ret restore call %g2 nop .long 3433 mov 0,%i0 ret restore call %g2 nop .long 3434 mov 0,%i0 ret restore call %g2 nop .long 3435 mov 0,%i0 ret restore call %g2 nop .long 3436 mov 0,%i0 ret restore call %g2 nop .long 3437 mov 0,%i0 ret restore call %g2 nop .long 3438 mov 0,%i0 ret restore call %g2 nop .long 3439 mov 0,%i0 ret restore call %g2 nop .long 3440 mov 0,%i0 ret restore call %g2 nop .long 3441 mov 0,%i0 ret restore call %g2 nop .long 3442 mov 0,%i0 ret restore call %g2 nop .long 3443 mov 0,%i0 ret restore call %g2 nop .long 3444 mov 0,%i0 ret restore call %g2 nop .long 3445 mov 0,%i0 ret restore call %g2 nop .long 3446 mov 0,%i0 ret restore call %g2 nop .long 3447 mov 0,%i0 ret restore call %g2 nop .long 3448 mov 0,%i0 ret restore call %g2 nop .long 3449 mov 0,%i0 ret restore call %g2 nop .long 3450 mov 0,%i0 ret restore call %g2 nop .long 3451 mov 0,%i0 ret restore call %g2 nop .long 3452 mov 0,%i0 ret restore call %g2 nop .long 3453 mov 0,%i0 ret restore call %g2 nop .long 3454 mov 0,%i0 ret restore call %g2 nop .long 3455 mov 0,%i0 ret restore call %g2 nop .long 3456 mov 0,%i0 ret restore call %g2 nop .long 3457 mov 0,%i0 ret restore call %g2 nop .long 3458 mov 0,%i0 ret restore call %g2 nop .long 3459 mov 0,%i0 ret restore call %g2 nop .long 3460 mov 0,%i0 ret restore call %g2 nop .long 3461 mov 0,%i0 ret restore call %g2 nop .long 3462 mov 0,%i0 ret restore call %g2 nop .long 3463 mov 0,%i0 ret restore call %g2 nop .long 3464 mov 0,%i0 ret restore call %g2 nop .long 3465 mov 0,%i0 ret restore call %g2 nop .long 3466 mov 0,%i0 ret restore call %g2 nop .long 3467 mov 0,%i0 ret restore call %g2 nop .long 3468 mov 0,%i0 ret restore call %g2 nop .long 3469 mov 0,%i0 ret restore call %g2 nop .long 3470 mov 0,%i0 ret restore call %g2 nop .long 3471 mov 0,%i0 ret restore call %g2 nop .long 3472 mov 0,%i0 ret restore call %g2 nop .long 3473 mov 0,%i0 ret restore call %g2 nop .long 3474 mov 0,%i0 ret restore call %g2 nop .long 3475 mov 0,%i0 ret restore call %g2 nop .long 3476 mov 0,%i0 ret restore call %g2 nop .long 3477 mov 0,%i0 ret restore call %g2 nop .long 3478 mov 0,%i0 ret restore call %g2 nop .long 3479 mov 0,%i0 ret restore call %g2 nop .long 3480 mov 0,%i0 ret restore call %g2 nop .long 3481 mov 0,%i0 ret restore call %g2 nop .long 3482 mov 0,%i0 ret restore call %g2 nop .long 3483 mov 0,%i0 ret restore call %g2 nop .long 3484 mov 0,%i0 ret restore call %g2 nop .long 3485 mov 0,%i0 ret restore call %g2 nop .long 3486 mov 0,%i0 ret restore call %g2 nop .long 3487 mov 0,%i0 ret restore call %g2 nop .long 3488 mov 0,%i0 ret restore call %g2 nop .long 3489 mov 0,%i0 ret restore call %g2 nop .long 3490 mov 0,%i0 ret restore call %g2 nop .long 3491 mov 0,%i0 ret restore call %g2 nop .long 3492 mov 0,%i0 ret restore call %g2 nop .long 3493 mov 0,%i0 ret restore call %g2 nop .long 3494 mov 0,%i0 ret restore call %g2 nop .long 3495 mov 0,%i0 ret restore call %g2 nop .long 3496 mov 0,%i0 ret restore call %g2 nop .long 3497 mov 0,%i0 ret restore call %g2 nop .long 3498 mov 0,%i0 ret restore call %g2 nop .long 3499 mov 0,%i0 ret restore call %g2 nop .long 3500 mov 0,%i0 ret restore call %g2 nop .long 3501 mov 0,%i0 ret restore call %g2 nop .long 3502 mov 0,%i0 ret restore call %g2 nop .long 3503 mov 0,%i0 ret restore call %g2 nop .long 3504 mov 0,%i0 ret restore call %g2 nop .long 3505 mov 0,%i0 ret restore call %g2 nop .long 3506 mov 0,%i0 ret restore call %g2 nop .long 3507 mov 0,%i0 ret restore call %g2 nop .long 3508 mov 0,%i0 ret restore call %g2 nop .long 3509 mov 0,%i0 ret restore call %g2 nop .long 3510 mov 0,%i0 ret restore call %g2 nop .long 3511 mov 0,%i0 ret restore call %g2 nop .long 3512 mov 0,%i0 ret restore call %g2 nop .long 3513 mov 0,%i0 ret restore call %g2 nop .long 3514 mov 0,%i0 ret restore call %g2 nop .long 3515 mov 0,%i0 ret restore call %g2 nop .long 3516 mov 0,%i0 ret restore call %g2 nop .long 3517 mov 0,%i0 ret restore call %g2 nop .long 3518 mov 0,%i0 ret restore call %g2 nop .long 3519 mov 0,%i0 ret restore call %g2 nop .long 3520 mov 0,%i0 ret restore call %g2 nop .long 3521 mov 0,%i0 ret restore call %g2 nop .long 3522 mov 0,%i0 ret restore call %g2 nop .long 3523 mov 0,%i0 ret restore call %g2 nop .long 3524 mov 0,%i0 ret restore call %g2 nop .long 3525 mov 0,%i0 ret restore call %g2 nop .long 3526 mov 0,%i0 ret restore call %g2 nop .long 3527 mov 0,%i0 ret restore call %g2 nop .long 3528 mov 0,%i0 ret restore call %g2 nop .long 3529 mov 0,%i0 ret restore call %g2 nop .long 3530 mov 0,%i0 ret restore call %g2 nop .long 3531 mov 0,%i0 ret restore call %g2 nop .long 3532 mov 0,%i0 ret restore call %g2 nop .long 3533 mov 0,%i0 ret restore call %g2 nop .long 3534 mov 0,%i0 ret restore call %g2 nop .long 3535 mov 0,%i0 ret restore call %g2 nop .long 3536 mov 0,%i0 ret restore call %g2 nop .long 3537 mov 0,%i0 ret restore call %g2 nop .long 3538 mov 0,%i0 ret restore call %g2 nop .long 3539 mov 0,%i0 ret restore call %g2 nop .long 3540 mov 0,%i0 ret restore call %g2 nop .long 3541 mov 0,%i0 ret restore call %g2 nop .long 3542 mov 0,%i0 ret restore call %g2 nop .long 3543 mov 0,%i0 ret restore call %g2 nop .long 3544 mov 0,%i0 ret restore call %g2 nop .long 3545 mov 0,%i0 ret restore call %g2 nop .long 3546 mov 0,%i0 ret restore call %g2 nop .long 3547 mov 0,%i0 ret restore call %g2 nop .long 3548 mov 0,%i0 ret restore call %g2 nop .long 3549 mov 0,%i0 ret restore call %g2 nop .long 3550 mov 0,%i0 ret restore call %g2 nop .long 3551 mov 0,%i0 ret restore call %g2 nop .long 3552 mov 0,%i0 ret restore call %g2 nop .long 3553 mov 0,%i0 ret restore call %g2 nop .long 3554 mov 0,%i0 ret restore call %g2 nop .long 3555 mov 0,%i0 ret restore call %g2 nop .long 3556 mov 0,%i0 ret restore call %g2 nop .long 3557 mov 0,%i0 ret restore call %g2 nop .long 3558 mov 0,%i0 ret restore call %g2 nop .long 3559 mov 0,%i0 ret restore call %g2 nop .long 3560 mov 0,%i0 ret restore call %g2 nop .long 3561 mov 0,%i0 ret restore call %g2 nop .long 3562 mov 0,%i0 ret restore call %g2 nop .long 3563 mov 0,%i0 ret restore call %g2 nop .long 3564 mov 0,%i0 ret restore call %g2 nop .long 3565 mov 0,%i0 ret restore call %g2 nop .long 3566 mov 0,%i0 ret restore call %g2 nop .long 3567 mov 0,%i0 ret restore call %g2 nop .long 3568 mov 0,%i0 ret restore call %g2 nop .long 3569 mov 0,%i0 ret restore call %g2 nop .long 3570 mov 0,%i0 ret restore call %g2 nop .long 3571 mov 0,%i0 ret restore call %g2 nop .long 3572 mov 0,%i0 ret restore call %g2 nop .long 3573 mov 0,%i0 ret restore call %g2 nop .long 3574 mov 0,%i0 ret restore call %g2 nop .long 3575 mov 0,%i0 ret restore call %g2 nop .long 3576 mov 0,%i0 ret restore call %g2 nop .long 3577 mov 0,%i0 ret restore call %g2 nop .long 3578 mov 0,%i0 ret restore call %g2 nop .long 3579 mov 0,%i0 ret restore call %g2 nop .long 3580 mov 0,%i0 ret restore call %g2 nop .long 3581 mov 0,%i0 ret restore call %g2 nop .long 3582 mov 0,%i0 ret restore call %g2 nop .long 3583 mov 0,%i0 ret restore call %g2 nop .long 3584 mov 0,%i0 ret restore call %g2 nop .long 3585 mov 0,%i0 ret restore call %g2 nop .long 3586 mov 0,%i0 ret restore call %g2 nop .long 3587 mov 0,%i0 ret restore call %g2 nop .long 3588 mov 0,%i0 ret restore call %g2 nop .long 3589 mov 0,%i0 ret restore call %g2 nop .long 3590 mov 0,%i0 ret restore call %g2 nop .long 3591 mov 0,%i0 ret restore call %g2 nop .long 3592 mov 0,%i0 ret restore call %g2 nop .long 3593 mov 0,%i0 ret restore call %g2 nop .long 3594 mov 0,%i0 ret restore call %g2 nop .long 3595 mov 0,%i0 ret restore call %g2 nop .long 3596 mov 0,%i0 ret restore call %g2 nop .long 3597 mov 0,%i0 ret restore call %g2 nop .long 3598 mov 0,%i0 ret restore call %g2 nop .long 3599 mov 0,%i0 ret restore call %g2 nop .long 3600 mov 0,%i0 ret restore call %g2 nop .long 3601 mov 0,%i0 ret restore call %g2 nop .long 3602 mov 0,%i0 ret restore call %g2 nop .long 3603 mov 0,%i0 ret restore call %g2 nop .long 3604 mov 0,%i0 ret restore call %g2 nop .long 3605 mov 0,%i0 ret restore call %g2 nop .long 3606 mov 0,%i0 ret restore call %g2 nop .long 3607 mov 0,%i0 ret restore call %g2 nop .long 3608 mov 0,%i0 ret restore call %g2 nop .long 3609 mov 0,%i0 ret restore call %g2 nop .long 3610 mov 0,%i0 ret restore call %g2 nop .long 3611 mov 0,%i0 ret restore call %g2 nop .long 3612 mov 0,%i0 ret restore call %g2 nop .long 3613 mov 0,%i0 ret restore call %g2 nop .long 3614 mov 0,%i0 ret restore call %g2 nop .long 3615 mov 0,%i0 ret restore call %g2 nop .long 3616 mov 0,%i0 ret restore call %g2 nop .long 3617 mov 0,%i0 ret restore call %g2 nop .long 3618 mov 0,%i0 ret restore call %g2 nop .long 3619 mov 0,%i0 ret restore call %g2 nop .long 3620 mov 0,%i0 ret restore call %g2 nop .long 3621 mov 0,%i0 ret restore call %g2 nop .long 3622 mov 0,%i0 ret restore call %g2 nop .long 3623 mov 0,%i0 ret restore call %g2 nop .long 3624 mov 0,%i0 ret restore call %g2 nop .long 3625 mov 0,%i0 ret restore call %g2 nop .long 3626 mov 0,%i0 ret restore call %g2 nop .long 3627 mov 0,%i0 ret restore call %g2 nop .long 3628 mov 0,%i0 ret restore call %g2 nop .long 3629 mov 0,%i0 ret restore call %g2 nop .long 3630 mov 0,%i0 ret restore call %g2 nop .long 3631 mov 0,%i0 ret restore call %g2 nop .long 3632 mov 0,%i0 ret restore call %g2 nop .long 3633 mov 0,%i0 ret restore call %g2 nop .long 3634 mov 0,%i0 ret restore call %g2 nop .long 3635 mov 0,%i0 ret restore call %g2 nop .long 3636 mov 0,%i0 ret restore call %g2 nop .long 3637 mov 0,%i0 ret restore call %g2 nop .long 3638 mov 0,%i0 ret restore call %g2 nop .long 3639 mov 0,%i0 ret restore call %g2 nop .long 3640 mov 0,%i0 ret restore call %g2 nop .long 3641 mov 0,%i0 ret restore call %g2 nop .long 3642 mov 0,%i0 ret restore call %g2 nop .long 3643 mov 0,%i0 ret restore call %g2 nop .long 3644 mov 0,%i0 ret restore call %g2 nop .long 3645 mov 0,%i0 ret restore call %g2 nop .long 3646 mov 0,%i0 ret restore call %g2 nop .long 3647 mov 0,%i0 ret restore call %g2 nop .long 3648 mov 0,%i0 ret restore call %g2 nop .long 3649 mov 0,%i0 ret restore call %g2 nop .long 3650 mov 0,%i0 ret restore call %g2 nop .long 3651 mov 0,%i0 ret restore call %g2 nop .long 3652 mov 0,%i0 ret restore call %g2 nop .long 3653 mov 0,%i0 ret restore call %g2 nop .long 3654 mov 0,%i0 ret restore call %g2 nop .long 3655 mov 0,%i0 ret restore call %g2 nop .long 3656 mov 0,%i0 ret restore call %g2 nop .long 3657 mov 0,%i0 ret restore call %g2 nop .long 3658 mov 0,%i0 ret restore call %g2 nop .long 3659 mov 0,%i0 ret restore call %g2 nop .long 3660 mov 0,%i0 ret restore call %g2 nop .long 3661 mov 0,%i0 ret restore call %g2 nop .long 3662 mov 0,%i0 ret restore call %g2 nop .long 3663 mov 0,%i0 ret restore call %g2 nop .long 3664 mov 0,%i0 ret restore call %g2 nop .long 3665 mov 0,%i0 ret restore call %g2 nop .long 3666 mov 0,%i0 ret restore call %g2 nop .long 3667 mov 0,%i0 ret restore call %g2 nop .long 3668 mov 0,%i0 ret restore call %g2 nop .long 3669 mov 0,%i0 ret restore call %g2 nop .long 3670 mov 0,%i0 ret restore call %g2 nop .long 3671 mov 0,%i0 ret restore call %g2 nop .long 3672 mov 0,%i0 ret restore call %g2 nop .long 3673 mov 0,%i0 ret restore call %g2 nop .long 3674 mov 0,%i0 ret restore call %g2 nop .long 3675 mov 0,%i0 ret restore call %g2 nop .long 3676 mov 0,%i0 ret restore call %g2 nop .long 3677 mov 0,%i0 ret restore call %g2 nop .long 3678 mov 0,%i0 ret restore call %g2 nop .long 3679 mov 0,%i0 ret restore call %g2 nop .long 3680 mov 0,%i0 ret restore call %g2 nop .long 3681 mov 0,%i0 ret restore call %g2 nop .long 3682 mov 0,%i0 ret restore call %g2 nop .long 3683 mov 0,%i0 ret restore call %g2 nop .long 3684 mov 0,%i0 ret restore call %g2 nop .long 3685 mov 0,%i0 ret restore call %g2 nop .long 3686 mov 0,%i0 ret restore call %g2 nop .long 3687 mov 0,%i0 ret restore call %g2 nop .long 3688 mov 0,%i0 ret restore call %g2 nop .long 3689 mov 0,%i0 ret restore call %g2 nop .long 3690 mov 0,%i0 ret restore call %g2 nop .long 3691 mov 0,%i0 ret restore call %g2 nop .long 3692 mov 0,%i0 ret restore call %g2 nop .long 3693 mov 0,%i0 ret restore call %g2 nop .long 3694 mov 0,%i0 ret restore call %g2 nop .long 3695 mov 0,%i0 ret restore call %g2 nop .long 3696 mov 0,%i0 ret restore call %g2 nop .long 3697 mov 0,%i0 ret restore call %g2 nop .long 3698 mov 0,%i0 ret restore call %g2 nop .long 3699 mov 0,%i0 ret restore call %g2 nop .long 3700 mov 0,%i0 ret restore call %g2 nop .long 3701 mov 0,%i0 ret restore call %g2 nop .long 3702 mov 0,%i0 ret restore call %g2 nop .long 3703 mov 0,%i0 ret restore call %g2 nop .long 3704 mov 0,%i0 ret restore call %g2 nop .long 3705 mov 0,%i0 ret restore call %g2 nop .long 3706 mov 0,%i0 ret restore call %g2 nop .long 3707 mov 0,%i0 ret restore call %g2 nop .long 3708 mov 0,%i0 ret restore call %g2 nop .long 3709 mov 0,%i0 ret restore call %g2 nop .long 3710 mov 0,%i0 ret restore call %g2 nop .long 3711 mov 0,%i0 ret restore call %g2 nop .long 3712 mov 0,%i0 ret restore call %g2 nop .long 3713 mov 0,%i0 ret restore call %g2 nop .long 3714 mov 0,%i0 ret restore call %g2 nop .long 3715 mov 0,%i0 ret restore call %g2 nop .long 3716 mov 0,%i0 ret restore call %g2 nop .long 3717 mov 0,%i0 ret restore call %g2 nop .long 3718 mov 0,%i0 ret restore call %g2 nop .long 3719 mov 0,%i0 ret restore call %g2 nop .long 3720 mov 0,%i0 ret restore call %g2 nop .long 3721 mov 0,%i0 ret restore call %g2 nop .long 3722 mov 0,%i0 ret restore call %g2 nop .long 3723 mov 0,%i0 ret restore call %g2 nop .long 3724 mov 0,%i0 ret restore call %g2 nop .long 3725 mov 0,%i0 ret restore call %g2 nop .long 3726 mov 0,%i0 ret restore call %g2 nop .long 3727 mov 0,%i0 ret restore call %g2 nop .long 3728 mov 0,%i0 ret restore call %g2 nop .long 3729 mov 0,%i0 ret restore call %g2 nop .long 3730 mov 0,%i0 ret restore call %g2 nop .long 3731 mov 0,%i0 ret restore call %g2 nop .long 3732 mov 0,%i0 ret restore call %g2 nop .long 3733 mov 0,%i0 ret restore call %g2 nop .long 3734 mov 0,%i0 ret restore call %g2 nop .long 3735 mov 0,%i0 ret restore call %g2 nop .long 3736 mov 0,%i0 ret restore call %g2 nop .long 3737 mov 0,%i0 ret restore call %g2 nop .long 3738 mov 0,%i0 ret restore call %g2 nop .long 3739 mov 0,%i0 ret restore call %g2 nop .long 3740 mov 0,%i0 ret restore call %g2 nop .long 3741 mov 0,%i0 ret restore call %g2 nop .long 3742 mov 0,%i0 ret restore call %g2 nop .long 3743 mov 0,%i0 ret restore call %g2 nop .long 3744 mov 0,%i0 ret restore call %g2 nop .long 3745 mov 0,%i0 ret restore call %g2 nop .long 3746 mov 0,%i0 ret restore call %g2 nop .long 3747 mov 0,%i0 ret restore call %g2 nop .long 3748 mov 0,%i0 ret restore call %g2 nop .long 3749 mov 0,%i0 ret restore call %g2 nop .long 3750 mov 0,%i0 ret restore call %g2 nop .long 3751 mov 0,%i0 ret restore call %g2 nop .long 3752 mov 0,%i0 ret restore call %g2 nop .long 3753 mov 0,%i0 ret restore call %g2 nop .long 3754 mov 0,%i0 ret restore call %g2 nop .long 3755 mov 0,%i0 ret restore call %g2 nop .long 3756 mov 0,%i0 ret restore call %g2 nop .long 3757 mov 0,%i0 ret restore call %g2 nop .long 3758 mov 0,%i0 ret restore call %g2 nop .long 3759 mov 0,%i0 ret restore call %g2 nop .long 3760 mov 0,%i0 ret restore call %g2 nop .long 3761 mov 0,%i0 ret restore call %g2 nop .long 3762 mov 0,%i0 ret restore call %g2 nop .long 3763 mov 0,%i0 ret restore call %g2 nop .long 3764 mov 0,%i0 ret restore call %g2 nop .long 3765 mov 0,%i0 ret restore call %g2 nop .long 3766 mov 0,%i0 ret restore call %g2 nop .long 3767 mov 0,%i0 ret restore call %g2 nop .long 3768 mov 0,%i0 ret restore call %g2 nop .long 3769 mov 0,%i0 ret restore call %g2 nop .long 3770 mov 0,%i0 ret restore call %g2 nop .long 3771 mov 0,%i0 ret restore call %g2 nop .long 3772 mov 0,%i0 ret restore call %g2 nop .long 3773 mov 0,%i0 ret restore call %g2 nop .long 3774 mov 0,%i0 ret restore call %g2 nop .long 3775 mov 0,%i0 ret restore call %g2 nop .long 3776 mov 0,%i0 ret restore call %g2 nop .long 3777 mov 0,%i0 ret restore call %g2 nop .long 3778 mov 0,%i0 ret restore call %g2 nop .long 3779 mov 0,%i0 ret restore call %g2 nop .long 3780 mov 0,%i0 ret restore call %g2 nop .long 3781 mov 0,%i0 ret restore call %g2 nop .long 3782 mov 0,%i0 ret restore call %g2 nop .long 3783 mov 0,%i0 ret restore call %g2 nop .long 3784 mov 0,%i0 ret restore call %g2 nop .long 3785 mov 0,%i0 ret restore call %g2 nop .long 3786 mov 0,%i0 ret restore call %g2 nop .long 3787 mov 0,%i0 ret restore call %g2 nop .long 3788 mov 0,%i0 ret restore call %g2 nop .long 3789 mov 0,%i0 ret restore call %g2 nop .long 3790 mov 0,%i0 ret restore call %g2 nop .long 3791 mov 0,%i0 ret restore call %g2 nop .long 3792 mov 0,%i0 ret restore call %g2 nop .long 3793 mov 0,%i0 ret restore call %g2 nop .long 3794 mov 0,%i0 ret restore call %g2 nop .long 3795 mov 0,%i0 ret restore call %g2 nop .long 3796 mov 0,%i0 ret restore call %g2 nop .long 3797 mov 0,%i0 ret restore call %g2 nop .long 3798 mov 0,%i0 ret restore call %g2 nop .long 3799 mov 0,%i0 ret restore call %g2 nop .long 3800 mov 0,%i0 ret restore call %g2 nop .long 3801 mov 0,%i0 ret restore call %g2 nop .long 3802 mov 0,%i0 ret restore call %g2 nop .long 3803 mov 0,%i0 ret restore call %g2 nop .long 3804 mov 0,%i0 ret restore call %g2 nop .long 3805 mov 0,%i0 ret restore call %g2 nop .long 3806 mov 0,%i0 ret restore call %g2 nop .long 3807 mov 0,%i0 ret restore call %g2 nop .long 3808 mov 0,%i0 ret restore call %g2 nop .long 3809 mov 0,%i0 ret restore call %g2 nop .long 3810 mov 0,%i0 ret restore call %g2 nop .long 3811 mov 0,%i0 ret restore call %g2 nop .long 3812 mov 0,%i0 ret restore call %g2 nop .long 3813 mov 0,%i0 ret restore call %g2 nop .long 3814 mov 0,%i0 ret restore call %g2 nop .long 3815 mov 0,%i0 ret restore call %g2 nop .long 3816 mov 0,%i0 ret restore call %g2 nop .long 3817 mov 0,%i0 ret restore call %g2 nop .long 3818 mov 0,%i0 ret restore call %g2 nop .long 3819 mov 0,%i0 ret restore call %g2 nop .long 3820 mov 0,%i0 ret restore call %g2 nop .long 3821 mov 0,%i0 ret restore call %g2 nop .long 3822 mov 0,%i0 ret restore call %g2 nop .long 3823 mov 0,%i0 ret restore call %g2 nop .long 3824 mov 0,%i0 ret restore call %g2 nop .long 3825 mov 0,%i0 ret restore call %g2 nop .long 3826 mov 0,%i0 ret restore call %g2 nop .long 3827 mov 0,%i0 ret restore call %g2 nop .long 3828 mov 0,%i0 ret restore call %g2 nop .long 3829 mov 0,%i0 ret restore call %g2 nop .long 3830 mov 0,%i0 ret restore call %g2 nop .long 3831 mov 0,%i0 ret restore call %g2 nop .long 3832 mov 0,%i0 ret restore call %g2 nop .long 3833 mov 0,%i0 ret restore call %g2 nop .long 3834 mov 0,%i0 ret restore call %g2 nop .long 3835 mov 0,%i0 ret restore call %g2 nop .long 3836 mov 0,%i0 ret restore call %g2 nop .long 3837 mov 0,%i0 ret restore call %g2 nop .long 3838 mov 0,%i0 ret restore call %g2 nop .long 3839 mov 0,%i0 ret restore call %g2 nop .long 3840 mov 0,%i0 ret restore call %g2 nop .long 3841 mov 0,%i0 ret restore call %g2 nop .long 3842 mov 0,%i0 ret restore call %g2 nop .long 3843 mov 0,%i0 ret restore call %g2 nop .long 3844 mov 0,%i0 ret restore call %g2 nop .long 3845 mov 0,%i0 ret restore call %g2 nop .long 3846 mov 0,%i0 ret restore call %g2 nop .long 3847 mov 0,%i0 ret restore call %g2 nop .long 3848 mov 0,%i0 ret restore call %g2 nop .long 3849 mov 0,%i0 ret restore call %g2 nop .long 3850 mov 0,%i0 ret restore call %g2 nop .long 3851 mov 0,%i0 ret restore call %g2 nop .long 3852 mov 0,%i0 ret restore call %g2 nop .long 3853 mov 0,%i0 ret restore call %g2 nop .long 3854 mov 0,%i0 ret restore call %g2 nop .long 3855 mov 0,%i0 ret restore call %g2 nop .long 3856 mov 0,%i0 ret restore call %g2 nop .long 3857 mov 0,%i0 ret restore call %g2 nop .long 3858 mov 0,%i0 ret restore call %g2 nop .long 3859 mov 0,%i0 ret restore call %g2 nop .long 3860 mov 0,%i0 ret restore call %g2 nop .long 3861 mov 0,%i0 ret restore call %g2 nop .long 3862 mov 0,%i0 ret restore call %g2 nop .long 3863 mov 0,%i0 ret restore call %g2 nop .long 3864 mov 0,%i0 ret restore call %g2 nop .long 3865 mov 0,%i0 ret restore call %g2 nop .long 3866 mov 0,%i0 ret restore call %g2 nop .long 3867 mov 0,%i0 ret restore call %g2 nop .long 3868 mov 0,%i0 ret restore call %g2 nop .long 3869 mov 0,%i0 ret restore call %g2 nop .long 3870 mov 0,%i0 ret restore call %g2 nop .long 3871 mov 0,%i0 ret restore call %g2 nop .long 3872 mov 0,%i0 ret restore call %g2 nop .long 3873 mov 0,%i0 ret restore call %g2 nop .long 3874 mov 0,%i0 ret restore call %g2 nop .long 3875 mov 0,%i0 ret restore call %g2 nop .long 3876 mov 0,%i0 ret restore call %g2 nop .long 3877 mov 0,%i0 ret restore call %g2 nop .long 3878 mov 0,%i0 ret restore call %g2 nop .long 3879 mov 0,%i0 ret restore call %g2 nop .long 3880 mov 0,%i0 ret restore call %g2 nop .long 3881 mov 0,%i0 ret restore call %g2 nop .long 3882 mov 0,%i0 ret restore call %g2 nop .long 3883 mov 0,%i0 ret restore call %g2 nop .long 3884 mov 0,%i0 ret restore call %g2 nop .long 3885 mov 0,%i0 ret restore call %g2 nop .long 3886 mov 0,%i0 ret restore call %g2 nop .long 3887 mov 0,%i0 ret restore call %g2 nop .long 3888 mov 0,%i0 ret restore call %g2 nop .long 3889 mov 0,%i0 ret restore call %g2 nop .long 3890 mov 0,%i0 ret restore call %g2 nop .long 3891 mov 0,%i0 ret restore call %g2 nop .long 3892 mov 0,%i0 ret restore call %g2 nop .long 3893 mov 0,%i0 ret restore call %g2 nop .long 3894 mov 0,%i0 ret restore call %g2 nop .long 3895 mov 0,%i0 ret restore call %g2 nop .long 3896 mov 0,%i0 ret restore call %g2 nop .long 3897 mov 0,%i0 ret restore call %g2 nop .long 3898 mov 0,%i0 ret restore call %g2 nop .long 3899 mov 0,%i0 ret restore call %g2 nop .long 3900 mov 0,%i0 ret restore call %g2 nop .long 3901 mov 0,%i0 ret restore call %g2 nop .long 3902 mov 0,%i0 ret restore call %g2 nop .long 3903 mov 0,%i0 ret restore call %g2 nop .long 3904 mov 0,%i0 ret restore call %g2 nop .long 3905 mov 0,%i0 ret restore call %g2 nop .long 3906 mov 0,%i0 ret restore call %g2 nop .long 3907 mov 0,%i0 ret restore call %g2 nop .long 3908 mov 0,%i0 ret restore call %g2 nop .long 3909 mov 0,%i0 ret restore call %g2 nop .long 3910 mov 0,%i0 ret restore call %g2 nop .long 3911 mov 0,%i0 ret restore call %g2 nop .long 3912 mov 0,%i0 ret restore call %g2 nop .long 3913 mov 0,%i0 ret restore call %g2 nop .long 3914 mov 0,%i0 ret restore call %g2 nop .long 3915 mov 0,%i0 ret restore call %g2 nop .long 3916 mov 0,%i0 ret restore call %g2 nop .long 3917 mov 0,%i0 ret restore call %g2 nop .long 3918 mov 0,%i0 ret restore call %g2 nop .long 3919 mov 0,%i0 ret restore call %g2 nop .long 3920 mov 0,%i0 ret restore call %g2 nop .long 3921 mov 0,%i0 ret restore call %g2 nop .long 3922 mov 0,%i0 ret restore call %g2 nop .long 3923 mov 0,%i0 ret restore call %g2 nop .long 3924 mov 0,%i0 ret restore call %g2 nop .long 3925 mov 0,%i0 ret restore call %g2 nop .long 3926 mov 0,%i0 ret restore call %g2 nop .long 3927 mov 0,%i0 ret restore call %g2 nop .long 3928 mov 0,%i0 ret restore call %g2 nop .long 3929 mov 0,%i0 ret restore call %g2 nop .long 3930 mov 0,%i0 ret restore call %g2 nop .long 3931 mov 0,%i0 ret restore call %g2 nop .long 3932 mov 0,%i0 ret restore call %g2 nop .long 3933 mov 0,%i0 ret restore call %g2 nop .long 3934 mov 0,%i0 ret restore call %g2 nop .long 3935 mov 0,%i0 ret restore call %g2 nop .long 3936 mov 0,%i0 ret restore call %g2 nop .long 3937 mov 0,%i0 ret restore call %g2 nop .long 3938 mov 0,%i0 ret restore call %g2 nop .long 3939 mov 0,%i0 ret restore call %g2 nop .long 3940 mov 0,%i0 ret restore call %g2 nop .long 3941 mov 0,%i0 ret restore call %g2 nop .long 3942 mov 0,%i0 ret restore call %g2 nop .long 3943 mov 0,%i0 ret restore call %g2 nop .long 3944 mov 0,%i0 ret restore call %g2 nop .long 3945 mov 0,%i0 ret restore call %g2 nop .long 3946 mov 0,%i0 ret restore call %g2 nop .long 3947 mov 0,%i0 ret restore call %g2 nop .long 3948 mov 0,%i0 ret restore call %g2 nop .long 3949 mov 0,%i0 ret restore call %g2 nop .long 3950 mov 0,%i0 ret restore call %g2 nop .long 3951 mov 0,%i0 ret restore call %g2 nop .long 3952 mov 0,%i0 ret restore call %g2 nop .long 3953 mov 0,%i0 ret restore call %g2 nop .long 3954 mov 0,%i0 ret restore call %g2 nop .long 3955 mov 0,%i0 ret restore call %g2 nop .long 3956 mov 0,%i0 ret restore call %g2 nop .long 3957 mov 0,%i0 ret restore call %g2 nop .long 3958 mov 0,%i0 ret restore call %g2 nop .long 3959 mov 0,%i0 ret restore call %g2 nop .long 3960 mov 0,%i0 ret restore call %g2 nop .long 3961 mov 0,%i0 ret restore call %g2 nop .long 3962 mov 0,%i0 ret restore call %g2 nop .long 3963 mov 0,%i0 ret restore call %g2 nop .long 3964 mov 0,%i0 ret restore call %g2 nop .long 3965 mov 0,%i0 ret restore call %g2 nop .long 3966 mov 0,%i0 ret restore call %g2 nop .long 3967 mov 0,%i0 ret restore call %g2 nop .long 3968 mov 0,%i0 ret restore call %g2 nop .long 3969 mov 0,%i0 ret restore call %g2 nop .long 3970 mov 0,%i0 ret restore call %g2 nop .long 3971 mov 0,%i0 ret restore call %g2 nop .long 3972 mov 0,%i0 ret restore call %g2 nop .long 3973 mov 0,%i0 ret restore call %g2 nop .long 3974 mov 0,%i0 ret restore call %g2 nop .long 3975 mov 0,%i0 ret restore call %g2 nop .long 3976 mov 0,%i0 ret restore call %g2 nop .long 3977 mov 0,%i0 ret restore call %g2 nop .long 3978 mov 0,%i0 ret restore call %g2 nop .long 3979 mov 0,%i0 ret restore call %g2 nop .long 3980 mov 0,%i0 ret restore call %g2 nop .long 3981 mov 0,%i0 ret restore call %g2 nop .long 3982 mov 0,%i0 ret restore call %g2 nop .long 3983 mov 0,%i0 ret restore call %g2 nop .long 3984 mov 0,%i0 ret restore call %g2 nop .long 3985 mov 0,%i0 ret restore call %g2 nop .long 3986 mov 0,%i0 ret restore call %g2 nop .long 3987 mov 0,%i0 ret restore call %g2 nop .long 3988 mov 0,%i0 ret restore call %g2 nop .long 3989 mov 0,%i0 ret restore call %g2 nop .long 3990 mov 0,%i0 ret restore call %g2 nop .long 3991 mov 0,%i0 ret restore call %g2 nop .long 3992 mov 0,%i0 ret restore call %g2 nop .long 3993 mov 0,%i0 ret restore call %g2 nop .long 3994 mov 0,%i0 ret restore call %g2 nop .long 3995 mov 0,%i0 ret restore call %g2 nop .long 3996 mov 0,%i0 ret restore call %g2 nop .long 3997 mov 0,%i0 ret restore call %g2 nop .long 3998 mov 0,%i0 ret restore call %g2 nop .long 3999 mov 0,%i0 ret restore call %g2 nop .long 4000 mov 0,%i0 ret restore call %g2 nop .long 4001 mov 0,%i0 ret restore call %g2 nop .long 4002 mov 0,%i0 ret restore call %g2 nop .long 4003 mov 0,%i0 ret restore call %g2 nop .long 4004 mov 0,%i0 ret restore call %g2 nop .long 4005 mov 0,%i0 ret restore call %g2 nop .long 4006 mov 0,%i0 ret restore call %g2 nop .long 4007 mov 0,%i0 ret restore call %g2 nop .long 4008 mov 0,%i0 ret restore call %g2 nop .long 4009 mov 0,%i0 ret restore call %g2 nop .long 4010 mov 0,%i0 ret restore call %g2 nop .long 4011 mov 0,%i0 ret restore call %g2 nop .long 4012 mov 0,%i0 ret restore call %g2 nop .long 4013 mov 0,%i0 ret restore call %g2 nop .long 4014 mov 0,%i0 ret restore call %g2 nop .long 4015 mov 0,%i0 ret restore call %g2 nop .long 4016 mov 0,%i0 ret restore call %g2 nop .long 4017 mov 0,%i0 ret restore call %g2 nop .long 4018 mov 0,%i0 ret restore call %g2 nop .long 4019 mov 0,%i0 ret restore call %g2 nop .long 4020 mov 0,%i0 ret restore call %g2 nop .long 4021 mov 0,%i0 ret restore call %g2 nop .long 4022 mov 0,%i0 ret restore call %g2 nop .long 4023 mov 0,%i0 ret restore call %g2 nop .long 4024 mov 0,%i0 ret restore call %g2 nop .long 4025 mov 0,%i0 ret restore call %g2 nop .long 4026 mov 0,%i0 ret restore call %g2 nop .long 4027 mov 0,%i0 ret restore call %g2 nop .long 4028 mov 0,%i0 ret restore call %g2 nop .long 4029 mov 0,%i0 ret restore call %g2 nop .long 4030 mov 0,%i0 ret restore call %g2 nop .long 4031 mov 0,%i0 ret restore call %g2 nop .long 4032 mov 0,%i0 ret restore call %g2 nop .long 4033 mov 0,%i0 ret restore call %g2 nop .long 4034 mov 0,%i0 ret restore call %g2 nop .long 4035 mov 0,%i0 ret restore call %g2 nop .long 4036 mov 0,%i0 ret restore call %g2 nop .long 4037 mov 0,%i0 ret restore call %g2 nop .long 4038 mov 0,%i0 ret restore call %g2 nop .long 4039 mov 0,%i0 ret restore call %g2 nop .long 4040 mov 0,%i0 ret restore call %g2 nop .long 4041 mov 0,%i0 ret restore call %g2 nop .long 4042 mov 0,%i0 ret restore call %g2 nop .long 4043 mov 0,%i0 ret restore call %g2 nop .long 4044 mov 0,%i0 ret restore call %g2 nop .long 4045 mov 0,%i0 ret restore call %g2 nop .long 4046 mov 0,%i0 ret restore call %g2 nop .long 4047 mov 0,%i0 ret restore call %g2 nop .long 4048 mov 0,%i0 ret restore call %g2 nop .long 4049 mov 0,%i0 ret restore call %g2 nop .long 4050 mov 0,%i0 ret restore call %g2 nop .long 4051 mov 0,%i0 ret restore call %g2 nop .long 4052 mov 0,%i0 ret restore call %g2 nop .long 4053 mov 0,%i0 ret restore call %g2 nop .long 4054 mov 0,%i0 ret restore call %g2 nop .long 4055 mov 0,%i0 ret restore call %g2 nop .long 4056 mov 0,%i0 ret restore call %g2 nop .long 4057 mov 0,%i0 ret restore call %g2 nop .long 4058 mov 0,%i0 ret restore call %g2 nop .long 4059 mov 0,%i0 ret restore call %g2 nop .long 4060 mov 0,%i0 ret restore call %g2 nop .long 4061 mov 0,%i0 ret restore call %g2 nop .long 4062 mov 0,%i0 ret restore call %g2 nop .long 4063 mov 0,%i0 ret restore call %g2 nop .long 4064 mov 0,%i0 ret restore call %g2 nop .long 4065 mov 0,%i0 ret restore call %g2 nop .long 4066 mov 0,%i0 ret restore call %g2 nop .long 4067 mov 0,%i0 ret restore call %g2 nop .long 4068 mov 0,%i0 ret restore call %g2 nop .long 4069 mov 0,%i0 ret restore call %g2 nop .long 4070 mov 0,%i0 ret restore call %g2 nop .long 4071 mov 0,%i0 ret restore call %g2 nop .long 4072 mov 0,%i0 ret restore call %g2 nop .long 4073 mov 0,%i0 ret restore call %g2 nop .long 4074 mov 0,%i0 ret restore call %g2 nop .long 4075 mov 0,%i0 ret restore call %g2 nop .long 4076 mov 0,%i0 ret restore call %g2 nop .long 4077 mov 0,%i0 ret restore call %g2 nop .long 4078 mov 0,%i0 ret restore call %g2 nop .long 4079 mov 0,%i0 ret restore call %g2 nop .long 4080 mov 0,%i0 ret restore call %g2 nop .long 4081 mov 0,%i0 ret restore call %g2 nop .long 4082 mov 0,%i0 ret restore call %g2 nop .long 4083 mov 0,%i0 ret restore call %g2 nop .long 4084 mov 0,%i0 ret restore call %g2 nop .long 4085 mov 0,%i0 ret restore call %g2 nop .long 4086 mov 0,%i0 ret restore call %g2 nop .long 4087 mov 0,%i0 ret restore call %g2 nop .long 4088 mov 0,%i0 ret restore call %g2 nop .long 4089 mov 0,%i0 ret restore call %g2 nop .long 4090 mov 0,%i0 ret restore call %g2 nop .long 4091 mov 0,%i0 ret restore call %g2 nop .long 4092 mov 0,%i0 ret restore call %g2 nop .long 4093 mov 0,%i0 ret restore call %g2 nop .long 4094 mov 0,%i0 ret restore call %g2 nop .long 4095 mov 0,%i0 ret restore ld [%i0+24], %g3 L(L54): ld [%i0+4], %l0 ld [%g3], %o0 ld [%g3+4], %o1 ld [%g3+8], %o2 ld [%g3+12], %o3 ld [%g3+16], %o4 call %l0, 0 ld [%g3+20], %o5 nop ld [%i0+12], %g3 cmp %g3, 1 be L(L11) mov %o0, %o7 cmp %g3, 2 be L(L52) cmp %g3, 3 be L(L52) cmp %g3, 4 be L(L52) cmp %g3, 5 be L(L51) cmp %g3, 6 be L(L51) cmp %g3, 7 be L(L49) cmp %g3, 8 be L(L49) cmp %g3, 9 be L(L49) cmp %g3, 10 be L(L49) add %g3, -11, %g3 cmp %g3, 1 bgu,a L(L30) ld [%i0+12], %g3 ld [%i0+8], %g3 st %o0, [%g3] b L(L11) st %o1, [%g3+4] L(L30): cmp %g3, 13 bne,a L(L32) ld [%i0+12], %g3 ld [%i0], %g3 andcc %g3, 32, %g0 be L(L33) ld [%i0+8], %g3 fdtos %f0, %f0 L(L33): b L(L11) st %f0, [%g3] L(L32): cmp %g3, 14 bne,a L(L36) ld [%i0+12], %g3 ld [%i0+8], %g3 b L(L11) std %f0, [%g3] L(L36): cmp %g3, 15 be,a L(L55) ld [%i0+8], %g3 ld [%i0+12], %g3 cmp %g3, 16 bne L(L11) nop ld [%i0], %g3 andcc %g3, 2, %g0 be L(L11) nop ld [%i0+16], %g3 cmp %g3, 1 bne L(L42) cmp %g3, 2 L(L52): ld [%i0+8], %g3 b L(L11) stb %o7, [%g3] L(L42): bne,a L(L44) ld [%i0+16], %g3 L(L51): ld [%i0+8], %g3 b L(L11) sth %o7, [%g3] L(L44): cmp %g3, 4 bne L(L11) nop L(L49): ld [%i0+8], %g3 L(L55): st %o7, [%g3] L(L11): 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.4/avcall/avcall-x86_64-windows.c0000664000000000000000000002047314061147262015473 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iarg1 __asm__("rcx");*/ /*register __avrword iarg2 __asm__("rdx");*/ /*register __avrword iarg3 __asm__("r8");*/ /*register __avrword 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 __avrword 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 { __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 2*sizeof(__avrword) */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } #endif } } } return 0; } libffcall-2.4/avcall/avcall-armhf.c0000664000000000000000000001756214061147262014147 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("r0"); */ register __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.4/avcall/avcall-arm.c0000664000000000000000000001173214061147262013622 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("r0"); */ register __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.4/avcall/avcall-s390x-macro.S0000664000000000000000000000755014061422370015007 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,.L77 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,.L78-.L77(%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 .L72 .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,.L78-.L77(%r13) jle .L9 tmll %r1,2 lg %r10,168(%r11) jne .L73 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 .L74 tm 119(%r1),8 je .L9 le %f6,136(%r1) .L9: lg %r1,168(%r11) l %r1,24(%r1) chi %r1,13 je .L75 chi %r1,14 je .L76 lg %r10,168(%r11) lg %r1,8(%r10) basr %r14,%r1 l %r1,24(%r10) chi %r1,1 lgr %r0,%r2 je .L19 chi %r1,2 je .L68 chi %r1,3 je .L68 chi %r1,4 je .L68 chi %r1,5 je .L69 chi %r1,6 je .L69 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 .L68: 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 .L73: .cfi_restore_state ld %f2,152(%r10) j .L14 .L69: lg %r1,168(%r11) lg %r4,288(%r11) lg %r6,160(%r11) lg %r1,16(%r1) 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 sth %r0,0(%r1) br %r4 .L67: .cfi_restore_state lg %r1,168(%r11) lg %r1,16(%r1) stg %r0,0(%r1) j .L19 .L76: 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 .L75: .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 .L70: lg %r1,168(%r11) lg %r1,16(%r1) st %r0,0(%r1) j .L19 .L72: lg %r6,104(%r1) j .L7 .L74: ld %f6,168(%r1) j .L9 .section .rodata .align 8 .L77: .L78: .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.4/avcall/avcall-powerpc-linux-macro.S0000664000000000000000000000420314061422366016732 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,.L71 mtctr 0 .L72: slwi 9,3,2 addi 3,3,1 lwzx 0,9,11 stwx 0,9,10 bdnz .L72 .L71: 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,2 beq- 0,.L75 cmpwi 0,9,3 beq- 0,.L75 cmpwi 0,9,4 beq- 0,.L75 cmpwi 0,9,5 beq- 0,.L74 cmpwi 0,9,6 beq- 0,.L74 cmpwi 0,9,7 beq- 0,.L81 cmpwi 0,9,8 beq- 0,.L81 cmpwi 0,9,9 beq- 0,.L81 cmpwi 0,9,10 beq- 0,.L81 addi 0,9,-11 cmplwi 0,0,1 ble- 0,.L80 cmpwi 0,9,13 beq- 0,.L82 cmpwi 0,9,14 beq- 0,.L83 cmpwi 0,9,15 beq- 0,.L81 cmpwi 0,9,16 beq- 0,.L84 .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 .L84: lwz 0,0(30) andi. 9,0,512 beq- 0,.L34 lwz 0,16(30) cmpwi 0,0,1 beq- 0,.L75 cmpwi 0,0,2 beq- 0,.L74 cmpwi 0,0,4 beq- 0,.L81 cmpwi 0,0,8 bne+ 0,.L34 .L80: lwz 9,8(30) stw 4,4(9) .L73: stw 3,0(9) b .L34 .L81: lwz 9,8(30) b .L73 .L74: lwz 9,8(30) sth 3,0(9) b .L34 .L75: lwz 9,8(30) stb 3,0(9) b .L34 .L83: lwz 9,8(30) stfd 1,0(9) b .L34 .L82: 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.4/avcall/avcall-powerpc-aix.s0000664000000000000000000000527614061422366015330 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..87 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..86: 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,2 beq- 0,L..90 cmpwi 0,9,3 beq- 0,L..90 cmpwi 0,9,4 beq- 0,L..90 cmpwi 0,9,5 beq- 0,L..89 cmpwi 0,9,6 beq- 0,L..89 cmpwi 0,9,7 beq- 0,L..96 cmpwi 0,9,8 beq- 0,L..96 cmpwi 0,9,9 beq- 0,L..96 cmpwi 0,9,10 beq- 0,L..96 addi 0,9,-11 cmplwi 0,0,1 ble- 0,L..95 cmpwi 0,9,13 beq- 0,L..97 cmpwi 0,9,14 beq- 0,L..98 cmpwi 0,9,15 beq- 0,L..96 cmpwi 0,9,16 beq- 0,L..99 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..99: lwz 0,0(30) andi. 9,0,512 beq- 0,L..49 lwz 0,16(30) cmpwi 0,0,1 beq- 0,L..90 cmpwi 0,0,2 beq- 0,L..89 cmpwi 0,0,4 beq- 0,L..96 cmpwi 0,0,8 bne+ 0,L..49 L..95: lwz 9,8(30) stw 4,4(9) L..88: stw 3,0(9) b L..49 L..96: lwz 9,8(30) b L..88 L..89: lwz 9,8(30) sth 3,0(9) b L..49 L..90: lwz 9,8(30) stb 3,0(9) b L..49 L..98: lwz 9,8(30) stfd 1,0(9) b L..49 L..97: lwz 9,8(30) frsp 0,1 stfs 0,0(9) b L..49 L..87: lwz 11,24(30) b L..86 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.4/avcall/avcall-m68k.motorola.S0000664000000000000000000000465414061422364015447 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(52) 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(52): moveq.l #16,%d0 cmp.l 12(%a2),%d0 jbeq L(57) 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) moveq.l #2,%d4 cmp.l %a1,%d4 jbeq L(56) moveq.l #3,%d4 cmp.l %a1,%d4 jbeq L(56) moveq.l #4,%d4 cmp.l %a1,%d4 jbeq L(56) moveq.l #5,%d4 cmp.l %a1,%d4 jbeq L(55) moveq.l #6,%d4 cmp.l %a1,%d4 jbeq L(55) moveq.l #7,%d4 cmp.l %a1,%d4 jbeq L(53) moveq.l #8,%d4 cmp.l %a1,%d4 jbeq L(53) moveq.l #9,%d4 cmp.l %a1,%d4 jbeq L(53) moveq.l #10,%d4 cmp.l %a1,%d4 jbeq L(53) lea (-11,%a1),%a0 moveq.l #1,%d4 cmp.l %a0,%d4 jbcc L(54) moveq.l #13,%d4 cmp.l %a1,%d4 jbeq L(58) moveq.l #14,%d4 cmp.l %a1,%d4 jbeq L(59) moveq.l #15,%d0 cmp.l %a1,%d0 jbeq L(53) 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(56) moveq.l #2,%d1 cmp.l %d0,%d1 jbeq L(55) moveq.l #4,%d4 cmp.l %d0,%d4 jbeq L(53) moveq.l #8,%d1 cmp.l %d0,%d1 jbne L(9) L(54): move.l 8(%a2),%a0 move.l %d2,(%a0) move.l %d3,4(%a0) jbra L(9) .align 2 L(53): move.l 8(%a2),%a0 move.l %d2,(%a0) jbra L(9) .align 2 L(55): move.l 8(%a2),%a0 move.w %d2,(%a0) jbra L(9) .align 2 L(56): move.l 8(%a2),%a0 move.b %d2,(%a0) jbra L(9) .align 2 L(59): btst #6,3(%a2) jbeq L(37) move.l 8(%a2),%a0 fmove.d %fp0,(%a0) jbra L(9) .align 2 L(37): move.l 8(%a2),%a0 move.l %d0,(%a0) move.l %d1,4(%a0) jbra L(9) .align 2 L(58): move.l (%a2),%d2 btst #6,%d2 jbeq L(31) move.l 8(%a2),%a0 fmove.s %fp0,(%a0) jbra L(9) .align 2 L(31): btst #5,%d2 jbeq L(33) 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(33): move.l 8(%a2),%a0 move.l %d0,(%a0) jbra L(9) .align 2 L(57): 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.4/avcall/avcall-mipsn32.c0000664000000000000000000006031614061147262014340 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret1 __asm__("$2"); */ register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ #if defined(_MIPSEL) if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #else if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - ((__avrword)1 << (sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret << (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = ((__avrword)2 << (sizeof(__avrword)*8-start_offset*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret >> (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = - ((__avrword)1 << (2*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] ^= (wordaddr[1] ^ ((iret << (sizeof(__avrword)*4-start_offset*4) << (sizeof(__avrword)*4-start_offset*4)) | (iret2 >> (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = - ((__avrword)1 << (3*sizeof(__avrword)*8-end_offset*8)); wordaddr[1] = (iret << (sizeof(__avrword)*8-start_offset*8)) | (iret2 >> (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 << (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif #endif } } } } return 0; } libffcall-2.4/avcall/avcall-alpha.c0000664000000000000000000001352314061147262014130 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("$0"); */ register __avrword 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); __avrword 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 == __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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = i2; } } } return 0; } libffcall-2.4/avcall/avcall-hppa-macro.S0000664000000000000000000001121714061422365015050 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(57) 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(56)) ldw 12(%r4),%r21 ldi 16,%r20 comb,=,n %r20,%r21,L(62) 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 2,%r21,L(60) comib,=,n 3,%r21,L(60) comib,=,n 4,%r21,L(60) comib,=,n 5,%r21,L(59) comib,=,n 6,%r21,L(59) comib,=,n 7,%r21,L(61) comib,=,n 8,%r21,L(61) comib,=,n 9,%r21,L(61) comib,=,n 10,%r21,L(61) ldo -11(%r21),%r20 comib,<<,n 1,%r20,L(38) ldw 8(%r4),%r20 stw %r29,4(%r20) DEF(L(58)) stw %r2,0(%r20) DEF(L(19)) ldw -20(%r3),%r2 DEF(L(65)) ldi 0,%r28 ldw 8(%r3),%r5 ldw 12(%r3),%r4 ldo 64(%r3),%r30 bv %r0(%r2) ldwm -64(%r30),%r3 DEF(L(38)) comib,=,n 13,%r21,L(63) comib,=,n 14,%r21,L(64) comib,=,n 15,%r21,L(61) ldi 16,%r20 comb,<>,n %r20,%r21,L(65) ldw -20(%r3),%r2 ldw 0(%r4),%r20 bb,>=,n %r20,30,L(65) ldw -20(%r3),%r2 ldw 16(%r4),%r22 ldo -1(%r22),%r20 comib,<<,n 7,%r20,L(65) 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(49) addl %r26,%r22,%r21 comib,<< 4,%r21,L(50) 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(50)) 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(49)) zdep %r26,28,29,%r26 mtsar %r26 zvdepi 2,32,%r20 comib,<< 8,%r21,L(53) 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(53)) 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(61)) b L(58) ldw 8(%r4),%r20 DEF(L(64)) ldw 8(%r4),%r20 b L(19) fstds %fr4,0(%r20) DEF(L(63)) ldw 8(%r4),%r20 b L(19) fstws %fr4L,0(%r20) DEF(L(59)) ldw 8(%r4),%r20 b L(19) sth %r2,0(%r20) DEF(L(60)) ldw 8(%r4),%r20 b L(19) stb %r2,0(%r20) DEF(L(62)) b L(7) ldw 8(%r4),%r28 DEF(L(57)) b L(56) 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.4/avcall/avcall-mipsn32el-macro.S0000664000000000000000000002024414061422364015733 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,.L124 andi $6,$2,0x2 .set macro .set reorder lwc1 $f12,44($16) andi $6,$2,0x2 .L124: .set noreorder .set nomacro beq $6,$0,.L125 andi $6,$2,0x4 .set macro .set reorder lwc1 $f13,48($16) andi $6,$2,0x4 .L125: .set noreorder .set nomacro beq $6,$0,.L126 andi $6,$2,0x8 .set macro .set reorder lwc1 $f14,52($16) andi $6,$2,0x8 .L126: .set noreorder .set nomacro beq $6,$0,.L127 andi $6,$2,0x10 .set macro .set reorder lwc1 $f15,56($16) andi $6,$2,0x10 .L127: .set noreorder .set nomacro beq $6,$0,.L128 andi $6,$2,0x20 .set macro .set reorder lwc1 $f16,60($16) andi $6,$2,0x20 .L128: .set noreorder .set nomacro beq $6,$0,.L129 andi $6,$2,0x40 .set macro .set reorder lwc1 $f17,64($16) andi $6,$2,0x40 .L129: .set noreorder .set nomacro beql $6,$0,.L130 andi $2,$2,0x80 .set macro .set reorder lwc1 $f18,68($16) andi $2,$2,0x80 .L130: bne $2,$0,.L117 .L2: lw $2,40($16) .L123: .set noreorder .set nomacro beql $2,$0,.L122 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L131 andi $6,$2,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $6,$2,0x2 .L131: .set noreorder .set nomacro beq $6,$0,.L132 andi $6,$2,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $6,$2,0x4 .L132: .set noreorder .set nomacro beq $6,$0,.L133 andi $6,$2,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $6,$2,0x8 .L133: .set noreorder .set nomacro beq $6,$0,.L134 andi $6,$2,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $6,$2,0x10 .L134: .set noreorder .set nomacro beq $6,$0,.L135 andi $6,$2,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $6,$2,0x20 .L135: .set noreorder .set nomacro beq $6,$0,.L136 andi $6,$2,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $6,$2,0x40 .L136: .set noreorder .set nomacro beql $6,$0,.L137 andi $2,$2,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $2,$2,0x80 .L137: bne $2,$0,.L118 slt $4,$4,9 .L122: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L82: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L82 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 beq $4,$5,.L19 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 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,.L115 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L115 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 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,.L138 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,.L37 lw $5,16($16) .set macro .set reorder lw $3,16($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L107 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L109 li $4,4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L110 li $4,8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L139 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L138: 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 .L118: ldc1 $f19,56($12) .set noreorder .set nomacro b .L122 slt $4,$4,9 .set macro .set reorder .align 3 .L117: lwc1 $f19,72($16) .set noreorder .set nomacro b .L123 lw $2,40($16) .set macro .set reorder .align 3 .L107: 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 .align 3 .L110: 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 .align 3 .L109: lw $3,8($16) sh $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 sdc1 $f0,0($2) .set macro .set reorder .L115: lw $3,8($16) .L139: .set noreorder .set nomacro b .L19 sd $2,0($3) .set macro .set reorder .L119: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beql $3,$0,.L42 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 .L41: 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,.L121 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 .L42: 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 .L121: 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.4/avcall/avcall-powerpc-linux.s0000664000000000000000000000406314061422366015677 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,.L71 mtctr 0 .L72: slwi 9,3,2 addi 3,3,1 lwzx 0,9,11 stwx 0,9,10 bdnz .L72 .L71: 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,2 beq- 0,.L75 cmpwi 0,9,3 beq- 0,.L75 cmpwi 0,9,4 beq- 0,.L75 cmpwi 0,9,5 beq- 0,.L74 cmpwi 0,9,6 beq- 0,.L74 cmpwi 0,9,7 beq- 0,.L81 cmpwi 0,9,8 beq- 0,.L81 cmpwi 0,9,9 beq- 0,.L81 cmpwi 0,9,10 beq- 0,.L81 addi 0,9,-11 cmplwi 0,0,1 ble- 0,.L80 cmpwi 0,9,13 beq- 0,.L82 cmpwi 0,9,14 beq- 0,.L83 cmpwi 0,9,15 beq- 0,.L81 cmpwi 0,9,16 beq- 0,.L84 .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 .L84: lwz 0,0(30) andi. 9,0,512 beq- 0,.L34 lwz 0,16(30) cmpwi 0,0,1 beq- 0,.L75 cmpwi 0,0,2 beq- 0,.L74 cmpwi 0,0,4 beq- 0,.L81 cmpwi 0,0,8 bne+ 0,.L34 .L80: lwz 9,8(30) stw 4,4(9) .L73: stw 3,0(9) b .L34 .L81: lwz 9,8(30) b .L73 .L74: lwz 9,8(30) sth 3,0(9) b .L34 .L75: lwz 9,8(30) stb 3,0(9) b .L34 .L83: lwz 9,8(30) stfd 1,0(9) b .L34 .L82: 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.4/avcall/avcall-riscv64-lp64d-macro.S0000664000000000000000000001030114061422370016334 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,.L77 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,.L78 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,.L79 jalr t4 lw t1,24(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 li t4,2 beq t1,t4,.L71 li t4,3 beq t1,t4,.L71 li t4,4 beq t1,t4,.L71 li t4,5 beq t1,t4,.L72 li t4,6 beq t1,t4,.L72 li t4,7 beq t1,t4,.L73 li t4,8 beq t1,t4,.L73 and t4,t1,-3 li t6,9 beq t4,t6,.L75 addw t4,t1,-10 and t4,t4,-3 sext.w t4,t4 beqz t4,.L75 li t6,15 beq t1,t6,.L75 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 li s4,8 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,.L38 bgtu s1,s4,.L39 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 .L77: fld fa1,120(s1) j .L13 .L79: ld s1,16(s1) jalr t4 fsd fa0,0(s1) j .L26 .L71: ld t1,16(s1) sb t3,0(t1) 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 .L78: fld fa3,136(s1) j .L17 .L72: ld t1,16(s1) sh t3,0(t1) j .L26 .L18: lw t3,68(s1) and t3,t3,16 beqz t3,.L19 flw fa4,92(s1) j .L19 .L73: ld t1,16(s1) sw 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) sd 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 .L39: 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 .L38: sub t4,zero,t4 and t4,t4,t2 xor t4,t4,t0 sd t4,0(t6) sll t2,a1,s5 bleu s1,t1,.L80 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 .L80: 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.4/avcall/avcall-i386-linux.s0000664000000000000000000000375214061422364014713 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 .L45 movl %eax, %ecx .p2align 2,,3 .L6: movl (%ecx,%esi,4), %eax movl %eax, (%edi,%esi,4) incl %esi cmpl %edx, %esi jl .L6 .L45: 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 cmpl $2, %ecx je .L57 cmpl $3, %ecx je .L53 cmpl $4, %ecx je .L53 cmpl $5, %ecx je .L54 cmpl $6, %ecx je .L58 cmpl $7, %ecx je .L52 cmpl $8, %ecx je .L46 cmpl $9, %ecx je .L52 cmpl $10, %ecx je .L46 leal -11(%ecx), %eax cmpl $1, %eax jbe .L47 cmpl $15, %ecx je .L46 cmpl $16, %ecx je .L59 .p2align 2,,3 .L8: leal -8(%ebp), %esp popl %esi xorl %eax, %eax popl %edi leave ret .L59: movl 8(%ebp), %ecx testb $2, 1(%ecx) je .L8 movl 16(%ecx), %eax cmpl $1, %eax je .L50 cmpl $2, %eax je .L54 cmpl $4, %eax je .L46 cmpl $8, %eax jne .L8 .L47: movl 8(%ebp), %ecx movl 8(%ecx), %eax movl %esi, (%eax) movl %edx, 4(%eax) jmp .L8 .L46: movl 8(%ebp), %edx movl 8(%edx), %eax .L48: movl %esi, (%eax) jmp .L8 .L54: movl 8(%ebp), %ecx movl 8(%ecx), %eax .L49: movw %si, (%eax) jmp .L8 .L50: movl 8(%ecx), %eax .L51: movl %esi, %edx movb %dl, (%eax) jmp .L8 .L52: movl 8(%ebp), %ecx movl 8(%ecx), %eax jmp .L48 .L58: movl 8(%ebp), %edx movl 8(%edx), %eax jmp .L49 .L53: movl 8(%ebp), %ecx jmp .L50 .L57: movl 8(%eax), %eax jmp .L51 .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.4/avcall/avcall-ia64-linux.s0000664000000000000000000003373614061422367014775 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 .L68 ;; .L7: .mib nop 0 cmp4.ne p6, p7 = 13, r15 (p7) br.cond.dpnt .L69 ;; .L16: .mib cmp4.ne p6, p7 = 14, r15 adds r15 = 8, r32 (p7) br.cond.dpnt .L70 .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 ;; .mfb cmp4.ne p6, p7 = 2, r14 nop 0 (p7) br.cond.dpnt .L62 ;; .mfb cmp4.ne p6, p7 = 3, r14 nop 0 (p7) br.cond.dpnt .L62 ;; .mfb cmp4.ne p6, p7 = 4, r14 nop 0 (p7) br.cond.dpnt .L62 ;; .mfb cmp4.ne p6, p7 = 5, r14 nop 0 (p7) br.cond.dpnt .L63 ;; .mfb cmp4.ne p6, p7 = 6, r14 nop 0 (p7) br.cond.dpnt .L63 ;; .mfb cmp4.ne p6, p7 = 7, r14 nop 0 (p7) br.cond.dpnt .L64 ;; .mfb cmp4.ne p6, p7 = 8, r14 nop 0 (p7) br.cond.dpnt .L64 ;; .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 .L66 ;; .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 .L66 ;; .mfb cmp4.ne p6, p7 = 15, r14 nop 0 (p7) br.cond.dpnt .L66 ;; .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 .L45 ;; .mib nop 0 cmp.ltu p6, p7 = 8, r23 (p6) br.cond.dptk .L47 .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 .L68: .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 .L69: .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 ;; .L62: .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 st1 [r14] = r28 nop 0 br.ret.sptk.many b0 .L70: .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 ;; .L63: .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 st2 [r14] = r28 nop 0 br.ret.sptk.many b0 .L64: .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 st4 [r14] = r28 nop 0 br.ret.sptk.many b0 .L66: .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 st8 [r14] = r28 nop 0 br.ret.sptk.many b0 .L45: .body .copy_state 7 .mib nop 0 cmp.ltu p6, p7 = 16, r19 (p6) br.cond.dptk .L49 ;; .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 .L51 .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 .L47: .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 .L49: .body .copy_state 9 .mib nop 0 cmp.ltu p6, p7 = 24, r19 (p6) br.cond.dptk .L53 ;; .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 .L55 .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 10 .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 .L51: .body .copy_state 10 .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 11 .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 .L55: .body .copy_state 11 .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 12 .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 .L53: .body .copy_state 12 .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 .L57 .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 13 .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 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.4/avcall/avcall-mipsn32eb-linux.s0000664000000000000000000002275314061422364016026 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,.L124 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 .L124: .set noreorder .set nomacro beq $6,$0,.L125 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 .L125: .set noreorder .set nomacro beq $6,$0,.L126 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 .L126: .set noreorder .set nomacro beq $6,$0,.L127 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 .L127: .set noreorder .set nomacro beq $6,$0,.L128 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 .L128: .set noreorder .set nomacro beq $6,$0,.L129 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 .L129: .set noreorder .set nomacro beql $6,$0,.L130 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 .L130: bne $2,$0,.L117 .L2: lw $2,40($16) .L123: .set noreorder .set nomacro beql $2,$0,.L122 slt $4,$4,9 .set macro .set reorder andi $6,$2,0x1 .set noreorder .set nomacro beq $6,$0,.L131 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 .L131: .set noreorder .set nomacro beq $6,$0,.L132 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 .L132: .set noreorder .set nomacro beq $6,$0,.L133 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 .L133: .set noreorder .set nomacro beq $6,$0,.L134 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 .L134: .set noreorder .set nomacro beq $6,$0,.L135 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 .L135: .set noreorder .set nomacro beq $6,$0,.L136 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 .L136: .set noreorder .set nomacro beql $6,$0,.L137 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 .L137: bne $2,$0,.L118 slt $4,$4,9 .L122: .set noreorder .set nomacro bne $4,$0,.L22 addiu $2,$12,64 .set macro .set reorder .align 3 .L82: ld $4,0($2) addiu $3,$3,8 addiu $2,$2,8 .set noreorder .set nomacro bne $5,$2,.L82 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 beq $4,$5,.L19 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L107 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L110 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,.L115 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L115 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L120 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,.L138 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,.L37 lw $4,16($16) .set macro .set reorder lw $3,16($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L107 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L109 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L110 li $4,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,.L139 lw $3,8($16) .set macro .set reorder .L19: move $sp,$fp .L138: 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 .L118: #APP # 112 "avcall-mipsn32.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L122 slt $4,$4,9 .set macro .set reorder .align 3 .L117: #APP # 92 "avcall-mipsn32.c" 1 lwc1 $f19,72($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L123 lw $2,40($16) .set macro .set reorder .align 3 .L107: 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 .align 3 .L110: 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 .align 3 .L109: lw $3,8($16) sh $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 sdc1 $f0,0($2) .set macro .set reorder .L115: lw $3,8($16) .L139: .set noreorder .set nomacro b .L19 sd $2,0($3) .set macro .set reorder .L119: lw $2,8($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 addu $4,$4,$5 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L42 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 .L41: 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,.L121 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 .L42: 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 .L121: 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.4/avcall/avcall-mips64el-linux.s0000664000000000000000000002300614061422365015660 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,.L123 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 .L123: .set noreorder .set nomacro beq $4,$0,.L124 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 .L124: .set noreorder .set nomacro beq $4,$0,.L125 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 .L125: .set noreorder .set nomacro beq $4,$0,.L126 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 .L126: .set noreorder .set nomacro beq $4,$0,.L127 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 .L127: .set noreorder .set nomacro beq $4,$0,.L128 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 .L128: .set noreorder .set nomacro beql $4,$0,.L129 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 .L129: bne $3,$0,.L116 .L2: lw $3,72($16) .L122: .set noreorder .set nomacro beql $3,$0,.L121 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L130 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 .L130: .set noreorder .set nomacro beq $4,$0,.L131 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 .L131: .set noreorder .set nomacro beq $4,$0,.L132 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 .L132: .set noreorder .set nomacro beq $4,$0,.L133 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 .L133: .set noreorder .set nomacro beq $4,$0,.L134 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 .L134: .set noreorder .set nomacro beq $4,$0,.L135 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 .L135: .set noreorder .set nomacro beql $4,$0,.L136 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 .L136: bne $3,$0,.L117 slt $3,$6,9 .L121: .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 beq $4,$5,.L19 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 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,.L109 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,11 # 0xb .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L118 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L137 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,.L37 ld $5,32($16) .set macro .set reorder ld $3,32($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L106 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L108 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,.L138 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L137: 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 .L117: #APP # 111 "avcall-mips64.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L121 slt $3,$6,9 .set macro .set reorder .align 3 .L116: #APP # 91 "avcall-mips64.c" 1 lwc1 $f19,104($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L122 lw $3,72($16) .set macro .set reorder .align 3 .L106: 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 sw $2,0($3) .set macro .set reorder .align 3 .L108: ld $3,16($16) sh $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 .L109: ld $3,16($16) .align 3 .L138: 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 .L119: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L118: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 and $6,$6,$8 .set macro .set reorder sltu $3,$5,9 .set noreorder .set nomacro beq $3,$0,.L42 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 .L41: 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,.L120 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 .L42: 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 .L120: 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.4/avcall/minitests.c0000664000000000000000000000136613347755263013640 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.4/avcall/avcall-m68k-sun.s0000664000000000000000000000345514061422364014455 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 L52 movel sp,a1 movel d1,a0 movel d0,d2 .even L6: movel a0@+,a1@+ subql #1,d2 jne L6 L52: moveq #16,d0 cmpl a2@(12),d0 jeq L57 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 moveq #2,d4 cmpl a1,d4 jeq L56 moveq #3,d4 cmpl a1,d4 jeq L56 moveq #4,d4 cmpl a1,d4 jeq L56 moveq #5,d4 cmpl a1,d4 jeq L55 moveq #6,d4 cmpl a1,d4 jeq L55 moveq #7,d4 cmpl a1,d4 jeq L53 moveq #8,d4 cmpl a1,d4 jeq L53 moveq #9,d4 cmpl a1,d4 jeq L53 moveq #10,d4 cmpl a1,d4 jeq L53 lea a1@(-11),a0 moveq #1,d4 cmpl a0,d4 jcc L54 moveq #13,d4 cmpl a1,d4 jeq L58 moveq #14,d4 cmpl a1,d4 jeq L59 moveq #15,d0 cmpl a1,d0 jeq L53 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 L56 moveq #2,d1 cmpl d0,d1 jeq L55 moveq #4,d4 cmpl d0,d4 jeq L53 moveq #8,d1 cmpl d0,d1 jne L9 L54: movel a2@(8),a0 movel d2,a0@ movel d3,a0@(4) jra L9 .even L53: movel a2@(8),a0 movel d2,a0@ jra L9 .even L55: movel a2@(8),a0 movew d2,a0@ jra L9 .even L56: movel a2@(8),a0 moveb d2,a0@ jra L9 .even L59: btst #6,a2@(3) jeq L37 movel a2@(8),a0 fmoved fp0,a0@ jra L9 .even L37: movel a2@(8),a0 movel d0,a0@ movel d1,a0@(4) jra L9 .even L58: movel a2@,d2 btst #6,d2 jeq L31 movel a2@(8),a0 fmoves fp0,a0@ jra L9 .even L31: btst #5,d2 jeq L33 movel a2@(8),a0 movel d1,sp@- movel d0,sp@- fmoved sp@+,fp0 fmoves fp0,a0@ jra L9 .even L33: movel a2@(8),a0 movel d0,a0@ jra L9 .even L57: #APP movel a2@(8),a1 #NO_APP jra L7 .even L9: clrl d0 moveml a6@(-16),#0x41c unlk a6 rts libffcall-2.4/avcall/PLATFORMS0000664000000000000000000001303514061241502012717 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 aarch64-apple-darwin20.4.0 (cc) Mac mini macOS 11 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.4/avcall/avcall-i386-msvc.c0000664000000000000000000000757114061420671014506 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(45)) 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(45): 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(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(57)) 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(54)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(58)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(10), R(ecx)) INSN1(je,_ ,L(46)) INSN2(lea,l ,X4 MEM_DISP(ecx,-11), R(eax)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(jbe,_ ,L(47)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(16), R(ecx)) INSN1(je,_ ,L(59)) P2ALIGN(2,3) 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(59): 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(50)) INSN2(cmp,l ,NUM(2), R(eax)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(4), R(eax)) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(8), R(eax)) INSN1(jne,_ ,L(8)) L(47): 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(46): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) L(48): INSN2(mov,l ,R(esi),X4 MEM(eax)) INSN1(jmp,_ ,L(8)) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) L(49): INSN2(mov,w ,R(si),X2 MEM(eax)) INSN1(jmp,_ ,L(8)) L(50): INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) L(51): INSN2(mov,l ,R(esi), R(edx)) INSN2(mov,b ,R(dl),X1 MEM(eax)) INSN1(jmp,_ ,L(8)) L(52): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN1(jmp,_ ,L(48)) L(58): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(jmp,_ ,L(49)) L(53): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN1(jmp,_ ,L(50)) L(57): INSN2(mov,l ,X4 MEM_DISP(eax,8), R(eax)) INSN1(jmp,_ ,L(51)) 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.4/avcall/avcall-arm64-macro.S0000664000000000000000000001167114061422366015056 00000000000000#include "asm-arm64.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .global C(avcall_call) DECLARE_FUNCTION(avcall_call) 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(86): ldr x10, [x12, x9, lsl 3] str x10, [x13, x9, lsl 3] add x9, x9, 1 cmp w11, w9 bgt L(86) 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(119) 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(120) 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(121) cmp w9, 14 beq L(122) ldr x9, [x19, 8] blr x9 mov x16, x0 ldr w9, [x19, 24] cmp w9, 1 beq L(27) cmp w9, 2 beq L(113) cmp w9, 3 beq L(113) cmp w9, 4 beq L(113) cmp w9, 5 beq L(114) cmp w9, 6 beq L(114) cmp w9, 7 beq L(115) cmp w9, 8 beq L(115) and w12, w9, -3 cmp w12, 9 beq L(117) sub w12, w9, $10 tst w12, -3 beq L(117) cmp w9, 15 beq L(117) 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(39) cmp x12, 8 lsl w11, w12, 3 bhi L(40) 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(113): 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(119): ldr d1, [x19, 192] b L(14) .p2align 3 L(114): ldr x9, [x19, 16] mov w0, 0 strh w16, [x9] ldr d8, [x29, 32] add sp, x29, 0 ldp x19, x20, [sp, 16] ldp x29, x30, [sp], 48 ret L(117): ldr x9, [x19, 16] str x16, [x9] b L(27) .p2align 3 L(122): 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(121): 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(115): ldr x9, [x19, 16] str w16, [x9] b L(27) L(120): ldr d3, [x19, 208] b L(18) 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(39): 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(123) 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(40): 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(123): 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.4/avcall/avcall-sparc64-linux.s0000664000000000000000000002136414061422365015504 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, .LL97 andcc %g3, 2, %g0 bne,pt %xcc, .LL98 andcc %g3, 4, %g0 .LL133: bne,pt %xcc, .LL99 andcc %g3, 8, %g0 .LL132: bne,pt %xcc, .LL100 andcc %g3, 16, %g0 .LL131: bne,pt %xcc, .LL101 andcc %g3, 32, %g0 .LL130: bne,pt %xcc, .LL102 andcc %g3, 64, %g0 .LL129: bne,pt %xcc, .LL103 andcc %g3, 128, %g0 .LL128: bne,pt %xcc, .LL104 andcc %g3, 256, %g0 .LL127: bne,pt %xcc, .LL105 andcc %g3, 512, %g0 .LL126: bne,pt %xcc, .LL106 andcc %g3, 1024, %g0 .LL125: bne,pt %xcc, .LL107 andcc %g3, 2048, %g0 .LL124: bne,pt %xcc, .LL108 sethi %hi(4096), %g1 .LL123: andcc %g3, %g1, %g0 bne,pt %icc, .LL109 sethi %hi(8192), %g1 .LL122: andcc %g3, %g1, %g0 bne,pt %icc, .LL110 sethi %hi(16384), %g1 .LL121: andcc %g3, %g1, %g0 bne,pt %icc, .LL111 sethi %hi(32768), %g1 .LL120: andcc %g3, %g1, %g0 bne,pt %icc, .LL112 nop .LL2: cmp %o7, 6 .LL119: bg,pn %icc, .LL117 add %o7, -6, %g1 ldx [%i0+48], %g3 .LL118: ldx [%g3+40], %o5 .LL116: 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, 2 be,pn %icc, .LL89 cmp %g1, 3 be,pn %icc, .LL89 cmp %g1, 4 be,pn %icc, .LL89 cmp %g1, 5 be,pn %icc, .LL90 cmp %g1, 6 be,pn %icc, .LL90 cmp %g1, 7 be,pn %icc, .LL91 cmp %g1, 8 be,pn %icc, .LL91 cmp %g1, 9 be,pn %icc, .LL95 cmp %g1, 10 be,pn %icc, .LL95 cmp %g1, 11 be,pn %icc, .LL95 cmp %g1, 12 be,pn %icc, .LL95 cmp %g1, 13 be,pn %icc, .LL114 cmp %g1, 14 be,pn %icc, .LL115 cmp %g1, 15 be,pn %icc, .LL95 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, .LL71 add %g2, %g5, %g4 cmp %g4, 8 bgu,pt %xcc, .LL73 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 ba,pt %xcc, .LL38 stx %g5, [%i0] .LL89: ldx [%i0+16], %g1 stb %l3, [%g1] .LL38: return %i7+8 mov 0, %o0 .LL112: ldd [%g2+120],%f30 cmp %o7, 6 ble,a,pt %icc, .LL118 ldx [%i0+48], %g3 add %o7, -6, %g1 .LL117: 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, .LL116 ldx [%g3+40], %o5 .LL111: ldd [%g2+112],%f28 sethi %hi(32768), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL119 cmp %o7, 6 ba,pt %xcc, .LL112 nop .LL110: ldd [%g2+104],%f26 sethi %hi(16384), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL120 sethi %hi(32768), %g1 ba,pt %xcc, .LL111 nop .LL109: ldd [%g2+96],%f24 sethi %hi(8192), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL121 sethi %hi(16384), %g1 ba,pt %xcc, .LL110 nop .LL108: ldd [%g2+88],%f22 sethi %hi(4096), %g1 andcc %g3, %g1, %g0 be,pt %icc, .LL122 sethi %hi(8192), %g1 ba,pt %xcc, .LL109 nop .LL107: ldd [%g2+80],%f20 andcc %g3, 2048, %g0 be,pt %xcc, .LL123 sethi %hi(4096), %g1 ba,pt %xcc, .LL108 nop .LL106: ldd [%g2+72],%f18 andcc %g3, 1024, %g0 be,pt %xcc, .LL124 andcc %g3, 2048, %g0 ba,pt %xcc, .LL107 nop .LL105: ldd [%g2+64],%f16 andcc %g3, 512, %g0 be,pt %xcc, .LL125 andcc %g3, 1024, %g0 ba,pt %xcc, .LL106 nop .LL104: ldd [%g2+56],%f14 andcc %g3, 256, %g0 be,pt %xcc, .LL126 andcc %g3, 512, %g0 ba,pt %xcc, .LL105 nop .LL103: ldd [%g2+48],%f12 andcc %g3, 128, %g0 be,pt %xcc, .LL127 andcc %g3, 256, %g0 ba,pt %xcc, .LL104 nop .LL102: ldd [%g2+40],%f10 andcc %g3, 64, %g0 be,pt %xcc, .LL128 andcc %g3, 128, %g0 ba,pt %xcc, .LL103 nop .LL101: ldd [%g2+32],%f8 andcc %g3, 32, %g0 be,pt %xcc, .LL129 andcc %g3, 64, %g0 ba,pt %xcc, .LL102 nop .LL100: ldd [%g2+24],%f6 andcc %g3, 16, %g0 be,pt %xcc, .LL130 andcc %g3, 32, %g0 ba,pt %xcc, .LL101 nop .LL99: ldd [%g2+16],%f4 andcc %g3, 8, %g0 be,pt %xcc, .LL131 andcc %g3, 16, %g0 ba,pt %xcc, .LL100 nop .LL98: ldd [%g2+8],%f2 andcc %g3, 4, %g0 be,pt %xcc, .LL132 andcc %g3, 8, %g0 ba,pt %xcc, .LL99 nop .LL97: ldd [%g2+0],%f0 andcc %g3, 2, %g0 be,pt %xcc, .LL133 andcc %g3, 4, %g0 ba,pt %xcc, .LL98 nop .LL90: ldx [%i0+16], %g1 sth %l3, [%g1] return %i7+8 mov 0, %o0 .LL95: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 stx %l3, [%g1] .LL91: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 st %l3, [%g1] .LL114: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 st %f0, [%g1] .LL115: ldx [%i0+16], %g1 ba,pt %xcc, .LL38 std %f0, [%g1] .LL71: cmp %g2, 16 bgu,pt %xcc, .LL75 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, .LL77 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] .LL73: 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] .LL77: 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] .LL75: bgu,pt %xcc, .LL79 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, .LL81 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: 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, .LL83 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] .LL81: 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] .LL83: 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.4/avcall/avcall.html0000664000000000000000000002522513146127475013600 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.4/avcall/avcall-arm64-macos-macro.S0000664000000000000000000001167114061422366016156 00000000000000#include "asm-arm64.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .global C(avcall_call) DECLARE_FUNCTION(avcall_call) 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, 2 ldr w14, [x0, 136] cmp w10, wzr mov x19, x0 str d8, [sp, 32] sub sp, sp, $1040 ble L(6) mov x13, sp mov x9, 0 mov w11, w10 .p2align 2 L(86): ldr w10, [x12, x9, lsl 2] str w10, [x13, x9, lsl 2] add x9, x9, 1 cmp w11, w9 bgt L(86) 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(119) 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(120) 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(121) cmp w9, 14 beq L(122) ldr x9, [x19, 8] blr x9 mov x16, x0 ldr w9, [x19, 24] cmp w9, 1 beq L(27) cmp w9, 2 beq L(113) cmp w9, 3 beq L(113) cmp w9, 4 beq L(113) cmp w9, 5 beq L(114) cmp w9, 6 beq L(114) cmp w9, 7 beq L(115) cmp w9, 8 beq L(115) and w12, w9, -3 cmp w12, 9 beq L(117) sub w12, w9, $10 tst w12, -3 beq L(117) cmp w9, 15 beq L(117) 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(39) cmp x12, 8 lsl w11, w12, 3 bhi L(40) 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(113): 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(119): ldr d1, [x19, 192] b L(14) .p2align 3 L(114): ldr x9, [x19, 16] mov w0, 0 strh w16, [x9] ldr d8, [x29, 32] add sp, x29, 0 ldp x19, x20, [sp, 16] ldp x29, x30, [sp], 48 ret L(117): ldr x9, [x19, 16] str x16, [x9] b L(27) .p2align 3 L(122): 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(121): 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(115): ldr x9, [x19, 16] str w16, [x9] b L(27) L(120): ldr d3, [x19, 208] b L(18) 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(39): 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(123) 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(40): 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(123): 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.4/avcall/avcall-x86_64-macro.S0000664000000000000000000004312314061422367015061 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(124)) INSN2(cmp,l ,NUM(14), R(eax)) INSN1(je,_ ,L(125)) 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(cmp,l ,NUM(2), R(eax)) INSN1(je,_ ,L(119)) INSN2(cmp,l ,NUM(3), R(eax)) INSN1(je,_ ,L(119)) INSN2(cmp,l ,NUM(4), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(119)) INSN2(cmp,l ,NUM(5), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(120)) INSN2(cmp,l ,NUM(6), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(120)) INSN2(cmp,l ,NUM(7), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(121)) INSN2(cmp,l ,NUM(8), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(121)) INSN2(cmp,l ,NUM(9), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(10), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(11), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(12), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) INSN2(cmp,l ,NUM(15), R(eax)) P2ALIGN(4,5) INSN1(je,_ ,L(122)) 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(110)) INSN2(cmp,q ,NUM(8), R(r11)) INSN1(ja,_ ,L(112)) 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)) INSN1(jmp,_ ,L(31)) P2ALIGN(4,7) L(58): INSN1(je,_ ,L(126)) 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(119): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,b ,R(r8b),X1 MEM(rax)) 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(124): 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(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(126): 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(120): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,w ,R(r8w),X2 MEM(rax)) P2ALIGN(4,5) INSN1(jmp,_ ,L(31)) L(10): INSN2(cmp,l ,NUM(5), R(r9d)) P2ALIGN(4,3) INSN1(jg,_ ,L(127)) P2ALIGN(4,5) 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(128)) 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(129)) 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(127): 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(128): 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(129): 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(121): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,l ,R(r8d),X4 MEM(rax)) INSN1(jmp,_ ,L(31)) L(122): INSN2(mov,q ,X8 MEM_DISP(rbx,16), R(rax)) INSN2(mov,q ,R(r8),X8 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(130)) 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(131)) 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(110): 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(114)) 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)) L(112): 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(52): INSN1(jne,_ ,L(132)) 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(130): 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(114): 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(131): 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(132): 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(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.4/avcall/tests.c0000664000000000000000000010275613530344357012760 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.4/avcall/avcall-ia64.c0000664000000000000000000003455414061147262013615 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("r8");*/ register __avrword iret2 __asm__("r9"); register __avrword iret3 __asm__("r10"); register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else if (count <= 2*sizeof(__avrword)) { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } else if (count <= 3*sizeof(__avrword)) { /* Use iret, iret2, iret3. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 3*sizeof(__avrword)) { /* 2*sizeof(__avrword) < end_offset ≤ 3*sizeof(__avrword) */ __avrword mask2 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ ((iret2 >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret3 << (start_offset*8)))) & mask2; } else { /* 3*sizeof(__avrword) < end_offset < 4*sizeof(__avrword), start_offset > 0 */ __avrword mask3 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] = (iret2 >> (sizeof(__avrword)*8-start_offset*8)) | (iret3 << (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ (iret3 >> (sizeof(__avrword)*8-start_offset*8))) & mask3; } } else { /* Use iret, iret2, iret3, iret4. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 4*sizeof(__avrword)) { /* 3*sizeof(__avrword) < end_offset ≤ 4*sizeof(__avrword) */ __avrword mask3 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)); wordaddr[2] = (iret2 >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret3 << (start_offset*8)); wordaddr[3] ^= (wordaddr[3] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask3; } else { /* 4*sizeof(__avrword) < end_offset < 5*sizeof(__avrword), start_offset > 0 */ __avrword mask4 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] = (iret2 >> (sizeof(__avrword)*8-start_offset*8)) | (iret3 << (start_offset*8)); wordaddr[3] = (iret3 >> (sizeof(__avrword)*8-start_offset*8)) | (iret4 << (start_offset*8)); wordaddr[4] ^= (wordaddr[4] ^ (iret4 >> (sizeof(__avrword)*8-start_offset*8))) & mask4; } } #endif } } } } return 0; } libffcall-2.4/avcall/avcall.h0000664000000000000000000005045714061147266013065 00000000000000/* * Copyright 1993-1995 Bill Triggs * Copyright 1995-2021 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 /* __avword represents a single word that can be pushed on the stack. * __avrword represents a general-purpose register. */ #if defined(__arm64__) && defined(__APPLE__) && defined(__MACH__) typedef int __avword; typedef long __avrword; #elif defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__AV_LLP64) typedef long long __avword; typedef long long __avrword; #else typedef long __avword; typedef long __avrword; #endif /* C builtin types. */ enum __AVtype { __AVword, /* just a dummy, for binary backward compatibility */ __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, xlclang */ __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(__ibmxl__) || !defined(__GNUC__)) /* AIX 64-bit xlc, xlclang */ __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 */, __avrword(* /* 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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(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],(__avrword(*)())(FUNC),RADDR,__AVvoidp, __AV_START_FLAGS) extern void avcall_start_struct (av_alist* /* LIST */, __avword* /* LIST_ARGS */, __avword* /* LIST_ARGS_END */, __avrword(* /* 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],(__avrword(*)())(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_int (av_alist* /* LIST */, int /* VAL */); extern int avcall_arg_uint (av_alist* /* LIST */, unsigned int /* VAL */); #define av_char(LIST,VAL) avcall_arg_int(&(LIST),(char)(VAL)) #define av_schar(LIST,VAL) avcall_arg_int(&(LIST),(signed char)(VAL)) #define av_short(LIST,VAL) avcall_arg_int(&(LIST),(short)(VAL)) #define av_int(LIST,VAL) avcall_arg_int(&(LIST),(int)(VAL)) #define av_uchar(LIST,VAL) avcall_arg_uint(&(LIST),(unsigned char)(VAL)) #define av_ushort(LIST,VAL) avcall_arg_uint(&(LIST),(unsigned short)(VAL)) #define av_uint(LIST,VAL) avcall_arg_uint(&(LIST),(unsigned int)(VAL)) extern int avcall_arg_long (av_alist* /* LIST */, long /* VAL */); extern int avcall_arg_ulong (av_alist* /* LIST */, unsigned long /* VAL */); #define av_long(LIST,VAL) avcall_arg_long(&(LIST),(long)(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.4/avcall/avcall-mipsel-linux.s0000664000000000000000000001073714061422364015514 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,$L54 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 $L54: .set noreorder .set nomacro beql $6,$0,$L55 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 $L55: .set noreorder .set nomacro beql $2,$0,$L56 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 $L56: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L36: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L36 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 beq $4,$5,$L7 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,7 # 0x7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,8 # 0x8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,9 # 0x9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L51 lw $4,8($16) .set macro .set reorder li $3,13 # 0xd .set noreorder .set nomacro beq $4,$3,$L52 li $3,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L53 li $3,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L49 li $3,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L57 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,$L47 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L48 li $4,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L58 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L57: 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 $L47: 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 $L49: lw $3,8($16) $L58: 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 $L48: lw $3,8($16) sh $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 $L51: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L52: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L53: 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.4/avcall/avcall-riscv64.c0000664000000000000000000003433714061147262014351 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iarg1 __asm__("a0"); register __avrword iarg2 __asm__("a1"); register __avrword iarg3 __asm__("a2"); register __avrword iarg4 __asm__("a3"); register __avrword iarg5 __asm__("a4"); register __avrword iarg6 __asm__("a5"); register __avrword iarg7 __asm__("a6"); register __avrword 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 __avrword iretreg __asm__("a0"); register __avrword 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 { __avrword iret, iret2; iret = (*l->func)(); iret2 = iret2reg; /* save return value */ if (l->rtype == __AVvoid) { } 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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.4/avcall/avcall-powerpc.c0000664000000000000000000001644614061147262014531 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("r3"); */ register __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.4/avcall/avcall-m68k-linux.s0000664000000000000000000000442014061422364015000 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 .L52 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 .L52: moveq.l #16,%d0 cmp.l 12(%a2),%d0 jbeq .L57 .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 moveq.l #2,%d4 cmp.l %a1,%d4 jbeq .L56 moveq.l #3,%d4 cmp.l %a1,%d4 jbeq .L56 moveq.l #4,%d4 cmp.l %a1,%d4 jbeq .L56 moveq.l #5,%d4 cmp.l %a1,%d4 jbeq .L55 moveq.l #6,%d4 cmp.l %a1,%d4 jbeq .L55 moveq.l #7,%d4 cmp.l %a1,%d4 jbeq .L53 moveq.l #8,%d4 cmp.l %a1,%d4 jbeq .L53 moveq.l #9,%d4 cmp.l %a1,%d4 jbeq .L53 moveq.l #10,%d4 cmp.l %a1,%d4 jbeq .L53 lea (-11,%a1),%a0 moveq.l #1,%d4 cmp.l %a0,%d4 jbcc .L54 moveq.l #13,%d4 cmp.l %a1,%d4 jbeq .L58 moveq.l #14,%d4 cmp.l %a1,%d4 jbeq .L59 moveq.l #15,%d0 cmp.l %a1,%d0 jbeq .L53 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 .L56 moveq.l #2,%d1 cmp.l %d0,%d1 jbeq .L55 moveq.l #4,%d4 cmp.l %d0,%d4 jbeq .L53 moveq.l #8,%d1 cmp.l %d0,%d1 jbne .L9 .L54: move.l 8(%a2),%a0 move.l %d2,(%a0) move.l %d3,4(%a0) jbra .L9 .align 2 .L53: move.l 8(%a2),%a0 move.l %d2,(%a0) jbra .L9 .align 2 .L55: move.l 8(%a2),%a0 move.w %d2,(%a0) jbra .L9 .align 2 .L56: move.l 8(%a2),%a0 move.b %d2,(%a0) jbra .L9 .align 2 .L59: btst #6,3(%a2) jbeq .L37 move.l 8(%a2),%a0 fmove.d %fp0,(%a0) jbra .L9 .align 2 .L37: move.l 8(%a2),%a0 move.l %d0,(%a0) move.l %d1,4(%a0) jbra .L9 .align 2 .L58: move.l (%a2),%d2 btst #6,%d2 jbeq .L31 move.l 8(%a2),%a0 fmove.s %fp0,(%a0) jbra .L9 .align 2 .L31: btst #5,%d2 jbeq .L33 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 .L33: move.l 8(%a2),%a0 move.l %d0,(%a0) jbra .L9 .align 2 .L57: #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.4/avcall/Makefile.maint0000664000000000000000000000065013153072134014177 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.4/avcall/avcall-s390.c0000664000000000000000000001053214061147262013536 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iret __asm__("r2"); */ register __avrword 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; __avrword 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 == __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; ((__avrword*)raddr)[0] = i; ((__avrword*)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(__avrword)) { void* raddr = l->raddr; ((__avrword*)raddr)[0] = i; ((__avrword*)raddr)[1] = iret2; } } } return 0; } libffcall-2.4/avcall/avcall-sparc-solaris.s0000664000000000000000000064250414061422365015654 00000000000000 .file "avcall-sparc.c" .section ".text" .align 4 .LLGETPC0: retl add %o7, %l7, %l7 .align 4 .global avcall_call .type avcall_call,#function .proc 04 avcall_call: !#PROLOGUE# 0 save %sp, -1128, %sp sethi %hi(_GLOBAL_OFFSET_TABLE_-4), %l7 call .LLGETPC0 add %l7, %lo(_GLOBAL_OFFSET_TABLE_+4), %l7 add %sp, 68, %l1 ld [%i0+20], %o7 ld [%i0+24], %g3 sub %o7, %g3, %g1 ld [%i0+12], %g3 cmp %g3, 16 bne .LL2 sra %g1, 2, %g1 ld [%i0+8], %g3 st %g3, [%sp+64] .LL2: mov 6, %l0 cmp %l0, %g1 bge,a .LL53 ld [%i0+12], %g3 ld [%i0+24], %g4 .LL7: sll %l0, 2, %o7 ld [%g4+%o7], %g3 add %l0, 1, %l0 cmp %l0, %g1 bl .LL7 st %g3, [%l1+%o7] ld [%i0+12], %g3 .LL53: cmp %g3, 16 bne,a .LL54 ld [%i0+24], %g3 ld [%i0], %g3 andcc %g3, 16, %g0 be,a .LL54 ld [%i0+24], %g3 ld [%i0+16], %g3 sll %g3, 1, %o7 add %o7, %g3, %o7 sll %o7, 3, %o7 sethi %hi(_GLOBAL_OFFSET_TABLE_-(.LL9-.)), %g3 or %g3, %lo(_GLOBAL_OFFSET_TABLE_-(.LL9-.)), %g3 sub %l7, %g3, %g3 add %o7, %g3, %o7 ld [%i0+24], %g3 ld [%g3],%o0 ld [%g3+4],%o1 ld [%g3+8],%o2 ld [%g3+12],%o3 ld [%g3+16],%o4 ld [%g3+20],%o5 ld [%i0+4], %g2 jmp %o7 nop .LL9: call %g2 nop .long 0 mov 0,%i0 ret restore call %g2 nop .long 1 mov 0,%i0 ret restore call %g2 nop .long 2 mov 0,%i0 ret restore call %g2 nop .long 3 mov 0,%i0 ret restore call %g2 nop .long 4 mov 0,%i0 ret restore call %g2 nop .long 5 mov 0,%i0 ret restore call %g2 nop .long 6 mov 0,%i0 ret restore call %g2 nop .long 7 mov 0,%i0 ret restore call %g2 nop .long 8 mov 0,%i0 ret restore call %g2 nop .long 9 mov 0,%i0 ret restore call %g2 nop .long 10 mov 0,%i0 ret restore call %g2 nop .long 11 mov 0,%i0 ret restore call %g2 nop .long 12 mov 0,%i0 ret restore call %g2 nop .long 13 mov 0,%i0 ret restore call %g2 nop .long 14 mov 0,%i0 ret restore call %g2 nop .long 15 mov 0,%i0 ret restore call %g2 nop .long 16 mov 0,%i0 ret restore call %g2 nop .long 17 mov 0,%i0 ret restore call %g2 nop .long 18 mov 0,%i0 ret restore call %g2 nop .long 19 mov 0,%i0 ret restore call %g2 nop .long 20 mov 0,%i0 ret restore call %g2 nop .long 21 mov 0,%i0 ret restore call %g2 nop .long 22 mov 0,%i0 ret restore call %g2 nop .long 23 mov 0,%i0 ret restore call %g2 nop .long 24 mov 0,%i0 ret restore call %g2 nop .long 25 mov 0,%i0 ret restore call %g2 nop .long 26 mov 0,%i0 ret restore call %g2 nop .long 27 mov 0,%i0 ret restore call %g2 nop .long 28 mov 0,%i0 ret restore call %g2 nop .long 29 mov 0,%i0 ret restore call %g2 nop .long 30 mov 0,%i0 ret restore call %g2 nop .long 31 mov 0,%i0 ret restore call %g2 nop .long 32 mov 0,%i0 ret restore call %g2 nop .long 33 mov 0,%i0 ret restore call %g2 nop .long 34 mov 0,%i0 ret restore call %g2 nop .long 35 mov 0,%i0 ret restore call %g2 nop .long 36 mov 0,%i0 ret restore call %g2 nop .long 37 mov 0,%i0 ret restore call %g2 nop .long 38 mov 0,%i0 ret restore call %g2 nop .long 39 mov 0,%i0 ret restore call %g2 nop .long 40 mov 0,%i0 ret restore call %g2 nop .long 41 mov 0,%i0 ret restore call %g2 nop .long 42 mov 0,%i0 ret restore call %g2 nop .long 43 mov 0,%i0 ret restore call %g2 nop .long 44 mov 0,%i0 ret restore call %g2 nop .long 45 mov 0,%i0 ret restore call %g2 nop .long 46 mov 0,%i0 ret restore call %g2 nop .long 47 mov 0,%i0 ret restore call %g2 nop .long 48 mov 0,%i0 ret restore call %g2 nop .long 49 mov 0,%i0 ret restore call %g2 nop .long 50 mov 0,%i0 ret restore call %g2 nop .long 51 mov 0,%i0 ret restore call %g2 nop .long 52 mov 0,%i0 ret restore call %g2 nop .long 53 mov 0,%i0 ret restore call %g2 nop .long 54 mov 0,%i0 ret restore call %g2 nop .long 55 mov 0,%i0 ret restore call %g2 nop .long 56 mov 0,%i0 ret restore call %g2 nop .long 57 mov 0,%i0 ret restore call %g2 nop .long 58 mov 0,%i0 ret restore call %g2 nop .long 59 mov 0,%i0 ret restore call %g2 nop .long 60 mov 0,%i0 ret restore call %g2 nop .long 61 mov 0,%i0 ret restore call %g2 nop .long 62 mov 0,%i0 ret restore call %g2 nop .long 63 mov 0,%i0 ret restore call %g2 nop .long 64 mov 0,%i0 ret restore call %g2 nop .long 65 mov 0,%i0 ret restore call %g2 nop .long 66 mov 0,%i0 ret restore call %g2 nop .long 67 mov 0,%i0 ret restore call %g2 nop .long 68 mov 0,%i0 ret restore call %g2 nop .long 69 mov 0,%i0 ret restore call %g2 nop .long 70 mov 0,%i0 ret restore call %g2 nop .long 71 mov 0,%i0 ret restore call %g2 nop .long 72 mov 0,%i0 ret restore call %g2 nop .long 73 mov 0,%i0 ret restore call %g2 nop .long 74 mov 0,%i0 ret restore call %g2 nop .long 75 mov 0,%i0 ret restore call %g2 nop .long 76 mov 0,%i0 ret restore call %g2 nop .long 77 mov 0,%i0 ret restore call %g2 nop .long 78 mov 0,%i0 ret restore call %g2 nop .long 79 mov 0,%i0 ret restore call %g2 nop .long 80 mov 0,%i0 ret restore call %g2 nop .long 81 mov 0,%i0 ret restore call %g2 nop .long 82 mov 0,%i0 ret restore call %g2 nop .long 83 mov 0,%i0 ret restore call %g2 nop .long 84 mov 0,%i0 ret restore call %g2 nop .long 85 mov 0,%i0 ret restore call %g2 nop .long 86 mov 0,%i0 ret restore call %g2 nop .long 87 mov 0,%i0 ret restore call %g2 nop .long 88 mov 0,%i0 ret restore call %g2 nop .long 89 mov 0,%i0 ret restore call %g2 nop .long 90 mov 0,%i0 ret restore call %g2 nop .long 91 mov 0,%i0 ret restore call %g2 nop .long 92 mov 0,%i0 ret restore call %g2 nop .long 93 mov 0,%i0 ret restore call %g2 nop .long 94 mov 0,%i0 ret restore call %g2 nop .long 95 mov 0,%i0 ret restore call %g2 nop .long 96 mov 0,%i0 ret restore call %g2 nop .long 97 mov 0,%i0 ret restore call %g2 nop .long 98 mov 0,%i0 ret restore call %g2 nop .long 99 mov 0,%i0 ret restore call %g2 nop .long 100 mov 0,%i0 ret restore call %g2 nop .long 101 mov 0,%i0 ret restore call %g2 nop .long 102 mov 0,%i0 ret restore call %g2 nop .long 103 mov 0,%i0 ret restore call %g2 nop .long 104 mov 0,%i0 ret restore call %g2 nop .long 105 mov 0,%i0 ret restore call %g2 nop .long 106 mov 0,%i0 ret restore call %g2 nop .long 107 mov 0,%i0 ret restore call %g2 nop .long 108 mov 0,%i0 ret restore call %g2 nop .long 109 mov 0,%i0 ret restore call %g2 nop .long 110 mov 0,%i0 ret restore call %g2 nop .long 111 mov 0,%i0 ret restore call %g2 nop .long 112 mov 0,%i0 ret restore call %g2 nop .long 113 mov 0,%i0 ret restore call %g2 nop .long 114 mov 0,%i0 ret restore call %g2 nop .long 115 mov 0,%i0 ret restore call %g2 nop .long 116 mov 0,%i0 ret restore call %g2 nop .long 117 mov 0,%i0 ret restore call %g2 nop .long 118 mov 0,%i0 ret restore call %g2 nop .long 119 mov 0,%i0 ret restore call %g2 nop .long 120 mov 0,%i0 ret restore call %g2 nop .long 121 mov 0,%i0 ret restore call %g2 nop .long 122 mov 0,%i0 ret restore call %g2 nop .long 123 mov 0,%i0 ret restore call %g2 nop .long 124 mov 0,%i0 ret restore call %g2 nop .long 125 mov 0,%i0 ret restore call %g2 nop .long 126 mov 0,%i0 ret restore call %g2 nop .long 127 mov 0,%i0 ret restore call %g2 nop .long 128 mov 0,%i0 ret restore call %g2 nop .long 129 mov 0,%i0 ret restore call %g2 nop .long 130 mov 0,%i0 ret restore call %g2 nop .long 131 mov 0,%i0 ret restore call %g2 nop .long 132 mov 0,%i0 ret restore call %g2 nop .long 133 mov 0,%i0 ret restore call %g2 nop .long 134 mov 0,%i0 ret restore call %g2 nop .long 135 mov 0,%i0 ret restore call %g2 nop .long 136 mov 0,%i0 ret restore call %g2 nop .long 137 mov 0,%i0 ret restore call %g2 nop .long 138 mov 0,%i0 ret restore call %g2 nop .long 139 mov 0,%i0 ret restore call %g2 nop .long 140 mov 0,%i0 ret restore call %g2 nop .long 141 mov 0,%i0 ret restore call %g2 nop .long 142 mov 0,%i0 ret restore call %g2 nop .long 143 mov 0,%i0 ret restore call %g2 nop .long 144 mov 0,%i0 ret restore call %g2 nop .long 145 mov 0,%i0 ret restore call %g2 nop .long 146 mov 0,%i0 ret restore call %g2 nop .long 147 mov 0,%i0 ret restore call %g2 nop .long 148 mov 0,%i0 ret restore call %g2 nop .long 149 mov 0,%i0 ret restore call %g2 nop .long 150 mov 0,%i0 ret restore call %g2 nop .long 151 mov 0,%i0 ret restore call %g2 nop .long 152 mov 0,%i0 ret restore call %g2 nop .long 153 mov 0,%i0 ret restore call %g2 nop .long 154 mov 0,%i0 ret restore call %g2 nop .long 155 mov 0,%i0 ret restore call %g2 nop .long 156 mov 0,%i0 ret restore call %g2 nop .long 157 mov 0,%i0 ret restore call %g2 nop .long 158 mov 0,%i0 ret restore call %g2 nop .long 159 mov 0,%i0 ret restore call %g2 nop .long 160 mov 0,%i0 ret restore call %g2 nop .long 161 mov 0,%i0 ret restore call %g2 nop .long 162 mov 0,%i0 ret restore call %g2 nop .long 163 mov 0,%i0 ret restore call %g2 nop .long 164 mov 0,%i0 ret restore call %g2 nop .long 165 mov 0,%i0 ret restore call %g2 nop .long 166 mov 0,%i0 ret restore call %g2 nop .long 167 mov 0,%i0 ret restore call %g2 nop .long 168 mov 0,%i0 ret restore call %g2 nop .long 169 mov 0,%i0 ret restore call %g2 nop .long 170 mov 0,%i0 ret restore call %g2 nop .long 171 mov 0,%i0 ret restore call %g2 nop .long 172 mov 0,%i0 ret restore call %g2 nop .long 173 mov 0,%i0 ret restore call %g2 nop .long 174 mov 0,%i0 ret restore call %g2 nop .long 175 mov 0,%i0 ret restore call %g2 nop .long 176 mov 0,%i0 ret restore call %g2 nop .long 177 mov 0,%i0 ret restore call %g2 nop .long 178 mov 0,%i0 ret restore call %g2 nop .long 179 mov 0,%i0 ret restore call %g2 nop .long 180 mov 0,%i0 ret restore call %g2 nop .long 181 mov 0,%i0 ret restore call %g2 nop .long 182 mov 0,%i0 ret restore call %g2 nop .long 183 mov 0,%i0 ret restore call %g2 nop .long 184 mov 0,%i0 ret restore call %g2 nop .long 185 mov 0,%i0 ret restore call %g2 nop .long 186 mov 0,%i0 ret restore call %g2 nop .long 187 mov 0,%i0 ret restore call %g2 nop .long 188 mov 0,%i0 ret restore call %g2 nop .long 189 mov 0,%i0 ret restore call %g2 nop .long 190 mov 0,%i0 ret restore call %g2 nop .long 191 mov 0,%i0 ret restore call %g2 nop .long 192 mov 0,%i0 ret restore call %g2 nop .long 193 mov 0,%i0 ret restore call %g2 nop .long 194 mov 0,%i0 ret restore call %g2 nop .long 195 mov 0,%i0 ret restore call %g2 nop .long 196 mov 0,%i0 ret restore call %g2 nop .long 197 mov 0,%i0 ret restore call %g2 nop .long 198 mov 0,%i0 ret restore call %g2 nop .long 199 mov 0,%i0 ret restore call %g2 nop .long 200 mov 0,%i0 ret restore call %g2 nop .long 201 mov 0,%i0 ret restore call %g2 nop .long 202 mov 0,%i0 ret restore call %g2 nop .long 203 mov 0,%i0 ret restore call %g2 nop .long 204 mov 0,%i0 ret restore call %g2 nop .long 205 mov 0,%i0 ret restore call %g2 nop .long 206 mov 0,%i0 ret restore call %g2 nop .long 207 mov 0,%i0 ret restore call %g2 nop .long 208 mov 0,%i0 ret restore call %g2 nop .long 209 mov 0,%i0 ret restore call %g2 nop .long 210 mov 0,%i0 ret restore call %g2 nop .long 211 mov 0,%i0 ret restore call %g2 nop .long 212 mov 0,%i0 ret restore call %g2 nop .long 213 mov 0,%i0 ret restore call %g2 nop .long 214 mov 0,%i0 ret restore call %g2 nop .long 215 mov 0,%i0 ret restore call %g2 nop .long 216 mov 0,%i0 ret restore call %g2 nop .long 217 mov 0,%i0 ret restore call %g2 nop .long 218 mov 0,%i0 ret restore call %g2 nop .long 219 mov 0,%i0 ret restore call %g2 nop .long 220 mov 0,%i0 ret restore call %g2 nop .long 221 mov 0,%i0 ret restore call %g2 nop .long 222 mov 0,%i0 ret restore call %g2 nop .long 223 mov 0,%i0 ret restore call %g2 nop .long 224 mov 0,%i0 ret restore call %g2 nop .long 225 mov 0,%i0 ret restore call %g2 nop .long 226 mov 0,%i0 ret restore call %g2 nop .long 227 mov 0,%i0 ret restore call %g2 nop .long 228 mov 0,%i0 ret restore call %g2 nop .long 229 mov 0,%i0 ret restore call %g2 nop .long 230 mov 0,%i0 ret restore call %g2 nop .long 231 mov 0,%i0 ret restore call %g2 nop .long 232 mov 0,%i0 ret restore call %g2 nop .long 233 mov 0,%i0 ret restore call %g2 nop .long 234 mov 0,%i0 ret restore call %g2 nop .long 235 mov 0,%i0 ret restore call %g2 nop .long 236 mov 0,%i0 ret restore call %g2 nop .long 237 mov 0,%i0 ret restore call %g2 nop .long 238 mov 0,%i0 ret restore call %g2 nop .long 239 mov 0,%i0 ret restore call %g2 nop .long 240 mov 0,%i0 ret restore call %g2 nop .long 241 mov 0,%i0 ret restore call %g2 nop .long 242 mov 0,%i0 ret restore call %g2 nop .long 243 mov 0,%i0 ret restore call %g2 nop .long 244 mov 0,%i0 ret restore call %g2 nop .long 245 mov 0,%i0 ret restore call %g2 nop .long 246 mov 0,%i0 ret restore call %g2 nop .long 247 mov 0,%i0 ret restore call %g2 nop .long 248 mov 0,%i0 ret restore call %g2 nop .long 249 mov 0,%i0 ret restore call %g2 nop .long 250 mov 0,%i0 ret restore call %g2 nop .long 251 mov 0,%i0 ret restore call %g2 nop .long 252 mov 0,%i0 ret restore call %g2 nop .long 253 mov 0,%i0 ret restore call %g2 nop .long 254 mov 0,%i0 ret restore call %g2 nop .long 255 mov 0,%i0 ret restore call %g2 nop .long 256 mov 0,%i0 ret restore call %g2 nop .long 257 mov 0,%i0 ret restore call %g2 nop .long 258 mov 0,%i0 ret restore call %g2 nop .long 259 mov 0,%i0 ret restore call %g2 nop .long 260 mov 0,%i0 ret restore call %g2 nop .long 261 mov 0,%i0 ret restore call %g2 nop .long 262 mov 0,%i0 ret restore call %g2 nop .long 263 mov 0,%i0 ret restore call %g2 nop .long 264 mov 0,%i0 ret restore call %g2 nop .long 265 mov 0,%i0 ret restore call %g2 nop .long 266 mov 0,%i0 ret restore call %g2 nop .long 267 mov 0,%i0 ret restore call %g2 nop .long 268 mov 0,%i0 ret restore call %g2 nop .long 269 mov 0,%i0 ret restore call %g2 nop .long 270 mov 0,%i0 ret restore call %g2 nop .long 271 mov 0,%i0 ret restore call %g2 nop .long 272 mov 0,%i0 ret restore call %g2 nop .long 273 mov 0,%i0 ret restore call %g2 nop .long 274 mov 0,%i0 ret restore call %g2 nop .long 275 mov 0,%i0 ret restore call %g2 nop .long 276 mov 0,%i0 ret restore call %g2 nop .long 277 mov 0,%i0 ret restore call %g2 nop .long 278 mov 0,%i0 ret restore call %g2 nop .long 279 mov 0,%i0 ret restore call %g2 nop .long 280 mov 0,%i0 ret restore call %g2 nop .long 281 mov 0,%i0 ret restore call %g2 nop .long 282 mov 0,%i0 ret restore call %g2 nop .long 283 mov 0,%i0 ret restore call %g2 nop .long 284 mov 0,%i0 ret restore call %g2 nop .long 285 mov 0,%i0 ret restore call %g2 nop .long 286 mov 0,%i0 ret restore call %g2 nop .long 287 mov 0,%i0 ret restore call %g2 nop .long 288 mov 0,%i0 ret restore call %g2 nop .long 289 mov 0,%i0 ret restore call %g2 nop .long 290 mov 0,%i0 ret restore call %g2 nop .long 291 mov 0,%i0 ret restore call %g2 nop .long 292 mov 0,%i0 ret restore call %g2 nop .long 293 mov 0,%i0 ret restore call %g2 nop .long 294 mov 0,%i0 ret restore call %g2 nop .long 295 mov 0,%i0 ret restore call %g2 nop .long 296 mov 0,%i0 ret restore call %g2 nop .long 297 mov 0,%i0 ret restore call %g2 nop .long 298 mov 0,%i0 ret restore call %g2 nop .long 299 mov 0,%i0 ret restore call %g2 nop .long 300 mov 0,%i0 ret restore call %g2 nop .long 301 mov 0,%i0 ret restore call %g2 nop .long 302 mov 0,%i0 ret restore call %g2 nop .long 303 mov 0,%i0 ret restore call %g2 nop .long 304 mov 0,%i0 ret restore call %g2 nop .long 305 mov 0,%i0 ret restore call %g2 nop .long 306 mov 0,%i0 ret restore call %g2 nop .long 307 mov 0,%i0 ret restore call %g2 nop .long 308 mov 0,%i0 ret restore call %g2 nop .long 309 mov 0,%i0 ret restore call %g2 nop .long 310 mov 0,%i0 ret restore call %g2 nop .long 311 mov 0,%i0 ret restore call %g2 nop .long 312 mov 0,%i0 ret restore call %g2 nop .long 313 mov 0,%i0 ret restore call %g2 nop .long 314 mov 0,%i0 ret restore call %g2 nop .long 315 mov 0,%i0 ret restore call %g2 nop .long 316 mov 0,%i0 ret restore call %g2 nop .long 317 mov 0,%i0 ret restore call %g2 nop .long 318 mov 0,%i0 ret restore call %g2 nop .long 319 mov 0,%i0 ret restore call %g2 nop .long 320 mov 0,%i0 ret restore call %g2 nop .long 321 mov 0,%i0 ret restore call %g2 nop .long 322 mov 0,%i0 ret restore call %g2 nop .long 323 mov 0,%i0 ret restore call %g2 nop .long 324 mov 0,%i0 ret restore call %g2 nop .long 325 mov 0,%i0 ret restore call %g2 nop .long 326 mov 0,%i0 ret restore call %g2 nop .long 327 mov 0,%i0 ret restore call %g2 nop .long 328 mov 0,%i0 ret restore call %g2 nop .long 329 mov 0,%i0 ret restore call %g2 nop .long 330 mov 0,%i0 ret restore call %g2 nop .long 331 mov 0,%i0 ret restore call %g2 nop .long 332 mov 0,%i0 ret restore call %g2 nop .long 333 mov 0,%i0 ret restore call %g2 nop .long 334 mov 0,%i0 ret restore call %g2 nop .long 335 mov 0,%i0 ret restore call %g2 nop .long 336 mov 0,%i0 ret restore call %g2 nop .long 337 mov 0,%i0 ret restore call %g2 nop .long 338 mov 0,%i0 ret restore call %g2 nop .long 339 mov 0,%i0 ret restore call %g2 nop .long 340 mov 0,%i0 ret restore call %g2 nop .long 341 mov 0,%i0 ret restore call %g2 nop .long 342 mov 0,%i0 ret restore call %g2 nop .long 343 mov 0,%i0 ret restore call %g2 nop .long 344 mov 0,%i0 ret restore call %g2 nop .long 345 mov 0,%i0 ret restore call %g2 nop .long 346 mov 0,%i0 ret restore call %g2 nop .long 347 mov 0,%i0 ret restore call %g2 nop .long 348 mov 0,%i0 ret restore call %g2 nop .long 349 mov 0,%i0 ret restore call %g2 nop .long 350 mov 0,%i0 ret restore call %g2 nop .long 351 mov 0,%i0 ret restore call %g2 nop .long 352 mov 0,%i0 ret restore call %g2 nop .long 353 mov 0,%i0 ret restore call %g2 nop .long 354 mov 0,%i0 ret restore call %g2 nop .long 355 mov 0,%i0 ret restore call %g2 nop .long 356 mov 0,%i0 ret restore call %g2 nop .long 357 mov 0,%i0 ret restore call %g2 nop .long 358 mov 0,%i0 ret restore call %g2 nop .long 359 mov 0,%i0 ret restore call %g2 nop .long 360 mov 0,%i0 ret restore call %g2 nop .long 361 mov 0,%i0 ret restore call %g2 nop .long 362 mov 0,%i0 ret restore call %g2 nop .long 363 mov 0,%i0 ret restore call %g2 nop .long 364 mov 0,%i0 ret restore call %g2 nop .long 365 mov 0,%i0 ret restore call %g2 nop .long 366 mov 0,%i0 ret restore call %g2 nop .long 367 mov 0,%i0 ret restore call %g2 nop .long 368 mov 0,%i0 ret restore call %g2 nop .long 369 mov 0,%i0 ret restore call %g2 nop .long 370 mov 0,%i0 ret restore call %g2 nop .long 371 mov 0,%i0 ret restore call %g2 nop .long 372 mov 0,%i0 ret restore call %g2 nop .long 373 mov 0,%i0 ret restore call %g2 nop .long 374 mov 0,%i0 ret restore call %g2 nop .long 375 mov 0,%i0 ret restore call %g2 nop .long 376 mov 0,%i0 ret restore call %g2 nop .long 377 mov 0,%i0 ret restore call %g2 nop .long 378 mov 0,%i0 ret restore call %g2 nop .long 379 mov 0,%i0 ret restore call %g2 nop .long 380 mov 0,%i0 ret restore call %g2 nop .long 381 mov 0,%i0 ret restore call %g2 nop .long 382 mov 0,%i0 ret restore call %g2 nop .long 383 mov 0,%i0 ret restore call %g2 nop .long 384 mov 0,%i0 ret restore call %g2 nop .long 385 mov 0,%i0 ret restore call %g2 nop .long 386 mov 0,%i0 ret restore call %g2 nop .long 387 mov 0,%i0 ret restore call %g2 nop .long 388 mov 0,%i0 ret restore call %g2 nop .long 389 mov 0,%i0 ret restore call %g2 nop .long 390 mov 0,%i0 ret restore call %g2 nop .long 391 mov 0,%i0 ret restore call %g2 nop .long 392 mov 0,%i0 ret restore call %g2 nop .long 393 mov 0,%i0 ret restore call %g2 nop .long 394 mov 0,%i0 ret restore call %g2 nop .long 395 mov 0,%i0 ret restore call %g2 nop .long 396 mov 0,%i0 ret restore call %g2 nop .long 397 mov 0,%i0 ret restore call %g2 nop .long 398 mov 0,%i0 ret restore call %g2 nop .long 399 mov 0,%i0 ret restore call %g2 nop .long 400 mov 0,%i0 ret restore call %g2 nop .long 401 mov 0,%i0 ret restore call %g2 nop .long 402 mov 0,%i0 ret restore call %g2 nop .long 403 mov 0,%i0 ret restore call %g2 nop .long 404 mov 0,%i0 ret restore call %g2 nop .long 405 mov 0,%i0 ret restore call %g2 nop .long 406 mov 0,%i0 ret restore call %g2 nop .long 407 mov 0,%i0 ret restore call %g2 nop .long 408 mov 0,%i0 ret restore call %g2 nop .long 409 mov 0,%i0 ret restore call %g2 nop .long 410 mov 0,%i0 ret restore call %g2 nop .long 411 mov 0,%i0 ret restore call %g2 nop .long 412 mov 0,%i0 ret restore call %g2 nop .long 413 mov 0,%i0 ret restore call %g2 nop .long 414 mov 0,%i0 ret restore call %g2 nop .long 415 mov 0,%i0 ret restore call %g2 nop .long 416 mov 0,%i0 ret restore call %g2 nop .long 417 mov 0,%i0 ret restore call %g2 nop .long 418 mov 0,%i0 ret restore call %g2 nop .long 419 mov 0,%i0 ret restore call %g2 nop .long 420 mov 0,%i0 ret restore call %g2 nop .long 421 mov 0,%i0 ret restore call %g2 nop .long 422 mov 0,%i0 ret restore call %g2 nop .long 423 mov 0,%i0 ret restore call %g2 nop .long 424 mov 0,%i0 ret restore call %g2 nop .long 425 mov 0,%i0 ret restore call %g2 nop .long 426 mov 0,%i0 ret restore call %g2 nop .long 427 mov 0,%i0 ret restore call %g2 nop .long 428 mov 0,%i0 ret restore call %g2 nop .long 429 mov 0,%i0 ret restore call %g2 nop .long 430 mov 0,%i0 ret restore call %g2 nop .long 431 mov 0,%i0 ret restore call %g2 nop .long 432 mov 0,%i0 ret restore call %g2 nop .long 433 mov 0,%i0 ret restore call %g2 nop .long 434 mov 0,%i0 ret restore call %g2 nop .long 435 mov 0,%i0 ret restore call %g2 nop .long 436 mov 0,%i0 ret restore call %g2 nop .long 437 mov 0,%i0 ret restore call %g2 nop .long 438 mov 0,%i0 ret restore call %g2 nop .long 439 mov 0,%i0 ret restore call %g2 nop .long 440 mov 0,%i0 ret restore call %g2 nop .long 441 mov 0,%i0 ret restore call %g2 nop .long 442 mov 0,%i0 ret restore call %g2 nop .long 443 mov 0,%i0 ret restore call %g2 nop .long 444 mov 0,%i0 ret restore call %g2 nop .long 445 mov 0,%i0 ret restore call %g2 nop .long 446 mov 0,%i0 ret restore call %g2 nop .long 447 mov 0,%i0 ret restore call %g2 nop .long 448 mov 0,%i0 ret restore call %g2 nop .long 449 mov 0,%i0 ret restore call %g2 nop .long 450 mov 0,%i0 ret restore call %g2 nop .long 451 mov 0,%i0 ret restore call %g2 nop .long 452 mov 0,%i0 ret restore call %g2 nop .long 453 mov 0,%i0 ret restore call %g2 nop .long 454 mov 0,%i0 ret restore call %g2 nop .long 455 mov 0,%i0 ret restore call %g2 nop .long 456 mov 0,%i0 ret restore call %g2 nop .long 457 mov 0,%i0 ret restore call %g2 nop .long 458 mov 0,%i0 ret restore call %g2 nop .long 459 mov 0,%i0 ret restore call %g2 nop .long 460 mov 0,%i0 ret restore call %g2 nop .long 461 mov 0,%i0 ret restore call %g2 nop .long 462 mov 0,%i0 ret restore call %g2 nop .long 463 mov 0,%i0 ret restore call %g2 nop .long 464 mov 0,%i0 ret restore call %g2 nop .long 465 mov 0,%i0 ret restore call %g2 nop .long 466 mov 0,%i0 ret restore call %g2 nop .long 467 mov 0,%i0 ret restore call %g2 nop .long 468 mov 0,%i0 ret restore call %g2 nop .long 469 mov 0,%i0 ret restore call %g2 nop .long 470 mov 0,%i0 ret restore call %g2 nop .long 471 mov 0,%i0 ret restore call %g2 nop .long 472 mov 0,%i0 ret restore call %g2 nop .long 473 mov 0,%i0 ret restore call %g2 nop .long 474 mov 0,%i0 ret restore call %g2 nop .long 475 mov 0,%i0 ret restore call %g2 nop .long 476 mov 0,%i0 ret restore call %g2 nop .long 477 mov 0,%i0 ret restore call %g2 nop .long 478 mov 0,%i0 ret restore call %g2 nop .long 479 mov 0,%i0 ret restore call %g2 nop .long 480 mov 0,%i0 ret restore call %g2 nop .long 481 mov 0,%i0 ret restore call %g2 nop .long 482 mov 0,%i0 ret restore call %g2 nop .long 483 mov 0,%i0 ret restore call %g2 nop .long 484 mov 0,%i0 ret restore call %g2 nop .long 485 mov 0,%i0 ret restore call %g2 nop .long 486 mov 0,%i0 ret restore call %g2 nop .long 487 mov 0,%i0 ret restore call %g2 nop .long 488 mov 0,%i0 ret restore call %g2 nop .long 489 mov 0,%i0 ret restore call %g2 nop .long 490 mov 0,%i0 ret restore call %g2 nop .long 491 mov 0,%i0 ret restore call %g2 nop .long 492 mov 0,%i0 ret restore call %g2 nop .long 493 mov 0,%i0 ret restore call %g2 nop .long 494 mov 0,%i0 ret restore call %g2 nop .long 495 mov 0,%i0 ret restore call %g2 nop .long 496 mov 0,%i0 ret restore call %g2 nop .long 497 mov 0,%i0 ret restore call %g2 nop .long 498 mov 0,%i0 ret restore call %g2 nop .long 499 mov 0,%i0 ret restore call %g2 nop .long 500 mov 0,%i0 ret restore call %g2 nop .long 501 mov 0,%i0 ret restore call %g2 nop .long 502 mov 0,%i0 ret restore call %g2 nop .long 503 mov 0,%i0 ret restore call %g2 nop .long 504 mov 0,%i0 ret restore call %g2 nop .long 505 mov 0,%i0 ret restore call %g2 nop .long 506 mov 0,%i0 ret restore call %g2 nop .long 507 mov 0,%i0 ret restore call %g2 nop .long 508 mov 0,%i0 ret restore call %g2 nop .long 509 mov 0,%i0 ret restore call %g2 nop .long 510 mov 0,%i0 ret restore call %g2 nop .long 511 mov 0,%i0 ret restore call %g2 nop .long 512 mov 0,%i0 ret restore call %g2 nop .long 513 mov 0,%i0 ret restore call %g2 nop .long 514 mov 0,%i0 ret restore call %g2 nop .long 515 mov 0,%i0 ret restore call %g2 nop .long 516 mov 0,%i0 ret restore call %g2 nop .long 517 mov 0,%i0 ret restore call %g2 nop .long 518 mov 0,%i0 ret restore call %g2 nop .long 519 mov 0,%i0 ret restore call %g2 nop .long 520 mov 0,%i0 ret restore call %g2 nop .long 521 mov 0,%i0 ret restore call %g2 nop .long 522 mov 0,%i0 ret restore call %g2 nop .long 523 mov 0,%i0 ret restore call %g2 nop .long 524 mov 0,%i0 ret restore call %g2 nop .long 525 mov 0,%i0 ret restore call %g2 nop .long 526 mov 0,%i0 ret restore call %g2 nop .long 527 mov 0,%i0 ret restore call %g2 nop .long 528 mov 0,%i0 ret restore call %g2 nop .long 529 mov 0,%i0 ret restore call %g2 nop .long 530 mov 0,%i0 ret restore call %g2 nop .long 531 mov 0,%i0 ret restore call %g2 nop .long 532 mov 0,%i0 ret restore call %g2 nop .long 533 mov 0,%i0 ret restore call %g2 nop .long 534 mov 0,%i0 ret restore call %g2 nop .long 535 mov 0,%i0 ret restore call %g2 nop .long 536 mov 0,%i0 ret restore call %g2 nop .long 537 mov 0,%i0 ret restore call %g2 nop .long 538 mov 0,%i0 ret restore call %g2 nop .long 539 mov 0,%i0 ret restore call %g2 nop .long 540 mov 0,%i0 ret restore call %g2 nop .long 541 mov 0,%i0 ret restore call %g2 nop .long 542 mov 0,%i0 ret restore call %g2 nop .long 543 mov 0,%i0 ret restore call %g2 nop .long 544 mov 0,%i0 ret restore call %g2 nop .long 545 mov 0,%i0 ret restore call %g2 nop .long 546 mov 0,%i0 ret restore call %g2 nop .long 547 mov 0,%i0 ret restore call %g2 nop .long 548 mov 0,%i0 ret restore call %g2 nop .long 549 mov 0,%i0 ret restore call %g2 nop .long 550 mov 0,%i0 ret restore call %g2 nop .long 551 mov 0,%i0 ret restore call %g2 nop .long 552 mov 0,%i0 ret restore call %g2 nop .long 553 mov 0,%i0 ret restore call %g2 nop .long 554 mov 0,%i0 ret restore call %g2 nop .long 555 mov 0,%i0 ret restore call %g2 nop .long 556 mov 0,%i0 ret restore call %g2 nop .long 557 mov 0,%i0 ret restore call %g2 nop .long 558 mov 0,%i0 ret restore call %g2 nop .long 559 mov 0,%i0 ret restore call %g2 nop .long 560 mov 0,%i0 ret restore call %g2 nop .long 561 mov 0,%i0 ret restore call %g2 nop .long 562 mov 0,%i0 ret restore call %g2 nop .long 563 mov 0,%i0 ret restore call %g2 nop .long 564 mov 0,%i0 ret restore call %g2 nop .long 565 mov 0,%i0 ret restore call %g2 nop .long 566 mov 0,%i0 ret restore call %g2 nop .long 567 mov 0,%i0 ret restore call %g2 nop .long 568 mov 0,%i0 ret restore call %g2 nop .long 569 mov 0,%i0 ret restore call %g2 nop .long 570 mov 0,%i0 ret restore call %g2 nop .long 571 mov 0,%i0 ret restore call %g2 nop .long 572 mov 0,%i0 ret restore call %g2 nop .long 573 mov 0,%i0 ret restore call %g2 nop .long 574 mov 0,%i0 ret restore call %g2 nop .long 575 mov 0,%i0 ret restore call %g2 nop .long 576 mov 0,%i0 ret restore call %g2 nop .long 577 mov 0,%i0 ret restore call %g2 nop .long 578 mov 0,%i0 ret restore call %g2 nop .long 579 mov 0,%i0 ret restore call %g2 nop .long 580 mov 0,%i0 ret restore call %g2 nop .long 581 mov 0,%i0 ret restore call %g2 nop .long 582 mov 0,%i0 ret restore call %g2 nop .long 583 mov 0,%i0 ret restore call %g2 nop .long 584 mov 0,%i0 ret restore call %g2 nop .long 585 mov 0,%i0 ret restore call %g2 nop .long 586 mov 0,%i0 ret restore call %g2 nop .long 587 mov 0,%i0 ret restore call %g2 nop .long 588 mov 0,%i0 ret restore call %g2 nop .long 589 mov 0,%i0 ret restore call %g2 nop .long 590 mov 0,%i0 ret restore call %g2 nop .long 591 mov 0,%i0 ret restore call %g2 nop .long 592 mov 0,%i0 ret restore call %g2 nop .long 593 mov 0,%i0 ret restore call %g2 nop .long 594 mov 0,%i0 ret restore call %g2 nop .long 595 mov 0,%i0 ret restore call %g2 nop .long 596 mov 0,%i0 ret restore call %g2 nop .long 597 mov 0,%i0 ret restore call %g2 nop .long 598 mov 0,%i0 ret restore call %g2 nop .long 599 mov 0,%i0 ret restore call %g2 nop .long 600 mov 0,%i0 ret restore call %g2 nop .long 601 mov 0,%i0 ret restore call %g2 nop .long 602 mov 0,%i0 ret restore call %g2 nop .long 603 mov 0,%i0 ret restore call %g2 nop .long 604 mov 0,%i0 ret restore call %g2 nop .long 605 mov 0,%i0 ret restore call %g2 nop .long 606 mov 0,%i0 ret restore call %g2 nop .long 607 mov 0,%i0 ret restore call %g2 nop .long 608 mov 0,%i0 ret restore call %g2 nop .long 609 mov 0,%i0 ret restore call %g2 nop .long 610 mov 0,%i0 ret restore call %g2 nop .long 611 mov 0,%i0 ret restore call %g2 nop .long 612 mov 0,%i0 ret restore call %g2 nop .long 613 mov 0,%i0 ret restore call %g2 nop .long 614 mov 0,%i0 ret restore call %g2 nop .long 615 mov 0,%i0 ret restore call %g2 nop .long 616 mov 0,%i0 ret restore call %g2 nop .long 617 mov 0,%i0 ret restore call %g2 nop .long 618 mov 0,%i0 ret restore call %g2 nop .long 619 mov 0,%i0 ret restore call %g2 nop .long 620 mov 0,%i0 ret restore call %g2 nop .long 621 mov 0,%i0 ret restore call %g2 nop .long 622 mov 0,%i0 ret restore call %g2 nop .long 623 mov 0,%i0 ret restore call %g2 nop .long 624 mov 0,%i0 ret restore call %g2 nop .long 625 mov 0,%i0 ret restore call %g2 nop .long 626 mov 0,%i0 ret restore call %g2 nop .long 627 mov 0,%i0 ret restore call %g2 nop .long 628 mov 0,%i0 ret restore call %g2 nop .long 629 mov 0,%i0 ret restore call %g2 nop .long 630 mov 0,%i0 ret restore call %g2 nop .long 631 mov 0,%i0 ret restore call %g2 nop .long 632 mov 0,%i0 ret restore call %g2 nop .long 633 mov 0,%i0 ret restore call %g2 nop .long 634 mov 0,%i0 ret restore call %g2 nop .long 635 mov 0,%i0 ret restore call %g2 nop .long 636 mov 0,%i0 ret restore call %g2 nop .long 637 mov 0,%i0 ret restore call %g2 nop .long 638 mov 0,%i0 ret restore call %g2 nop .long 639 mov 0,%i0 ret restore call %g2 nop .long 640 mov 0,%i0 ret restore call %g2 nop .long 641 mov 0,%i0 ret restore call %g2 nop .long 642 mov 0,%i0 ret restore call %g2 nop .long 643 mov 0,%i0 ret restore call %g2 nop .long 644 mov 0,%i0 ret restore call %g2 nop .long 645 mov 0,%i0 ret restore call %g2 nop .long 646 mov 0,%i0 ret restore call %g2 nop .long 647 mov 0,%i0 ret restore call %g2 nop .long 648 mov 0,%i0 ret restore call %g2 nop .long 649 mov 0,%i0 ret restore call %g2 nop .long 650 mov 0,%i0 ret restore call %g2 nop .long 651 mov 0,%i0 ret restore call %g2 nop .long 652 mov 0,%i0 ret restore call %g2 nop .long 653 mov 0,%i0 ret restore call %g2 nop .long 654 mov 0,%i0 ret restore call %g2 nop .long 655 mov 0,%i0 ret restore call %g2 nop .long 656 mov 0,%i0 ret restore call %g2 nop .long 657 mov 0,%i0 ret restore call %g2 nop .long 658 mov 0,%i0 ret restore call %g2 nop .long 659 mov 0,%i0 ret restore call %g2 nop .long 660 mov 0,%i0 ret restore call %g2 nop .long 661 mov 0,%i0 ret restore call %g2 nop .long 662 mov 0,%i0 ret restore call %g2 nop .long 663 mov 0,%i0 ret restore call %g2 nop .long 664 mov 0,%i0 ret restore call %g2 nop .long 665 mov 0,%i0 ret restore call %g2 nop .long 666 mov 0,%i0 ret restore call %g2 nop .long 667 mov 0,%i0 ret restore call %g2 nop .long 668 mov 0,%i0 ret restore call %g2 nop .long 669 mov 0,%i0 ret restore call %g2 nop .long 670 mov 0,%i0 ret restore call %g2 nop .long 671 mov 0,%i0 ret restore call %g2 nop .long 672 mov 0,%i0 ret restore call %g2 nop .long 673 mov 0,%i0 ret restore call %g2 nop .long 674 mov 0,%i0 ret restore call %g2 nop .long 675 mov 0,%i0 ret restore call %g2 nop .long 676 mov 0,%i0 ret restore call %g2 nop .long 677 mov 0,%i0 ret restore call %g2 nop .long 678 mov 0,%i0 ret restore call %g2 nop .long 679 mov 0,%i0 ret restore call %g2 nop .long 680 mov 0,%i0 ret restore call %g2 nop .long 681 mov 0,%i0 ret restore call %g2 nop .long 682 mov 0,%i0 ret restore call %g2 nop .long 683 mov 0,%i0 ret restore call %g2 nop .long 684 mov 0,%i0 ret restore call %g2 nop .long 685 mov 0,%i0 ret restore call %g2 nop .long 686 mov 0,%i0 ret restore call %g2 nop .long 687 mov 0,%i0 ret restore call %g2 nop .long 688 mov 0,%i0 ret restore call %g2 nop .long 689 mov 0,%i0 ret restore call %g2 nop .long 690 mov 0,%i0 ret restore call %g2 nop .long 691 mov 0,%i0 ret restore call %g2 nop .long 692 mov 0,%i0 ret restore call %g2 nop .long 693 mov 0,%i0 ret restore call %g2 nop .long 694 mov 0,%i0 ret restore call %g2 nop .long 695 mov 0,%i0 ret restore call %g2 nop .long 696 mov 0,%i0 ret restore call %g2 nop .long 697 mov 0,%i0 ret restore call %g2 nop .long 698 mov 0,%i0 ret restore call %g2 nop .long 699 mov 0,%i0 ret restore call %g2 nop .long 700 mov 0,%i0 ret restore call %g2 nop .long 701 mov 0,%i0 ret restore call %g2 nop .long 702 mov 0,%i0 ret restore call %g2 nop .long 703 mov 0,%i0 ret restore call %g2 nop .long 704 mov 0,%i0 ret restore call %g2 nop .long 705 mov 0,%i0 ret restore call %g2 nop .long 706 mov 0,%i0 ret restore call %g2 nop .long 707 mov 0,%i0 ret restore call %g2 nop .long 708 mov 0,%i0 ret restore call %g2 nop .long 709 mov 0,%i0 ret restore call %g2 nop .long 710 mov 0,%i0 ret restore call %g2 nop .long 711 mov 0,%i0 ret restore call %g2 nop .long 712 mov 0,%i0 ret restore call %g2 nop .long 713 mov 0,%i0 ret restore call %g2 nop .long 714 mov 0,%i0 ret restore call %g2 nop .long 715 mov 0,%i0 ret restore call %g2 nop .long 716 mov 0,%i0 ret restore call %g2 nop .long 717 mov 0,%i0 ret restore call %g2 nop .long 718 mov 0,%i0 ret restore call %g2 nop .long 719 mov 0,%i0 ret restore call %g2 nop .long 720 mov 0,%i0 ret restore call %g2 nop .long 721 mov 0,%i0 ret restore call %g2 nop .long 722 mov 0,%i0 ret restore call %g2 nop .long 723 mov 0,%i0 ret restore call %g2 nop .long 724 mov 0,%i0 ret restore call %g2 nop .long 725 mov 0,%i0 ret restore call %g2 nop .long 726 mov 0,%i0 ret restore call %g2 nop .long 727 mov 0,%i0 ret restore call %g2 nop .long 728 mov 0,%i0 ret restore call %g2 nop .long 729 mov 0,%i0 ret restore call %g2 nop .long 730 mov 0,%i0 ret restore call %g2 nop .long 731 mov 0,%i0 ret restore call %g2 nop .long 732 mov 0,%i0 ret restore call %g2 nop .long 733 mov 0,%i0 ret restore call %g2 nop .long 734 mov 0,%i0 ret restore call %g2 nop .long 735 mov 0,%i0 ret restore call %g2 nop .long 736 mov 0,%i0 ret restore call %g2 nop .long 737 mov 0,%i0 ret restore call %g2 nop .long 738 mov 0,%i0 ret restore call %g2 nop .long 739 mov 0,%i0 ret restore call %g2 nop .long 740 mov 0,%i0 ret restore call %g2 nop .long 741 mov 0,%i0 ret restore call %g2 nop .long 742 mov 0,%i0 ret restore call %g2 nop .long 743 mov 0,%i0 ret restore call %g2 nop .long 744 mov 0,%i0 ret restore call %g2 nop .long 745 mov 0,%i0 ret restore call %g2 nop .long 746 mov 0,%i0 ret restore call %g2 nop .long 747 mov 0,%i0 ret restore call %g2 nop .long 748 mov 0,%i0 ret restore call %g2 nop .long 749 mov 0,%i0 ret restore call %g2 nop .long 750 mov 0,%i0 ret restore call %g2 nop .long 751 mov 0,%i0 ret restore call %g2 nop .long 752 mov 0,%i0 ret restore call %g2 nop .long 753 mov 0,%i0 ret restore call %g2 nop .long 754 mov 0,%i0 ret restore call %g2 nop .long 755 mov 0,%i0 ret restore call %g2 nop .long 756 mov 0,%i0 ret restore call %g2 nop .long 757 mov 0,%i0 ret restore call %g2 nop .long 758 mov 0,%i0 ret restore call %g2 nop .long 759 mov 0,%i0 ret restore call %g2 nop .long 760 mov 0,%i0 ret restore call %g2 nop .long 761 mov 0,%i0 ret restore call %g2 nop .long 762 mov 0,%i0 ret restore call %g2 nop .long 763 mov 0,%i0 ret restore call %g2 nop .long 764 mov 0,%i0 ret restore call %g2 nop .long 765 mov 0,%i0 ret restore call %g2 nop .long 766 mov 0,%i0 ret restore call %g2 nop .long 767 mov 0,%i0 ret restore call %g2 nop .long 768 mov 0,%i0 ret restore call %g2 nop .long 769 mov 0,%i0 ret restore call %g2 nop .long 770 mov 0,%i0 ret restore call %g2 nop .long 771 mov 0,%i0 ret restore call %g2 nop .long 772 mov 0,%i0 ret restore call %g2 nop .long 773 mov 0,%i0 ret restore call %g2 nop .long 774 mov 0,%i0 ret restore call %g2 nop .long 775 mov 0,%i0 ret restore call %g2 nop .long 776 mov 0,%i0 ret restore call %g2 nop .long 777 mov 0,%i0 ret restore call %g2 nop .long 778 mov 0,%i0 ret restore call %g2 nop .long 779 mov 0,%i0 ret restore call %g2 nop .long 780 mov 0,%i0 ret restore call %g2 nop .long 781 mov 0,%i0 ret restore call %g2 nop .long 782 mov 0,%i0 ret restore call %g2 nop .long 783 mov 0,%i0 ret restore call %g2 nop .long 784 mov 0,%i0 ret restore call %g2 nop .long 785 mov 0,%i0 ret restore call %g2 nop .long 786 mov 0,%i0 ret restore call %g2 nop .long 787 mov 0,%i0 ret restore call %g2 nop .long 788 mov 0,%i0 ret restore call %g2 nop .long 789 mov 0,%i0 ret restore call %g2 nop .long 790 mov 0,%i0 ret restore call %g2 nop .long 791 mov 0,%i0 ret restore call %g2 nop .long 792 mov 0,%i0 ret restore call %g2 nop .long 793 mov 0,%i0 ret restore call %g2 nop .long 794 mov 0,%i0 ret restore call %g2 nop .long 795 mov 0,%i0 ret restore call %g2 nop .long 796 mov 0,%i0 ret restore call %g2 nop .long 797 mov 0,%i0 ret restore call %g2 nop .long 798 mov 0,%i0 ret restore call %g2 nop .long 799 mov 0,%i0 ret restore call %g2 nop .long 800 mov 0,%i0 ret restore call %g2 nop .long 801 mov 0,%i0 ret restore call %g2 nop .long 802 mov 0,%i0 ret restore call %g2 nop .long 803 mov 0,%i0 ret restore call %g2 nop .long 804 mov 0,%i0 ret restore call %g2 nop .long 805 mov 0,%i0 ret restore call %g2 nop .long 806 mov 0,%i0 ret restore call %g2 nop .long 807 mov 0,%i0 ret restore call %g2 nop .long 808 mov 0,%i0 ret restore call %g2 nop .long 809 mov 0,%i0 ret restore call %g2 nop .long 810 mov 0,%i0 ret restore call %g2 nop .long 811 mov 0,%i0 ret restore call %g2 nop .long 812 mov 0,%i0 ret restore call %g2 nop .long 813 mov 0,%i0 ret restore call %g2 nop .long 814 mov 0,%i0 ret restore call %g2 nop .long 815 mov 0,%i0 ret restore call %g2 nop .long 816 mov 0,%i0 ret restore call %g2 nop .long 817 mov 0,%i0 ret restore call %g2 nop .long 818 mov 0,%i0 ret restore call %g2 nop .long 819 mov 0,%i0 ret restore call %g2 nop .long 820 mov 0,%i0 ret restore call %g2 nop .long 821 mov 0,%i0 ret restore call %g2 nop .long 822 mov 0,%i0 ret restore call %g2 nop .long 823 mov 0,%i0 ret restore call %g2 nop .long 824 mov 0,%i0 ret restore call %g2 nop .long 825 mov 0,%i0 ret restore call %g2 nop .long 826 mov 0,%i0 ret restore call %g2 nop .long 827 mov 0,%i0 ret restore call %g2 nop .long 828 mov 0,%i0 ret restore call %g2 nop .long 829 mov 0,%i0 ret restore call %g2 nop .long 830 mov 0,%i0 ret restore call %g2 nop .long 831 mov 0,%i0 ret restore call %g2 nop .long 832 mov 0,%i0 ret restore call %g2 nop .long 833 mov 0,%i0 ret restore call %g2 nop .long 834 mov 0,%i0 ret restore call %g2 nop .long 835 mov 0,%i0 ret restore call %g2 nop .long 836 mov 0,%i0 ret restore call %g2 nop .long 837 mov 0,%i0 ret restore call %g2 nop .long 838 mov 0,%i0 ret restore call %g2 nop .long 839 mov 0,%i0 ret restore call %g2 nop .long 840 mov 0,%i0 ret restore call %g2 nop .long 841 mov 0,%i0 ret restore call %g2 nop .long 842 mov 0,%i0 ret restore call %g2 nop .long 843 mov 0,%i0 ret restore call %g2 nop .long 844 mov 0,%i0 ret restore call %g2 nop .long 845 mov 0,%i0 ret restore call %g2 nop .long 846 mov 0,%i0 ret restore call %g2 nop .long 847 mov 0,%i0 ret restore call %g2 nop .long 848 mov 0,%i0 ret restore call %g2 nop .long 849 mov 0,%i0 ret restore call %g2 nop .long 850 mov 0,%i0 ret restore call %g2 nop .long 851 mov 0,%i0 ret restore call %g2 nop .long 852 mov 0,%i0 ret restore call %g2 nop .long 853 mov 0,%i0 ret restore call %g2 nop .long 854 mov 0,%i0 ret restore call %g2 nop .long 855 mov 0,%i0 ret restore call %g2 nop .long 856 mov 0,%i0 ret restore call %g2 nop .long 857 mov 0,%i0 ret restore call %g2 nop .long 858 mov 0,%i0 ret restore call %g2 nop .long 859 mov 0,%i0 ret restore call %g2 nop .long 860 mov 0,%i0 ret restore call %g2 nop .long 861 mov 0,%i0 ret restore call %g2 nop .long 862 mov 0,%i0 ret restore call %g2 nop .long 863 mov 0,%i0 ret restore call %g2 nop .long 864 mov 0,%i0 ret restore call %g2 nop .long 865 mov 0,%i0 ret restore call %g2 nop .long 866 mov 0,%i0 ret restore call %g2 nop .long 867 mov 0,%i0 ret restore call %g2 nop .long 868 mov 0,%i0 ret restore call %g2 nop .long 869 mov 0,%i0 ret restore call %g2 nop .long 870 mov 0,%i0 ret restore call %g2 nop .long 871 mov 0,%i0 ret restore call %g2 nop .long 872 mov 0,%i0 ret restore call %g2 nop .long 873 mov 0,%i0 ret restore call %g2 nop .long 874 mov 0,%i0 ret restore call %g2 nop .long 875 mov 0,%i0 ret restore call %g2 nop .long 876 mov 0,%i0 ret restore call %g2 nop .long 877 mov 0,%i0 ret restore call %g2 nop .long 878 mov 0,%i0 ret restore call %g2 nop .long 879 mov 0,%i0 ret restore call %g2 nop .long 880 mov 0,%i0 ret restore call %g2 nop .long 881 mov 0,%i0 ret restore call %g2 nop .long 882 mov 0,%i0 ret restore call %g2 nop .long 883 mov 0,%i0 ret restore call %g2 nop .long 884 mov 0,%i0 ret restore call %g2 nop .long 885 mov 0,%i0 ret restore call %g2 nop .long 886 mov 0,%i0 ret restore call %g2 nop .long 887 mov 0,%i0 ret restore call %g2 nop .long 888 mov 0,%i0 ret restore call %g2 nop .long 889 mov 0,%i0 ret restore call %g2 nop .long 890 mov 0,%i0 ret restore call %g2 nop .long 891 mov 0,%i0 ret restore call %g2 nop .long 892 mov 0,%i0 ret restore call %g2 nop .long 893 mov 0,%i0 ret restore call %g2 nop .long 894 mov 0,%i0 ret restore call %g2 nop .long 895 mov 0,%i0 ret restore call %g2 nop .long 896 mov 0,%i0 ret restore call %g2 nop .long 897 mov 0,%i0 ret restore call %g2 nop .long 898 mov 0,%i0 ret restore call %g2 nop .long 899 mov 0,%i0 ret restore call %g2 nop .long 900 mov 0,%i0 ret restore call %g2 nop .long 901 mov 0,%i0 ret restore call %g2 nop .long 902 mov 0,%i0 ret restore call %g2 nop .long 903 mov 0,%i0 ret restore call %g2 nop .long 904 mov 0,%i0 ret restore call %g2 nop .long 905 mov 0,%i0 ret restore call %g2 nop .long 906 mov 0,%i0 ret restore call %g2 nop .long 907 mov 0,%i0 ret restore call %g2 nop .long 908 mov 0,%i0 ret restore call %g2 nop .long 909 mov 0,%i0 ret restore call %g2 nop .long 910 mov 0,%i0 ret restore call %g2 nop .long 911 mov 0,%i0 ret restore call %g2 nop .long 912 mov 0,%i0 ret restore call %g2 nop .long 913 mov 0,%i0 ret restore call %g2 nop .long 914 mov 0,%i0 ret restore call %g2 nop .long 915 mov 0,%i0 ret restore call %g2 nop .long 916 mov 0,%i0 ret restore call %g2 nop .long 917 mov 0,%i0 ret restore call %g2 nop .long 918 mov 0,%i0 ret restore call %g2 nop .long 919 mov 0,%i0 ret restore call %g2 nop .long 920 mov 0,%i0 ret restore call %g2 nop .long 921 mov 0,%i0 ret restore call %g2 nop .long 922 mov 0,%i0 ret restore call %g2 nop .long 923 mov 0,%i0 ret restore call %g2 nop .long 924 mov 0,%i0 ret restore call %g2 nop .long 925 mov 0,%i0 ret restore call %g2 nop .long 926 mov 0,%i0 ret restore call %g2 nop .long 927 mov 0,%i0 ret restore call %g2 nop .long 928 mov 0,%i0 ret restore call %g2 nop .long 929 mov 0,%i0 ret restore call %g2 nop .long 930 mov 0,%i0 ret restore call %g2 nop .long 931 mov 0,%i0 ret restore call %g2 nop .long 932 mov 0,%i0 ret restore call %g2 nop .long 933 mov 0,%i0 ret restore call %g2 nop .long 934 mov 0,%i0 ret restore call %g2 nop .long 935 mov 0,%i0 ret restore call %g2 nop .long 936 mov 0,%i0 ret restore call %g2 nop .long 937 mov 0,%i0 ret restore call %g2 nop .long 938 mov 0,%i0 ret restore call %g2 nop .long 939 mov 0,%i0 ret restore call %g2 nop .long 940 mov 0,%i0 ret restore call %g2 nop .long 941 mov 0,%i0 ret restore call %g2 nop .long 942 mov 0,%i0 ret restore call %g2 nop .long 943 mov 0,%i0 ret restore call %g2 nop .long 944 mov 0,%i0 ret restore call %g2 nop .long 945 mov 0,%i0 ret restore call %g2 nop .long 946 mov 0,%i0 ret restore call %g2 nop .long 947 mov 0,%i0 ret restore call %g2 nop .long 948 mov 0,%i0 ret restore call %g2 nop .long 949 mov 0,%i0 ret restore call %g2 nop .long 950 mov 0,%i0 ret restore call %g2 nop .long 951 mov 0,%i0 ret restore call %g2 nop .long 952 mov 0,%i0 ret restore call %g2 nop .long 953 mov 0,%i0 ret restore call %g2 nop .long 954 mov 0,%i0 ret restore call %g2 nop .long 955 mov 0,%i0 ret restore call %g2 nop .long 956 mov 0,%i0 ret restore call %g2 nop .long 957 mov 0,%i0 ret restore call %g2 nop .long 958 mov 0,%i0 ret restore call %g2 nop .long 959 mov 0,%i0 ret restore call %g2 nop .long 960 mov 0,%i0 ret restore call %g2 nop .long 961 mov 0,%i0 ret restore call %g2 nop .long 962 mov 0,%i0 ret restore call %g2 nop .long 963 mov 0,%i0 ret restore call %g2 nop .long 964 mov 0,%i0 ret restore call %g2 nop .long 965 mov 0,%i0 ret restore call %g2 nop .long 966 mov 0,%i0 ret restore call %g2 nop .long 967 mov 0,%i0 ret restore call %g2 nop .long 968 mov 0,%i0 ret restore call %g2 nop .long 969 mov 0,%i0 ret restore call %g2 nop .long 970 mov 0,%i0 ret restore call %g2 nop .long 971 mov 0,%i0 ret restore call %g2 nop .long 972 mov 0,%i0 ret restore call %g2 nop .long 973 mov 0,%i0 ret restore call %g2 nop .long 974 mov 0,%i0 ret restore call %g2 nop .long 975 mov 0,%i0 ret restore call %g2 nop .long 976 mov 0,%i0 ret restore call %g2 nop .long 977 mov 0,%i0 ret restore call %g2 nop .long 978 mov 0,%i0 ret restore call %g2 nop .long 979 mov 0,%i0 ret restore call %g2 nop .long 980 mov 0,%i0 ret restore call %g2 nop .long 981 mov 0,%i0 ret restore call %g2 nop .long 982 mov 0,%i0 ret restore call %g2 nop .long 983 mov 0,%i0 ret restore call %g2 nop .long 984 mov 0,%i0 ret restore call %g2 nop .long 985 mov 0,%i0 ret restore call %g2 nop .long 986 mov 0,%i0 ret restore call %g2 nop .long 987 mov 0,%i0 ret restore call %g2 nop .long 988 mov 0,%i0 ret restore call %g2 nop .long 989 mov 0,%i0 ret restore call %g2 nop .long 990 mov 0,%i0 ret restore call %g2 nop .long 991 mov 0,%i0 ret restore call %g2 nop .long 992 mov 0,%i0 ret restore call %g2 nop .long 993 mov 0,%i0 ret restore call %g2 nop .long 994 mov 0,%i0 ret restore call %g2 nop .long 995 mov 0,%i0 ret restore call %g2 nop .long 996 mov 0,%i0 ret restore call %g2 nop .long 997 mov 0,%i0 ret restore call %g2 nop .long 998 mov 0,%i0 ret restore call %g2 nop .long 999 mov 0,%i0 ret restore call %g2 nop .long 1000 mov 0,%i0 ret restore call %g2 nop .long 1001 mov 0,%i0 ret restore call %g2 nop .long 1002 mov 0,%i0 ret restore call %g2 nop .long 1003 mov 0,%i0 ret restore call %g2 nop .long 1004 mov 0,%i0 ret restore call %g2 nop .long 1005 mov 0,%i0 ret restore call %g2 nop .long 1006 mov 0,%i0 ret restore call %g2 nop .long 1007 mov 0,%i0 ret restore call %g2 nop .long 1008 mov 0,%i0 ret restore call %g2 nop .long 1009 mov 0,%i0 ret restore call %g2 nop .long 1010 mov 0,%i0 ret restore call %g2 nop .long 1011 mov 0,%i0 ret restore call %g2 nop .long 1012 mov 0,%i0 ret restore call %g2 nop .long 1013 mov 0,%i0 ret restore call %g2 nop .long 1014 mov 0,%i0 ret restore call %g2 nop .long 1015 mov 0,%i0 ret restore call %g2 nop .long 1016 mov 0,%i0 ret restore call %g2 nop .long 1017 mov 0,%i0 ret restore call %g2 nop .long 1018 mov 0,%i0 ret restore call %g2 nop .long 1019 mov 0,%i0 ret restore call %g2 nop .long 1020 mov 0,%i0 ret restore call %g2 nop .long 1021 mov 0,%i0 ret restore call %g2 nop .long 1022 mov 0,%i0 ret restore call %g2 nop .long 1023 mov 0,%i0 ret restore call %g2 nop .long 1024 mov 0,%i0 ret restore call %g2 nop .long 1025 mov 0,%i0 ret restore call %g2 nop .long 1026 mov 0,%i0 ret restore call %g2 nop .long 1027 mov 0,%i0 ret restore call %g2 nop .long 1028 mov 0,%i0 ret restore call %g2 nop .long 1029 mov 0,%i0 ret restore call %g2 nop .long 1030 mov 0,%i0 ret restore call %g2 nop .long 1031 mov 0,%i0 ret restore call %g2 nop .long 1032 mov 0,%i0 ret restore call %g2 nop .long 1033 mov 0,%i0 ret restore call %g2 nop .long 1034 mov 0,%i0 ret restore call %g2 nop .long 1035 mov 0,%i0 ret restore call %g2 nop .long 1036 mov 0,%i0 ret restore call %g2 nop .long 1037 mov 0,%i0 ret restore call %g2 nop .long 1038 mov 0,%i0 ret restore call %g2 nop .long 1039 mov 0,%i0 ret restore call %g2 nop .long 1040 mov 0,%i0 ret restore call %g2 nop .long 1041 mov 0,%i0 ret restore call %g2 nop .long 1042 mov 0,%i0 ret restore call %g2 nop .long 1043 mov 0,%i0 ret restore call %g2 nop .long 1044 mov 0,%i0 ret restore call %g2 nop .long 1045 mov 0,%i0 ret restore call %g2 nop .long 1046 mov 0,%i0 ret restore call %g2 nop .long 1047 mov 0,%i0 ret restore call %g2 nop .long 1048 mov 0,%i0 ret restore call %g2 nop .long 1049 mov 0,%i0 ret restore call %g2 nop .long 1050 mov 0,%i0 ret restore call %g2 nop .long 1051 mov 0,%i0 ret restore call %g2 nop .long 1052 mov 0,%i0 ret restore call %g2 nop .long 1053 mov 0,%i0 ret restore call %g2 nop .long 1054 mov 0,%i0 ret restore call %g2 nop .long 1055 mov 0,%i0 ret restore call %g2 nop .long 1056 mov 0,%i0 ret restore call %g2 nop .long 1057 mov 0,%i0 ret restore call %g2 nop .long 1058 mov 0,%i0 ret restore call %g2 nop .long 1059 mov 0,%i0 ret restore call %g2 nop .long 1060 mov 0,%i0 ret restore call %g2 nop .long 1061 mov 0,%i0 ret restore call %g2 nop .long 1062 mov 0,%i0 ret restore call %g2 nop .long 1063 mov 0,%i0 ret restore call %g2 nop .long 1064 mov 0,%i0 ret restore call %g2 nop .long 1065 mov 0,%i0 ret restore call %g2 nop .long 1066 mov 0,%i0 ret restore call %g2 nop .long 1067 mov 0,%i0 ret restore call %g2 nop .long 1068 mov 0,%i0 ret restore call %g2 nop .long 1069 mov 0,%i0 ret restore call %g2 nop .long 1070 mov 0,%i0 ret restore call %g2 nop .long 1071 mov 0,%i0 ret restore call %g2 nop .long 1072 mov 0,%i0 ret restore call %g2 nop .long 1073 mov 0,%i0 ret restore call %g2 nop .long 1074 mov 0,%i0 ret restore call %g2 nop .long 1075 mov 0,%i0 ret restore call %g2 nop .long 1076 mov 0,%i0 ret restore call %g2 nop .long 1077 mov 0,%i0 ret restore call %g2 nop .long 1078 mov 0,%i0 ret restore call %g2 nop .long 1079 mov 0,%i0 ret restore call %g2 nop .long 1080 mov 0,%i0 ret restore call %g2 nop .long 1081 mov 0,%i0 ret restore call %g2 nop .long 1082 mov 0,%i0 ret restore call %g2 nop .long 1083 mov 0,%i0 ret restore call %g2 nop .long 1084 mov 0,%i0 ret restore call %g2 nop .long 1085 mov 0,%i0 ret restore call %g2 nop .long 1086 mov 0,%i0 ret restore call %g2 nop .long 1087 mov 0,%i0 ret restore call %g2 nop .long 1088 mov 0,%i0 ret restore call %g2 nop .long 1089 mov 0,%i0 ret restore call %g2 nop .long 1090 mov 0,%i0 ret restore call %g2 nop .long 1091 mov 0,%i0 ret restore call %g2 nop .long 1092 mov 0,%i0 ret restore call %g2 nop .long 1093 mov 0,%i0 ret restore call %g2 nop .long 1094 mov 0,%i0 ret restore call %g2 nop .long 1095 mov 0,%i0 ret restore call %g2 nop .long 1096 mov 0,%i0 ret restore call %g2 nop .long 1097 mov 0,%i0 ret restore call %g2 nop .long 1098 mov 0,%i0 ret restore call %g2 nop .long 1099 mov 0,%i0 ret restore call %g2 nop .long 1100 mov 0,%i0 ret restore call %g2 nop .long 1101 mov 0,%i0 ret restore call %g2 nop .long 1102 mov 0,%i0 ret restore call %g2 nop .long 1103 mov 0,%i0 ret restore call %g2 nop .long 1104 mov 0,%i0 ret restore call %g2 nop .long 1105 mov 0,%i0 ret restore call %g2 nop .long 1106 mov 0,%i0 ret restore call %g2 nop .long 1107 mov 0,%i0 ret restore call %g2 nop .long 1108 mov 0,%i0 ret restore call %g2 nop .long 1109 mov 0,%i0 ret restore call %g2 nop .long 1110 mov 0,%i0 ret restore call %g2 nop .long 1111 mov 0,%i0 ret restore call %g2 nop .long 1112 mov 0,%i0 ret restore call %g2 nop .long 1113 mov 0,%i0 ret restore call %g2 nop .long 1114 mov 0,%i0 ret restore call %g2 nop .long 1115 mov 0,%i0 ret restore call %g2 nop .long 1116 mov 0,%i0 ret restore call %g2 nop .long 1117 mov 0,%i0 ret restore call %g2 nop .long 1118 mov 0,%i0 ret restore call %g2 nop .long 1119 mov 0,%i0 ret restore call %g2 nop .long 1120 mov 0,%i0 ret restore call %g2 nop .long 1121 mov 0,%i0 ret restore call %g2 nop .long 1122 mov 0,%i0 ret restore call %g2 nop .long 1123 mov 0,%i0 ret restore call %g2 nop .long 1124 mov 0,%i0 ret restore call %g2 nop .long 1125 mov 0,%i0 ret restore call %g2 nop .long 1126 mov 0,%i0 ret restore call %g2 nop .long 1127 mov 0,%i0 ret restore call %g2 nop .long 1128 mov 0,%i0 ret restore call %g2 nop .long 1129 mov 0,%i0 ret restore call %g2 nop .long 1130 mov 0,%i0 ret restore call %g2 nop .long 1131 mov 0,%i0 ret restore call %g2 nop .long 1132 mov 0,%i0 ret restore call %g2 nop .long 1133 mov 0,%i0 ret restore call %g2 nop .long 1134 mov 0,%i0 ret restore call %g2 nop .long 1135 mov 0,%i0 ret restore call %g2 nop .long 1136 mov 0,%i0 ret restore call %g2 nop .long 1137 mov 0,%i0 ret restore call %g2 nop .long 1138 mov 0,%i0 ret restore call %g2 nop .long 1139 mov 0,%i0 ret restore call %g2 nop .long 1140 mov 0,%i0 ret restore call %g2 nop .long 1141 mov 0,%i0 ret restore call %g2 nop .long 1142 mov 0,%i0 ret restore call %g2 nop .long 1143 mov 0,%i0 ret restore call %g2 nop .long 1144 mov 0,%i0 ret restore call %g2 nop .long 1145 mov 0,%i0 ret restore call %g2 nop .long 1146 mov 0,%i0 ret restore call %g2 nop .long 1147 mov 0,%i0 ret restore call %g2 nop .long 1148 mov 0,%i0 ret restore call %g2 nop .long 1149 mov 0,%i0 ret restore call %g2 nop .long 1150 mov 0,%i0 ret restore call %g2 nop .long 1151 mov 0,%i0 ret restore call %g2 nop .long 1152 mov 0,%i0 ret restore call %g2 nop .long 1153 mov 0,%i0 ret restore call %g2 nop .long 1154 mov 0,%i0 ret restore call %g2 nop .long 1155 mov 0,%i0 ret restore call %g2 nop .long 1156 mov 0,%i0 ret restore call %g2 nop .long 1157 mov 0,%i0 ret restore call %g2 nop .long 1158 mov 0,%i0 ret restore call %g2 nop .long 1159 mov 0,%i0 ret restore call %g2 nop .long 1160 mov 0,%i0 ret restore call %g2 nop .long 1161 mov 0,%i0 ret restore call %g2 nop .long 1162 mov 0,%i0 ret restore call %g2 nop .long 1163 mov 0,%i0 ret restore call %g2 nop .long 1164 mov 0,%i0 ret restore call %g2 nop .long 1165 mov 0,%i0 ret restore call %g2 nop .long 1166 mov 0,%i0 ret restore call %g2 nop .long 1167 mov 0,%i0 ret restore call %g2 nop .long 1168 mov 0,%i0 ret restore call %g2 nop .long 1169 mov 0,%i0 ret restore call %g2 nop .long 1170 mov 0,%i0 ret restore call %g2 nop .long 1171 mov 0,%i0 ret restore call %g2 nop .long 1172 mov 0,%i0 ret restore call %g2 nop .long 1173 mov 0,%i0 ret restore call %g2 nop .long 1174 mov 0,%i0 ret restore call %g2 nop .long 1175 mov 0,%i0 ret restore call %g2 nop .long 1176 mov 0,%i0 ret restore call %g2 nop .long 1177 mov 0,%i0 ret restore call %g2 nop .long 1178 mov 0,%i0 ret restore call %g2 nop .long 1179 mov 0,%i0 ret restore call %g2 nop .long 1180 mov 0,%i0 ret restore call %g2 nop .long 1181 mov 0,%i0 ret restore call %g2 nop .long 1182 mov 0,%i0 ret restore call %g2 nop .long 1183 mov 0,%i0 ret restore call %g2 nop .long 1184 mov 0,%i0 ret restore call %g2 nop .long 1185 mov 0,%i0 ret restore call %g2 nop .long 1186 mov 0,%i0 ret restore call %g2 nop .long 1187 mov 0,%i0 ret restore call %g2 nop .long 1188 mov 0,%i0 ret restore call %g2 nop .long 1189 mov 0,%i0 ret restore call %g2 nop .long 1190 mov 0,%i0 ret restore call %g2 nop .long 1191 mov 0,%i0 ret restore call %g2 nop .long 1192 mov 0,%i0 ret restore call %g2 nop .long 1193 mov 0,%i0 ret restore call %g2 nop .long 1194 mov 0,%i0 ret restore call %g2 nop .long 1195 mov 0,%i0 ret restore call %g2 nop .long 1196 mov 0,%i0 ret restore call %g2 nop .long 1197 mov 0,%i0 ret restore call %g2 nop .long 1198 mov 0,%i0 ret restore call %g2 nop .long 1199 mov 0,%i0 ret restore call %g2 nop .long 1200 mov 0,%i0 ret restore call %g2 nop .long 1201 mov 0,%i0 ret restore call %g2 nop .long 1202 mov 0,%i0 ret restore call %g2 nop .long 1203 mov 0,%i0 ret restore call %g2 nop .long 1204 mov 0,%i0 ret restore call %g2 nop .long 1205 mov 0,%i0 ret restore call %g2 nop .long 1206 mov 0,%i0 ret restore call %g2 nop .long 1207 mov 0,%i0 ret restore call %g2 nop .long 1208 mov 0,%i0 ret restore call %g2 nop .long 1209 mov 0,%i0 ret restore call %g2 nop .long 1210 mov 0,%i0 ret restore call %g2 nop .long 1211 mov 0,%i0 ret restore call %g2 nop .long 1212 mov 0,%i0 ret restore call %g2 nop .long 1213 mov 0,%i0 ret restore call %g2 nop .long 1214 mov 0,%i0 ret restore call %g2 nop .long 1215 mov 0,%i0 ret restore call %g2 nop .long 1216 mov 0,%i0 ret restore call %g2 nop .long 1217 mov 0,%i0 ret restore call %g2 nop .long 1218 mov 0,%i0 ret restore call %g2 nop .long 1219 mov 0,%i0 ret restore call %g2 nop .long 1220 mov 0,%i0 ret restore call %g2 nop .long 1221 mov 0,%i0 ret restore call %g2 nop .long 1222 mov 0,%i0 ret restore call %g2 nop .long 1223 mov 0,%i0 ret restore call %g2 nop .long 1224 mov 0,%i0 ret restore call %g2 nop .long 1225 mov 0,%i0 ret restore call %g2 nop .long 1226 mov 0,%i0 ret restore call %g2 nop .long 1227 mov 0,%i0 ret restore call %g2 nop .long 1228 mov 0,%i0 ret restore call %g2 nop .long 1229 mov 0,%i0 ret restore call %g2 nop .long 1230 mov 0,%i0 ret restore call %g2 nop .long 1231 mov 0,%i0 ret restore call %g2 nop .long 1232 mov 0,%i0 ret restore call %g2 nop .long 1233 mov 0,%i0 ret restore call %g2 nop .long 1234 mov 0,%i0 ret restore call %g2 nop .long 1235 mov 0,%i0 ret restore call %g2 nop .long 1236 mov 0,%i0 ret restore call %g2 nop .long 1237 mov 0,%i0 ret restore call %g2 nop .long 1238 mov 0,%i0 ret restore call %g2 nop .long 1239 mov 0,%i0 ret restore call %g2 nop .long 1240 mov 0,%i0 ret restore call %g2 nop .long 1241 mov 0,%i0 ret restore call %g2 nop .long 1242 mov 0,%i0 ret restore call %g2 nop .long 1243 mov 0,%i0 ret restore call %g2 nop .long 1244 mov 0,%i0 ret restore call %g2 nop .long 1245 mov 0,%i0 ret restore call %g2 nop .long 1246 mov 0,%i0 ret restore call %g2 nop .long 1247 mov 0,%i0 ret restore call %g2 nop .long 1248 mov 0,%i0 ret restore call %g2 nop .long 1249 mov 0,%i0 ret restore call %g2 nop .long 1250 mov 0,%i0 ret restore call %g2 nop .long 1251 mov 0,%i0 ret restore call %g2 nop .long 1252 mov 0,%i0 ret restore call %g2 nop .long 1253 mov 0,%i0 ret restore call %g2 nop .long 1254 mov 0,%i0 ret restore call %g2 nop .long 1255 mov 0,%i0 ret restore call %g2 nop .long 1256 mov 0,%i0 ret restore call %g2 nop .long 1257 mov 0,%i0 ret restore call %g2 nop .long 1258 mov 0,%i0 ret restore call %g2 nop .long 1259 mov 0,%i0 ret restore call %g2 nop .long 1260 mov 0,%i0 ret restore call %g2 nop .long 1261 mov 0,%i0 ret restore call %g2 nop .long 1262 mov 0,%i0 ret restore call %g2 nop .long 1263 mov 0,%i0 ret restore call %g2 nop .long 1264 mov 0,%i0 ret restore call %g2 nop .long 1265 mov 0,%i0 ret restore call %g2 nop .long 1266 mov 0,%i0 ret restore call %g2 nop .long 1267 mov 0,%i0 ret restore call %g2 nop .long 1268 mov 0,%i0 ret restore call %g2 nop .long 1269 mov 0,%i0 ret restore call %g2 nop .long 1270 mov 0,%i0 ret restore call %g2 nop .long 1271 mov 0,%i0 ret restore call %g2 nop .long 1272 mov 0,%i0 ret restore call %g2 nop .long 1273 mov 0,%i0 ret restore call %g2 nop .long 1274 mov 0,%i0 ret restore call %g2 nop .long 1275 mov 0,%i0 ret restore call %g2 nop .long 1276 mov 0,%i0 ret restore call %g2 nop .long 1277 mov 0,%i0 ret restore call %g2 nop .long 1278 mov 0,%i0 ret restore call %g2 nop .long 1279 mov 0,%i0 ret restore call %g2 nop .long 1280 mov 0,%i0 ret restore call %g2 nop .long 1281 mov 0,%i0 ret restore call %g2 nop .long 1282 mov 0,%i0 ret restore call %g2 nop .long 1283 mov 0,%i0 ret restore call %g2 nop .long 1284 mov 0,%i0 ret restore call %g2 nop .long 1285 mov 0,%i0 ret restore call %g2 nop .long 1286 mov 0,%i0 ret restore call %g2 nop .long 1287 mov 0,%i0 ret restore call %g2 nop .long 1288 mov 0,%i0 ret restore call %g2 nop .long 1289 mov 0,%i0 ret restore call %g2 nop .long 1290 mov 0,%i0 ret restore call %g2 nop .long 1291 mov 0,%i0 ret restore call %g2 nop .long 1292 mov 0,%i0 ret restore call %g2 nop .long 1293 mov 0,%i0 ret restore call %g2 nop .long 1294 mov 0,%i0 ret restore call %g2 nop .long 1295 mov 0,%i0 ret restore call %g2 nop .long 1296 mov 0,%i0 ret restore call %g2 nop .long 1297 mov 0,%i0 ret restore call %g2 nop .long 1298 mov 0,%i0 ret restore call %g2 nop .long 1299 mov 0,%i0 ret restore call %g2 nop .long 1300 mov 0,%i0 ret restore call %g2 nop .long 1301 mov 0,%i0 ret restore call %g2 nop .long 1302 mov 0,%i0 ret restore call %g2 nop .long 1303 mov 0,%i0 ret restore call %g2 nop .long 1304 mov 0,%i0 ret restore call %g2 nop .long 1305 mov 0,%i0 ret restore call %g2 nop .long 1306 mov 0,%i0 ret restore call %g2 nop .long 1307 mov 0,%i0 ret restore call %g2 nop .long 1308 mov 0,%i0 ret restore call %g2 nop .long 1309 mov 0,%i0 ret restore call %g2 nop .long 1310 mov 0,%i0 ret restore call %g2 nop .long 1311 mov 0,%i0 ret restore call %g2 nop .long 1312 mov 0,%i0 ret restore call %g2 nop .long 1313 mov 0,%i0 ret restore call %g2 nop .long 1314 mov 0,%i0 ret restore call %g2 nop .long 1315 mov 0,%i0 ret restore call %g2 nop .long 1316 mov 0,%i0 ret restore call %g2 nop .long 1317 mov 0,%i0 ret restore call %g2 nop .long 1318 mov 0,%i0 ret restore call %g2 nop .long 1319 mov 0,%i0 ret restore call %g2 nop .long 1320 mov 0,%i0 ret restore call %g2 nop .long 1321 mov 0,%i0 ret restore call %g2 nop .long 1322 mov 0,%i0 ret restore call %g2 nop .long 1323 mov 0,%i0 ret restore call %g2 nop .long 1324 mov 0,%i0 ret restore call %g2 nop .long 1325 mov 0,%i0 ret restore call %g2 nop .long 1326 mov 0,%i0 ret restore call %g2 nop .long 1327 mov 0,%i0 ret restore call %g2 nop .long 1328 mov 0,%i0 ret restore call %g2 nop .long 1329 mov 0,%i0 ret restore call %g2 nop .long 1330 mov 0,%i0 ret restore call %g2 nop .long 1331 mov 0,%i0 ret restore call %g2 nop .long 1332 mov 0,%i0 ret restore call %g2 nop .long 1333 mov 0,%i0 ret restore call %g2 nop .long 1334 mov 0,%i0 ret restore call %g2 nop .long 1335 mov 0,%i0 ret restore call %g2 nop .long 1336 mov 0,%i0 ret restore call %g2 nop .long 1337 mov 0,%i0 ret restore call %g2 nop .long 1338 mov 0,%i0 ret restore call %g2 nop .long 1339 mov 0,%i0 ret restore call %g2 nop .long 1340 mov 0,%i0 ret restore call %g2 nop .long 1341 mov 0,%i0 ret restore call %g2 nop .long 1342 mov 0,%i0 ret restore call %g2 nop .long 1343 mov 0,%i0 ret restore call %g2 nop .long 1344 mov 0,%i0 ret restore call %g2 nop .long 1345 mov 0,%i0 ret restore call %g2 nop .long 1346 mov 0,%i0 ret restore call %g2 nop .long 1347 mov 0,%i0 ret restore call %g2 nop .long 1348 mov 0,%i0 ret restore call %g2 nop .long 1349 mov 0,%i0 ret restore call %g2 nop .long 1350 mov 0,%i0 ret restore call %g2 nop .long 1351 mov 0,%i0 ret restore call %g2 nop .long 1352 mov 0,%i0 ret restore call %g2 nop .long 1353 mov 0,%i0 ret restore call %g2 nop .long 1354 mov 0,%i0 ret restore call %g2 nop .long 1355 mov 0,%i0 ret restore call %g2 nop .long 1356 mov 0,%i0 ret restore call %g2 nop .long 1357 mov 0,%i0 ret restore call %g2 nop .long 1358 mov 0,%i0 ret restore call %g2 nop .long 1359 mov 0,%i0 ret restore call %g2 nop .long 1360 mov 0,%i0 ret restore call %g2 nop .long 1361 mov 0,%i0 ret restore call %g2 nop .long 1362 mov 0,%i0 ret restore call %g2 nop .long 1363 mov 0,%i0 ret restore call %g2 nop .long 1364 mov 0,%i0 ret restore call %g2 nop .long 1365 mov 0,%i0 ret restore call %g2 nop .long 1366 mov 0,%i0 ret restore call %g2 nop .long 1367 mov 0,%i0 ret restore call %g2 nop .long 1368 mov 0,%i0 ret restore call %g2 nop .long 1369 mov 0,%i0 ret restore call %g2 nop .long 1370 mov 0,%i0 ret restore call %g2 nop .long 1371 mov 0,%i0 ret restore call %g2 nop .long 1372 mov 0,%i0 ret restore call %g2 nop .long 1373 mov 0,%i0 ret restore call %g2 nop .long 1374 mov 0,%i0 ret restore call %g2 nop .long 1375 mov 0,%i0 ret restore call %g2 nop .long 1376 mov 0,%i0 ret restore call %g2 nop .long 1377 mov 0,%i0 ret restore call %g2 nop .long 1378 mov 0,%i0 ret restore call %g2 nop .long 1379 mov 0,%i0 ret restore call %g2 nop .long 1380 mov 0,%i0 ret restore call %g2 nop .long 1381 mov 0,%i0 ret restore call %g2 nop .long 1382 mov 0,%i0 ret restore call %g2 nop .long 1383 mov 0,%i0 ret restore call %g2 nop .long 1384 mov 0,%i0 ret restore call %g2 nop .long 1385 mov 0,%i0 ret restore call %g2 nop .long 1386 mov 0,%i0 ret restore call %g2 nop .long 1387 mov 0,%i0 ret restore call %g2 nop .long 1388 mov 0,%i0 ret restore call %g2 nop .long 1389 mov 0,%i0 ret restore call %g2 nop .long 1390 mov 0,%i0 ret restore call %g2 nop .long 1391 mov 0,%i0 ret restore call %g2 nop .long 1392 mov 0,%i0 ret restore call %g2 nop .long 1393 mov 0,%i0 ret restore call %g2 nop .long 1394 mov 0,%i0 ret restore call %g2 nop .long 1395 mov 0,%i0 ret restore call %g2 nop .long 1396 mov 0,%i0 ret restore call %g2 nop .long 1397 mov 0,%i0 ret restore call %g2 nop .long 1398 mov 0,%i0 ret restore call %g2 nop .long 1399 mov 0,%i0 ret restore call %g2 nop .long 1400 mov 0,%i0 ret restore call %g2 nop .long 1401 mov 0,%i0 ret restore call %g2 nop .long 1402 mov 0,%i0 ret restore call %g2 nop .long 1403 mov 0,%i0 ret restore call %g2 nop .long 1404 mov 0,%i0 ret restore call %g2 nop .long 1405 mov 0,%i0 ret restore call %g2 nop .long 1406 mov 0,%i0 ret restore call %g2 nop .long 1407 mov 0,%i0 ret restore call %g2 nop .long 1408 mov 0,%i0 ret restore call %g2 nop .long 1409 mov 0,%i0 ret restore call %g2 nop .long 1410 mov 0,%i0 ret restore call %g2 nop .long 1411 mov 0,%i0 ret restore call %g2 nop .long 1412 mov 0,%i0 ret restore call %g2 nop .long 1413 mov 0,%i0 ret restore call %g2 nop .long 1414 mov 0,%i0 ret restore call %g2 nop .long 1415 mov 0,%i0 ret restore call %g2 nop .long 1416 mov 0,%i0 ret restore call %g2 nop .long 1417 mov 0,%i0 ret restore call %g2 nop .long 1418 mov 0,%i0 ret restore call %g2 nop .long 1419 mov 0,%i0 ret restore call %g2 nop .long 1420 mov 0,%i0 ret restore call %g2 nop .long 1421 mov 0,%i0 ret restore call %g2 nop .long 1422 mov 0,%i0 ret restore call %g2 nop .long 1423 mov 0,%i0 ret restore call %g2 nop .long 1424 mov 0,%i0 ret restore call %g2 nop .long 1425 mov 0,%i0 ret restore call %g2 nop .long 1426 mov 0,%i0 ret restore call %g2 nop .long 1427 mov 0,%i0 ret restore call %g2 nop .long 1428 mov 0,%i0 ret restore call %g2 nop .long 1429 mov 0,%i0 ret restore call %g2 nop .long 1430 mov 0,%i0 ret restore call %g2 nop .long 1431 mov 0,%i0 ret restore call %g2 nop .long 1432 mov 0,%i0 ret restore call %g2 nop .long 1433 mov 0,%i0 ret restore call %g2 nop .long 1434 mov 0,%i0 ret restore call %g2 nop .long 1435 mov 0,%i0 ret restore call %g2 nop .long 1436 mov 0,%i0 ret restore call %g2 nop .long 1437 mov 0,%i0 ret restore call %g2 nop .long 1438 mov 0,%i0 ret restore call %g2 nop .long 1439 mov 0,%i0 ret restore call %g2 nop .long 1440 mov 0,%i0 ret restore call %g2 nop .long 1441 mov 0,%i0 ret restore call %g2 nop .long 1442 mov 0,%i0 ret restore call %g2 nop .long 1443 mov 0,%i0 ret restore call %g2 nop .long 1444 mov 0,%i0 ret restore call %g2 nop .long 1445 mov 0,%i0 ret restore call %g2 nop .long 1446 mov 0,%i0 ret restore call %g2 nop .long 1447 mov 0,%i0 ret restore call %g2 nop .long 1448 mov 0,%i0 ret restore call %g2 nop .long 1449 mov 0,%i0 ret restore call %g2 nop .long 1450 mov 0,%i0 ret restore call %g2 nop .long 1451 mov 0,%i0 ret restore call %g2 nop .long 1452 mov 0,%i0 ret restore call %g2 nop .long 1453 mov 0,%i0 ret restore call %g2 nop .long 1454 mov 0,%i0 ret restore call %g2 nop .long 1455 mov 0,%i0 ret restore call %g2 nop .long 1456 mov 0,%i0 ret restore call %g2 nop .long 1457 mov 0,%i0 ret restore call %g2 nop .long 1458 mov 0,%i0 ret restore call %g2 nop .long 1459 mov 0,%i0 ret restore call %g2 nop .long 1460 mov 0,%i0 ret restore call %g2 nop .long 1461 mov 0,%i0 ret restore call %g2 nop .long 1462 mov 0,%i0 ret restore call %g2 nop .long 1463 mov 0,%i0 ret restore call %g2 nop .long 1464 mov 0,%i0 ret restore call %g2 nop .long 1465 mov 0,%i0 ret restore call %g2 nop .long 1466 mov 0,%i0 ret restore call %g2 nop .long 1467 mov 0,%i0 ret restore call %g2 nop .long 1468 mov 0,%i0 ret restore call %g2 nop .long 1469 mov 0,%i0 ret restore call %g2 nop .long 1470 mov 0,%i0 ret restore call %g2 nop .long 1471 mov 0,%i0 ret restore call %g2 nop .long 1472 mov 0,%i0 ret restore call %g2 nop .long 1473 mov 0,%i0 ret restore call %g2 nop .long 1474 mov 0,%i0 ret restore call %g2 nop .long 1475 mov 0,%i0 ret restore call %g2 nop .long 1476 mov 0,%i0 ret restore call %g2 nop .long 1477 mov 0,%i0 ret restore call %g2 nop .long 1478 mov 0,%i0 ret restore call %g2 nop .long 1479 mov 0,%i0 ret restore call %g2 nop .long 1480 mov 0,%i0 ret restore call %g2 nop .long 1481 mov 0,%i0 ret restore call %g2 nop .long 1482 mov 0,%i0 ret restore call %g2 nop .long 1483 mov 0,%i0 ret restore call %g2 nop .long 1484 mov 0,%i0 ret restore call %g2 nop .long 1485 mov 0,%i0 ret restore call %g2 nop .long 1486 mov 0,%i0 ret restore call %g2 nop .long 1487 mov 0,%i0 ret restore call %g2 nop .long 1488 mov 0,%i0 ret restore call %g2 nop .long 1489 mov 0,%i0 ret restore call %g2 nop .long 1490 mov 0,%i0 ret restore call %g2 nop .long 1491 mov 0,%i0 ret restore call %g2 nop .long 1492 mov 0,%i0 ret restore call %g2 nop .long 1493 mov 0,%i0 ret restore call %g2 nop .long 1494 mov 0,%i0 ret restore call %g2 nop .long 1495 mov 0,%i0 ret restore call %g2 nop .long 1496 mov 0,%i0 ret restore call %g2 nop .long 1497 mov 0,%i0 ret restore call %g2 nop .long 1498 mov 0,%i0 ret restore call %g2 nop .long 1499 mov 0,%i0 ret restore call %g2 nop .long 1500 mov 0,%i0 ret restore call %g2 nop .long 1501 mov 0,%i0 ret restore call %g2 nop .long 1502 mov 0,%i0 ret restore call %g2 nop .long 1503 mov 0,%i0 ret restore call %g2 nop .long 1504 mov 0,%i0 ret restore call %g2 nop .long 1505 mov 0,%i0 ret restore call %g2 nop .long 1506 mov 0,%i0 ret restore call %g2 nop .long 1507 mov 0,%i0 ret restore call %g2 nop .long 1508 mov 0,%i0 ret restore call %g2 nop .long 1509 mov 0,%i0 ret restore call %g2 nop .long 1510 mov 0,%i0 ret restore call %g2 nop .long 1511 mov 0,%i0 ret restore call %g2 nop .long 1512 mov 0,%i0 ret restore call %g2 nop .long 1513 mov 0,%i0 ret restore call %g2 nop .long 1514 mov 0,%i0 ret restore call %g2 nop .long 1515 mov 0,%i0 ret restore call %g2 nop .long 1516 mov 0,%i0 ret restore call %g2 nop .long 1517 mov 0,%i0 ret restore call %g2 nop .long 1518 mov 0,%i0 ret restore call %g2 nop .long 1519 mov 0,%i0 ret restore call %g2 nop .long 1520 mov 0,%i0 ret restore call %g2 nop .long 1521 mov 0,%i0 ret restore call %g2 nop .long 1522 mov 0,%i0 ret restore call %g2 nop .long 1523 mov 0,%i0 ret restore call %g2 nop .long 1524 mov 0,%i0 ret restore call %g2 nop .long 1525 mov 0,%i0 ret restore call %g2 nop .long 1526 mov 0,%i0 ret restore call %g2 nop .long 1527 mov 0,%i0 ret restore call %g2 nop .long 1528 mov 0,%i0 ret restore call %g2 nop .long 1529 mov 0,%i0 ret restore call %g2 nop .long 1530 mov 0,%i0 ret restore call %g2 nop .long 1531 mov 0,%i0 ret restore call %g2 nop .long 1532 mov 0,%i0 ret restore call %g2 nop .long 1533 mov 0,%i0 ret restore call %g2 nop .long 1534 mov 0,%i0 ret restore call %g2 nop .long 1535 mov 0,%i0 ret restore call %g2 nop .long 1536 mov 0,%i0 ret restore call %g2 nop .long 1537 mov 0,%i0 ret restore call %g2 nop .long 1538 mov 0,%i0 ret restore call %g2 nop .long 1539 mov 0,%i0 ret restore call %g2 nop .long 1540 mov 0,%i0 ret restore call %g2 nop .long 1541 mov 0,%i0 ret restore call %g2 nop .long 1542 mov 0,%i0 ret restore call %g2 nop .long 1543 mov 0,%i0 ret restore call %g2 nop .long 1544 mov 0,%i0 ret restore call %g2 nop .long 1545 mov 0,%i0 ret restore call %g2 nop .long 1546 mov 0,%i0 ret restore call %g2 nop .long 1547 mov 0,%i0 ret restore call %g2 nop .long 1548 mov 0,%i0 ret restore call %g2 nop .long 1549 mov 0,%i0 ret restore call %g2 nop .long 1550 mov 0,%i0 ret restore call %g2 nop .long 1551 mov 0,%i0 ret restore call %g2 nop .long 1552 mov 0,%i0 ret restore call %g2 nop .long 1553 mov 0,%i0 ret restore call %g2 nop .long 1554 mov 0,%i0 ret restore call %g2 nop .long 1555 mov 0,%i0 ret restore call %g2 nop .long 1556 mov 0,%i0 ret restore call %g2 nop .long 1557 mov 0,%i0 ret restore call %g2 nop .long 1558 mov 0,%i0 ret restore call %g2 nop .long 1559 mov 0,%i0 ret restore call %g2 nop .long 1560 mov 0,%i0 ret restore call %g2 nop .long 1561 mov 0,%i0 ret restore call %g2 nop .long 1562 mov 0,%i0 ret restore call %g2 nop .long 1563 mov 0,%i0 ret restore call %g2 nop .long 1564 mov 0,%i0 ret restore call %g2 nop .long 1565 mov 0,%i0 ret restore call %g2 nop .long 1566 mov 0,%i0 ret restore call %g2 nop .long 1567 mov 0,%i0 ret restore call %g2 nop .long 1568 mov 0,%i0 ret restore call %g2 nop .long 1569 mov 0,%i0 ret restore call %g2 nop .long 1570 mov 0,%i0 ret restore call %g2 nop .long 1571 mov 0,%i0 ret restore call %g2 nop .long 1572 mov 0,%i0 ret restore call %g2 nop .long 1573 mov 0,%i0 ret restore call %g2 nop .long 1574 mov 0,%i0 ret restore call %g2 nop .long 1575 mov 0,%i0 ret restore call %g2 nop .long 1576 mov 0,%i0 ret restore call %g2 nop .long 1577 mov 0,%i0 ret restore call %g2 nop .long 1578 mov 0,%i0 ret restore call %g2 nop .long 1579 mov 0,%i0 ret restore call %g2 nop .long 1580 mov 0,%i0 ret restore call %g2 nop .long 1581 mov 0,%i0 ret restore call %g2 nop .long 1582 mov 0,%i0 ret restore call %g2 nop .long 1583 mov 0,%i0 ret restore call %g2 nop .long 1584 mov 0,%i0 ret restore call %g2 nop .long 1585 mov 0,%i0 ret restore call %g2 nop .long 1586 mov 0,%i0 ret restore call %g2 nop .long 1587 mov 0,%i0 ret restore call %g2 nop .long 1588 mov 0,%i0 ret restore call %g2 nop .long 1589 mov 0,%i0 ret restore call %g2 nop .long 1590 mov 0,%i0 ret restore call %g2 nop .long 1591 mov 0,%i0 ret restore call %g2 nop .long 1592 mov 0,%i0 ret restore call %g2 nop .long 1593 mov 0,%i0 ret restore call %g2 nop .long 1594 mov 0,%i0 ret restore call %g2 nop .long 1595 mov 0,%i0 ret restore call %g2 nop .long 1596 mov 0,%i0 ret restore call %g2 nop .long 1597 mov 0,%i0 ret restore call %g2 nop .long 1598 mov 0,%i0 ret restore call %g2 nop .long 1599 mov 0,%i0 ret restore call %g2 nop .long 1600 mov 0,%i0 ret restore call %g2 nop .long 1601 mov 0,%i0 ret restore call %g2 nop .long 1602 mov 0,%i0 ret restore call %g2 nop .long 1603 mov 0,%i0 ret restore call %g2 nop .long 1604 mov 0,%i0 ret restore call %g2 nop .long 1605 mov 0,%i0 ret restore call %g2 nop .long 1606 mov 0,%i0 ret restore call %g2 nop .long 1607 mov 0,%i0 ret restore call %g2 nop .long 1608 mov 0,%i0 ret restore call %g2 nop .long 1609 mov 0,%i0 ret restore call %g2 nop .long 1610 mov 0,%i0 ret restore call %g2 nop .long 1611 mov 0,%i0 ret restore call %g2 nop .long 1612 mov 0,%i0 ret restore call %g2 nop .long 1613 mov 0,%i0 ret restore call %g2 nop .long 1614 mov 0,%i0 ret restore call %g2 nop .long 1615 mov 0,%i0 ret restore call %g2 nop .long 1616 mov 0,%i0 ret restore call %g2 nop .long 1617 mov 0,%i0 ret restore call %g2 nop .long 1618 mov 0,%i0 ret restore call %g2 nop .long 1619 mov 0,%i0 ret restore call %g2 nop .long 1620 mov 0,%i0 ret restore call %g2 nop .long 1621 mov 0,%i0 ret restore call %g2 nop .long 1622 mov 0,%i0 ret restore call %g2 nop .long 1623 mov 0,%i0 ret restore call %g2 nop .long 1624 mov 0,%i0 ret restore call %g2 nop .long 1625 mov 0,%i0 ret restore call %g2 nop .long 1626 mov 0,%i0 ret restore call %g2 nop .long 1627 mov 0,%i0 ret restore call %g2 nop .long 1628 mov 0,%i0 ret restore call %g2 nop .long 1629 mov 0,%i0 ret restore call %g2 nop .long 1630 mov 0,%i0 ret restore call %g2 nop .long 1631 mov 0,%i0 ret restore call %g2 nop .long 1632 mov 0,%i0 ret restore call %g2 nop .long 1633 mov 0,%i0 ret restore call %g2 nop .long 1634 mov 0,%i0 ret restore call %g2 nop .long 1635 mov 0,%i0 ret restore call %g2 nop .long 1636 mov 0,%i0 ret restore call %g2 nop .long 1637 mov 0,%i0 ret restore call %g2 nop .long 1638 mov 0,%i0 ret restore call %g2 nop .long 1639 mov 0,%i0 ret restore call %g2 nop .long 1640 mov 0,%i0 ret restore call %g2 nop .long 1641 mov 0,%i0 ret restore call %g2 nop .long 1642 mov 0,%i0 ret restore call %g2 nop .long 1643 mov 0,%i0 ret restore call %g2 nop .long 1644 mov 0,%i0 ret restore call %g2 nop .long 1645 mov 0,%i0 ret restore call %g2 nop .long 1646 mov 0,%i0 ret restore call %g2 nop .long 1647 mov 0,%i0 ret restore call %g2 nop .long 1648 mov 0,%i0 ret restore call %g2 nop .long 1649 mov 0,%i0 ret restore call %g2 nop .long 1650 mov 0,%i0 ret restore call %g2 nop .long 1651 mov 0,%i0 ret restore call %g2 nop .long 1652 mov 0,%i0 ret restore call %g2 nop .long 1653 mov 0,%i0 ret restore call %g2 nop .long 1654 mov 0,%i0 ret restore call %g2 nop .long 1655 mov 0,%i0 ret restore call %g2 nop .long 1656 mov 0,%i0 ret restore call %g2 nop .long 1657 mov 0,%i0 ret restore call %g2 nop .long 1658 mov 0,%i0 ret restore call %g2 nop .long 1659 mov 0,%i0 ret restore call %g2 nop .long 1660 mov 0,%i0 ret restore call %g2 nop .long 1661 mov 0,%i0 ret restore call %g2 nop .long 1662 mov 0,%i0 ret restore call %g2 nop .long 1663 mov 0,%i0 ret restore call %g2 nop .long 1664 mov 0,%i0 ret restore call %g2 nop .long 1665 mov 0,%i0 ret restore call %g2 nop .long 1666 mov 0,%i0 ret restore call %g2 nop .long 1667 mov 0,%i0 ret restore call %g2 nop .long 1668 mov 0,%i0 ret restore call %g2 nop .long 1669 mov 0,%i0 ret restore call %g2 nop .long 1670 mov 0,%i0 ret restore call %g2 nop .long 1671 mov 0,%i0 ret restore call %g2 nop .long 1672 mov 0,%i0 ret restore call %g2 nop .long 1673 mov 0,%i0 ret restore call %g2 nop .long 1674 mov 0,%i0 ret restore call %g2 nop .long 1675 mov 0,%i0 ret restore call %g2 nop .long 1676 mov 0,%i0 ret restore call %g2 nop .long 1677 mov 0,%i0 ret restore call %g2 nop .long 1678 mov 0,%i0 ret restore call %g2 nop .long 1679 mov 0,%i0 ret restore call %g2 nop .long 1680 mov 0,%i0 ret restore call %g2 nop .long 1681 mov 0,%i0 ret restore call %g2 nop .long 1682 mov 0,%i0 ret restore call %g2 nop .long 1683 mov 0,%i0 ret restore call %g2 nop .long 1684 mov 0,%i0 ret restore call %g2 nop .long 1685 mov 0,%i0 ret restore call %g2 nop .long 1686 mov 0,%i0 ret restore call %g2 nop .long 1687 mov 0,%i0 ret restore call %g2 nop .long 1688 mov 0,%i0 ret restore call %g2 nop .long 1689 mov 0,%i0 ret restore call %g2 nop .long 1690 mov 0,%i0 ret restore call %g2 nop .long 1691 mov 0,%i0 ret restore call %g2 nop .long 1692 mov 0,%i0 ret restore call %g2 nop .long 1693 mov 0,%i0 ret restore call %g2 nop .long 1694 mov 0,%i0 ret restore call %g2 nop .long 1695 mov 0,%i0 ret restore call %g2 nop .long 1696 mov 0,%i0 ret restore call %g2 nop .long 1697 mov 0,%i0 ret restore call %g2 nop .long 1698 mov 0,%i0 ret restore call %g2 nop .long 1699 mov 0,%i0 ret restore call %g2 nop .long 1700 mov 0,%i0 ret restore call %g2 nop .long 1701 mov 0,%i0 ret restore call %g2 nop .long 1702 mov 0,%i0 ret restore call %g2 nop .long 1703 mov 0,%i0 ret restore call %g2 nop .long 1704 mov 0,%i0 ret restore call %g2 nop .long 1705 mov 0,%i0 ret restore call %g2 nop .long 1706 mov 0,%i0 ret restore call %g2 nop .long 1707 mov 0,%i0 ret restore call %g2 nop .long 1708 mov 0,%i0 ret restore call %g2 nop .long 1709 mov 0,%i0 ret restore call %g2 nop .long 1710 mov 0,%i0 ret restore call %g2 nop .long 1711 mov 0,%i0 ret restore call %g2 nop .long 1712 mov 0,%i0 ret restore call %g2 nop .long 1713 mov 0,%i0 ret restore call %g2 nop .long 1714 mov 0,%i0 ret restore call %g2 nop .long 1715 mov 0,%i0 ret restore call %g2 nop .long 1716 mov 0,%i0 ret restore call %g2 nop .long 1717 mov 0,%i0 ret restore call %g2 nop .long 1718 mov 0,%i0 ret restore call %g2 nop .long 1719 mov 0,%i0 ret restore call %g2 nop .long 1720 mov 0,%i0 ret restore call %g2 nop .long 1721 mov 0,%i0 ret restore call %g2 nop .long 1722 mov 0,%i0 ret restore call %g2 nop .long 1723 mov 0,%i0 ret restore call %g2 nop .long 1724 mov 0,%i0 ret restore call %g2 nop .long 1725 mov 0,%i0 ret restore call %g2 nop .long 1726 mov 0,%i0 ret restore call %g2 nop .long 1727 mov 0,%i0 ret restore call %g2 nop .long 1728 mov 0,%i0 ret restore call %g2 nop .long 1729 mov 0,%i0 ret restore call %g2 nop .long 1730 mov 0,%i0 ret restore call %g2 nop .long 1731 mov 0,%i0 ret restore call %g2 nop .long 1732 mov 0,%i0 ret restore call %g2 nop .long 1733 mov 0,%i0 ret restore call %g2 nop .long 1734 mov 0,%i0 ret restore call %g2 nop .long 1735 mov 0,%i0 ret restore call %g2 nop .long 1736 mov 0,%i0 ret restore call %g2 nop .long 1737 mov 0,%i0 ret restore call %g2 nop .long 1738 mov 0,%i0 ret restore call %g2 nop .long 1739 mov 0,%i0 ret restore call %g2 nop .long 1740 mov 0,%i0 ret restore call %g2 nop .long 1741 mov 0,%i0 ret restore call %g2 nop .long 1742 mov 0,%i0 ret restore call %g2 nop .long 1743 mov 0,%i0 ret restore call %g2 nop .long 1744 mov 0,%i0 ret restore call %g2 nop .long 1745 mov 0,%i0 ret restore call %g2 nop .long 1746 mov 0,%i0 ret restore call %g2 nop .long 1747 mov 0,%i0 ret restore call %g2 nop .long 1748 mov 0,%i0 ret restore call %g2 nop .long 1749 mov 0,%i0 ret restore call %g2 nop .long 1750 mov 0,%i0 ret restore call %g2 nop .long 1751 mov 0,%i0 ret restore call %g2 nop .long 1752 mov 0,%i0 ret restore call %g2 nop .long 1753 mov 0,%i0 ret restore call %g2 nop .long 1754 mov 0,%i0 ret restore call %g2 nop .long 1755 mov 0,%i0 ret restore call %g2 nop .long 1756 mov 0,%i0 ret restore call %g2 nop .long 1757 mov 0,%i0 ret restore call %g2 nop .long 1758 mov 0,%i0 ret restore call %g2 nop .long 1759 mov 0,%i0 ret restore call %g2 nop .long 1760 mov 0,%i0 ret restore call %g2 nop .long 1761 mov 0,%i0 ret restore call %g2 nop .long 1762 mov 0,%i0 ret restore call %g2 nop .long 1763 mov 0,%i0 ret restore call %g2 nop .long 1764 mov 0,%i0 ret restore call %g2 nop .long 1765 mov 0,%i0 ret restore call %g2 nop .long 1766 mov 0,%i0 ret restore call %g2 nop .long 1767 mov 0,%i0 ret restore call %g2 nop .long 1768 mov 0,%i0 ret restore call %g2 nop .long 1769 mov 0,%i0 ret restore call %g2 nop .long 1770 mov 0,%i0 ret restore call %g2 nop .long 1771 mov 0,%i0 ret restore call %g2 nop .long 1772 mov 0,%i0 ret restore call %g2 nop .long 1773 mov 0,%i0 ret restore call %g2 nop .long 1774 mov 0,%i0 ret restore call %g2 nop .long 1775 mov 0,%i0 ret restore call %g2 nop .long 1776 mov 0,%i0 ret restore call %g2 nop .long 1777 mov 0,%i0 ret restore call %g2 nop .long 1778 mov 0,%i0 ret restore call %g2 nop .long 1779 mov 0,%i0 ret restore call %g2 nop .long 1780 mov 0,%i0 ret restore call %g2 nop .long 1781 mov 0,%i0 ret restore call %g2 nop .long 1782 mov 0,%i0 ret restore call %g2 nop .long 1783 mov 0,%i0 ret restore call %g2 nop .long 1784 mov 0,%i0 ret restore call %g2 nop .long 1785 mov 0,%i0 ret restore call %g2 nop .long 1786 mov 0,%i0 ret restore call %g2 nop .long 1787 mov 0,%i0 ret restore call %g2 nop .long 1788 mov 0,%i0 ret restore call %g2 nop .long 1789 mov 0,%i0 ret restore call %g2 nop .long 1790 mov 0,%i0 ret restore call %g2 nop .long 1791 mov 0,%i0 ret restore call %g2 nop .long 1792 mov 0,%i0 ret restore call %g2 nop .long 1793 mov 0,%i0 ret restore call %g2 nop .long 1794 mov 0,%i0 ret restore call %g2 nop .long 1795 mov 0,%i0 ret restore call %g2 nop .long 1796 mov 0,%i0 ret restore call %g2 nop .long 1797 mov 0,%i0 ret restore call %g2 nop .long 1798 mov 0,%i0 ret restore call %g2 nop .long 1799 mov 0,%i0 ret restore call %g2 nop .long 1800 mov 0,%i0 ret restore call %g2 nop .long 1801 mov 0,%i0 ret restore call %g2 nop .long 1802 mov 0,%i0 ret restore call %g2 nop .long 1803 mov 0,%i0 ret restore call %g2 nop .long 1804 mov 0,%i0 ret restore call %g2 nop .long 1805 mov 0,%i0 ret restore call %g2 nop .long 1806 mov 0,%i0 ret restore call %g2 nop .long 1807 mov 0,%i0 ret restore call %g2 nop .long 1808 mov 0,%i0 ret restore call %g2 nop .long 1809 mov 0,%i0 ret restore call %g2 nop .long 1810 mov 0,%i0 ret restore call %g2 nop .long 1811 mov 0,%i0 ret restore call %g2 nop .long 1812 mov 0,%i0 ret restore call %g2 nop .long 1813 mov 0,%i0 ret restore call %g2 nop .long 1814 mov 0,%i0 ret restore call %g2 nop .long 1815 mov 0,%i0 ret restore call %g2 nop .long 1816 mov 0,%i0 ret restore call %g2 nop .long 1817 mov 0,%i0 ret restore call %g2 nop .long 1818 mov 0,%i0 ret restore call %g2 nop .long 1819 mov 0,%i0 ret restore call %g2 nop .long 1820 mov 0,%i0 ret restore call %g2 nop .long 1821 mov 0,%i0 ret restore call %g2 nop .long 1822 mov 0,%i0 ret restore call %g2 nop .long 1823 mov 0,%i0 ret restore call %g2 nop .long 1824 mov 0,%i0 ret restore call %g2 nop .long 1825 mov 0,%i0 ret restore call %g2 nop .long 1826 mov 0,%i0 ret restore call %g2 nop .long 1827 mov 0,%i0 ret restore call %g2 nop .long 1828 mov 0,%i0 ret restore call %g2 nop .long 1829 mov 0,%i0 ret restore call %g2 nop .long 1830 mov 0,%i0 ret restore call %g2 nop .long 1831 mov 0,%i0 ret restore call %g2 nop .long 1832 mov 0,%i0 ret restore call %g2 nop .long 1833 mov 0,%i0 ret restore call %g2 nop .long 1834 mov 0,%i0 ret restore call %g2 nop .long 1835 mov 0,%i0 ret restore call %g2 nop .long 1836 mov 0,%i0 ret restore call %g2 nop .long 1837 mov 0,%i0 ret restore call %g2 nop .long 1838 mov 0,%i0 ret restore call %g2 nop .long 1839 mov 0,%i0 ret restore call %g2 nop .long 1840 mov 0,%i0 ret restore call %g2 nop .long 1841 mov 0,%i0 ret restore call %g2 nop .long 1842 mov 0,%i0 ret restore call %g2 nop .long 1843 mov 0,%i0 ret restore call %g2 nop .long 1844 mov 0,%i0 ret restore call %g2 nop .long 1845 mov 0,%i0 ret restore call %g2 nop .long 1846 mov 0,%i0 ret restore call %g2 nop .long 1847 mov 0,%i0 ret restore call %g2 nop .long 1848 mov 0,%i0 ret restore call %g2 nop .long 1849 mov 0,%i0 ret restore call %g2 nop .long 1850 mov 0,%i0 ret restore call %g2 nop .long 1851 mov 0,%i0 ret restore call %g2 nop .long 1852 mov 0,%i0 ret restore call %g2 nop .long 1853 mov 0,%i0 ret restore call %g2 nop .long 1854 mov 0,%i0 ret restore call %g2 nop .long 1855 mov 0,%i0 ret restore call %g2 nop .long 1856 mov 0,%i0 ret restore call %g2 nop .long 1857 mov 0,%i0 ret restore call %g2 nop .long 1858 mov 0,%i0 ret restore call %g2 nop .long 1859 mov 0,%i0 ret restore call %g2 nop .long 1860 mov 0,%i0 ret restore call %g2 nop .long 1861 mov 0,%i0 ret restore call %g2 nop .long 1862 mov 0,%i0 ret restore call %g2 nop .long 1863 mov 0,%i0 ret restore call %g2 nop .long 1864 mov 0,%i0 ret restore call %g2 nop .long 1865 mov 0,%i0 ret restore call %g2 nop .long 1866 mov 0,%i0 ret restore call %g2 nop .long 1867 mov 0,%i0 ret restore call %g2 nop .long 1868 mov 0,%i0 ret restore call %g2 nop .long 1869 mov 0,%i0 ret restore call %g2 nop .long 1870 mov 0,%i0 ret restore call %g2 nop .long 1871 mov 0,%i0 ret restore call %g2 nop .long 1872 mov 0,%i0 ret restore call %g2 nop .long 1873 mov 0,%i0 ret restore call %g2 nop .long 1874 mov 0,%i0 ret restore call %g2 nop .long 1875 mov 0,%i0 ret restore call %g2 nop .long 1876 mov 0,%i0 ret restore call %g2 nop .long 1877 mov 0,%i0 ret restore call %g2 nop .long 1878 mov 0,%i0 ret restore call %g2 nop .long 1879 mov 0,%i0 ret restore call %g2 nop .long 1880 mov 0,%i0 ret restore call %g2 nop .long 1881 mov 0,%i0 ret restore call %g2 nop .long 1882 mov 0,%i0 ret restore call %g2 nop .long 1883 mov 0,%i0 ret restore call %g2 nop .long 1884 mov 0,%i0 ret restore call %g2 nop .long 1885 mov 0,%i0 ret restore call %g2 nop .long 1886 mov 0,%i0 ret restore call %g2 nop .long 1887 mov 0,%i0 ret restore call %g2 nop .long 1888 mov 0,%i0 ret restore call %g2 nop .long 1889 mov 0,%i0 ret restore call %g2 nop .long 1890 mov 0,%i0 ret restore call %g2 nop .long 1891 mov 0,%i0 ret restore call %g2 nop .long 1892 mov 0,%i0 ret restore call %g2 nop .long 1893 mov 0,%i0 ret restore call %g2 nop .long 1894 mov 0,%i0 ret restore call %g2 nop .long 1895 mov 0,%i0 ret restore call %g2 nop .long 1896 mov 0,%i0 ret restore call %g2 nop .long 1897 mov 0,%i0 ret restore call %g2 nop .long 1898 mov 0,%i0 ret restore call %g2 nop .long 1899 mov 0,%i0 ret restore call %g2 nop .long 1900 mov 0,%i0 ret restore call %g2 nop .long 1901 mov 0,%i0 ret restore call %g2 nop .long 1902 mov 0,%i0 ret restore call %g2 nop .long 1903 mov 0,%i0 ret restore call %g2 nop .long 1904 mov 0,%i0 ret restore call %g2 nop .long 1905 mov 0,%i0 ret restore call %g2 nop .long 1906 mov 0,%i0 ret restore call %g2 nop .long 1907 mov 0,%i0 ret restore call %g2 nop .long 1908 mov 0,%i0 ret restore call %g2 nop .long 1909 mov 0,%i0 ret restore call %g2 nop .long 1910 mov 0,%i0 ret restore call %g2 nop .long 1911 mov 0,%i0 ret restore call %g2 nop .long 1912 mov 0,%i0 ret restore call %g2 nop .long 1913 mov 0,%i0 ret restore call %g2 nop .long 1914 mov 0,%i0 ret restore call %g2 nop .long 1915 mov 0,%i0 ret restore call %g2 nop .long 1916 mov 0,%i0 ret restore call %g2 nop .long 1917 mov 0,%i0 ret restore call %g2 nop .long 1918 mov 0,%i0 ret restore call %g2 nop .long 1919 mov 0,%i0 ret restore call %g2 nop .long 1920 mov 0,%i0 ret restore call %g2 nop .long 1921 mov 0,%i0 ret restore call %g2 nop .long 1922 mov 0,%i0 ret restore call %g2 nop .long 1923 mov 0,%i0 ret restore call %g2 nop .long 1924 mov 0,%i0 ret restore call %g2 nop .long 1925 mov 0,%i0 ret restore call %g2 nop .long 1926 mov 0,%i0 ret restore call %g2 nop .long 1927 mov 0,%i0 ret restore call %g2 nop .long 1928 mov 0,%i0 ret restore call %g2 nop .long 1929 mov 0,%i0 ret restore call %g2 nop .long 1930 mov 0,%i0 ret restore call %g2 nop .long 1931 mov 0,%i0 ret restore call %g2 nop .long 1932 mov 0,%i0 ret restore call %g2 nop .long 1933 mov 0,%i0 ret restore call %g2 nop .long 1934 mov 0,%i0 ret restore call %g2 nop .long 1935 mov 0,%i0 ret restore call %g2 nop .long 1936 mov 0,%i0 ret restore call %g2 nop .long 1937 mov 0,%i0 ret restore call %g2 nop .long 1938 mov 0,%i0 ret restore call %g2 nop .long 1939 mov 0,%i0 ret restore call %g2 nop .long 1940 mov 0,%i0 ret restore call %g2 nop .long 1941 mov 0,%i0 ret restore call %g2 nop .long 1942 mov 0,%i0 ret restore call %g2 nop .long 1943 mov 0,%i0 ret restore call %g2 nop .long 1944 mov 0,%i0 ret restore call %g2 nop .long 1945 mov 0,%i0 ret restore call %g2 nop .long 1946 mov 0,%i0 ret restore call %g2 nop .long 1947 mov 0,%i0 ret restore call %g2 nop .long 1948 mov 0,%i0 ret restore call %g2 nop .long 1949 mov 0,%i0 ret restore call %g2 nop .long 1950 mov 0,%i0 ret restore call %g2 nop .long 1951 mov 0,%i0 ret restore call %g2 nop .long 1952 mov 0,%i0 ret restore call %g2 nop .long 1953 mov 0,%i0 ret restore call %g2 nop .long 1954 mov 0,%i0 ret restore call %g2 nop .long 1955 mov 0,%i0 ret restore call %g2 nop .long 1956 mov 0,%i0 ret restore call %g2 nop .long 1957 mov 0,%i0 ret restore call %g2 nop .long 1958 mov 0,%i0 ret restore call %g2 nop .long 1959 mov 0,%i0 ret restore call %g2 nop .long 1960 mov 0,%i0 ret restore call %g2 nop .long 1961 mov 0,%i0 ret restore call %g2 nop .long 1962 mov 0,%i0 ret restore call %g2 nop .long 1963 mov 0,%i0 ret restore call %g2 nop .long 1964 mov 0,%i0 ret restore call %g2 nop .long 1965 mov 0,%i0 ret restore call %g2 nop .long 1966 mov 0,%i0 ret restore call %g2 nop .long 1967 mov 0,%i0 ret restore call %g2 nop .long 1968 mov 0,%i0 ret restore call %g2 nop .long 1969 mov 0,%i0 ret restore call %g2 nop .long 1970 mov 0,%i0 ret restore call %g2 nop .long 1971 mov 0,%i0 ret restore call %g2 nop .long 1972 mov 0,%i0 ret restore call %g2 nop .long 1973 mov 0,%i0 ret restore call %g2 nop .long 1974 mov 0,%i0 ret restore call %g2 nop .long 1975 mov 0,%i0 ret restore call %g2 nop .long 1976 mov 0,%i0 ret restore call %g2 nop .long 1977 mov 0,%i0 ret restore call %g2 nop .long 1978 mov 0,%i0 ret restore call %g2 nop .long 1979 mov 0,%i0 ret restore call %g2 nop .long 1980 mov 0,%i0 ret restore call %g2 nop .long 1981 mov 0,%i0 ret restore call %g2 nop .long 1982 mov 0,%i0 ret restore call %g2 nop .long 1983 mov 0,%i0 ret restore call %g2 nop .long 1984 mov 0,%i0 ret restore call %g2 nop .long 1985 mov 0,%i0 ret restore call %g2 nop .long 1986 mov 0,%i0 ret restore call %g2 nop .long 1987 mov 0,%i0 ret restore call %g2 nop .long 1988 mov 0,%i0 ret restore call %g2 nop .long 1989 mov 0,%i0 ret restore call %g2 nop .long 1990 mov 0,%i0 ret restore call %g2 nop .long 1991 mov 0,%i0 ret restore call %g2 nop .long 1992 mov 0,%i0 ret restore call %g2 nop .long 1993 mov 0,%i0 ret restore call %g2 nop .long 1994 mov 0,%i0 ret restore call %g2 nop .long 1995 mov 0,%i0 ret restore call %g2 nop .long 1996 mov 0,%i0 ret restore call %g2 nop .long 1997 mov 0,%i0 ret restore call %g2 nop .long 1998 mov 0,%i0 ret restore call %g2 nop .long 1999 mov 0,%i0 ret restore call %g2 nop .long 2000 mov 0,%i0 ret restore call %g2 nop .long 2001 mov 0,%i0 ret restore call %g2 nop .long 2002 mov 0,%i0 ret restore call %g2 nop .long 2003 mov 0,%i0 ret restore call %g2 nop .long 2004 mov 0,%i0 ret restore call %g2 nop .long 2005 mov 0,%i0 ret restore call %g2 nop .long 2006 mov 0,%i0 ret restore call %g2 nop .long 2007 mov 0,%i0 ret restore call %g2 nop .long 2008 mov 0,%i0 ret restore call %g2 nop .long 2009 mov 0,%i0 ret restore call %g2 nop .long 2010 mov 0,%i0 ret restore call %g2 nop .long 2011 mov 0,%i0 ret restore call %g2 nop .long 2012 mov 0,%i0 ret restore call %g2 nop .long 2013 mov 0,%i0 ret restore call %g2 nop .long 2014 mov 0,%i0 ret restore call %g2 nop .long 2015 mov 0,%i0 ret restore call %g2 nop .long 2016 mov 0,%i0 ret restore call %g2 nop .long 2017 mov 0,%i0 ret restore call %g2 nop .long 2018 mov 0,%i0 ret restore call %g2 nop .long 2019 mov 0,%i0 ret restore call %g2 nop .long 2020 mov 0,%i0 ret restore call %g2 nop .long 2021 mov 0,%i0 ret restore call %g2 nop .long 2022 mov 0,%i0 ret restore call %g2 nop .long 2023 mov 0,%i0 ret restore call %g2 nop .long 2024 mov 0,%i0 ret restore call %g2 nop .long 2025 mov 0,%i0 ret restore call %g2 nop .long 2026 mov 0,%i0 ret restore call %g2 nop .long 2027 mov 0,%i0 ret restore call %g2 nop .long 2028 mov 0,%i0 ret restore call %g2 nop .long 2029 mov 0,%i0 ret restore call %g2 nop .long 2030 mov 0,%i0 ret restore call %g2 nop .long 2031 mov 0,%i0 ret restore call %g2 nop .long 2032 mov 0,%i0 ret restore call %g2 nop .long 2033 mov 0,%i0 ret restore call %g2 nop .long 2034 mov 0,%i0 ret restore call %g2 nop .long 2035 mov 0,%i0 ret restore call %g2 nop .long 2036 mov 0,%i0 ret restore call %g2 nop .long 2037 mov 0,%i0 ret restore call %g2 nop .long 2038 mov 0,%i0 ret restore call %g2 nop .long 2039 mov 0,%i0 ret restore call %g2 nop .long 2040 mov 0,%i0 ret restore call %g2 nop .long 2041 mov 0,%i0 ret restore call %g2 nop .long 2042 mov 0,%i0 ret restore call %g2 nop .long 2043 mov 0,%i0 ret restore call %g2 nop .long 2044 mov 0,%i0 ret restore call %g2 nop .long 2045 mov 0,%i0 ret restore call %g2 nop .long 2046 mov 0,%i0 ret restore call %g2 nop .long 2047 mov 0,%i0 ret restore call %g2 nop .long 2048 mov 0,%i0 ret restore call %g2 nop .long 2049 mov 0,%i0 ret restore call %g2 nop .long 2050 mov 0,%i0 ret restore call %g2 nop .long 2051 mov 0,%i0 ret restore call %g2 nop .long 2052 mov 0,%i0 ret restore call %g2 nop .long 2053 mov 0,%i0 ret restore call %g2 nop .long 2054 mov 0,%i0 ret restore call %g2 nop .long 2055 mov 0,%i0 ret restore call %g2 nop .long 2056 mov 0,%i0 ret restore call %g2 nop .long 2057 mov 0,%i0 ret restore call %g2 nop .long 2058 mov 0,%i0 ret restore call %g2 nop .long 2059 mov 0,%i0 ret restore call %g2 nop .long 2060 mov 0,%i0 ret restore call %g2 nop .long 2061 mov 0,%i0 ret restore call %g2 nop .long 2062 mov 0,%i0 ret restore call %g2 nop .long 2063 mov 0,%i0 ret restore call %g2 nop .long 2064 mov 0,%i0 ret restore call %g2 nop .long 2065 mov 0,%i0 ret restore call %g2 nop .long 2066 mov 0,%i0 ret restore call %g2 nop .long 2067 mov 0,%i0 ret restore call %g2 nop .long 2068 mov 0,%i0 ret restore call %g2 nop .long 2069 mov 0,%i0 ret restore call %g2 nop .long 2070 mov 0,%i0 ret restore call %g2 nop .long 2071 mov 0,%i0 ret restore call %g2 nop .long 2072 mov 0,%i0 ret restore call %g2 nop .long 2073 mov 0,%i0 ret restore call %g2 nop .long 2074 mov 0,%i0 ret restore call %g2 nop .long 2075 mov 0,%i0 ret restore call %g2 nop .long 2076 mov 0,%i0 ret restore call %g2 nop .long 2077 mov 0,%i0 ret restore call %g2 nop .long 2078 mov 0,%i0 ret restore call %g2 nop .long 2079 mov 0,%i0 ret restore call %g2 nop .long 2080 mov 0,%i0 ret restore call %g2 nop .long 2081 mov 0,%i0 ret restore call %g2 nop .long 2082 mov 0,%i0 ret restore call %g2 nop .long 2083 mov 0,%i0 ret restore call %g2 nop .long 2084 mov 0,%i0 ret restore call %g2 nop .long 2085 mov 0,%i0 ret restore call %g2 nop .long 2086 mov 0,%i0 ret restore call %g2 nop .long 2087 mov 0,%i0 ret restore call %g2 nop .long 2088 mov 0,%i0 ret restore call %g2 nop .long 2089 mov 0,%i0 ret restore call %g2 nop .long 2090 mov 0,%i0 ret restore call %g2 nop .long 2091 mov 0,%i0 ret restore call %g2 nop .long 2092 mov 0,%i0 ret restore call %g2 nop .long 2093 mov 0,%i0 ret restore call %g2 nop .long 2094 mov 0,%i0 ret restore call %g2 nop .long 2095 mov 0,%i0 ret restore call %g2 nop .long 2096 mov 0,%i0 ret restore call %g2 nop .long 2097 mov 0,%i0 ret restore call %g2 nop .long 2098 mov 0,%i0 ret restore call %g2 nop .long 2099 mov 0,%i0 ret restore call %g2 nop .long 2100 mov 0,%i0 ret restore call %g2 nop .long 2101 mov 0,%i0 ret restore call %g2 nop .long 2102 mov 0,%i0 ret restore call %g2 nop .long 2103 mov 0,%i0 ret restore call %g2 nop .long 2104 mov 0,%i0 ret restore call %g2 nop .long 2105 mov 0,%i0 ret restore call %g2 nop .long 2106 mov 0,%i0 ret restore call %g2 nop .long 2107 mov 0,%i0 ret restore call %g2 nop .long 2108 mov 0,%i0 ret restore call %g2 nop .long 2109 mov 0,%i0 ret restore call %g2 nop .long 2110 mov 0,%i0 ret restore call %g2 nop .long 2111 mov 0,%i0 ret restore call %g2 nop .long 2112 mov 0,%i0 ret restore call %g2 nop .long 2113 mov 0,%i0 ret restore call %g2 nop .long 2114 mov 0,%i0 ret restore call %g2 nop .long 2115 mov 0,%i0 ret restore call %g2 nop .long 2116 mov 0,%i0 ret restore call %g2 nop .long 2117 mov 0,%i0 ret restore call %g2 nop .long 2118 mov 0,%i0 ret restore call %g2 nop .long 2119 mov 0,%i0 ret restore call %g2 nop .long 2120 mov 0,%i0 ret restore call %g2 nop .long 2121 mov 0,%i0 ret restore call %g2 nop .long 2122 mov 0,%i0 ret restore call %g2 nop .long 2123 mov 0,%i0 ret restore call %g2 nop .long 2124 mov 0,%i0 ret restore call %g2 nop .long 2125 mov 0,%i0 ret restore call %g2 nop .long 2126 mov 0,%i0 ret restore call %g2 nop .long 2127 mov 0,%i0 ret restore call %g2 nop .long 2128 mov 0,%i0 ret restore call %g2 nop .long 2129 mov 0,%i0 ret restore call %g2 nop .long 2130 mov 0,%i0 ret restore call %g2 nop .long 2131 mov 0,%i0 ret restore call %g2 nop .long 2132 mov 0,%i0 ret restore call %g2 nop .long 2133 mov 0,%i0 ret restore call %g2 nop .long 2134 mov 0,%i0 ret restore call %g2 nop .long 2135 mov 0,%i0 ret restore call %g2 nop .long 2136 mov 0,%i0 ret restore call %g2 nop .long 2137 mov 0,%i0 ret restore call %g2 nop .long 2138 mov 0,%i0 ret restore call %g2 nop .long 2139 mov 0,%i0 ret restore call %g2 nop .long 2140 mov 0,%i0 ret restore call %g2 nop .long 2141 mov 0,%i0 ret restore call %g2 nop .long 2142 mov 0,%i0 ret restore call %g2 nop .long 2143 mov 0,%i0 ret restore call %g2 nop .long 2144 mov 0,%i0 ret restore call %g2 nop .long 2145 mov 0,%i0 ret restore call %g2 nop .long 2146 mov 0,%i0 ret restore call %g2 nop .long 2147 mov 0,%i0 ret restore call %g2 nop .long 2148 mov 0,%i0 ret restore call %g2 nop .long 2149 mov 0,%i0 ret restore call %g2 nop .long 2150 mov 0,%i0 ret restore call %g2 nop .long 2151 mov 0,%i0 ret restore call %g2 nop .long 2152 mov 0,%i0 ret restore call %g2 nop .long 2153 mov 0,%i0 ret restore call %g2 nop .long 2154 mov 0,%i0 ret restore call %g2 nop .long 2155 mov 0,%i0 ret restore call %g2 nop .long 2156 mov 0,%i0 ret restore call %g2 nop .long 2157 mov 0,%i0 ret restore call %g2 nop .long 2158 mov 0,%i0 ret restore call %g2 nop .long 2159 mov 0,%i0 ret restore call %g2 nop .long 2160 mov 0,%i0 ret restore call %g2 nop .long 2161 mov 0,%i0 ret restore call %g2 nop .long 2162 mov 0,%i0 ret restore call %g2 nop .long 2163 mov 0,%i0 ret restore call %g2 nop .long 2164 mov 0,%i0 ret restore call %g2 nop .long 2165 mov 0,%i0 ret restore call %g2 nop .long 2166 mov 0,%i0 ret restore call %g2 nop .long 2167 mov 0,%i0 ret restore call %g2 nop .long 2168 mov 0,%i0 ret restore call %g2 nop .long 2169 mov 0,%i0 ret restore call %g2 nop .long 2170 mov 0,%i0 ret restore call %g2 nop .long 2171 mov 0,%i0 ret restore call %g2 nop .long 2172 mov 0,%i0 ret restore call %g2 nop .long 2173 mov 0,%i0 ret restore call %g2 nop .long 2174 mov 0,%i0 ret restore call %g2 nop .long 2175 mov 0,%i0 ret restore call %g2 nop .long 2176 mov 0,%i0 ret restore call %g2 nop .long 2177 mov 0,%i0 ret restore call %g2 nop .long 2178 mov 0,%i0 ret restore call %g2 nop .long 2179 mov 0,%i0 ret restore call %g2 nop .long 2180 mov 0,%i0 ret restore call %g2 nop .long 2181 mov 0,%i0 ret restore call %g2 nop .long 2182 mov 0,%i0 ret restore call %g2 nop .long 2183 mov 0,%i0 ret restore call %g2 nop .long 2184 mov 0,%i0 ret restore call %g2 nop .long 2185 mov 0,%i0 ret restore call %g2 nop .long 2186 mov 0,%i0 ret restore call %g2 nop .long 2187 mov 0,%i0 ret restore call %g2 nop .long 2188 mov 0,%i0 ret restore call %g2 nop .long 2189 mov 0,%i0 ret restore call %g2 nop .long 2190 mov 0,%i0 ret restore call %g2 nop .long 2191 mov 0,%i0 ret restore call %g2 nop .long 2192 mov 0,%i0 ret restore call %g2 nop .long 2193 mov 0,%i0 ret restore call %g2 nop .long 2194 mov 0,%i0 ret restore call %g2 nop .long 2195 mov 0,%i0 ret restore call %g2 nop .long 2196 mov 0,%i0 ret restore call %g2 nop .long 2197 mov 0,%i0 ret restore call %g2 nop .long 2198 mov 0,%i0 ret restore call %g2 nop .long 2199 mov 0,%i0 ret restore call %g2 nop .long 2200 mov 0,%i0 ret restore call %g2 nop .long 2201 mov 0,%i0 ret restore call %g2 nop .long 2202 mov 0,%i0 ret restore call %g2 nop .long 2203 mov 0,%i0 ret restore call %g2 nop .long 2204 mov 0,%i0 ret restore call %g2 nop .long 2205 mov 0,%i0 ret restore call %g2 nop .long 2206 mov 0,%i0 ret restore call %g2 nop .long 2207 mov 0,%i0 ret restore call %g2 nop .long 2208 mov 0,%i0 ret restore call %g2 nop .long 2209 mov 0,%i0 ret restore call %g2 nop .long 2210 mov 0,%i0 ret restore call %g2 nop .long 2211 mov 0,%i0 ret restore call %g2 nop .long 2212 mov 0,%i0 ret restore call %g2 nop .long 2213 mov 0,%i0 ret restore call %g2 nop .long 2214 mov 0,%i0 ret restore call %g2 nop .long 2215 mov 0,%i0 ret restore call %g2 nop .long 2216 mov 0,%i0 ret restore call %g2 nop .long 2217 mov 0,%i0 ret restore call %g2 nop .long 2218 mov 0,%i0 ret restore call %g2 nop .long 2219 mov 0,%i0 ret restore call %g2 nop .long 2220 mov 0,%i0 ret restore call %g2 nop .long 2221 mov 0,%i0 ret restore call %g2 nop .long 2222 mov 0,%i0 ret restore call %g2 nop .long 2223 mov 0,%i0 ret restore call %g2 nop .long 2224 mov 0,%i0 ret restore call %g2 nop .long 2225 mov 0,%i0 ret restore call %g2 nop .long 2226 mov 0,%i0 ret restore call %g2 nop .long 2227 mov 0,%i0 ret restore call %g2 nop .long 2228 mov 0,%i0 ret restore call %g2 nop .long 2229 mov 0,%i0 ret restore call %g2 nop .long 2230 mov 0,%i0 ret restore call %g2 nop .long 2231 mov 0,%i0 ret restore call %g2 nop .long 2232 mov 0,%i0 ret restore call %g2 nop .long 2233 mov 0,%i0 ret restore call %g2 nop .long 2234 mov 0,%i0 ret restore call %g2 nop .long 2235 mov 0,%i0 ret restore call %g2 nop .long 2236 mov 0,%i0 ret restore call %g2 nop .long 2237 mov 0,%i0 ret restore call %g2 nop .long 2238 mov 0,%i0 ret restore call %g2 nop .long 2239 mov 0,%i0 ret restore call %g2 nop .long 2240 mov 0,%i0 ret restore call %g2 nop .long 2241 mov 0,%i0 ret restore call %g2 nop .long 2242 mov 0,%i0 ret restore call %g2 nop .long 2243 mov 0,%i0 ret restore call %g2 nop .long 2244 mov 0,%i0 ret restore call %g2 nop .long 2245 mov 0,%i0 ret restore call %g2 nop .long 2246 mov 0,%i0 ret restore call %g2 nop .long 2247 mov 0,%i0 ret restore call %g2 nop .long 2248 mov 0,%i0 ret restore call %g2 nop .long 2249 mov 0,%i0 ret restore call %g2 nop .long 2250 mov 0,%i0 ret restore call %g2 nop .long 2251 mov 0,%i0 ret restore call %g2 nop .long 2252 mov 0,%i0 ret restore call %g2 nop .long 2253 mov 0,%i0 ret restore call %g2 nop .long 2254 mov 0,%i0 ret restore call %g2 nop .long 2255 mov 0,%i0 ret restore call %g2 nop .long 2256 mov 0,%i0 ret restore call %g2 nop .long 2257 mov 0,%i0 ret restore call %g2 nop .long 2258 mov 0,%i0 ret restore call %g2 nop .long 2259 mov 0,%i0 ret restore call %g2 nop .long 2260 mov 0,%i0 ret restore call %g2 nop .long 2261 mov 0,%i0 ret restore call %g2 nop .long 2262 mov 0,%i0 ret restore call %g2 nop .long 2263 mov 0,%i0 ret restore call %g2 nop .long 2264 mov 0,%i0 ret restore call %g2 nop .long 2265 mov 0,%i0 ret restore call %g2 nop .long 2266 mov 0,%i0 ret restore call %g2 nop .long 2267 mov 0,%i0 ret restore call %g2 nop .long 2268 mov 0,%i0 ret restore call %g2 nop .long 2269 mov 0,%i0 ret restore call %g2 nop .long 2270 mov 0,%i0 ret restore call %g2 nop .long 2271 mov 0,%i0 ret restore call %g2 nop .long 2272 mov 0,%i0 ret restore call %g2 nop .long 2273 mov 0,%i0 ret restore call %g2 nop .long 2274 mov 0,%i0 ret restore call %g2 nop .long 2275 mov 0,%i0 ret restore call %g2 nop .long 2276 mov 0,%i0 ret restore call %g2 nop .long 2277 mov 0,%i0 ret restore call %g2 nop .long 2278 mov 0,%i0 ret restore call %g2 nop .long 2279 mov 0,%i0 ret restore call %g2 nop .long 2280 mov 0,%i0 ret restore call %g2 nop .long 2281 mov 0,%i0 ret restore call %g2 nop .long 2282 mov 0,%i0 ret restore call %g2 nop .long 2283 mov 0,%i0 ret restore call %g2 nop .long 2284 mov 0,%i0 ret restore call %g2 nop .long 2285 mov 0,%i0 ret restore call %g2 nop .long 2286 mov 0,%i0 ret restore call %g2 nop .long 2287 mov 0,%i0 ret restore call %g2 nop .long 2288 mov 0,%i0 ret restore call %g2 nop .long 2289 mov 0,%i0 ret restore call %g2 nop .long 2290 mov 0,%i0 ret restore call %g2 nop .long 2291 mov 0,%i0 ret restore call %g2 nop .long 2292 mov 0,%i0 ret restore call %g2 nop .long 2293 mov 0,%i0 ret restore call %g2 nop .long 2294 mov 0,%i0 ret restore call %g2 nop .long 2295 mov 0,%i0 ret restore call %g2 nop .long 2296 mov 0,%i0 ret restore call %g2 nop .long 2297 mov 0,%i0 ret restore call %g2 nop .long 2298 mov 0,%i0 ret restore call %g2 nop .long 2299 mov 0,%i0 ret restore call %g2 nop .long 2300 mov 0,%i0 ret restore call %g2 nop .long 2301 mov 0,%i0 ret restore call %g2 nop .long 2302 mov 0,%i0 ret restore call %g2 nop .long 2303 mov 0,%i0 ret restore call %g2 nop .long 2304 mov 0,%i0 ret restore call %g2 nop .long 2305 mov 0,%i0 ret restore call %g2 nop .long 2306 mov 0,%i0 ret restore call %g2 nop .long 2307 mov 0,%i0 ret restore call %g2 nop .long 2308 mov 0,%i0 ret restore call %g2 nop .long 2309 mov 0,%i0 ret restore call %g2 nop .long 2310 mov 0,%i0 ret restore call %g2 nop .long 2311 mov 0,%i0 ret restore call %g2 nop .long 2312 mov 0,%i0 ret restore call %g2 nop .long 2313 mov 0,%i0 ret restore call %g2 nop .long 2314 mov 0,%i0 ret restore call %g2 nop .long 2315 mov 0,%i0 ret restore call %g2 nop .long 2316 mov 0,%i0 ret restore call %g2 nop .long 2317 mov 0,%i0 ret restore call %g2 nop .long 2318 mov 0,%i0 ret restore call %g2 nop .long 2319 mov 0,%i0 ret restore call %g2 nop .long 2320 mov 0,%i0 ret restore call %g2 nop .long 2321 mov 0,%i0 ret restore call %g2 nop .long 2322 mov 0,%i0 ret restore call %g2 nop .long 2323 mov 0,%i0 ret restore call %g2 nop .long 2324 mov 0,%i0 ret restore call %g2 nop .long 2325 mov 0,%i0 ret restore call %g2 nop .long 2326 mov 0,%i0 ret restore call %g2 nop .long 2327 mov 0,%i0 ret restore call %g2 nop .long 2328 mov 0,%i0 ret restore call %g2 nop .long 2329 mov 0,%i0 ret restore call %g2 nop .long 2330 mov 0,%i0 ret restore call %g2 nop .long 2331 mov 0,%i0 ret restore call %g2 nop .long 2332 mov 0,%i0 ret restore call %g2 nop .long 2333 mov 0,%i0 ret restore call %g2 nop .long 2334 mov 0,%i0 ret restore call %g2 nop .long 2335 mov 0,%i0 ret restore call %g2 nop .long 2336 mov 0,%i0 ret restore call %g2 nop .long 2337 mov 0,%i0 ret restore call %g2 nop .long 2338 mov 0,%i0 ret restore call %g2 nop .long 2339 mov 0,%i0 ret restore call %g2 nop .long 2340 mov 0,%i0 ret restore call %g2 nop .long 2341 mov 0,%i0 ret restore call %g2 nop .long 2342 mov 0,%i0 ret restore call %g2 nop .long 2343 mov 0,%i0 ret restore call %g2 nop .long 2344 mov 0,%i0 ret restore call %g2 nop .long 2345 mov 0,%i0 ret restore call %g2 nop .long 2346 mov 0,%i0 ret restore call %g2 nop .long 2347 mov 0,%i0 ret restore call %g2 nop .long 2348 mov 0,%i0 ret restore call %g2 nop .long 2349 mov 0,%i0 ret restore call %g2 nop .long 2350 mov 0,%i0 ret restore call %g2 nop .long 2351 mov 0,%i0 ret restore call %g2 nop .long 2352 mov 0,%i0 ret restore call %g2 nop .long 2353 mov 0,%i0 ret restore call %g2 nop .long 2354 mov 0,%i0 ret restore call %g2 nop .long 2355 mov 0,%i0 ret restore call %g2 nop .long 2356 mov 0,%i0 ret restore call %g2 nop .long 2357 mov 0,%i0 ret restore call %g2 nop .long 2358 mov 0,%i0 ret restore call %g2 nop .long 2359 mov 0,%i0 ret restore call %g2 nop .long 2360 mov 0,%i0 ret restore call %g2 nop .long 2361 mov 0,%i0 ret restore call %g2 nop .long 2362 mov 0,%i0 ret restore call %g2 nop .long 2363 mov 0,%i0 ret restore call %g2 nop .long 2364 mov 0,%i0 ret restore call %g2 nop .long 2365 mov 0,%i0 ret restore call %g2 nop .long 2366 mov 0,%i0 ret restore call %g2 nop .long 2367 mov 0,%i0 ret restore call %g2 nop .long 2368 mov 0,%i0 ret restore call %g2 nop .long 2369 mov 0,%i0 ret restore call %g2 nop .long 2370 mov 0,%i0 ret restore call %g2 nop .long 2371 mov 0,%i0 ret restore call %g2 nop .long 2372 mov 0,%i0 ret restore call %g2 nop .long 2373 mov 0,%i0 ret restore call %g2 nop .long 2374 mov 0,%i0 ret restore call %g2 nop .long 2375 mov 0,%i0 ret restore call %g2 nop .long 2376 mov 0,%i0 ret restore call %g2 nop .long 2377 mov 0,%i0 ret restore call %g2 nop .long 2378 mov 0,%i0 ret restore call %g2 nop .long 2379 mov 0,%i0 ret restore call %g2 nop .long 2380 mov 0,%i0 ret restore call %g2 nop .long 2381 mov 0,%i0 ret restore call %g2 nop .long 2382 mov 0,%i0 ret restore call %g2 nop .long 2383 mov 0,%i0 ret restore call %g2 nop .long 2384 mov 0,%i0 ret restore call %g2 nop .long 2385 mov 0,%i0 ret restore call %g2 nop .long 2386 mov 0,%i0 ret restore call %g2 nop .long 2387 mov 0,%i0 ret restore call %g2 nop .long 2388 mov 0,%i0 ret restore call %g2 nop .long 2389 mov 0,%i0 ret restore call %g2 nop .long 2390 mov 0,%i0 ret restore call %g2 nop .long 2391 mov 0,%i0 ret restore call %g2 nop .long 2392 mov 0,%i0 ret restore call %g2 nop .long 2393 mov 0,%i0 ret restore call %g2 nop .long 2394 mov 0,%i0 ret restore call %g2 nop .long 2395 mov 0,%i0 ret restore call %g2 nop .long 2396 mov 0,%i0 ret restore call %g2 nop .long 2397 mov 0,%i0 ret restore call %g2 nop .long 2398 mov 0,%i0 ret restore call %g2 nop .long 2399 mov 0,%i0 ret restore call %g2 nop .long 2400 mov 0,%i0 ret restore call %g2 nop .long 2401 mov 0,%i0 ret restore call %g2 nop .long 2402 mov 0,%i0 ret restore call %g2 nop .long 2403 mov 0,%i0 ret restore call %g2 nop .long 2404 mov 0,%i0 ret restore call %g2 nop .long 2405 mov 0,%i0 ret restore call %g2 nop .long 2406 mov 0,%i0 ret restore call %g2 nop .long 2407 mov 0,%i0 ret restore call %g2 nop .long 2408 mov 0,%i0 ret restore call %g2 nop .long 2409 mov 0,%i0 ret restore call %g2 nop .long 2410 mov 0,%i0 ret restore call %g2 nop .long 2411 mov 0,%i0 ret restore call %g2 nop .long 2412 mov 0,%i0 ret restore call %g2 nop .long 2413 mov 0,%i0 ret restore call %g2 nop .long 2414 mov 0,%i0 ret restore call %g2 nop .long 2415 mov 0,%i0 ret restore call %g2 nop .long 2416 mov 0,%i0 ret restore call %g2 nop .long 2417 mov 0,%i0 ret restore call %g2 nop .long 2418 mov 0,%i0 ret restore call %g2 nop .long 2419 mov 0,%i0 ret restore call %g2 nop .long 2420 mov 0,%i0 ret restore call %g2 nop .long 2421 mov 0,%i0 ret restore call %g2 nop .long 2422 mov 0,%i0 ret restore call %g2 nop .long 2423 mov 0,%i0 ret restore call %g2 nop .long 2424 mov 0,%i0 ret restore call %g2 nop .long 2425 mov 0,%i0 ret restore call %g2 nop .long 2426 mov 0,%i0 ret restore call %g2 nop .long 2427 mov 0,%i0 ret restore call %g2 nop .long 2428 mov 0,%i0 ret restore call %g2 nop .long 2429 mov 0,%i0 ret restore call %g2 nop .long 2430 mov 0,%i0 ret restore call %g2 nop .long 2431 mov 0,%i0 ret restore call %g2 nop .long 2432 mov 0,%i0 ret restore call %g2 nop .long 2433 mov 0,%i0 ret restore call %g2 nop .long 2434 mov 0,%i0 ret restore call %g2 nop .long 2435 mov 0,%i0 ret restore call %g2 nop .long 2436 mov 0,%i0 ret restore call %g2 nop .long 2437 mov 0,%i0 ret restore call %g2 nop .long 2438 mov 0,%i0 ret restore call %g2 nop .long 2439 mov 0,%i0 ret restore call %g2 nop .long 2440 mov 0,%i0 ret restore call %g2 nop .long 2441 mov 0,%i0 ret restore call %g2 nop .long 2442 mov 0,%i0 ret restore call %g2 nop .long 2443 mov 0,%i0 ret restore call %g2 nop .long 2444 mov 0,%i0 ret restore call %g2 nop .long 2445 mov 0,%i0 ret restore call %g2 nop .long 2446 mov 0,%i0 ret restore call %g2 nop .long 2447 mov 0,%i0 ret restore call %g2 nop .long 2448 mov 0,%i0 ret restore call %g2 nop .long 2449 mov 0,%i0 ret restore call %g2 nop .long 2450 mov 0,%i0 ret restore call %g2 nop .long 2451 mov 0,%i0 ret restore call %g2 nop .long 2452 mov 0,%i0 ret restore call %g2 nop .long 2453 mov 0,%i0 ret restore call %g2 nop .long 2454 mov 0,%i0 ret restore call %g2 nop .long 2455 mov 0,%i0 ret restore call %g2 nop .long 2456 mov 0,%i0 ret restore call %g2 nop .long 2457 mov 0,%i0 ret restore call %g2 nop .long 2458 mov 0,%i0 ret restore call %g2 nop .long 2459 mov 0,%i0 ret restore call %g2 nop .long 2460 mov 0,%i0 ret restore call %g2 nop .long 2461 mov 0,%i0 ret restore call %g2 nop .long 2462 mov 0,%i0 ret restore call %g2 nop .long 2463 mov 0,%i0 ret restore call %g2 nop .long 2464 mov 0,%i0 ret restore call %g2 nop .long 2465 mov 0,%i0 ret restore call %g2 nop .long 2466 mov 0,%i0 ret restore call %g2 nop .long 2467 mov 0,%i0 ret restore call %g2 nop .long 2468 mov 0,%i0 ret restore call %g2 nop .long 2469 mov 0,%i0 ret restore call %g2 nop .long 2470 mov 0,%i0 ret restore call %g2 nop .long 2471 mov 0,%i0 ret restore call %g2 nop .long 2472 mov 0,%i0 ret restore call %g2 nop .long 2473 mov 0,%i0 ret restore call %g2 nop .long 2474 mov 0,%i0 ret restore call %g2 nop .long 2475 mov 0,%i0 ret restore call %g2 nop .long 2476 mov 0,%i0 ret restore call %g2 nop .long 2477 mov 0,%i0 ret restore call %g2 nop .long 2478 mov 0,%i0 ret restore call %g2 nop .long 2479 mov 0,%i0 ret restore call %g2 nop .long 2480 mov 0,%i0 ret restore call %g2 nop .long 2481 mov 0,%i0 ret restore call %g2 nop .long 2482 mov 0,%i0 ret restore call %g2 nop .long 2483 mov 0,%i0 ret restore call %g2 nop .long 2484 mov 0,%i0 ret restore call %g2 nop .long 2485 mov 0,%i0 ret restore call %g2 nop .long 2486 mov 0,%i0 ret restore call %g2 nop .long 2487 mov 0,%i0 ret restore call %g2 nop .long 2488 mov 0,%i0 ret restore call %g2 nop .long 2489 mov 0,%i0 ret restore call %g2 nop .long 2490 mov 0,%i0 ret restore call %g2 nop .long 2491 mov 0,%i0 ret restore call %g2 nop .long 2492 mov 0,%i0 ret restore call %g2 nop .long 2493 mov 0,%i0 ret restore call %g2 nop .long 2494 mov 0,%i0 ret restore call %g2 nop .long 2495 mov 0,%i0 ret restore call %g2 nop .long 2496 mov 0,%i0 ret restore call %g2 nop .long 2497 mov 0,%i0 ret restore call %g2 nop .long 2498 mov 0,%i0 ret restore call %g2 nop .long 2499 mov 0,%i0 ret restore call %g2 nop .long 2500 mov 0,%i0 ret restore call %g2 nop .long 2501 mov 0,%i0 ret restore call %g2 nop .long 2502 mov 0,%i0 ret restore call %g2 nop .long 2503 mov 0,%i0 ret restore call %g2 nop .long 2504 mov 0,%i0 ret restore call %g2 nop .long 2505 mov 0,%i0 ret restore call %g2 nop .long 2506 mov 0,%i0 ret restore call %g2 nop .long 2507 mov 0,%i0 ret restore call %g2 nop .long 2508 mov 0,%i0 ret restore call %g2 nop .long 2509 mov 0,%i0 ret restore call %g2 nop .long 2510 mov 0,%i0 ret restore call %g2 nop .long 2511 mov 0,%i0 ret restore call %g2 nop .long 2512 mov 0,%i0 ret restore call %g2 nop .long 2513 mov 0,%i0 ret restore call %g2 nop .long 2514 mov 0,%i0 ret restore call %g2 nop .long 2515 mov 0,%i0 ret restore call %g2 nop .long 2516 mov 0,%i0 ret restore call %g2 nop .long 2517 mov 0,%i0 ret restore call %g2 nop .long 2518 mov 0,%i0 ret restore call %g2 nop .long 2519 mov 0,%i0 ret restore call %g2 nop .long 2520 mov 0,%i0 ret restore call %g2 nop .long 2521 mov 0,%i0 ret restore call %g2 nop .long 2522 mov 0,%i0 ret restore call %g2 nop .long 2523 mov 0,%i0 ret restore call %g2 nop .long 2524 mov 0,%i0 ret restore call %g2 nop .long 2525 mov 0,%i0 ret restore call %g2 nop .long 2526 mov 0,%i0 ret restore call %g2 nop .long 2527 mov 0,%i0 ret restore call %g2 nop .long 2528 mov 0,%i0 ret restore call %g2 nop .long 2529 mov 0,%i0 ret restore call %g2 nop .long 2530 mov 0,%i0 ret restore call %g2 nop .long 2531 mov 0,%i0 ret restore call %g2 nop .long 2532 mov 0,%i0 ret restore call %g2 nop .long 2533 mov 0,%i0 ret restore call %g2 nop .long 2534 mov 0,%i0 ret restore call %g2 nop .long 2535 mov 0,%i0 ret restore call %g2 nop .long 2536 mov 0,%i0 ret restore call %g2 nop .long 2537 mov 0,%i0 ret restore call %g2 nop .long 2538 mov 0,%i0 ret restore call %g2 nop .long 2539 mov 0,%i0 ret restore call %g2 nop .long 2540 mov 0,%i0 ret restore call %g2 nop .long 2541 mov 0,%i0 ret restore call %g2 nop .long 2542 mov 0,%i0 ret restore call %g2 nop .long 2543 mov 0,%i0 ret restore call %g2 nop .long 2544 mov 0,%i0 ret restore call %g2 nop .long 2545 mov 0,%i0 ret restore call %g2 nop .long 2546 mov 0,%i0 ret restore call %g2 nop .long 2547 mov 0,%i0 ret restore call %g2 nop .long 2548 mov 0,%i0 ret restore call %g2 nop .long 2549 mov 0,%i0 ret restore call %g2 nop .long 2550 mov 0,%i0 ret restore call %g2 nop .long 2551 mov 0,%i0 ret restore call %g2 nop .long 2552 mov 0,%i0 ret restore call %g2 nop .long 2553 mov 0,%i0 ret restore call %g2 nop .long 2554 mov 0,%i0 ret restore call %g2 nop .long 2555 mov 0,%i0 ret restore call %g2 nop .long 2556 mov 0,%i0 ret restore call %g2 nop .long 2557 mov 0,%i0 ret restore call %g2 nop .long 2558 mov 0,%i0 ret restore call %g2 nop .long 2559 mov 0,%i0 ret restore call %g2 nop .long 2560 mov 0,%i0 ret restore call %g2 nop .long 2561 mov 0,%i0 ret restore call %g2 nop .long 2562 mov 0,%i0 ret restore call %g2 nop .long 2563 mov 0,%i0 ret restore call %g2 nop .long 2564 mov 0,%i0 ret restore call %g2 nop .long 2565 mov 0,%i0 ret restore call %g2 nop .long 2566 mov 0,%i0 ret restore call %g2 nop .long 2567 mov 0,%i0 ret restore call %g2 nop .long 2568 mov 0,%i0 ret restore call %g2 nop .long 2569 mov 0,%i0 ret restore call %g2 nop .long 2570 mov 0,%i0 ret restore call %g2 nop .long 2571 mov 0,%i0 ret restore call %g2 nop .long 2572 mov 0,%i0 ret restore call %g2 nop .long 2573 mov 0,%i0 ret restore call %g2 nop .long 2574 mov 0,%i0 ret restore call %g2 nop .long 2575 mov 0,%i0 ret restore call %g2 nop .long 2576 mov 0,%i0 ret restore call %g2 nop .long 2577 mov 0,%i0 ret restore call %g2 nop .long 2578 mov 0,%i0 ret restore call %g2 nop .long 2579 mov 0,%i0 ret restore call %g2 nop .long 2580 mov 0,%i0 ret restore call %g2 nop .long 2581 mov 0,%i0 ret restore call %g2 nop .long 2582 mov 0,%i0 ret restore call %g2 nop .long 2583 mov 0,%i0 ret restore call %g2 nop .long 2584 mov 0,%i0 ret restore call %g2 nop .long 2585 mov 0,%i0 ret restore call %g2 nop .long 2586 mov 0,%i0 ret restore call %g2 nop .long 2587 mov 0,%i0 ret restore call %g2 nop .long 2588 mov 0,%i0 ret restore call %g2 nop .long 2589 mov 0,%i0 ret restore call %g2 nop .long 2590 mov 0,%i0 ret restore call %g2 nop .long 2591 mov 0,%i0 ret restore call %g2 nop .long 2592 mov 0,%i0 ret restore call %g2 nop .long 2593 mov 0,%i0 ret restore call %g2 nop .long 2594 mov 0,%i0 ret restore call %g2 nop .long 2595 mov 0,%i0 ret restore call %g2 nop .long 2596 mov 0,%i0 ret restore call %g2 nop .long 2597 mov 0,%i0 ret restore call %g2 nop .long 2598 mov 0,%i0 ret restore call %g2 nop .long 2599 mov 0,%i0 ret restore call %g2 nop .long 2600 mov 0,%i0 ret restore call %g2 nop .long 2601 mov 0,%i0 ret restore call %g2 nop .long 2602 mov 0,%i0 ret restore call %g2 nop .long 2603 mov 0,%i0 ret restore call %g2 nop .long 2604 mov 0,%i0 ret restore call %g2 nop .long 2605 mov 0,%i0 ret restore call %g2 nop .long 2606 mov 0,%i0 ret restore call %g2 nop .long 2607 mov 0,%i0 ret restore call %g2 nop .long 2608 mov 0,%i0 ret restore call %g2 nop .long 2609 mov 0,%i0 ret restore call %g2 nop .long 2610 mov 0,%i0 ret restore call %g2 nop .long 2611 mov 0,%i0 ret restore call %g2 nop .long 2612 mov 0,%i0 ret restore call %g2 nop .long 2613 mov 0,%i0 ret restore call %g2 nop .long 2614 mov 0,%i0 ret restore call %g2 nop .long 2615 mov 0,%i0 ret restore call %g2 nop .long 2616 mov 0,%i0 ret restore call %g2 nop .long 2617 mov 0,%i0 ret restore call %g2 nop .long 2618 mov 0,%i0 ret restore call %g2 nop .long 2619 mov 0,%i0 ret restore call %g2 nop .long 2620 mov 0,%i0 ret restore call %g2 nop .long 2621 mov 0,%i0 ret restore call %g2 nop .long 2622 mov 0,%i0 ret restore call %g2 nop .long 2623 mov 0,%i0 ret restore call %g2 nop .long 2624 mov 0,%i0 ret restore call %g2 nop .long 2625 mov 0,%i0 ret restore call %g2 nop .long 2626 mov 0,%i0 ret restore call %g2 nop .long 2627 mov 0,%i0 ret restore call %g2 nop .long 2628 mov 0,%i0 ret restore call %g2 nop .long 2629 mov 0,%i0 ret restore call %g2 nop .long 2630 mov 0,%i0 ret restore call %g2 nop .long 2631 mov 0,%i0 ret restore call %g2 nop .long 2632 mov 0,%i0 ret restore call %g2 nop .long 2633 mov 0,%i0 ret restore call %g2 nop .long 2634 mov 0,%i0 ret restore call %g2 nop .long 2635 mov 0,%i0 ret restore call %g2 nop .long 2636 mov 0,%i0 ret restore call %g2 nop .long 2637 mov 0,%i0 ret restore call %g2 nop .long 2638 mov 0,%i0 ret restore call %g2 nop .long 2639 mov 0,%i0 ret restore call %g2 nop .long 2640 mov 0,%i0 ret restore call %g2 nop .long 2641 mov 0,%i0 ret restore call %g2 nop .long 2642 mov 0,%i0 ret restore call %g2 nop .long 2643 mov 0,%i0 ret restore call %g2 nop .long 2644 mov 0,%i0 ret restore call %g2 nop .long 2645 mov 0,%i0 ret restore call %g2 nop .long 2646 mov 0,%i0 ret restore call %g2 nop .long 2647 mov 0,%i0 ret restore call %g2 nop .long 2648 mov 0,%i0 ret restore call %g2 nop .long 2649 mov 0,%i0 ret restore call %g2 nop .long 2650 mov 0,%i0 ret restore call %g2 nop .long 2651 mov 0,%i0 ret restore call %g2 nop .long 2652 mov 0,%i0 ret restore call %g2 nop .long 2653 mov 0,%i0 ret restore call %g2 nop .long 2654 mov 0,%i0 ret restore call %g2 nop .long 2655 mov 0,%i0 ret restore call %g2 nop .long 2656 mov 0,%i0 ret restore call %g2 nop .long 2657 mov 0,%i0 ret restore call %g2 nop .long 2658 mov 0,%i0 ret restore call %g2 nop .long 2659 mov 0,%i0 ret restore call %g2 nop .long 2660 mov 0,%i0 ret restore call %g2 nop .long 2661 mov 0,%i0 ret restore call %g2 nop .long 2662 mov 0,%i0 ret restore call %g2 nop .long 2663 mov 0,%i0 ret restore call %g2 nop .long 2664 mov 0,%i0 ret restore call %g2 nop .long 2665 mov 0,%i0 ret restore call %g2 nop .long 2666 mov 0,%i0 ret restore call %g2 nop .long 2667 mov 0,%i0 ret restore call %g2 nop .long 2668 mov 0,%i0 ret restore call %g2 nop .long 2669 mov 0,%i0 ret restore call %g2 nop .long 2670 mov 0,%i0 ret restore call %g2 nop .long 2671 mov 0,%i0 ret restore call %g2 nop .long 2672 mov 0,%i0 ret restore call %g2 nop .long 2673 mov 0,%i0 ret restore call %g2 nop .long 2674 mov 0,%i0 ret restore call %g2 nop .long 2675 mov 0,%i0 ret restore call %g2 nop .long 2676 mov 0,%i0 ret restore call %g2 nop .long 2677 mov 0,%i0 ret restore call %g2 nop .long 2678 mov 0,%i0 ret restore call %g2 nop .long 2679 mov 0,%i0 ret restore call %g2 nop .long 2680 mov 0,%i0 ret restore call %g2 nop .long 2681 mov 0,%i0 ret restore call %g2 nop .long 2682 mov 0,%i0 ret restore call %g2 nop .long 2683 mov 0,%i0 ret restore call %g2 nop .long 2684 mov 0,%i0 ret restore call %g2 nop .long 2685 mov 0,%i0 ret restore call %g2 nop .long 2686 mov 0,%i0 ret restore call %g2 nop .long 2687 mov 0,%i0 ret restore call %g2 nop .long 2688 mov 0,%i0 ret restore call %g2 nop .long 2689 mov 0,%i0 ret restore call %g2 nop .long 2690 mov 0,%i0 ret restore call %g2 nop .long 2691 mov 0,%i0 ret restore call %g2 nop .long 2692 mov 0,%i0 ret restore call %g2 nop .long 2693 mov 0,%i0 ret restore call %g2 nop .long 2694 mov 0,%i0 ret restore call %g2 nop .long 2695 mov 0,%i0 ret restore call %g2 nop .long 2696 mov 0,%i0 ret restore call %g2 nop .long 2697 mov 0,%i0 ret restore call %g2 nop .long 2698 mov 0,%i0 ret restore call %g2 nop .long 2699 mov 0,%i0 ret restore call %g2 nop .long 2700 mov 0,%i0 ret restore call %g2 nop .long 2701 mov 0,%i0 ret restore call %g2 nop .long 2702 mov 0,%i0 ret restore call %g2 nop .long 2703 mov 0,%i0 ret restore call %g2 nop .long 2704 mov 0,%i0 ret restore call %g2 nop .long 2705 mov 0,%i0 ret restore call %g2 nop .long 2706 mov 0,%i0 ret restore call %g2 nop .long 2707 mov 0,%i0 ret restore call %g2 nop .long 2708 mov 0,%i0 ret restore call %g2 nop .long 2709 mov 0,%i0 ret restore call %g2 nop .long 2710 mov 0,%i0 ret restore call %g2 nop .long 2711 mov 0,%i0 ret restore call %g2 nop .long 2712 mov 0,%i0 ret restore call %g2 nop .long 2713 mov 0,%i0 ret restore call %g2 nop .long 2714 mov 0,%i0 ret restore call %g2 nop .long 2715 mov 0,%i0 ret restore call %g2 nop .long 2716 mov 0,%i0 ret restore call %g2 nop .long 2717 mov 0,%i0 ret restore call %g2 nop .long 2718 mov 0,%i0 ret restore call %g2 nop .long 2719 mov 0,%i0 ret restore call %g2 nop .long 2720 mov 0,%i0 ret restore call %g2 nop .long 2721 mov 0,%i0 ret restore call %g2 nop .long 2722 mov 0,%i0 ret restore call %g2 nop .long 2723 mov 0,%i0 ret restore call %g2 nop .long 2724 mov 0,%i0 ret restore call %g2 nop .long 2725 mov 0,%i0 ret restore call %g2 nop .long 2726 mov 0,%i0 ret restore call %g2 nop .long 2727 mov 0,%i0 ret restore call %g2 nop .long 2728 mov 0,%i0 ret restore call %g2 nop .long 2729 mov 0,%i0 ret restore call %g2 nop .long 2730 mov 0,%i0 ret restore call %g2 nop .long 2731 mov 0,%i0 ret restore call %g2 nop .long 2732 mov 0,%i0 ret restore call %g2 nop .long 2733 mov 0,%i0 ret restore call %g2 nop .long 2734 mov 0,%i0 ret restore call %g2 nop .long 2735 mov 0,%i0 ret restore call %g2 nop .long 2736 mov 0,%i0 ret restore call %g2 nop .long 2737 mov 0,%i0 ret restore call %g2 nop .long 2738 mov 0,%i0 ret restore call %g2 nop .long 2739 mov 0,%i0 ret restore call %g2 nop .long 2740 mov 0,%i0 ret restore call %g2 nop .long 2741 mov 0,%i0 ret restore call %g2 nop .long 2742 mov 0,%i0 ret restore call %g2 nop .long 2743 mov 0,%i0 ret restore call %g2 nop .long 2744 mov 0,%i0 ret restore call %g2 nop .long 2745 mov 0,%i0 ret restore call %g2 nop .long 2746 mov 0,%i0 ret restore call %g2 nop .long 2747 mov 0,%i0 ret restore call %g2 nop .long 2748 mov 0,%i0 ret restore call %g2 nop .long 2749 mov 0,%i0 ret restore call %g2 nop .long 2750 mov 0,%i0 ret restore call %g2 nop .long 2751 mov 0,%i0 ret restore call %g2 nop .long 2752 mov 0,%i0 ret restore call %g2 nop .long 2753 mov 0,%i0 ret restore call %g2 nop .long 2754 mov 0,%i0 ret restore call %g2 nop .long 2755 mov 0,%i0 ret restore call %g2 nop .long 2756 mov 0,%i0 ret restore call %g2 nop .long 2757 mov 0,%i0 ret restore call %g2 nop .long 2758 mov 0,%i0 ret restore call %g2 nop .long 2759 mov 0,%i0 ret restore call %g2 nop .long 2760 mov 0,%i0 ret restore call %g2 nop .long 2761 mov 0,%i0 ret restore call %g2 nop .long 2762 mov 0,%i0 ret restore call %g2 nop .long 2763 mov 0,%i0 ret restore call %g2 nop .long 2764 mov 0,%i0 ret restore call %g2 nop .long 2765 mov 0,%i0 ret restore call %g2 nop .long 2766 mov 0,%i0 ret restore call %g2 nop .long 2767 mov 0,%i0 ret restore call %g2 nop .long 2768 mov 0,%i0 ret restore call %g2 nop .long 2769 mov 0,%i0 ret restore call %g2 nop .long 2770 mov 0,%i0 ret restore call %g2 nop .long 2771 mov 0,%i0 ret restore call %g2 nop .long 2772 mov 0,%i0 ret restore call %g2 nop .long 2773 mov 0,%i0 ret restore call %g2 nop .long 2774 mov 0,%i0 ret restore call %g2 nop .long 2775 mov 0,%i0 ret restore call %g2 nop .long 2776 mov 0,%i0 ret restore call %g2 nop .long 2777 mov 0,%i0 ret restore call %g2 nop .long 2778 mov 0,%i0 ret restore call %g2 nop .long 2779 mov 0,%i0 ret restore call %g2 nop .long 2780 mov 0,%i0 ret restore call %g2 nop .long 2781 mov 0,%i0 ret restore call %g2 nop .long 2782 mov 0,%i0 ret restore call %g2 nop .long 2783 mov 0,%i0 ret restore call %g2 nop .long 2784 mov 0,%i0 ret restore call %g2 nop .long 2785 mov 0,%i0 ret restore call %g2 nop .long 2786 mov 0,%i0 ret restore call %g2 nop .long 2787 mov 0,%i0 ret restore call %g2 nop .long 2788 mov 0,%i0 ret restore call %g2 nop .long 2789 mov 0,%i0 ret restore call %g2 nop .long 2790 mov 0,%i0 ret restore call %g2 nop .long 2791 mov 0,%i0 ret restore call %g2 nop .long 2792 mov 0,%i0 ret restore call %g2 nop .long 2793 mov 0,%i0 ret restore call %g2 nop .long 2794 mov 0,%i0 ret restore call %g2 nop .long 2795 mov 0,%i0 ret restore call %g2 nop .long 2796 mov 0,%i0 ret restore call %g2 nop .long 2797 mov 0,%i0 ret restore call %g2 nop .long 2798 mov 0,%i0 ret restore call %g2 nop .long 2799 mov 0,%i0 ret restore call %g2 nop .long 2800 mov 0,%i0 ret restore call %g2 nop .long 2801 mov 0,%i0 ret restore call %g2 nop .long 2802 mov 0,%i0 ret restore call %g2 nop .long 2803 mov 0,%i0 ret restore call %g2 nop .long 2804 mov 0,%i0 ret restore call %g2 nop .long 2805 mov 0,%i0 ret restore call %g2 nop .long 2806 mov 0,%i0 ret restore call %g2 nop .long 2807 mov 0,%i0 ret restore call %g2 nop .long 2808 mov 0,%i0 ret restore call %g2 nop .long 2809 mov 0,%i0 ret restore call %g2 nop .long 2810 mov 0,%i0 ret restore call %g2 nop .long 2811 mov 0,%i0 ret restore call %g2 nop .long 2812 mov 0,%i0 ret restore call %g2 nop .long 2813 mov 0,%i0 ret restore call %g2 nop .long 2814 mov 0,%i0 ret restore call %g2 nop .long 2815 mov 0,%i0 ret restore call %g2 nop .long 2816 mov 0,%i0 ret restore call %g2 nop .long 2817 mov 0,%i0 ret restore call %g2 nop .long 2818 mov 0,%i0 ret restore call %g2 nop .long 2819 mov 0,%i0 ret restore call %g2 nop .long 2820 mov 0,%i0 ret restore call %g2 nop .long 2821 mov 0,%i0 ret restore call %g2 nop .long 2822 mov 0,%i0 ret restore call %g2 nop .long 2823 mov 0,%i0 ret restore call %g2 nop .long 2824 mov 0,%i0 ret restore call %g2 nop .long 2825 mov 0,%i0 ret restore call %g2 nop .long 2826 mov 0,%i0 ret restore call %g2 nop .long 2827 mov 0,%i0 ret restore call %g2 nop .long 2828 mov 0,%i0 ret restore call %g2 nop .long 2829 mov 0,%i0 ret restore call %g2 nop .long 2830 mov 0,%i0 ret restore call %g2 nop .long 2831 mov 0,%i0 ret restore call %g2 nop .long 2832 mov 0,%i0 ret restore call %g2 nop .long 2833 mov 0,%i0 ret restore call %g2 nop .long 2834 mov 0,%i0 ret restore call %g2 nop .long 2835 mov 0,%i0 ret restore call %g2 nop .long 2836 mov 0,%i0 ret restore call %g2 nop .long 2837 mov 0,%i0 ret restore call %g2 nop .long 2838 mov 0,%i0 ret restore call %g2 nop .long 2839 mov 0,%i0 ret restore call %g2 nop .long 2840 mov 0,%i0 ret restore call %g2 nop .long 2841 mov 0,%i0 ret restore call %g2 nop .long 2842 mov 0,%i0 ret restore call %g2 nop .long 2843 mov 0,%i0 ret restore call %g2 nop .long 2844 mov 0,%i0 ret restore call %g2 nop .long 2845 mov 0,%i0 ret restore call %g2 nop .long 2846 mov 0,%i0 ret restore call %g2 nop .long 2847 mov 0,%i0 ret restore call %g2 nop .long 2848 mov 0,%i0 ret restore call %g2 nop .long 2849 mov 0,%i0 ret restore call %g2 nop .long 2850 mov 0,%i0 ret restore call %g2 nop .long 2851 mov 0,%i0 ret restore call %g2 nop .long 2852 mov 0,%i0 ret restore call %g2 nop .long 2853 mov 0,%i0 ret restore call %g2 nop .long 2854 mov 0,%i0 ret restore call %g2 nop .long 2855 mov 0,%i0 ret restore call %g2 nop .long 2856 mov 0,%i0 ret restore call %g2 nop .long 2857 mov 0,%i0 ret restore call %g2 nop .long 2858 mov 0,%i0 ret restore call %g2 nop .long 2859 mov 0,%i0 ret restore call %g2 nop .long 2860 mov 0,%i0 ret restore call %g2 nop .long 2861 mov 0,%i0 ret restore call %g2 nop .long 2862 mov 0,%i0 ret restore call %g2 nop .long 2863 mov 0,%i0 ret restore call %g2 nop .long 2864 mov 0,%i0 ret restore call %g2 nop .long 2865 mov 0,%i0 ret restore call %g2 nop .long 2866 mov 0,%i0 ret restore call %g2 nop .long 2867 mov 0,%i0 ret restore call %g2 nop .long 2868 mov 0,%i0 ret restore call %g2 nop .long 2869 mov 0,%i0 ret restore call %g2 nop .long 2870 mov 0,%i0 ret restore call %g2 nop .long 2871 mov 0,%i0 ret restore call %g2 nop .long 2872 mov 0,%i0 ret restore call %g2 nop .long 2873 mov 0,%i0 ret restore call %g2 nop .long 2874 mov 0,%i0 ret restore call %g2 nop .long 2875 mov 0,%i0 ret restore call %g2 nop .long 2876 mov 0,%i0 ret restore call %g2 nop .long 2877 mov 0,%i0 ret restore call %g2 nop .long 2878 mov 0,%i0 ret restore call %g2 nop .long 2879 mov 0,%i0 ret restore call %g2 nop .long 2880 mov 0,%i0 ret restore call %g2 nop .long 2881 mov 0,%i0 ret restore call %g2 nop .long 2882 mov 0,%i0 ret restore call %g2 nop .long 2883 mov 0,%i0 ret restore call %g2 nop .long 2884 mov 0,%i0 ret restore call %g2 nop .long 2885 mov 0,%i0 ret restore call %g2 nop .long 2886 mov 0,%i0 ret restore call %g2 nop .long 2887 mov 0,%i0 ret restore call %g2 nop .long 2888 mov 0,%i0 ret restore call %g2 nop .long 2889 mov 0,%i0 ret restore call %g2 nop .long 2890 mov 0,%i0 ret restore call %g2 nop .long 2891 mov 0,%i0 ret restore call %g2 nop .long 2892 mov 0,%i0 ret restore call %g2 nop .long 2893 mov 0,%i0 ret restore call %g2 nop .long 2894 mov 0,%i0 ret restore call %g2 nop .long 2895 mov 0,%i0 ret restore call %g2 nop .long 2896 mov 0,%i0 ret restore call %g2 nop .long 2897 mov 0,%i0 ret restore call %g2 nop .long 2898 mov 0,%i0 ret restore call %g2 nop .long 2899 mov 0,%i0 ret restore call %g2 nop .long 2900 mov 0,%i0 ret restore call %g2 nop .long 2901 mov 0,%i0 ret restore call %g2 nop .long 2902 mov 0,%i0 ret restore call %g2 nop .long 2903 mov 0,%i0 ret restore call %g2 nop .long 2904 mov 0,%i0 ret restore call %g2 nop .long 2905 mov 0,%i0 ret restore call %g2 nop .long 2906 mov 0,%i0 ret restore call %g2 nop .long 2907 mov 0,%i0 ret restore call %g2 nop .long 2908 mov 0,%i0 ret restore call %g2 nop .long 2909 mov 0,%i0 ret restore call %g2 nop .long 2910 mov 0,%i0 ret restore call %g2 nop .long 2911 mov 0,%i0 ret restore call %g2 nop .long 2912 mov 0,%i0 ret restore call %g2 nop .long 2913 mov 0,%i0 ret restore call %g2 nop .long 2914 mov 0,%i0 ret restore call %g2 nop .long 2915 mov 0,%i0 ret restore call %g2 nop .long 2916 mov 0,%i0 ret restore call %g2 nop .long 2917 mov 0,%i0 ret restore call %g2 nop .long 2918 mov 0,%i0 ret restore call %g2 nop .long 2919 mov 0,%i0 ret restore call %g2 nop .long 2920 mov 0,%i0 ret restore call %g2 nop .long 2921 mov 0,%i0 ret restore call %g2 nop .long 2922 mov 0,%i0 ret restore call %g2 nop .long 2923 mov 0,%i0 ret restore call %g2 nop .long 2924 mov 0,%i0 ret restore call %g2 nop .long 2925 mov 0,%i0 ret restore call %g2 nop .long 2926 mov 0,%i0 ret restore call %g2 nop .long 2927 mov 0,%i0 ret restore call %g2 nop .long 2928 mov 0,%i0 ret restore call %g2 nop .long 2929 mov 0,%i0 ret restore call %g2 nop .long 2930 mov 0,%i0 ret restore call %g2 nop .long 2931 mov 0,%i0 ret restore call %g2 nop .long 2932 mov 0,%i0 ret restore call %g2 nop .long 2933 mov 0,%i0 ret restore call %g2 nop .long 2934 mov 0,%i0 ret restore call %g2 nop .long 2935 mov 0,%i0 ret restore call %g2 nop .long 2936 mov 0,%i0 ret restore call %g2 nop .long 2937 mov 0,%i0 ret restore call %g2 nop .long 2938 mov 0,%i0 ret restore call %g2 nop .long 2939 mov 0,%i0 ret restore call %g2 nop .long 2940 mov 0,%i0 ret restore call %g2 nop .long 2941 mov 0,%i0 ret restore call %g2 nop .long 2942 mov 0,%i0 ret restore call %g2 nop .long 2943 mov 0,%i0 ret restore call %g2 nop .long 2944 mov 0,%i0 ret restore call %g2 nop .long 2945 mov 0,%i0 ret restore call %g2 nop .long 2946 mov 0,%i0 ret restore call %g2 nop .long 2947 mov 0,%i0 ret restore call %g2 nop .long 2948 mov 0,%i0 ret restore call %g2 nop .long 2949 mov 0,%i0 ret restore call %g2 nop .long 2950 mov 0,%i0 ret restore call %g2 nop .long 2951 mov 0,%i0 ret restore call %g2 nop .long 2952 mov 0,%i0 ret restore call %g2 nop .long 2953 mov 0,%i0 ret restore call %g2 nop .long 2954 mov 0,%i0 ret restore call %g2 nop .long 2955 mov 0,%i0 ret restore call %g2 nop .long 2956 mov 0,%i0 ret restore call %g2 nop .long 2957 mov 0,%i0 ret restore call %g2 nop .long 2958 mov 0,%i0 ret restore call %g2 nop .long 2959 mov 0,%i0 ret restore call %g2 nop .long 2960 mov 0,%i0 ret restore call %g2 nop .long 2961 mov 0,%i0 ret restore call %g2 nop .long 2962 mov 0,%i0 ret restore call %g2 nop .long 2963 mov 0,%i0 ret restore call %g2 nop .long 2964 mov 0,%i0 ret restore call %g2 nop .long 2965 mov 0,%i0 ret restore call %g2 nop .long 2966 mov 0,%i0 ret restore call %g2 nop .long 2967 mov 0,%i0 ret restore call %g2 nop .long 2968 mov 0,%i0 ret restore call %g2 nop .long 2969 mov 0,%i0 ret restore call %g2 nop .long 2970 mov 0,%i0 ret restore call %g2 nop .long 2971 mov 0,%i0 ret restore call %g2 nop .long 2972 mov 0,%i0 ret restore call %g2 nop .long 2973 mov 0,%i0 ret restore call %g2 nop .long 2974 mov 0,%i0 ret restore call %g2 nop .long 2975 mov 0,%i0 ret restore call %g2 nop .long 2976 mov 0,%i0 ret restore call %g2 nop .long 2977 mov 0,%i0 ret restore call %g2 nop .long 2978 mov 0,%i0 ret restore call %g2 nop .long 2979 mov 0,%i0 ret restore call %g2 nop .long 2980 mov 0,%i0 ret restore call %g2 nop .long 2981 mov 0,%i0 ret restore call %g2 nop .long 2982 mov 0,%i0 ret restore call %g2 nop .long 2983 mov 0,%i0 ret restore call %g2 nop .long 2984 mov 0,%i0 ret restore call %g2 nop .long 2985 mov 0,%i0 ret restore call %g2 nop .long 2986 mov 0,%i0 ret restore call %g2 nop .long 2987 mov 0,%i0 ret restore call %g2 nop .long 2988 mov 0,%i0 ret restore call %g2 nop .long 2989 mov 0,%i0 ret restore call %g2 nop .long 2990 mov 0,%i0 ret restore call %g2 nop .long 2991 mov 0,%i0 ret restore call %g2 nop .long 2992 mov 0,%i0 ret restore call %g2 nop .long 2993 mov 0,%i0 ret restore call %g2 nop .long 2994 mov 0,%i0 ret restore call %g2 nop .long 2995 mov 0,%i0 ret restore call %g2 nop .long 2996 mov 0,%i0 ret restore call %g2 nop .long 2997 mov 0,%i0 ret restore call %g2 nop .long 2998 mov 0,%i0 ret restore call %g2 nop .long 2999 mov 0,%i0 ret restore call %g2 nop .long 3000 mov 0,%i0 ret restore call %g2 nop .long 3001 mov 0,%i0 ret restore call %g2 nop .long 3002 mov 0,%i0 ret restore call %g2 nop .long 3003 mov 0,%i0 ret restore call %g2 nop .long 3004 mov 0,%i0 ret restore call %g2 nop .long 3005 mov 0,%i0 ret restore call %g2 nop .long 3006 mov 0,%i0 ret restore call %g2 nop .long 3007 mov 0,%i0 ret restore call %g2 nop .long 3008 mov 0,%i0 ret restore call %g2 nop .long 3009 mov 0,%i0 ret restore call %g2 nop .long 3010 mov 0,%i0 ret restore call %g2 nop .long 3011 mov 0,%i0 ret restore call %g2 nop .long 3012 mov 0,%i0 ret restore call %g2 nop .long 3013 mov 0,%i0 ret restore call %g2 nop .long 3014 mov 0,%i0 ret restore call %g2 nop .long 3015 mov 0,%i0 ret restore call %g2 nop .long 3016 mov 0,%i0 ret restore call %g2 nop .long 3017 mov 0,%i0 ret restore call %g2 nop .long 3018 mov 0,%i0 ret restore call %g2 nop .long 3019 mov 0,%i0 ret restore call %g2 nop .long 3020 mov 0,%i0 ret restore call %g2 nop .long 3021 mov 0,%i0 ret restore call %g2 nop .long 3022 mov 0,%i0 ret restore call %g2 nop .long 3023 mov 0,%i0 ret restore call %g2 nop .long 3024 mov 0,%i0 ret restore call %g2 nop .long 3025 mov 0,%i0 ret restore call %g2 nop .long 3026 mov 0,%i0 ret restore call %g2 nop .long 3027 mov 0,%i0 ret restore call %g2 nop .long 3028 mov 0,%i0 ret restore call %g2 nop .long 3029 mov 0,%i0 ret restore call %g2 nop .long 3030 mov 0,%i0 ret restore call %g2 nop .long 3031 mov 0,%i0 ret restore call %g2 nop .long 3032 mov 0,%i0 ret restore call %g2 nop .long 3033 mov 0,%i0 ret restore call %g2 nop .long 3034 mov 0,%i0 ret restore call %g2 nop .long 3035 mov 0,%i0 ret restore call %g2 nop .long 3036 mov 0,%i0 ret restore call %g2 nop .long 3037 mov 0,%i0 ret restore call %g2 nop .long 3038 mov 0,%i0 ret restore call %g2 nop .long 3039 mov 0,%i0 ret restore call %g2 nop .long 3040 mov 0,%i0 ret restore call %g2 nop .long 3041 mov 0,%i0 ret restore call %g2 nop .long 3042 mov 0,%i0 ret restore call %g2 nop .long 3043 mov 0,%i0 ret restore call %g2 nop .long 3044 mov 0,%i0 ret restore call %g2 nop .long 3045 mov 0,%i0 ret restore call %g2 nop .long 3046 mov 0,%i0 ret restore call %g2 nop .long 3047 mov 0,%i0 ret restore call %g2 nop .long 3048 mov 0,%i0 ret restore call %g2 nop .long 3049 mov 0,%i0 ret restore call %g2 nop .long 3050 mov 0,%i0 ret restore call %g2 nop .long 3051 mov 0,%i0 ret restore call %g2 nop .long 3052 mov 0,%i0 ret restore call %g2 nop .long 3053 mov 0,%i0 ret restore call %g2 nop .long 3054 mov 0,%i0 ret restore call %g2 nop .long 3055 mov 0,%i0 ret restore call %g2 nop .long 3056 mov 0,%i0 ret restore call %g2 nop .long 3057 mov 0,%i0 ret restore call %g2 nop .long 3058 mov 0,%i0 ret restore call %g2 nop .long 3059 mov 0,%i0 ret restore call %g2 nop .long 3060 mov 0,%i0 ret restore call %g2 nop .long 3061 mov 0,%i0 ret restore call %g2 nop .long 3062 mov 0,%i0 ret restore call %g2 nop .long 3063 mov 0,%i0 ret restore call %g2 nop .long 3064 mov 0,%i0 ret restore call %g2 nop .long 3065 mov 0,%i0 ret restore call %g2 nop .long 3066 mov 0,%i0 ret restore call %g2 nop .long 3067 mov 0,%i0 ret restore call %g2 nop .long 3068 mov 0,%i0 ret restore call %g2 nop .long 3069 mov 0,%i0 ret restore call %g2 nop .long 3070 mov 0,%i0 ret restore call %g2 nop .long 3071 mov 0,%i0 ret restore call %g2 nop .long 3072 mov 0,%i0 ret restore call %g2 nop .long 3073 mov 0,%i0 ret restore call %g2 nop .long 3074 mov 0,%i0 ret restore call %g2 nop .long 3075 mov 0,%i0 ret restore call %g2 nop .long 3076 mov 0,%i0 ret restore call %g2 nop .long 3077 mov 0,%i0 ret restore call %g2 nop .long 3078 mov 0,%i0 ret restore call %g2 nop .long 3079 mov 0,%i0 ret restore call %g2 nop .long 3080 mov 0,%i0 ret restore call %g2 nop .long 3081 mov 0,%i0 ret restore call %g2 nop .long 3082 mov 0,%i0 ret restore call %g2 nop .long 3083 mov 0,%i0 ret restore call %g2 nop .long 3084 mov 0,%i0 ret restore call %g2 nop .long 3085 mov 0,%i0 ret restore call %g2 nop .long 3086 mov 0,%i0 ret restore call %g2 nop .long 3087 mov 0,%i0 ret restore call %g2 nop .long 3088 mov 0,%i0 ret restore call %g2 nop .long 3089 mov 0,%i0 ret restore call %g2 nop .long 3090 mov 0,%i0 ret restore call %g2 nop .long 3091 mov 0,%i0 ret restore call %g2 nop .long 3092 mov 0,%i0 ret restore call %g2 nop .long 3093 mov 0,%i0 ret restore call %g2 nop .long 3094 mov 0,%i0 ret restore call %g2 nop .long 3095 mov 0,%i0 ret restore call %g2 nop .long 3096 mov 0,%i0 ret restore call %g2 nop .long 3097 mov 0,%i0 ret restore call %g2 nop .long 3098 mov 0,%i0 ret restore call %g2 nop .long 3099 mov 0,%i0 ret restore call %g2 nop .long 3100 mov 0,%i0 ret restore call %g2 nop .long 3101 mov 0,%i0 ret restore call %g2 nop .long 3102 mov 0,%i0 ret restore call %g2 nop .long 3103 mov 0,%i0 ret restore call %g2 nop .long 3104 mov 0,%i0 ret restore call %g2 nop .long 3105 mov 0,%i0 ret restore call %g2 nop .long 3106 mov 0,%i0 ret restore call %g2 nop .long 3107 mov 0,%i0 ret restore call %g2 nop .long 3108 mov 0,%i0 ret restore call %g2 nop .long 3109 mov 0,%i0 ret restore call %g2 nop .long 3110 mov 0,%i0 ret restore call %g2 nop .long 3111 mov 0,%i0 ret restore call %g2 nop .long 3112 mov 0,%i0 ret restore call %g2 nop .long 3113 mov 0,%i0 ret restore call %g2 nop .long 3114 mov 0,%i0 ret restore call %g2 nop .long 3115 mov 0,%i0 ret restore call %g2 nop .long 3116 mov 0,%i0 ret restore call %g2 nop .long 3117 mov 0,%i0 ret restore call %g2 nop .long 3118 mov 0,%i0 ret restore call %g2 nop .long 3119 mov 0,%i0 ret restore call %g2 nop .long 3120 mov 0,%i0 ret restore call %g2 nop .long 3121 mov 0,%i0 ret restore call %g2 nop .long 3122 mov 0,%i0 ret restore call %g2 nop .long 3123 mov 0,%i0 ret restore call %g2 nop .long 3124 mov 0,%i0 ret restore call %g2 nop .long 3125 mov 0,%i0 ret restore call %g2 nop .long 3126 mov 0,%i0 ret restore call %g2 nop .long 3127 mov 0,%i0 ret restore call %g2 nop .long 3128 mov 0,%i0 ret restore call %g2 nop .long 3129 mov 0,%i0 ret restore call %g2 nop .long 3130 mov 0,%i0 ret restore call %g2 nop .long 3131 mov 0,%i0 ret restore call %g2 nop .long 3132 mov 0,%i0 ret restore call %g2 nop .long 3133 mov 0,%i0 ret restore call %g2 nop .long 3134 mov 0,%i0 ret restore call %g2 nop .long 3135 mov 0,%i0 ret restore call %g2 nop .long 3136 mov 0,%i0 ret restore call %g2 nop .long 3137 mov 0,%i0 ret restore call %g2 nop .long 3138 mov 0,%i0 ret restore call %g2 nop .long 3139 mov 0,%i0 ret restore call %g2 nop .long 3140 mov 0,%i0 ret restore call %g2 nop .long 3141 mov 0,%i0 ret restore call %g2 nop .long 3142 mov 0,%i0 ret restore call %g2 nop .long 3143 mov 0,%i0 ret restore call %g2 nop .long 3144 mov 0,%i0 ret restore call %g2 nop .long 3145 mov 0,%i0 ret restore call %g2 nop .long 3146 mov 0,%i0 ret restore call %g2 nop .long 3147 mov 0,%i0 ret restore call %g2 nop .long 3148 mov 0,%i0 ret restore call %g2 nop .long 3149 mov 0,%i0 ret restore call %g2 nop .long 3150 mov 0,%i0 ret restore call %g2 nop .long 3151 mov 0,%i0 ret restore call %g2 nop .long 3152 mov 0,%i0 ret restore call %g2 nop .long 3153 mov 0,%i0 ret restore call %g2 nop .long 3154 mov 0,%i0 ret restore call %g2 nop .long 3155 mov 0,%i0 ret restore call %g2 nop .long 3156 mov 0,%i0 ret restore call %g2 nop .long 3157 mov 0,%i0 ret restore call %g2 nop .long 3158 mov 0,%i0 ret restore call %g2 nop .long 3159 mov 0,%i0 ret restore call %g2 nop .long 3160 mov 0,%i0 ret restore call %g2 nop .long 3161 mov 0,%i0 ret restore call %g2 nop .long 3162 mov 0,%i0 ret restore call %g2 nop .long 3163 mov 0,%i0 ret restore call %g2 nop .long 3164 mov 0,%i0 ret restore call %g2 nop .long 3165 mov 0,%i0 ret restore call %g2 nop .long 3166 mov 0,%i0 ret restore call %g2 nop .long 3167 mov 0,%i0 ret restore call %g2 nop .long 3168 mov 0,%i0 ret restore call %g2 nop .long 3169 mov 0,%i0 ret restore call %g2 nop .long 3170 mov 0,%i0 ret restore call %g2 nop .long 3171 mov 0,%i0 ret restore call %g2 nop .long 3172 mov 0,%i0 ret restore call %g2 nop .long 3173 mov 0,%i0 ret restore call %g2 nop .long 3174 mov 0,%i0 ret restore call %g2 nop .long 3175 mov 0,%i0 ret restore call %g2 nop .long 3176 mov 0,%i0 ret restore call %g2 nop .long 3177 mov 0,%i0 ret restore call %g2 nop .long 3178 mov 0,%i0 ret restore call %g2 nop .long 3179 mov 0,%i0 ret restore call %g2 nop .long 3180 mov 0,%i0 ret restore call %g2 nop .long 3181 mov 0,%i0 ret restore call %g2 nop .long 3182 mov 0,%i0 ret restore call %g2 nop .long 3183 mov 0,%i0 ret restore call %g2 nop .long 3184 mov 0,%i0 ret restore call %g2 nop .long 3185 mov 0,%i0 ret restore call %g2 nop .long 3186 mov 0,%i0 ret restore call %g2 nop .long 3187 mov 0,%i0 ret restore call %g2 nop .long 3188 mov 0,%i0 ret restore call %g2 nop .long 3189 mov 0,%i0 ret restore call %g2 nop .long 3190 mov 0,%i0 ret restore call %g2 nop .long 3191 mov 0,%i0 ret restore call %g2 nop .long 3192 mov 0,%i0 ret restore call %g2 nop .long 3193 mov 0,%i0 ret restore call %g2 nop .long 3194 mov 0,%i0 ret restore call %g2 nop .long 3195 mov 0,%i0 ret restore call %g2 nop .long 3196 mov 0,%i0 ret restore call %g2 nop .long 3197 mov 0,%i0 ret restore call %g2 nop .long 3198 mov 0,%i0 ret restore call %g2 nop .long 3199 mov 0,%i0 ret restore call %g2 nop .long 3200 mov 0,%i0 ret restore call %g2 nop .long 3201 mov 0,%i0 ret restore call %g2 nop .long 3202 mov 0,%i0 ret restore call %g2 nop .long 3203 mov 0,%i0 ret restore call %g2 nop .long 3204 mov 0,%i0 ret restore call %g2 nop .long 3205 mov 0,%i0 ret restore call %g2 nop .long 3206 mov 0,%i0 ret restore call %g2 nop .long 3207 mov 0,%i0 ret restore call %g2 nop .long 3208 mov 0,%i0 ret restore call %g2 nop .long 3209 mov 0,%i0 ret restore call %g2 nop .long 3210 mov 0,%i0 ret restore call %g2 nop .long 3211 mov 0,%i0 ret restore call %g2 nop .long 3212 mov 0,%i0 ret restore call %g2 nop .long 3213 mov 0,%i0 ret restore call %g2 nop .long 3214 mov 0,%i0 ret restore call %g2 nop .long 3215 mov 0,%i0 ret restore call %g2 nop .long 3216 mov 0,%i0 ret restore call %g2 nop .long 3217 mov 0,%i0 ret restore call %g2 nop .long 3218 mov 0,%i0 ret restore call %g2 nop .long 3219 mov 0,%i0 ret restore call %g2 nop .long 3220 mov 0,%i0 ret restore call %g2 nop .long 3221 mov 0,%i0 ret restore call %g2 nop .long 3222 mov 0,%i0 ret restore call %g2 nop .long 3223 mov 0,%i0 ret restore call %g2 nop .long 3224 mov 0,%i0 ret restore call %g2 nop .long 3225 mov 0,%i0 ret restore call %g2 nop .long 3226 mov 0,%i0 ret restore call %g2 nop .long 3227 mov 0,%i0 ret restore call %g2 nop .long 3228 mov 0,%i0 ret restore call %g2 nop .long 3229 mov 0,%i0 ret restore call %g2 nop .long 3230 mov 0,%i0 ret restore call %g2 nop .long 3231 mov 0,%i0 ret restore call %g2 nop .long 3232 mov 0,%i0 ret restore call %g2 nop .long 3233 mov 0,%i0 ret restore call %g2 nop .long 3234 mov 0,%i0 ret restore call %g2 nop .long 3235 mov 0,%i0 ret restore call %g2 nop .long 3236 mov 0,%i0 ret restore call %g2 nop .long 3237 mov 0,%i0 ret restore call %g2 nop .long 3238 mov 0,%i0 ret restore call %g2 nop .long 3239 mov 0,%i0 ret restore call %g2 nop .long 3240 mov 0,%i0 ret restore call %g2 nop .long 3241 mov 0,%i0 ret restore call %g2 nop .long 3242 mov 0,%i0 ret restore call %g2 nop .long 3243 mov 0,%i0 ret restore call %g2 nop .long 3244 mov 0,%i0 ret restore call %g2 nop .long 3245 mov 0,%i0 ret restore call %g2 nop .long 3246 mov 0,%i0 ret restore call %g2 nop .long 3247 mov 0,%i0 ret restore call %g2 nop .long 3248 mov 0,%i0 ret restore call %g2 nop .long 3249 mov 0,%i0 ret restore call %g2 nop .long 3250 mov 0,%i0 ret restore call %g2 nop .long 3251 mov 0,%i0 ret restore call %g2 nop .long 3252 mov 0,%i0 ret restore call %g2 nop .long 3253 mov 0,%i0 ret restore call %g2 nop .long 3254 mov 0,%i0 ret restore call %g2 nop .long 3255 mov 0,%i0 ret restore call %g2 nop .long 3256 mov 0,%i0 ret restore call %g2 nop .long 3257 mov 0,%i0 ret restore call %g2 nop .long 3258 mov 0,%i0 ret restore call %g2 nop .long 3259 mov 0,%i0 ret restore call %g2 nop .long 3260 mov 0,%i0 ret restore call %g2 nop .long 3261 mov 0,%i0 ret restore call %g2 nop .long 3262 mov 0,%i0 ret restore call %g2 nop .long 3263 mov 0,%i0 ret restore call %g2 nop .long 3264 mov 0,%i0 ret restore call %g2 nop .long 3265 mov 0,%i0 ret restore call %g2 nop .long 3266 mov 0,%i0 ret restore call %g2 nop .long 3267 mov 0,%i0 ret restore call %g2 nop .long 3268 mov 0,%i0 ret restore call %g2 nop .long 3269 mov 0,%i0 ret restore call %g2 nop .long 3270 mov 0,%i0 ret restore call %g2 nop .long 3271 mov 0,%i0 ret restore call %g2 nop .long 3272 mov 0,%i0 ret restore call %g2 nop .long 3273 mov 0,%i0 ret restore call %g2 nop .long 3274 mov 0,%i0 ret restore call %g2 nop .long 3275 mov 0,%i0 ret restore call %g2 nop .long 3276 mov 0,%i0 ret restore call %g2 nop .long 3277 mov 0,%i0 ret restore call %g2 nop .long 3278 mov 0,%i0 ret restore call %g2 nop .long 3279 mov 0,%i0 ret restore call %g2 nop .long 3280 mov 0,%i0 ret restore call %g2 nop .long 3281 mov 0,%i0 ret restore call %g2 nop .long 3282 mov 0,%i0 ret restore call %g2 nop .long 3283 mov 0,%i0 ret restore call %g2 nop .long 3284 mov 0,%i0 ret restore call %g2 nop .long 3285 mov 0,%i0 ret restore call %g2 nop .long 3286 mov 0,%i0 ret restore call %g2 nop .long 3287 mov 0,%i0 ret restore call %g2 nop .long 3288 mov 0,%i0 ret restore call %g2 nop .long 3289 mov 0,%i0 ret restore call %g2 nop .long 3290 mov 0,%i0 ret restore call %g2 nop .long 3291 mov 0,%i0 ret restore call %g2 nop .long 3292 mov 0,%i0 ret restore call %g2 nop .long 3293 mov 0,%i0 ret restore call %g2 nop .long 3294 mov 0,%i0 ret restore call %g2 nop .long 3295 mov 0,%i0 ret restore call %g2 nop .long 3296 mov 0,%i0 ret restore call %g2 nop .long 3297 mov 0,%i0 ret restore call %g2 nop .long 3298 mov 0,%i0 ret restore call %g2 nop .long 3299 mov 0,%i0 ret restore call %g2 nop .long 3300 mov 0,%i0 ret restore call %g2 nop .long 3301 mov 0,%i0 ret restore call %g2 nop .long 3302 mov 0,%i0 ret restore call %g2 nop .long 3303 mov 0,%i0 ret restore call %g2 nop .long 3304 mov 0,%i0 ret restore call %g2 nop .long 3305 mov 0,%i0 ret restore call %g2 nop .long 3306 mov 0,%i0 ret restore call %g2 nop .long 3307 mov 0,%i0 ret restore call %g2 nop .long 3308 mov 0,%i0 ret restore call %g2 nop .long 3309 mov 0,%i0 ret restore call %g2 nop .long 3310 mov 0,%i0 ret restore call %g2 nop .long 3311 mov 0,%i0 ret restore call %g2 nop .long 3312 mov 0,%i0 ret restore call %g2 nop .long 3313 mov 0,%i0 ret restore call %g2 nop .long 3314 mov 0,%i0 ret restore call %g2 nop .long 3315 mov 0,%i0 ret restore call %g2 nop .long 3316 mov 0,%i0 ret restore call %g2 nop .long 3317 mov 0,%i0 ret restore call %g2 nop .long 3318 mov 0,%i0 ret restore call %g2 nop .long 3319 mov 0,%i0 ret restore call %g2 nop .long 3320 mov 0,%i0 ret restore call %g2 nop .long 3321 mov 0,%i0 ret restore call %g2 nop .long 3322 mov 0,%i0 ret restore call %g2 nop .long 3323 mov 0,%i0 ret restore call %g2 nop .long 3324 mov 0,%i0 ret restore call %g2 nop .long 3325 mov 0,%i0 ret restore call %g2 nop .long 3326 mov 0,%i0 ret restore call %g2 nop .long 3327 mov 0,%i0 ret restore call %g2 nop .long 3328 mov 0,%i0 ret restore call %g2 nop .long 3329 mov 0,%i0 ret restore call %g2 nop .long 3330 mov 0,%i0 ret restore call %g2 nop .long 3331 mov 0,%i0 ret restore call %g2 nop .long 3332 mov 0,%i0 ret restore call %g2 nop .long 3333 mov 0,%i0 ret restore call %g2 nop .long 3334 mov 0,%i0 ret restore call %g2 nop .long 3335 mov 0,%i0 ret restore call %g2 nop .long 3336 mov 0,%i0 ret restore call %g2 nop .long 3337 mov 0,%i0 ret restore call %g2 nop .long 3338 mov 0,%i0 ret restore call %g2 nop .long 3339 mov 0,%i0 ret restore call %g2 nop .long 3340 mov 0,%i0 ret restore call %g2 nop .long 3341 mov 0,%i0 ret restore call %g2 nop .long 3342 mov 0,%i0 ret restore call %g2 nop .long 3343 mov 0,%i0 ret restore call %g2 nop .long 3344 mov 0,%i0 ret restore call %g2 nop .long 3345 mov 0,%i0 ret restore call %g2 nop .long 3346 mov 0,%i0 ret restore call %g2 nop .long 3347 mov 0,%i0 ret restore call %g2 nop .long 3348 mov 0,%i0 ret restore call %g2 nop .long 3349 mov 0,%i0 ret restore call %g2 nop .long 3350 mov 0,%i0 ret restore call %g2 nop .long 3351 mov 0,%i0 ret restore call %g2 nop .long 3352 mov 0,%i0 ret restore call %g2 nop .long 3353 mov 0,%i0 ret restore call %g2 nop .long 3354 mov 0,%i0 ret restore call %g2 nop .long 3355 mov 0,%i0 ret restore call %g2 nop .long 3356 mov 0,%i0 ret restore call %g2 nop .long 3357 mov 0,%i0 ret restore call %g2 nop .long 3358 mov 0,%i0 ret restore call %g2 nop .long 3359 mov 0,%i0 ret restore call %g2 nop .long 3360 mov 0,%i0 ret restore call %g2 nop .long 3361 mov 0,%i0 ret restore call %g2 nop .long 3362 mov 0,%i0 ret restore call %g2 nop .long 3363 mov 0,%i0 ret restore call %g2 nop .long 3364 mov 0,%i0 ret restore call %g2 nop .long 3365 mov 0,%i0 ret restore call %g2 nop .long 3366 mov 0,%i0 ret restore call %g2 nop .long 3367 mov 0,%i0 ret restore call %g2 nop .long 3368 mov 0,%i0 ret restore call %g2 nop .long 3369 mov 0,%i0 ret restore call %g2 nop .long 3370 mov 0,%i0 ret restore call %g2 nop .long 3371 mov 0,%i0 ret restore call %g2 nop .long 3372 mov 0,%i0 ret restore call %g2 nop .long 3373 mov 0,%i0 ret restore call %g2 nop .long 3374 mov 0,%i0 ret restore call %g2 nop .long 3375 mov 0,%i0 ret restore call %g2 nop .long 3376 mov 0,%i0 ret restore call %g2 nop .long 3377 mov 0,%i0 ret restore call %g2 nop .long 3378 mov 0,%i0 ret restore call %g2 nop .long 3379 mov 0,%i0 ret restore call %g2 nop .long 3380 mov 0,%i0 ret restore call %g2 nop .long 3381 mov 0,%i0 ret restore call %g2 nop .long 3382 mov 0,%i0 ret restore call %g2 nop .long 3383 mov 0,%i0 ret restore call %g2 nop .long 3384 mov 0,%i0 ret restore call %g2 nop .long 3385 mov 0,%i0 ret restore call %g2 nop .long 3386 mov 0,%i0 ret restore call %g2 nop .long 3387 mov 0,%i0 ret restore call %g2 nop .long 3388 mov 0,%i0 ret restore call %g2 nop .long 3389 mov 0,%i0 ret restore call %g2 nop .long 3390 mov 0,%i0 ret restore call %g2 nop .long 3391 mov 0,%i0 ret restore call %g2 nop .long 3392 mov 0,%i0 ret restore call %g2 nop .long 3393 mov 0,%i0 ret restore call %g2 nop .long 3394 mov 0,%i0 ret restore call %g2 nop .long 3395 mov 0,%i0 ret restore call %g2 nop .long 3396 mov 0,%i0 ret restore call %g2 nop .long 3397 mov 0,%i0 ret restore call %g2 nop .long 3398 mov 0,%i0 ret restore call %g2 nop .long 3399 mov 0,%i0 ret restore call %g2 nop .long 3400 mov 0,%i0 ret restore call %g2 nop .long 3401 mov 0,%i0 ret restore call %g2 nop .long 3402 mov 0,%i0 ret restore call %g2 nop .long 3403 mov 0,%i0 ret restore call %g2 nop .long 3404 mov 0,%i0 ret restore call %g2 nop .long 3405 mov 0,%i0 ret restore call %g2 nop .long 3406 mov 0,%i0 ret restore call %g2 nop .long 3407 mov 0,%i0 ret restore call %g2 nop .long 3408 mov 0,%i0 ret restore call %g2 nop .long 3409 mov 0,%i0 ret restore call %g2 nop .long 3410 mov 0,%i0 ret restore call %g2 nop .long 3411 mov 0,%i0 ret restore call %g2 nop .long 3412 mov 0,%i0 ret restore call %g2 nop .long 3413 mov 0,%i0 ret restore call %g2 nop .long 3414 mov 0,%i0 ret restore call %g2 nop .long 3415 mov 0,%i0 ret restore call %g2 nop .long 3416 mov 0,%i0 ret restore call %g2 nop .long 3417 mov 0,%i0 ret restore call %g2 nop .long 3418 mov 0,%i0 ret restore call %g2 nop .long 3419 mov 0,%i0 ret restore call %g2 nop .long 3420 mov 0,%i0 ret restore call %g2 nop .long 3421 mov 0,%i0 ret restore call %g2 nop .long 3422 mov 0,%i0 ret restore call %g2 nop .long 3423 mov 0,%i0 ret restore call %g2 nop .long 3424 mov 0,%i0 ret restore call %g2 nop .long 3425 mov 0,%i0 ret restore call %g2 nop .long 3426 mov 0,%i0 ret restore call %g2 nop .long 3427 mov 0,%i0 ret restore call %g2 nop .long 3428 mov 0,%i0 ret restore call %g2 nop .long 3429 mov 0,%i0 ret restore call %g2 nop .long 3430 mov 0,%i0 ret restore call %g2 nop .long 3431 mov 0,%i0 ret restore call %g2 nop .long 3432 mov 0,%i0 ret restore call %g2 nop .long 3433 mov 0,%i0 ret restore call %g2 nop .long 3434 mov 0,%i0 ret restore call %g2 nop .long 3435 mov 0,%i0 ret restore call %g2 nop .long 3436 mov 0,%i0 ret restore call %g2 nop .long 3437 mov 0,%i0 ret restore call %g2 nop .long 3438 mov 0,%i0 ret restore call %g2 nop .long 3439 mov 0,%i0 ret restore call %g2 nop .long 3440 mov 0,%i0 ret restore call %g2 nop .long 3441 mov 0,%i0 ret restore call %g2 nop .long 3442 mov 0,%i0 ret restore call %g2 nop .long 3443 mov 0,%i0 ret restore call %g2 nop .long 3444 mov 0,%i0 ret restore call %g2 nop .long 3445 mov 0,%i0 ret restore call %g2 nop .long 3446 mov 0,%i0 ret restore call %g2 nop .long 3447 mov 0,%i0 ret restore call %g2 nop .long 3448 mov 0,%i0 ret restore call %g2 nop .long 3449 mov 0,%i0 ret restore call %g2 nop .long 3450 mov 0,%i0 ret restore call %g2 nop .long 3451 mov 0,%i0 ret restore call %g2 nop .long 3452 mov 0,%i0 ret restore call %g2 nop .long 3453 mov 0,%i0 ret restore call %g2 nop .long 3454 mov 0,%i0 ret restore call %g2 nop .long 3455 mov 0,%i0 ret restore call %g2 nop .long 3456 mov 0,%i0 ret restore call %g2 nop .long 3457 mov 0,%i0 ret restore call %g2 nop .long 3458 mov 0,%i0 ret restore call %g2 nop .long 3459 mov 0,%i0 ret restore call %g2 nop .long 3460 mov 0,%i0 ret restore call %g2 nop .long 3461 mov 0,%i0 ret restore call %g2 nop .long 3462 mov 0,%i0 ret restore call %g2 nop .long 3463 mov 0,%i0 ret restore call %g2 nop .long 3464 mov 0,%i0 ret restore call %g2 nop .long 3465 mov 0,%i0 ret restore call %g2 nop .long 3466 mov 0,%i0 ret restore call %g2 nop .long 3467 mov 0,%i0 ret restore call %g2 nop .long 3468 mov 0,%i0 ret restore call %g2 nop .long 3469 mov 0,%i0 ret restore call %g2 nop .long 3470 mov 0,%i0 ret restore call %g2 nop .long 3471 mov 0,%i0 ret restore call %g2 nop .long 3472 mov 0,%i0 ret restore call %g2 nop .long 3473 mov 0,%i0 ret restore call %g2 nop .long 3474 mov 0,%i0 ret restore call %g2 nop .long 3475 mov 0,%i0 ret restore call %g2 nop .long 3476 mov 0,%i0 ret restore call %g2 nop .long 3477 mov 0,%i0 ret restore call %g2 nop .long 3478 mov 0,%i0 ret restore call %g2 nop .long 3479 mov 0,%i0 ret restore call %g2 nop .long 3480 mov 0,%i0 ret restore call %g2 nop .long 3481 mov 0,%i0 ret restore call %g2 nop .long 3482 mov 0,%i0 ret restore call %g2 nop .long 3483 mov 0,%i0 ret restore call %g2 nop .long 3484 mov 0,%i0 ret restore call %g2 nop .long 3485 mov 0,%i0 ret restore call %g2 nop .long 3486 mov 0,%i0 ret restore call %g2 nop .long 3487 mov 0,%i0 ret restore call %g2 nop .long 3488 mov 0,%i0 ret restore call %g2 nop .long 3489 mov 0,%i0 ret restore call %g2 nop .long 3490 mov 0,%i0 ret restore call %g2 nop .long 3491 mov 0,%i0 ret restore call %g2 nop .long 3492 mov 0,%i0 ret restore call %g2 nop .long 3493 mov 0,%i0 ret restore call %g2 nop .long 3494 mov 0,%i0 ret restore call %g2 nop .long 3495 mov 0,%i0 ret restore call %g2 nop .long 3496 mov 0,%i0 ret restore call %g2 nop .long 3497 mov 0,%i0 ret restore call %g2 nop .long 3498 mov 0,%i0 ret restore call %g2 nop .long 3499 mov 0,%i0 ret restore call %g2 nop .long 3500 mov 0,%i0 ret restore call %g2 nop .long 3501 mov 0,%i0 ret restore call %g2 nop .long 3502 mov 0,%i0 ret restore call %g2 nop .long 3503 mov 0,%i0 ret restore call %g2 nop .long 3504 mov 0,%i0 ret restore call %g2 nop .long 3505 mov 0,%i0 ret restore call %g2 nop .long 3506 mov 0,%i0 ret restore call %g2 nop .long 3507 mov 0,%i0 ret restore call %g2 nop .long 3508 mov 0,%i0 ret restore call %g2 nop .long 3509 mov 0,%i0 ret restore call %g2 nop .long 3510 mov 0,%i0 ret restore call %g2 nop .long 3511 mov 0,%i0 ret restore call %g2 nop .long 3512 mov 0,%i0 ret restore call %g2 nop .long 3513 mov 0,%i0 ret restore call %g2 nop .long 3514 mov 0,%i0 ret restore call %g2 nop .long 3515 mov 0,%i0 ret restore call %g2 nop .long 3516 mov 0,%i0 ret restore call %g2 nop .long 3517 mov 0,%i0 ret restore call %g2 nop .long 3518 mov 0,%i0 ret restore call %g2 nop .long 3519 mov 0,%i0 ret restore call %g2 nop .long 3520 mov 0,%i0 ret restore call %g2 nop .long 3521 mov 0,%i0 ret restore call %g2 nop .long 3522 mov 0,%i0 ret restore call %g2 nop .long 3523 mov 0,%i0 ret restore call %g2 nop .long 3524 mov 0,%i0 ret restore call %g2 nop .long 3525 mov 0,%i0 ret restore call %g2 nop .long 3526 mov 0,%i0 ret restore call %g2 nop .long 3527 mov 0,%i0 ret restore call %g2 nop .long 3528 mov 0,%i0 ret restore call %g2 nop .long 3529 mov 0,%i0 ret restore call %g2 nop .long 3530 mov 0,%i0 ret restore call %g2 nop .long 3531 mov 0,%i0 ret restore call %g2 nop .long 3532 mov 0,%i0 ret restore call %g2 nop .long 3533 mov 0,%i0 ret restore call %g2 nop .long 3534 mov 0,%i0 ret restore call %g2 nop .long 3535 mov 0,%i0 ret restore call %g2 nop .long 3536 mov 0,%i0 ret restore call %g2 nop .long 3537 mov 0,%i0 ret restore call %g2 nop .long 3538 mov 0,%i0 ret restore call %g2 nop .long 3539 mov 0,%i0 ret restore call %g2 nop .long 3540 mov 0,%i0 ret restore call %g2 nop .long 3541 mov 0,%i0 ret restore call %g2 nop .long 3542 mov 0,%i0 ret restore call %g2 nop .long 3543 mov 0,%i0 ret restore call %g2 nop .long 3544 mov 0,%i0 ret restore call %g2 nop .long 3545 mov 0,%i0 ret restore call %g2 nop .long 3546 mov 0,%i0 ret restore call %g2 nop .long 3547 mov 0,%i0 ret restore call %g2 nop .long 3548 mov 0,%i0 ret restore call %g2 nop .long 3549 mov 0,%i0 ret restore call %g2 nop .long 3550 mov 0,%i0 ret restore call %g2 nop .long 3551 mov 0,%i0 ret restore call %g2 nop .long 3552 mov 0,%i0 ret restore call %g2 nop .long 3553 mov 0,%i0 ret restore call %g2 nop .long 3554 mov 0,%i0 ret restore call %g2 nop .long 3555 mov 0,%i0 ret restore call %g2 nop .long 3556 mov 0,%i0 ret restore call %g2 nop .long 3557 mov 0,%i0 ret restore call %g2 nop .long 3558 mov 0,%i0 ret restore call %g2 nop .long 3559 mov 0,%i0 ret restore call %g2 nop .long 3560 mov 0,%i0 ret restore call %g2 nop .long 3561 mov 0,%i0 ret restore call %g2 nop .long 3562 mov 0,%i0 ret restore call %g2 nop .long 3563 mov 0,%i0 ret restore call %g2 nop .long 3564 mov 0,%i0 ret restore call %g2 nop .long 3565 mov 0,%i0 ret restore call %g2 nop .long 3566 mov 0,%i0 ret restore call %g2 nop .long 3567 mov 0,%i0 ret restore call %g2 nop .long 3568 mov 0,%i0 ret restore call %g2 nop .long 3569 mov 0,%i0 ret restore call %g2 nop .long 3570 mov 0,%i0 ret restore call %g2 nop .long 3571 mov 0,%i0 ret restore call %g2 nop .long 3572 mov 0,%i0 ret restore call %g2 nop .long 3573 mov 0,%i0 ret restore call %g2 nop .long 3574 mov 0,%i0 ret restore call %g2 nop .long 3575 mov 0,%i0 ret restore call %g2 nop .long 3576 mov 0,%i0 ret restore call %g2 nop .long 3577 mov 0,%i0 ret restore call %g2 nop .long 3578 mov 0,%i0 ret restore call %g2 nop .long 3579 mov 0,%i0 ret restore call %g2 nop .long 3580 mov 0,%i0 ret restore call %g2 nop .long 3581 mov 0,%i0 ret restore call %g2 nop .long 3582 mov 0,%i0 ret restore call %g2 nop .long 3583 mov 0,%i0 ret restore call %g2 nop .long 3584 mov 0,%i0 ret restore call %g2 nop .long 3585 mov 0,%i0 ret restore call %g2 nop .long 3586 mov 0,%i0 ret restore call %g2 nop .long 3587 mov 0,%i0 ret restore call %g2 nop .long 3588 mov 0,%i0 ret restore call %g2 nop .long 3589 mov 0,%i0 ret restore call %g2 nop .long 3590 mov 0,%i0 ret restore call %g2 nop .long 3591 mov 0,%i0 ret restore call %g2 nop .long 3592 mov 0,%i0 ret restore call %g2 nop .long 3593 mov 0,%i0 ret restore call %g2 nop .long 3594 mov 0,%i0 ret restore call %g2 nop .long 3595 mov 0,%i0 ret restore call %g2 nop .long 3596 mov 0,%i0 ret restore call %g2 nop .long 3597 mov 0,%i0 ret restore call %g2 nop .long 3598 mov 0,%i0 ret restore call %g2 nop .long 3599 mov 0,%i0 ret restore call %g2 nop .long 3600 mov 0,%i0 ret restore call %g2 nop .long 3601 mov 0,%i0 ret restore call %g2 nop .long 3602 mov 0,%i0 ret restore call %g2 nop .long 3603 mov 0,%i0 ret restore call %g2 nop .long 3604 mov 0,%i0 ret restore call %g2 nop .long 3605 mov 0,%i0 ret restore call %g2 nop .long 3606 mov 0,%i0 ret restore call %g2 nop .long 3607 mov 0,%i0 ret restore call %g2 nop .long 3608 mov 0,%i0 ret restore call %g2 nop .long 3609 mov 0,%i0 ret restore call %g2 nop .long 3610 mov 0,%i0 ret restore call %g2 nop .long 3611 mov 0,%i0 ret restore call %g2 nop .long 3612 mov 0,%i0 ret restore call %g2 nop .long 3613 mov 0,%i0 ret restore call %g2 nop .long 3614 mov 0,%i0 ret restore call %g2 nop .long 3615 mov 0,%i0 ret restore call %g2 nop .long 3616 mov 0,%i0 ret restore call %g2 nop .long 3617 mov 0,%i0 ret restore call %g2 nop .long 3618 mov 0,%i0 ret restore call %g2 nop .long 3619 mov 0,%i0 ret restore call %g2 nop .long 3620 mov 0,%i0 ret restore call %g2 nop .long 3621 mov 0,%i0 ret restore call %g2 nop .long 3622 mov 0,%i0 ret restore call %g2 nop .long 3623 mov 0,%i0 ret restore call %g2 nop .long 3624 mov 0,%i0 ret restore call %g2 nop .long 3625 mov 0,%i0 ret restore call %g2 nop .long 3626 mov 0,%i0 ret restore call %g2 nop .long 3627 mov 0,%i0 ret restore call %g2 nop .long 3628 mov 0,%i0 ret restore call %g2 nop .long 3629 mov 0,%i0 ret restore call %g2 nop .long 3630 mov 0,%i0 ret restore call %g2 nop .long 3631 mov 0,%i0 ret restore call %g2 nop .long 3632 mov 0,%i0 ret restore call %g2 nop .long 3633 mov 0,%i0 ret restore call %g2 nop .long 3634 mov 0,%i0 ret restore call %g2 nop .long 3635 mov 0,%i0 ret restore call %g2 nop .long 3636 mov 0,%i0 ret restore call %g2 nop .long 3637 mov 0,%i0 ret restore call %g2 nop .long 3638 mov 0,%i0 ret restore call %g2 nop .long 3639 mov 0,%i0 ret restore call %g2 nop .long 3640 mov 0,%i0 ret restore call %g2 nop .long 3641 mov 0,%i0 ret restore call %g2 nop .long 3642 mov 0,%i0 ret restore call %g2 nop .long 3643 mov 0,%i0 ret restore call %g2 nop .long 3644 mov 0,%i0 ret restore call %g2 nop .long 3645 mov 0,%i0 ret restore call %g2 nop .long 3646 mov 0,%i0 ret restore call %g2 nop .long 3647 mov 0,%i0 ret restore call %g2 nop .long 3648 mov 0,%i0 ret restore call %g2 nop .long 3649 mov 0,%i0 ret restore call %g2 nop .long 3650 mov 0,%i0 ret restore call %g2 nop .long 3651 mov 0,%i0 ret restore call %g2 nop .long 3652 mov 0,%i0 ret restore call %g2 nop .long 3653 mov 0,%i0 ret restore call %g2 nop .long 3654 mov 0,%i0 ret restore call %g2 nop .long 3655 mov 0,%i0 ret restore call %g2 nop .long 3656 mov 0,%i0 ret restore call %g2 nop .long 3657 mov 0,%i0 ret restore call %g2 nop .long 3658 mov 0,%i0 ret restore call %g2 nop .long 3659 mov 0,%i0 ret restore call %g2 nop .long 3660 mov 0,%i0 ret restore call %g2 nop .long 3661 mov 0,%i0 ret restore call %g2 nop .long 3662 mov 0,%i0 ret restore call %g2 nop .long 3663 mov 0,%i0 ret restore call %g2 nop .long 3664 mov 0,%i0 ret restore call %g2 nop .long 3665 mov 0,%i0 ret restore call %g2 nop .long 3666 mov 0,%i0 ret restore call %g2 nop .long 3667 mov 0,%i0 ret restore call %g2 nop .long 3668 mov 0,%i0 ret restore call %g2 nop .long 3669 mov 0,%i0 ret restore call %g2 nop .long 3670 mov 0,%i0 ret restore call %g2 nop .long 3671 mov 0,%i0 ret restore call %g2 nop .long 3672 mov 0,%i0 ret restore call %g2 nop .long 3673 mov 0,%i0 ret restore call %g2 nop .long 3674 mov 0,%i0 ret restore call %g2 nop .long 3675 mov 0,%i0 ret restore call %g2 nop .long 3676 mov 0,%i0 ret restore call %g2 nop .long 3677 mov 0,%i0 ret restore call %g2 nop .long 3678 mov 0,%i0 ret restore call %g2 nop .long 3679 mov 0,%i0 ret restore call %g2 nop .long 3680 mov 0,%i0 ret restore call %g2 nop .long 3681 mov 0,%i0 ret restore call %g2 nop .long 3682 mov 0,%i0 ret restore call %g2 nop .long 3683 mov 0,%i0 ret restore call %g2 nop .long 3684 mov 0,%i0 ret restore call %g2 nop .long 3685 mov 0,%i0 ret restore call %g2 nop .long 3686 mov 0,%i0 ret restore call %g2 nop .long 3687 mov 0,%i0 ret restore call %g2 nop .long 3688 mov 0,%i0 ret restore call %g2 nop .long 3689 mov 0,%i0 ret restore call %g2 nop .long 3690 mov 0,%i0 ret restore call %g2 nop .long 3691 mov 0,%i0 ret restore call %g2 nop .long 3692 mov 0,%i0 ret restore call %g2 nop .long 3693 mov 0,%i0 ret restore call %g2 nop .long 3694 mov 0,%i0 ret restore call %g2 nop .long 3695 mov 0,%i0 ret restore call %g2 nop .long 3696 mov 0,%i0 ret restore call %g2 nop .long 3697 mov 0,%i0 ret restore call %g2 nop .long 3698 mov 0,%i0 ret restore call %g2 nop .long 3699 mov 0,%i0 ret restore call %g2 nop .long 3700 mov 0,%i0 ret restore call %g2 nop .long 3701 mov 0,%i0 ret restore call %g2 nop .long 3702 mov 0,%i0 ret restore call %g2 nop .long 3703 mov 0,%i0 ret restore call %g2 nop .long 3704 mov 0,%i0 ret restore call %g2 nop .long 3705 mov 0,%i0 ret restore call %g2 nop .long 3706 mov 0,%i0 ret restore call %g2 nop .long 3707 mov 0,%i0 ret restore call %g2 nop .long 3708 mov 0,%i0 ret restore call %g2 nop .long 3709 mov 0,%i0 ret restore call %g2 nop .long 3710 mov 0,%i0 ret restore call %g2 nop .long 3711 mov 0,%i0 ret restore call %g2 nop .long 3712 mov 0,%i0 ret restore call %g2 nop .long 3713 mov 0,%i0 ret restore call %g2 nop .long 3714 mov 0,%i0 ret restore call %g2 nop .long 3715 mov 0,%i0 ret restore call %g2 nop .long 3716 mov 0,%i0 ret restore call %g2 nop .long 3717 mov 0,%i0 ret restore call %g2 nop .long 3718 mov 0,%i0 ret restore call %g2 nop .long 3719 mov 0,%i0 ret restore call %g2 nop .long 3720 mov 0,%i0 ret restore call %g2 nop .long 3721 mov 0,%i0 ret restore call %g2 nop .long 3722 mov 0,%i0 ret restore call %g2 nop .long 3723 mov 0,%i0 ret restore call %g2 nop .long 3724 mov 0,%i0 ret restore call %g2 nop .long 3725 mov 0,%i0 ret restore call %g2 nop .long 3726 mov 0,%i0 ret restore call %g2 nop .long 3727 mov 0,%i0 ret restore call %g2 nop .long 3728 mov 0,%i0 ret restore call %g2 nop .long 3729 mov 0,%i0 ret restore call %g2 nop .long 3730 mov 0,%i0 ret restore call %g2 nop .long 3731 mov 0,%i0 ret restore call %g2 nop .long 3732 mov 0,%i0 ret restore call %g2 nop .long 3733 mov 0,%i0 ret restore call %g2 nop .long 3734 mov 0,%i0 ret restore call %g2 nop .long 3735 mov 0,%i0 ret restore call %g2 nop .long 3736 mov 0,%i0 ret restore call %g2 nop .long 3737 mov 0,%i0 ret restore call %g2 nop .long 3738 mov 0,%i0 ret restore call %g2 nop .long 3739 mov 0,%i0 ret restore call %g2 nop .long 3740 mov 0,%i0 ret restore call %g2 nop .long 3741 mov 0,%i0 ret restore call %g2 nop .long 3742 mov 0,%i0 ret restore call %g2 nop .long 3743 mov 0,%i0 ret restore call %g2 nop .long 3744 mov 0,%i0 ret restore call %g2 nop .long 3745 mov 0,%i0 ret restore call %g2 nop .long 3746 mov 0,%i0 ret restore call %g2 nop .long 3747 mov 0,%i0 ret restore call %g2 nop .long 3748 mov 0,%i0 ret restore call %g2 nop .long 3749 mov 0,%i0 ret restore call %g2 nop .long 3750 mov 0,%i0 ret restore call %g2 nop .long 3751 mov 0,%i0 ret restore call %g2 nop .long 3752 mov 0,%i0 ret restore call %g2 nop .long 3753 mov 0,%i0 ret restore call %g2 nop .long 3754 mov 0,%i0 ret restore call %g2 nop .long 3755 mov 0,%i0 ret restore call %g2 nop .long 3756 mov 0,%i0 ret restore call %g2 nop .long 3757 mov 0,%i0 ret restore call %g2 nop .long 3758 mov 0,%i0 ret restore call %g2 nop .long 3759 mov 0,%i0 ret restore call %g2 nop .long 3760 mov 0,%i0 ret restore call %g2 nop .long 3761 mov 0,%i0 ret restore call %g2 nop .long 3762 mov 0,%i0 ret restore call %g2 nop .long 3763 mov 0,%i0 ret restore call %g2 nop .long 3764 mov 0,%i0 ret restore call %g2 nop .long 3765 mov 0,%i0 ret restore call %g2 nop .long 3766 mov 0,%i0 ret restore call %g2 nop .long 3767 mov 0,%i0 ret restore call %g2 nop .long 3768 mov 0,%i0 ret restore call %g2 nop .long 3769 mov 0,%i0 ret restore call %g2 nop .long 3770 mov 0,%i0 ret restore call %g2 nop .long 3771 mov 0,%i0 ret restore call %g2 nop .long 3772 mov 0,%i0 ret restore call %g2 nop .long 3773 mov 0,%i0 ret restore call %g2 nop .long 3774 mov 0,%i0 ret restore call %g2 nop .long 3775 mov 0,%i0 ret restore call %g2 nop .long 3776 mov 0,%i0 ret restore call %g2 nop .long 3777 mov 0,%i0 ret restore call %g2 nop .long 3778 mov 0,%i0 ret restore call %g2 nop .long 3779 mov 0,%i0 ret restore call %g2 nop .long 3780 mov 0,%i0 ret restore call %g2 nop .long 3781 mov 0,%i0 ret restore call %g2 nop .long 3782 mov 0,%i0 ret restore call %g2 nop .long 3783 mov 0,%i0 ret restore call %g2 nop .long 3784 mov 0,%i0 ret restore call %g2 nop .long 3785 mov 0,%i0 ret restore call %g2 nop .long 3786 mov 0,%i0 ret restore call %g2 nop .long 3787 mov 0,%i0 ret restore call %g2 nop .long 3788 mov 0,%i0 ret restore call %g2 nop .long 3789 mov 0,%i0 ret restore call %g2 nop .long 3790 mov 0,%i0 ret restore call %g2 nop .long 3791 mov 0,%i0 ret restore call %g2 nop .long 3792 mov 0,%i0 ret restore call %g2 nop .long 3793 mov 0,%i0 ret restore call %g2 nop .long 3794 mov 0,%i0 ret restore call %g2 nop .long 3795 mov 0,%i0 ret restore call %g2 nop .long 3796 mov 0,%i0 ret restore call %g2 nop .long 3797 mov 0,%i0 ret restore call %g2 nop .long 3798 mov 0,%i0 ret restore call %g2 nop .long 3799 mov 0,%i0 ret restore call %g2 nop .long 3800 mov 0,%i0 ret restore call %g2 nop .long 3801 mov 0,%i0 ret restore call %g2 nop .long 3802 mov 0,%i0 ret restore call %g2 nop .long 3803 mov 0,%i0 ret restore call %g2 nop .long 3804 mov 0,%i0 ret restore call %g2 nop .long 3805 mov 0,%i0 ret restore call %g2 nop .long 3806 mov 0,%i0 ret restore call %g2 nop .long 3807 mov 0,%i0 ret restore call %g2 nop .long 3808 mov 0,%i0 ret restore call %g2 nop .long 3809 mov 0,%i0 ret restore call %g2 nop .long 3810 mov 0,%i0 ret restore call %g2 nop .long 3811 mov 0,%i0 ret restore call %g2 nop .long 3812 mov 0,%i0 ret restore call %g2 nop .long 3813 mov 0,%i0 ret restore call %g2 nop .long 3814 mov 0,%i0 ret restore call %g2 nop .long 3815 mov 0,%i0 ret restore call %g2 nop .long 3816 mov 0,%i0 ret restore call %g2 nop .long 3817 mov 0,%i0 ret restore call %g2 nop .long 3818 mov 0,%i0 ret restore call %g2 nop .long 3819 mov 0,%i0 ret restore call %g2 nop .long 3820 mov 0,%i0 ret restore call %g2 nop .long 3821 mov 0,%i0 ret restore call %g2 nop .long 3822 mov 0,%i0 ret restore call %g2 nop .long 3823 mov 0,%i0 ret restore call %g2 nop .long 3824 mov 0,%i0 ret restore call %g2 nop .long 3825 mov 0,%i0 ret restore call %g2 nop .long 3826 mov 0,%i0 ret restore call %g2 nop .long 3827 mov 0,%i0 ret restore call %g2 nop .long 3828 mov 0,%i0 ret restore call %g2 nop .long 3829 mov 0,%i0 ret restore call %g2 nop .long 3830 mov 0,%i0 ret restore call %g2 nop .long 3831 mov 0,%i0 ret restore call %g2 nop .long 3832 mov 0,%i0 ret restore call %g2 nop .long 3833 mov 0,%i0 ret restore call %g2 nop .long 3834 mov 0,%i0 ret restore call %g2 nop .long 3835 mov 0,%i0 ret restore call %g2 nop .long 3836 mov 0,%i0 ret restore call %g2 nop .long 3837 mov 0,%i0 ret restore call %g2 nop .long 3838 mov 0,%i0 ret restore call %g2 nop .long 3839 mov 0,%i0 ret restore call %g2 nop .long 3840 mov 0,%i0 ret restore call %g2 nop .long 3841 mov 0,%i0 ret restore call %g2 nop .long 3842 mov 0,%i0 ret restore call %g2 nop .long 3843 mov 0,%i0 ret restore call %g2 nop .long 3844 mov 0,%i0 ret restore call %g2 nop .long 3845 mov 0,%i0 ret restore call %g2 nop .long 3846 mov 0,%i0 ret restore call %g2 nop .long 3847 mov 0,%i0 ret restore call %g2 nop .long 3848 mov 0,%i0 ret restore call %g2 nop .long 3849 mov 0,%i0 ret restore call %g2 nop .long 3850 mov 0,%i0 ret restore call %g2 nop .long 3851 mov 0,%i0 ret restore call %g2 nop .long 3852 mov 0,%i0 ret restore call %g2 nop .long 3853 mov 0,%i0 ret restore call %g2 nop .long 3854 mov 0,%i0 ret restore call %g2 nop .long 3855 mov 0,%i0 ret restore call %g2 nop .long 3856 mov 0,%i0 ret restore call %g2 nop .long 3857 mov 0,%i0 ret restore call %g2 nop .long 3858 mov 0,%i0 ret restore call %g2 nop .long 3859 mov 0,%i0 ret restore call %g2 nop .long 3860 mov 0,%i0 ret restore call %g2 nop .long 3861 mov 0,%i0 ret restore call %g2 nop .long 3862 mov 0,%i0 ret restore call %g2 nop .long 3863 mov 0,%i0 ret restore call %g2 nop .long 3864 mov 0,%i0 ret restore call %g2 nop .long 3865 mov 0,%i0 ret restore call %g2 nop .long 3866 mov 0,%i0 ret restore call %g2 nop .long 3867 mov 0,%i0 ret restore call %g2 nop .long 3868 mov 0,%i0 ret restore call %g2 nop .long 3869 mov 0,%i0 ret restore call %g2 nop .long 3870 mov 0,%i0 ret restore call %g2 nop .long 3871 mov 0,%i0 ret restore call %g2 nop .long 3872 mov 0,%i0 ret restore call %g2 nop .long 3873 mov 0,%i0 ret restore call %g2 nop .long 3874 mov 0,%i0 ret restore call %g2 nop .long 3875 mov 0,%i0 ret restore call %g2 nop .long 3876 mov 0,%i0 ret restore call %g2 nop .long 3877 mov 0,%i0 ret restore call %g2 nop .long 3878 mov 0,%i0 ret restore call %g2 nop .long 3879 mov 0,%i0 ret restore call %g2 nop .long 3880 mov 0,%i0 ret restore call %g2 nop .long 3881 mov 0,%i0 ret restore call %g2 nop .long 3882 mov 0,%i0 ret restore call %g2 nop .long 3883 mov 0,%i0 ret restore call %g2 nop .long 3884 mov 0,%i0 ret restore call %g2 nop .long 3885 mov 0,%i0 ret restore call %g2 nop .long 3886 mov 0,%i0 ret restore call %g2 nop .long 3887 mov 0,%i0 ret restore call %g2 nop .long 3888 mov 0,%i0 ret restore call %g2 nop .long 3889 mov 0,%i0 ret restore call %g2 nop .long 3890 mov 0,%i0 ret restore call %g2 nop .long 3891 mov 0,%i0 ret restore call %g2 nop .long 3892 mov 0,%i0 ret restore call %g2 nop .long 3893 mov 0,%i0 ret restore call %g2 nop .long 3894 mov 0,%i0 ret restore call %g2 nop .long 3895 mov 0,%i0 ret restore call %g2 nop .long 3896 mov 0,%i0 ret restore call %g2 nop .long 3897 mov 0,%i0 ret restore call %g2 nop .long 3898 mov 0,%i0 ret restore call %g2 nop .long 3899 mov 0,%i0 ret restore call %g2 nop .long 3900 mov 0,%i0 ret restore call %g2 nop .long 3901 mov 0,%i0 ret restore call %g2 nop .long 3902 mov 0,%i0 ret restore call %g2 nop .long 3903 mov 0,%i0 ret restore call %g2 nop .long 3904 mov 0,%i0 ret restore call %g2 nop .long 3905 mov 0,%i0 ret restore call %g2 nop .long 3906 mov 0,%i0 ret restore call %g2 nop .long 3907 mov 0,%i0 ret restore call %g2 nop .long 3908 mov 0,%i0 ret restore call %g2 nop .long 3909 mov 0,%i0 ret restore call %g2 nop .long 3910 mov 0,%i0 ret restore call %g2 nop .long 3911 mov 0,%i0 ret restore call %g2 nop .long 3912 mov 0,%i0 ret restore call %g2 nop .long 3913 mov 0,%i0 ret restore call %g2 nop .long 3914 mov 0,%i0 ret restore call %g2 nop .long 3915 mov 0,%i0 ret restore call %g2 nop .long 3916 mov 0,%i0 ret restore call %g2 nop .long 3917 mov 0,%i0 ret restore call %g2 nop .long 3918 mov 0,%i0 ret restore call %g2 nop .long 3919 mov 0,%i0 ret restore call %g2 nop .long 3920 mov 0,%i0 ret restore call %g2 nop .long 3921 mov 0,%i0 ret restore call %g2 nop .long 3922 mov 0,%i0 ret restore call %g2 nop .long 3923 mov 0,%i0 ret restore call %g2 nop .long 3924 mov 0,%i0 ret restore call %g2 nop .long 3925 mov 0,%i0 ret restore call %g2 nop .long 3926 mov 0,%i0 ret restore call %g2 nop .long 3927 mov 0,%i0 ret restore call %g2 nop .long 3928 mov 0,%i0 ret restore call %g2 nop .long 3929 mov 0,%i0 ret restore call %g2 nop .long 3930 mov 0,%i0 ret restore call %g2 nop .long 3931 mov 0,%i0 ret restore call %g2 nop .long 3932 mov 0,%i0 ret restore call %g2 nop .long 3933 mov 0,%i0 ret restore call %g2 nop .long 3934 mov 0,%i0 ret restore call %g2 nop .long 3935 mov 0,%i0 ret restore call %g2 nop .long 3936 mov 0,%i0 ret restore call %g2 nop .long 3937 mov 0,%i0 ret restore call %g2 nop .long 3938 mov 0,%i0 ret restore call %g2 nop .long 3939 mov 0,%i0 ret restore call %g2 nop .long 3940 mov 0,%i0 ret restore call %g2 nop .long 3941 mov 0,%i0 ret restore call %g2 nop .long 3942 mov 0,%i0 ret restore call %g2 nop .long 3943 mov 0,%i0 ret restore call %g2 nop .long 3944 mov 0,%i0 ret restore call %g2 nop .long 3945 mov 0,%i0 ret restore call %g2 nop .long 3946 mov 0,%i0 ret restore call %g2 nop .long 3947 mov 0,%i0 ret restore call %g2 nop .long 3948 mov 0,%i0 ret restore call %g2 nop .long 3949 mov 0,%i0 ret restore call %g2 nop .long 3950 mov 0,%i0 ret restore call %g2 nop .long 3951 mov 0,%i0 ret restore call %g2 nop .long 3952 mov 0,%i0 ret restore call %g2 nop .long 3953 mov 0,%i0 ret restore call %g2 nop .long 3954 mov 0,%i0 ret restore call %g2 nop .long 3955 mov 0,%i0 ret restore call %g2 nop .long 3956 mov 0,%i0 ret restore call %g2 nop .long 3957 mov 0,%i0 ret restore call %g2 nop .long 3958 mov 0,%i0 ret restore call %g2 nop .long 3959 mov 0,%i0 ret restore call %g2 nop .long 3960 mov 0,%i0 ret restore call %g2 nop .long 3961 mov 0,%i0 ret restore call %g2 nop .long 3962 mov 0,%i0 ret restore call %g2 nop .long 3963 mov 0,%i0 ret restore call %g2 nop .long 3964 mov 0,%i0 ret restore call %g2 nop .long 3965 mov 0,%i0 ret restore call %g2 nop .long 3966 mov 0,%i0 ret restore call %g2 nop .long 3967 mov 0,%i0 ret restore call %g2 nop .long 3968 mov 0,%i0 ret restore call %g2 nop .long 3969 mov 0,%i0 ret restore call %g2 nop .long 3970 mov 0,%i0 ret restore call %g2 nop .long 3971 mov 0,%i0 ret restore call %g2 nop .long 3972 mov 0,%i0 ret restore call %g2 nop .long 3973 mov 0,%i0 ret restore call %g2 nop .long 3974 mov 0,%i0 ret restore call %g2 nop .long 3975 mov 0,%i0 ret restore call %g2 nop .long 3976 mov 0,%i0 ret restore call %g2 nop .long 3977 mov 0,%i0 ret restore call %g2 nop .long 3978 mov 0,%i0 ret restore call %g2 nop .long 3979 mov 0,%i0 ret restore call %g2 nop .long 3980 mov 0,%i0 ret restore call %g2 nop .long 3981 mov 0,%i0 ret restore call %g2 nop .long 3982 mov 0,%i0 ret restore call %g2 nop .long 3983 mov 0,%i0 ret restore call %g2 nop .long 3984 mov 0,%i0 ret restore call %g2 nop .long 3985 mov 0,%i0 ret restore call %g2 nop .long 3986 mov 0,%i0 ret restore call %g2 nop .long 3987 mov 0,%i0 ret restore call %g2 nop .long 3988 mov 0,%i0 ret restore call %g2 nop .long 3989 mov 0,%i0 ret restore call %g2 nop .long 3990 mov 0,%i0 ret restore call %g2 nop .long 3991 mov 0,%i0 ret restore call %g2 nop .long 3992 mov 0,%i0 ret restore call %g2 nop .long 3993 mov 0,%i0 ret restore call %g2 nop .long 3994 mov 0,%i0 ret restore call %g2 nop .long 3995 mov 0,%i0 ret restore call %g2 nop .long 3996 mov 0,%i0 ret restore call %g2 nop .long 3997 mov 0,%i0 ret restore call %g2 nop .long 3998 mov 0,%i0 ret restore call %g2 nop .long 3999 mov 0,%i0 ret restore call %g2 nop .long 4000 mov 0,%i0 ret restore call %g2 nop .long 4001 mov 0,%i0 ret restore call %g2 nop .long 4002 mov 0,%i0 ret restore call %g2 nop .long 4003 mov 0,%i0 ret restore call %g2 nop .long 4004 mov 0,%i0 ret restore call %g2 nop .long 4005 mov 0,%i0 ret restore call %g2 nop .long 4006 mov 0,%i0 ret restore call %g2 nop .long 4007 mov 0,%i0 ret restore call %g2 nop .long 4008 mov 0,%i0 ret restore call %g2 nop .long 4009 mov 0,%i0 ret restore call %g2 nop .long 4010 mov 0,%i0 ret restore call %g2 nop .long 4011 mov 0,%i0 ret restore call %g2 nop .long 4012 mov 0,%i0 ret restore call %g2 nop .long 4013 mov 0,%i0 ret restore call %g2 nop .long 4014 mov 0,%i0 ret restore call %g2 nop .long 4015 mov 0,%i0 ret restore call %g2 nop .long 4016 mov 0,%i0 ret restore call %g2 nop .long 4017 mov 0,%i0 ret restore call %g2 nop .long 4018 mov 0,%i0 ret restore call %g2 nop .long 4019 mov 0,%i0 ret restore call %g2 nop .long 4020 mov 0,%i0 ret restore call %g2 nop .long 4021 mov 0,%i0 ret restore call %g2 nop .long 4022 mov 0,%i0 ret restore call %g2 nop .long 4023 mov 0,%i0 ret restore call %g2 nop .long 4024 mov 0,%i0 ret restore call %g2 nop .long 4025 mov 0,%i0 ret restore call %g2 nop .long 4026 mov 0,%i0 ret restore call %g2 nop .long 4027 mov 0,%i0 ret restore call %g2 nop .long 4028 mov 0,%i0 ret restore call %g2 nop .long 4029 mov 0,%i0 ret restore call %g2 nop .long 4030 mov 0,%i0 ret restore call %g2 nop .long 4031 mov 0,%i0 ret restore call %g2 nop .long 4032 mov 0,%i0 ret restore call %g2 nop .long 4033 mov 0,%i0 ret restore call %g2 nop .long 4034 mov 0,%i0 ret restore call %g2 nop .long 4035 mov 0,%i0 ret restore call %g2 nop .long 4036 mov 0,%i0 ret restore call %g2 nop .long 4037 mov 0,%i0 ret restore call %g2 nop .long 4038 mov 0,%i0 ret restore call %g2 nop .long 4039 mov 0,%i0 ret restore call %g2 nop .long 4040 mov 0,%i0 ret restore call %g2 nop .long 4041 mov 0,%i0 ret restore call %g2 nop .long 4042 mov 0,%i0 ret restore call %g2 nop .long 4043 mov 0,%i0 ret restore call %g2 nop .long 4044 mov 0,%i0 ret restore call %g2 nop .long 4045 mov 0,%i0 ret restore call %g2 nop .long 4046 mov 0,%i0 ret restore call %g2 nop .long 4047 mov 0,%i0 ret restore call %g2 nop .long 4048 mov 0,%i0 ret restore call %g2 nop .long 4049 mov 0,%i0 ret restore call %g2 nop .long 4050 mov 0,%i0 ret restore call %g2 nop .long 4051 mov 0,%i0 ret restore call %g2 nop .long 4052 mov 0,%i0 ret restore call %g2 nop .long 4053 mov 0,%i0 ret restore call %g2 nop .long 4054 mov 0,%i0 ret restore call %g2 nop .long 4055 mov 0,%i0 ret restore call %g2 nop .long 4056 mov 0,%i0 ret restore call %g2 nop .long 4057 mov 0,%i0 ret restore call %g2 nop .long 4058 mov 0,%i0 ret restore call %g2 nop .long 4059 mov 0,%i0 ret restore call %g2 nop .long 4060 mov 0,%i0 ret restore call %g2 nop .long 4061 mov 0,%i0 ret restore call %g2 nop .long 4062 mov 0,%i0 ret restore call %g2 nop .long 4063 mov 0,%i0 ret restore call %g2 nop .long 4064 mov 0,%i0 ret restore call %g2 nop .long 4065 mov 0,%i0 ret restore call %g2 nop .long 4066 mov 0,%i0 ret restore call %g2 nop .long 4067 mov 0,%i0 ret restore call %g2 nop .long 4068 mov 0,%i0 ret restore call %g2 nop .long 4069 mov 0,%i0 ret restore call %g2 nop .long 4070 mov 0,%i0 ret restore call %g2 nop .long 4071 mov 0,%i0 ret restore call %g2 nop .long 4072 mov 0,%i0 ret restore call %g2 nop .long 4073 mov 0,%i0 ret restore call %g2 nop .long 4074 mov 0,%i0 ret restore call %g2 nop .long 4075 mov 0,%i0 ret restore call %g2 nop .long 4076 mov 0,%i0 ret restore call %g2 nop .long 4077 mov 0,%i0 ret restore call %g2 nop .long 4078 mov 0,%i0 ret restore call %g2 nop .long 4079 mov 0,%i0 ret restore call %g2 nop .long 4080 mov 0,%i0 ret restore call %g2 nop .long 4081 mov 0,%i0 ret restore call %g2 nop .long 4082 mov 0,%i0 ret restore call %g2 nop .long 4083 mov 0,%i0 ret restore call %g2 nop .long 4084 mov 0,%i0 ret restore call %g2 nop .long 4085 mov 0,%i0 ret restore call %g2 nop .long 4086 mov 0,%i0 ret restore call %g2 nop .long 4087 mov 0,%i0 ret restore call %g2 nop .long 4088 mov 0,%i0 ret restore call %g2 nop .long 4089 mov 0,%i0 ret restore call %g2 nop .long 4090 mov 0,%i0 ret restore call %g2 nop .long 4091 mov 0,%i0 ret restore call %g2 nop .long 4092 mov 0,%i0 ret restore call %g2 nop .long 4093 mov 0,%i0 ret restore call %g2 nop .long 4094 mov 0,%i0 ret restore call %g2 nop .long 4095 mov 0,%i0 ret restore ld [%i0+24], %g3 .LL54: ld [%i0+4], %l0 ld [%g3], %o0 ld [%g3+4], %o1 ld [%g3+8], %o2 ld [%g3+12], %o3 ld [%g3+16], %o4 call %l0, 0 ld [%g3+20], %o5 nop ld [%i0+12], %g3 cmp %g3, 1 be .LL11 mov %o0, %o7 cmp %g3, 2 be .LL52 cmp %g3, 3 be .LL52 cmp %g3, 4 be .LL52 cmp %g3, 5 be .LL51 cmp %g3, 6 be .LL51 cmp %g3, 7 be .LL49 cmp %g3, 8 be .LL49 cmp %g3, 9 be .LL49 cmp %g3, 10 be .LL49 add %g3, -11, %g3 cmp %g3, 1 bgu,a .LL30 ld [%i0+12], %g3 ld [%i0+8], %g3 st %o0, [%g3] b .LL11 st %o1, [%g3+4] .LL30: cmp %g3, 13 bne,a .LL32 ld [%i0+12], %g3 ld [%i0], %g3 andcc %g3, 32, %g0 be .LL33 ld [%i0+8], %g3 fdtos %f0, %f0 .LL33: b .LL11 st %f0, [%g3] .LL32: cmp %g3, 14 bne,a .LL36 ld [%i0+12], %g3 ld [%i0+8], %g3 b .LL11 std %f0, [%g3] .LL36: cmp %g3, 15 be,a .LL55 ld [%i0+8], %g3 ld [%i0+12], %g3 cmp %g3, 16 bne .LL11 nop ld [%i0], %g3 andcc %g3, 2, %g0 be .LL11 nop ld [%i0+16], %g3 cmp %g3, 1 bne .LL42 cmp %g3, 2 .LL52: ld [%i0+8], %g3 b .LL11 stb %o7, [%g3] .LL42: bne,a .LL44 ld [%i0+16], %g3 .LL51: ld [%i0+8], %g3 b .LL11 sth %o7, [%g3] .LL44: cmp %g3, 4 bne .LL11 nop .LL49: ld [%i0+8], %g3 .LL55: st %o7, [%g3] .LL11: ret restore %g0, 0, %o0 .LLfe1: .size avcall_call,.LLfe1-avcall_call .ident "GCC: (GNU) 3.1" libffcall-2.4/avcall/avcall-s390-macro.S0000664000000000000000000000355714061422367014630 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 .L53 .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 .L53: 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 chi %r4,2 je .L56 chi %r4,3 je .L56 chi %r4,4 je .L56 chi %r4,5 je .L55 chi %r4,6 je .L55 chi %r4,7 je .L62 chi %r4,8 je .L62 chi %r4,9 je .L62 chi %r4,10 je .L62 lr %r1,%r4 ahi %r1,-11 cl %r1,.LC0-.LT0_0(%r13) jle .L61 chi %r4,13 je .L63 chi %r4,14 je .L64 chi %r4,15 je .L62 chi %r4,16 je .L65 .L16: lhi %r2,0 l %r4,152(%r11) lm %r6,%r15,120(%r11) br %r4 .L65: tm 2(%r10),2 je .L16 l %r1,16(%r10) chi %r1,1 je .L56 chi %r1,2 je .L55 chi %r1,4 je .L62 chi %r1,8 jne .L16 .L61: l %r1,8(%r10) st %r3,4(%r1) .L54: st %r2,0(%r1) j .L16 .L62: l %r1,8(%r10) j .L54 .L55: l %r1,8(%r10) sth %r2,0(%r1) j .L16 .L56: l %r1,8(%r10) stc %r2,0(%r1) j .L16 .L64: l %r1,8(%r10) std %f0,0(%r1) j .L16 .L63: 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.4/avcall/avcall-mips64eb-linux.s0000664000000000000000000002312514061422365015650 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,.L123 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 .L123: .set noreorder .set nomacro beq $4,$0,.L124 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 .L124: .set noreorder .set nomacro beq $4,$0,.L125 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 .L125: .set noreorder .set nomacro beq $4,$0,.L126 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 .L126: .set noreorder .set nomacro beq $4,$0,.L127 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 .L127: .set noreorder .set nomacro beq $4,$0,.L128 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 .L128: .set noreorder .set nomacro beql $4,$0,.L129 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 .L129: bne $3,$0,.L116 .L2: lw $3,72($16) .L122: .set noreorder .set nomacro beql $3,$0,.L121 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L130 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 .L130: .set noreorder .set nomacro beq $4,$0,.L131 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 .L131: .set noreorder .set nomacro beq $4,$0,.L132 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 .L132: .set noreorder .set nomacro beq $4,$0,.L133 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 .L133: .set noreorder .set nomacro beq $4,$0,.L134 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 .L134: .set noreorder .set nomacro beq $4,$0,.L135 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 .L135: .set noreorder .set nomacro beql $4,$0,.L136 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 .L136: bne $3,$0,.L117 slt $3,$6,9 .L121: .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 beq $4,$5,.L19 li $5,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,3 # 0x3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,4 # 0x4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,5 # 0x5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,6 # 0x6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 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,.L109 li $5,10 # 0xa .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,11 # 0xb .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,12 # 0xc .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,13 # 0xd .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L118 li $5,14 # 0xe .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,15 # 0xf .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,16 # 0x10 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L137 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,.L37 ld $4,32($16) .set macro .set reorder ld $3,32($16) li $4,1 # 0x1 .set noreorder .set nomacro beq $3,$4,.L106 li $4,2 # 0x2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L108 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,.L138 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L137: 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 .L117: #APP # 111 "avcall-mips64.c" 1 ldc1 $f19,56($12) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L121 slt $3,$6,9 .set macro .set reorder .align 3 .L116: #APP # 91 "avcall-mips64.c" 1 lwc1 $f19,104($16) # 0 "" 2 #NO_APP .set noreorder .set nomacro b .L122 lw $3,72($16) .set macro .set reorder .align 3 .L106: 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 sw $2,0($3) .set macro .set reorder .align 3 .L108: ld $3,16($16) sh $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 .L109: ld $3,16($16) .align 3 .L138: 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 .L119: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L118: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 and $6,$6,$8 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L42 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 .L41: 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,.L120 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 .L42: 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 .L120: 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.4/avcall/avcall-riscv32-ilp32d-linux.s0000664000000000000000000000773614061422370016613 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) 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,.L79 .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,.L80 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,.L81 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) add sp,sp,32 jr ra .L79: 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,.L82 jalr t4 lw t1,12(s1) li t4,1 mv t3,a0 beq t1,t4,.L26 li t4,2 beq t1,t4,.L72 li t4,3 beq t1,t4,.L72 li t4,4 beq t1,t4,.L72 li t4,5 beq t1,t4,.L73 li t4,6 beq t1,t4,.L73 li t4,7 beq t1,t4,.L77 li t4,8 beq t1,t4,.L77 li t4,9 beq t1,t4,.L77 li t4,10 beq t1,t4,.L77 add t6,t1,-11 li t4,1 bleu t6,t4,.L83 li t6,15 beq t1,t6,.L77 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 s4,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,s4,.L39 bgtu t1,s4,.L40 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 .L80: fld fa1,96(s1) j .L13 .L82: lw s1,8(s1) jalr t4 fsd fa0,0(s1) j .L26 .L72: lw t1,8(s1) sb t3,0(t1) 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 .L81: fld fa3,112(s1) j .L17 .L73: lw t1,8(s1) sh t3,0(t1) j .L26 .L18: lw t3,44(s1) and t3,t3,16 beqz t3,.L19 flw fa4,68(s1) j .L19 .L77: lw t1,8(s1) sw 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 .L83: lw t1,8(s1) sw a0,0(t1) sw a1,4(t1) j .L26 .L40: 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 .L39: sub t4,zero,t4 and t4,t4,s1 xor t4,t4,t2 sw t4,0(t0) li t4,8 sll s1,a1,s2 bleu t1,t4,.L84 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 .L84: 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.4/avcall/avcall-mips64eb-macro.S0000664000000000000000000002047214061422365015554 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,.L123 andi $4,$3,0x2 .set macro .set reorder lwc1 $f12,76($16) andi $4,$3,0x2 .L123: .set noreorder .set nomacro beq $4,$0,.L124 andi $4,$3,0x4 .set macro .set reorder lwc1 $f13,80($16) andi $4,$3,0x4 .L124: .set noreorder .set nomacro beq $4,$0,.L125 andi $4,$3,0x8 .set macro .set reorder lwc1 $f14,84($16) andi $4,$3,0x8 .L125: .set noreorder .set nomacro beq $4,$0,.L126 andi $4,$3,0x10 .set macro .set reorder lwc1 $f15,88($16) andi $4,$3,0x10 .L126: .set noreorder .set nomacro beq $4,$0,.L127 andi $4,$3,0x20 .set macro .set reorder lwc1 $f16,92($16) andi $4,$3,0x20 .L127: .set noreorder .set nomacro beq $4,$0,.L128 andi $4,$3,0x40 .set macro .set reorder lwc1 $f17,96($16) andi $4,$3,0x40 .L128: .set noreorder .set nomacro beql $4,$0,.L129 andi $3,$3,0x80 .set macro .set reorder lwc1 $f18,100($16) andi $3,$3,0x80 .L129: bne $3,$0,.L116 .L2: lw $3,72($16) .L122: .set noreorder .set nomacro beql $3,$0,.L121 slt $3,$6,9 .set macro .set reorder andi $4,$3,0x1 .set noreorder .set nomacro beq $4,$0,.L130 andi $4,$3,0x2 .set macro .set reorder ldc1 $f12,0($12) andi $4,$3,0x2 .L130: .set noreorder .set nomacro beq $4,$0,.L131 andi $4,$3,0x4 .set macro .set reorder ldc1 $f13,8($12) andi $4,$3,0x4 .L131: .set noreorder .set nomacro beq $4,$0,.L132 andi $4,$3,0x8 .set macro .set reorder ldc1 $f14,16($12) andi $4,$3,0x8 .L132: .set noreorder .set nomacro beq $4,$0,.L133 andi $4,$3,0x10 .set macro .set reorder ldc1 $f15,24($12) andi $4,$3,0x10 .L133: .set noreorder .set nomacro beq $4,$0,.L134 andi $4,$3,0x20 .set macro .set reorder ldc1 $f16,32($12) andi $4,$3,0x20 .L134: .set noreorder .set nomacro beq $4,$0,.L135 andi $4,$3,0x40 .set macro .set reorder ldc1 $f17,40($12) andi $4,$3,0x40 .L135: .set noreorder .set nomacro beql $4,$0,.L136 andi $3,$3,0x80 .set macro .set reorder ldc1 $f18,48($12) andi $3,$3,0x80 .L136: bne $3,$0,.L117 slt $3,$6,9 .L121: .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 beq $4,$5,.L19 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L106 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L108 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,.L109 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,11 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,12 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,13 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L118 li $5,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L119 li $5,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,.L109 li $5,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$5,.L137 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,.L37 ld $4,32($16) .set macro .set reorder ld $3,32($16) li $4,1 .set noreorder .set nomacro beq $3,$4,.L106 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,.L108 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,.L138 ld $3,16($16) .set macro .set reorder .L19: move $sp,$fp .L137: 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 .L117: ldc1 $f19,56($12) .set noreorder .set nomacro b .L121 slt $3,$6,9 .set macro .set reorder .align 3 .L116: lwc1 $f19,104($16) .set noreorder .set nomacro b .L122 lw $3,72($16) .set macro .set reorder .align 3 .L106: 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 sw $2,0($3) .set macro .set reorder .align 3 .L108: ld $3,16($16) sh $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 .L109: ld $3,16($16) .align 3 .L138: 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 .L119: ld $2,16($16) .set noreorder .set nomacro b .L19 sdc1 $f0,0($2) .set macro .set reorder .L118: ld $2,16($16) .set noreorder .set nomacro b .L19 swc1 $f0,0($2) .set macro .set reorder .L37: 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,.L41 and $6,$6,$8 .set macro .set reorder sltu $3,$4,9 .set noreorder .set nomacro beq $3,$0,.L42 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 .L41: 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,.L120 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 .L42: 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 .L120: 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.4/avcall/avcall-x86_64.c0000664000000000000000000003631114061147262014001 00000000000000/** Copyright 1993 Bill Triggs Copyright 1995-2021 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 __avrword iarg1 __asm__("rdi");*/ /*register __avrword iarg2 __asm__("rsi");*/ /*register __avrword iarg3 __asm__("rdx");*/ /*register __avrword iarg4 __asm__("rcx");*/ /*register __avrword iarg5 __asm__("r8");*/ /*register __avrword 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 __avrword iretreg __asm__("rax");*/ register __avrword 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; __avrword 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 == __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(__avrword) */ __avrword* wordaddr = (__avrword*)((uintptr_t)raddr & ~(uintptr_t)(sizeof(__avrword)-1)); uintptr_t start_offset = (uintptr_t)raddr & (uintptr_t)(sizeof(__avrword)-1); /* ≥ 0, < sizeof(__avrword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__avrword) */ if (count <= sizeof(__avrword)) { /* Use iret. */ if (end_offset <= sizeof(__avrword)) { /* 0 < end_offset ≤ sizeof(__avrword) */ __avrword mask0 = ((__avrword)2 << (end_offset*8-1)) - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; } else { /* sizeof(__avrword) < end_offset < 2*sizeof(__avrword), start_offset > 0 */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; wordaddr[1] ^= (wordaddr[1] ^ (iret >> (sizeof(__avrword)*8-start_offset*8))) & mask1; } } else { /* Use iret, iret2. */ __avrword mask0 = - ((__avrword)1 << (start_offset*8)); wordaddr[0] ^= (wordaddr[0] ^ (iret << (start_offset*8))) & mask0; if (end_offset <= 2*sizeof(__avrword)) { /* sizeof(__avrword) < end_offset ≤ 2*sizeof(__avrword) */ __avrword mask1 = ((__avrword)2 << (end_offset*8-sizeof(__avrword)*8-1)) - 1; wordaddr[1] ^= (wordaddr[1] ^ ((iret >> (sizeof(__avrword)*4-start_offset*4) >> (sizeof(__avrword)*4-start_offset*4)) | (iret2 << (start_offset*8)))) & mask1; } else { /* 2*sizeof(__avrword) < end_offset < 3*sizeof(__avrword), start_offset > 0 */ __avrword mask2 = ((__avrword)2 << (end_offset*8-2*sizeof(__avrword)*8-1)) - 1; wordaddr[1] = (iret >> (sizeof(__avrword)*8-start_offset*8)) | (iret2 << (start_offset*8)); wordaddr[2] ^= (wordaddr[2] ^ (iret2 >> (sizeof(__avrword)*8-start_offset*8))) & mask2; } } #endif } } } } return 0; } libffcall-2.4/avcall/avcall-powerpc64-aix.s0000664000000000000000000000516314061422366015475 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 cmplwi 7,9,2 beq 7,L..36 cmplwi 7,9,3 beq 7,L..36 cmplwi 7,9,4 beq 7,L..36 cmplwi 7,9,5 beq 7,L..37 cmplwi 7,9,6 beq 7,L..37 cmplwi 7,9,7 beq 7,L..38 cmplwi 7,9,8 beq 7,L..38 cmplwi 7,9,9 beq 7,L..39 cmplwi 7,9,10 beq 7,L..39 cmplwi 7,9,11 beq 7,L..39 cmplwi 7,9,12 beq 7,L..39 cmplwi 7,9,13 beq 7,L..41 cmplwi 7,9,14 beq 7,L..42 cmplwi 7,9,15 beq 7,L..39 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) 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..38: ld 9,16(30) stw 3,0(9) b L..19 .align 4 L..37: ld 9,16(30) sth 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..39: 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 L..42: ld 9,16(30) stfd 1,0(9) b L..19 L..41: ld 9,16(30) stfs 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.4/avcall/COPYING0000644000000000000000000004335713026317516012501 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.4/avcall/avcall-i386-macro.S0000664000000000000000000000757114061422364014620 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(45)) 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(45): 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(cmp,l ,NUM(2), R(ecx)) INSN1(je,_ ,L(57)) 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(54)) INSN2(cmp,l ,NUM(6), R(ecx)) INSN1(je,_ ,L(58)) INSN2(cmp,l ,NUM(7), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(8), R(ecx)) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(9), R(ecx)) INSN1(je,_ ,L(52)) INSN2(cmp,l ,NUM(10), R(ecx)) INSN1(je,_ ,L(46)) INSN2(lea,l ,X4 MEM_DISP(ecx,-11), R(eax)) INSN2(cmp,l ,NUM(1), R(eax)) INSN1(jbe,_ ,L(47)) INSN2(cmp,l ,NUM(15), R(ecx)) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(16), R(ecx)) INSN1(je,_ ,L(59)) P2ALIGN(2,3) 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(59): 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(50)) INSN2(cmp,l ,NUM(2), R(eax)) INSN1(je,_ ,L(54)) INSN2(cmp,l ,NUM(4), R(eax)) INSN1(je,_ ,L(46)) INSN2(cmp,l ,NUM(8), R(eax)) INSN1(jne,_ ,L(8)) L(47): 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(46): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) L(48): INSN2(mov,l ,R(esi),X4 MEM(eax)) INSN1(jmp,_ ,L(8)) L(54): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) L(49): INSN2(mov,w ,R(si),X2 MEM(eax)) INSN1(jmp,_ ,L(8)) L(50): INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) L(51): INSN2(mov,l ,R(esi), R(edx)) INSN2(mov,b ,R(dl),X1 MEM(eax)) INSN1(jmp,_ ,L(8)) L(52): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN2(mov,l ,X4 MEM_DISP(ecx,8), R(eax)) INSN1(jmp,_ ,L(48)) L(58): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(edx)) INSN2(mov,l ,X4 MEM_DISP(edx,8), R(eax)) INSN1(jmp,_ ,L(49)) L(53): INSN2(mov,l ,X4 MEM_DISP(ebp,8), R(ecx)) INSN1(jmp,_ ,L(50)) L(57): INSN2(mov,l ,X4 MEM_DISP(eax,8), R(eax)) INSN1(jmp,_ ,L(51)) 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.4/avcall/avcall-mipseb-macro.S0000664000000000000000000001013614061422364015375 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,$L54 andi $6,$6,0x2 .set macro .set reorder l.d $f12,56($16) andi $6,$6,0x2 $L54: .set noreorder .set nomacro beql $6,$0,$L55 andi $2,$2,0x2 .set macro .set reorder l.s $f14,52($16) andi $2,$2,0x2 $L55: .set noreorder .set nomacro beql $2,$0,$L56 slt $4,$4,5 .set macro .set reorder l.d $f14,64($16) slt $4,$4,5 $L56: addiu $2,$8,16 .set noreorder .set nomacro bne $4,$0,$L10 addiu $3,$3,16 .set macro .set reorder $L36: lw $4,0($2) addiu $3,$3,4 addiu $2,$2,4 .set noreorder .set nomacro bne $5,$2,$L36 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 beq $4,$5,$L7 li $5,2 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,3 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,4 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L47 li $5,5 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,6 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L48 li $5,7 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,8 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,9 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 li $5,10 .set macro .set reorder .set noreorder .set nomacro beq $4,$5,$L49 addiu $5,$4,-11 .set macro .set reorder sltu $5,$5,2 .set noreorder .set nomacro bnel $5,$0,$L51 lw $4,8($16) .set macro .set reorder li $3,13 .set noreorder .set nomacro beq $4,$3,$L52 li $3,14 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L53 li $3,15 .set macro .set reorder .set noreorder .set nomacro beq $4,$3,$L49 li $3,16 .set macro .set reorder .set noreorder .set nomacro bnel $4,$3,$L57 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,$L47 li $4,2 .set macro .set reorder .set noreorder .set nomacro beq $3,$4,$L48 li $4,4 .set macro .set reorder .set noreorder .set nomacro beql $3,$4,$L58 lw $3,8($16) .set macro .set reorder $L7: move $sp,$fp $L57: 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 $L47: 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 $L49: lw $3,8($16) $L58: 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 $L48: lw $3,8($16) sh $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 $L51: sw $2,0($4) .set noreorder .set nomacro b $L7 sw $3,4($4) .set macro .set reorder $L52: lw $2,8($16) .set noreorder .set nomacro b $L7 swc1 $f0,0($2) .set macro .set reorder $L53: 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.4/avcall/avcall-alist.h0000664000000000000000000002053014061147262014160 00000000000000/* * Copyright 1993-1995 Bill Triggs * Copyright 1995-2021 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 */ __avrword (*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; __avrword 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; __avrword 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; __avrword 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; __avrword 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; __avrword 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.4/ffcall-version.c0000664000000000000000000000151113347755316013260 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.4/build-aux/0000775000000000000000000000000014061422457012145 500000000000000libffcall-2.4/build-aux/missing0000755000000000000000000001533614061422203013457 00000000000000#! /bin/sh # Common wrapper for a few potentially missing GNU programs. scriptversion=2018-03-07.03; # UTC # Copyright (C) 1996-2020 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=https://www.perl.org/ flex_URL=https://github.com/westes/flex gnu_software_URL=https://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 '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.4/build-aux/ar-lib0000775000000000000000000001336313702407704013166 00000000000000#! /bin/sh # Wrapper for Microsoft lib.exe me=ar-lib scriptversion=2019-07-04.01; # UTC # Copyright (C) 2010-2020 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* | MSYS*) file_conv=cygwin ;; *) file_conv=wine ;; esac fi case $file_conv in mingw) file=`cmd //C echo "$file " | sed -e 's/"\(.*\) " *$/\1/'` ;; cygwin | msys) 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 # 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* | *-*-midnightbsd*) # 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* | *-*-midnightbsd*) # 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|midnightbsd-elf|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age=$number_minor revision=$number_revision ;; freebsd-aout|midnightbsd-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 | midnightbsd-aout) major=.$current versuffix=.$current.$revision ;; freebsd-elf | midnightbsd-elf | midnightbsd) 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* | *-*-midnightbsd*) # 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.4/build-aux/depcomp0000755000000000000000000005602014061422203013430 00000000000000#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2018-03-07.03; # UTC # Copyright (C) 1999-2020 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 '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.4/build-aux/config.guess0000775000000000000000000014061414057116221014405 00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright 1992-2021 Free Software Foundation, Inc. timestamp='2021-05-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/cgit/config.git/plain/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-2021 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() { # prevent multiple calls if $tmp is already set test "$tmp" && return 0 : "${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/*) LIBC=unknown set_cc_for_build cat <<-EOF > "$dummy.c" #include #if defined(__UCLIBC__) LIBC=uclibc #elif defined(__dietlibc__) LIBC=dietlibc #elif defined(__GLIBC__) LIBC=gnu #else #include /* First heuristic to detect musl libc. */ #ifdef __DEFINED_va_list LIBC=musl #endif #endif EOF eval "$($CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g')" # Second heuristic to detect musl libc. if [ "$LIBC" = unknown ] && command -v ldd >/dev/null && ldd --version 2>&1 | grep -q ^musl; then LIBC=musl fi # If the system lacks a compiler, then just pick glibc. # We could probably try harder. if [ "$LIBC" = unknown ]; then LIBC=gnu 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". UNAME_MACHINE_ARCH=$( (uname -p 2>/dev/null || \ /sbin/sysctl -n hw.machine_arch 2>/dev/null || \ /usr/sbin/sysctl -n hw.machine_arch 2>/dev/null || \ echo unknown)) case $UNAME_MACHINE_ARCH in aarch64eb) machine=aarch64_be-unknown ;; 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 ;; *:SecBSD:*:*) UNAME_MACHINE_ARCH=$(arch | sed 's/SecBSD.//') echo "$UNAME_MACHINE_ARCH"-unknown-secbsd"$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 ;; *:Twizzler:*:*) echo "$UNAME_MACHINE"-unknown-twizzler exit ;; *:Redox:*:*) echo "$UNAME_MACHINE"-unknown-redox exit ;; mips:OSF1:*.*) echo mips-dec-osf1 exit ;; alpha:OSF1:*:*) # Reset EXIT trap before exiting to avoid spurious non-zero exit code. trap '' 0 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)" exit ;; 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 test "$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 test "$UNAME_PROCESSOR" = mc88100 || test "$UNAME_PROCESSOR" = mc88110 then if test "$TARGET_BINARY_INTERFACE"x = m88kdguxelfx || \ test "$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 test -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 test -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 test -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 test "$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 test "$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 test -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 2>/dev/null) 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:*:* | arc64: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 ;; loongarch32:Linux:*:* | loongarch64:Linux:*:* | loongarchx32: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:*:* | riscv32be:Linux:*:* | riscv64:Linux:*:* | riscv64be: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:*:*) set_cc_for_build LIBCABI=$LIBC if test "$CC_FOR_BUILD" != no_compiler_found; then if (echo '#ifdef __ILP32__'; echo IS_X32; echo '#endif') | \ (CCOPTS="" $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_X32 >/dev/null then LIBCABI="$LIBC"x32 fi fi echo "$UNAME_MACHINE"-pc-linux-"$LIBCABI" 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 test -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 ;; arm64:Darwin:*:*) echo aarch64-apple-darwin"$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 test "$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. if test "${cputype-}" = 386; then UNAME_MACHINE=i386 elif test "x${cputype-}" != x; then 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 ;; *:AROS:*:*) echo "$UNAME_MACHINE"-unknown-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 <&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 fi 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.4/build-aux/compile0000775000000000000000000001635013702407704013447 00000000000000#! /bin/sh # Wrapper for compilers which do not understand '-c -o'. scriptversion=2018-03-07.03; # UTC # Copyright (C) 1999-2020 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* | MSYS*) 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/* | msys/*) 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.4/build-aux/config.sub0000775000000000000000000010342614057116221014050 00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright 1992-2021 Free Software Foundation, Inc. timestamp='2021-04-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/cgit/config.git/plain/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-2021 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 basic_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-* | 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 basic_os=$maybe_os ;; android-linux) basic_machine=$field1-unknown basic_os=linux-android ;; *) basic_machine=$field1-$field2 basic_os=$field3 ;; esac ;; *-*) # A lone config we happen to match not fitting any pattern case $field1-$field2 in decstation-3100) basic_machine=mips-dec basic_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 basic_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 basic_os= ;; *) basic_machine=$field1 basic_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 basic_os=bsd ;; a29khif) basic_machine=a29k-amd basic_os=udi ;; adobe68k) basic_machine=m68010-adobe basic_os=scout ;; alliant) basic_machine=fx80-alliant basic_os= ;; altos | altos3068) basic_machine=m68k-altos basic_os= ;; am29k) basic_machine=a29k-none basic_os=bsd ;; amdahl) basic_machine=580-amdahl basic_os=sysv ;; amiga) basic_machine=m68k-unknown basic_os= ;; amigaos | amigados) basic_machine=m68k-unknown basic_os=amigaos ;; amigaunix | amix) basic_machine=m68k-unknown basic_os=sysv4 ;; apollo68) basic_machine=m68k-apollo basic_os=sysv ;; apollo68bsd) basic_machine=m68k-apollo basic_os=bsd ;; aros) basic_machine=i386-pc basic_os=aros ;; aux) basic_machine=m68k-apple basic_os=aux ;; balance) basic_machine=ns32k-sequent basic_os=dynix ;; blackfin) basic_machine=bfin-unknown basic_os=linux ;; cegcc) basic_machine=arm-unknown basic_os=cegcc ;; convex-c1) basic_machine=c1-convex basic_os=bsd ;; convex-c2) basic_machine=c2-convex basic_os=bsd ;; convex-c32) basic_machine=c32-convex basic_os=bsd ;; convex-c34) basic_machine=c34-convex basic_os=bsd ;; convex-c38) basic_machine=c38-convex basic_os=bsd ;; cray) basic_machine=j90-cray basic_os=unicos ;; crds | unos) basic_machine=m68k-crds basic_os= ;; da30) basic_machine=m68k-da30 basic_os= ;; decstation | pmax | pmin | dec3100 | decstatn) basic_machine=mips-dec basic_os= ;; delta88) basic_machine=m88k-motorola basic_os=sysv3 ;; dicos) basic_machine=i686-pc basic_os=dicos ;; djgpp) basic_machine=i586-pc basic_os=msdosdjgpp ;; ebmon29k) basic_machine=a29k-amd basic_os=ebmon ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson basic_os=ose ;; gmicro) basic_machine=tron-gmicro basic_os=sysv ;; go32) basic_machine=i386-pc basic_os=go32 ;; h8300hms) basic_machine=h8300-hitachi basic_os=hms ;; h8300xray) basic_machine=h8300-hitachi basic_os=xray ;; h8500hms) basic_machine=h8500-hitachi basic_os=hms ;; harris) basic_machine=m88k-harris basic_os=sysv3 ;; hp300 | hp300hpux) basic_machine=m68k-hp basic_os=hpux ;; hp300bsd) basic_machine=m68k-hp basic_os=bsd ;; hppaosf) basic_machine=hppa1.1-hp basic_os=osf ;; hppro) basic_machine=hppa1.1-hp basic_os=proelf ;; i386mach) basic_machine=i386-mach basic_os=mach ;; isi68 | isi) basic_machine=m68k-isi basic_os=sysv ;; m68knommu) basic_machine=m68k-unknown basic_os=linux ;; magnum | m3230) basic_machine=mips-mips basic_os=sysv ;; merlin) basic_machine=ns32k-utek basic_os=sysv ;; mingw64) basic_machine=x86_64-pc basic_os=mingw64 ;; mingw32) basic_machine=i686-pc basic_os=mingw32 ;; mingw32ce) basic_machine=arm-unknown basic_os=mingw32ce ;; monitor) basic_machine=m68k-rom68k basic_os=coff ;; morphos) basic_machine=powerpc-unknown basic_os=morphos ;; moxiebox) basic_machine=moxie-unknown basic_os=moxiebox ;; msdos) basic_machine=i386-pc basic_os=msdos ;; msys) basic_machine=i686-pc basic_os=msys ;; mvs) basic_machine=i370-ibm basic_os=mvs ;; nacl) basic_machine=le32-unknown basic_os=nacl ;; ncr3000) basic_machine=i486-ncr basic_os=sysv4 ;; netbsd386) basic_machine=i386-pc basic_os=netbsd ;; netwinder) basic_machine=armv4l-rebel basic_os=linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony basic_os=newsos ;; news1000) basic_machine=m68030-sony basic_os=newsos ;; necv70) basic_machine=v70-nec basic_os=sysv ;; nh3000) basic_machine=m68k-harris basic_os=cxux ;; nh[45]000) basic_machine=m88k-harris basic_os=cxux ;; nindy960) basic_machine=i960-intel basic_os=nindy ;; mon960) basic_machine=i960-intel basic_os=mon960 ;; nonstopux) basic_machine=mips-compaq basic_os=nonstopux ;; os400) basic_machine=powerpc-ibm basic_os=os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson basic_os=ose ;; os68k) basic_machine=m68k-none basic_os=os68k ;; paragon) basic_machine=i860-intel basic_os=osf ;; parisc) basic_machine=hppa-unknown basic_os=linux ;; psp) basic_machine=mipsallegrexel-sony basic_os=psp ;; pw32) basic_machine=i586-unknown basic_os=pw32 ;; rdos | rdos64) basic_machine=x86_64-pc basic_os=rdos ;; rdos32) basic_machine=i386-pc basic_os=rdos ;; rom68k) basic_machine=m68k-rom68k basic_os=coff ;; sa29200) basic_machine=a29k-amd basic_os=udi ;; sei) basic_machine=mips-sei basic_os=seiux ;; sequent) basic_machine=i386-sequent basic_os= ;; sps7) basic_machine=m68k-bull basic_os=sysv2 ;; st2000) basic_machine=m68k-tandem basic_os= ;; stratus) basic_machine=i860-stratus basic_os=sysv4 ;; sun2) basic_machine=m68000-sun basic_os= ;; sun2os3) basic_machine=m68000-sun basic_os=sunos3 ;; sun2os4) basic_machine=m68000-sun basic_os=sunos4 ;; sun3) basic_machine=m68k-sun basic_os= ;; sun3os3) basic_machine=m68k-sun basic_os=sunos3 ;; sun3os4) basic_machine=m68k-sun basic_os=sunos4 ;; sun4) basic_machine=sparc-sun basic_os= ;; sun4os3) basic_machine=sparc-sun basic_os=sunos3 ;; sun4os4) basic_machine=sparc-sun basic_os=sunos4 ;; sun4sol2) basic_machine=sparc-sun basic_os=solaris2 ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun basic_os= ;; sv1) basic_machine=sv1-cray basic_os=unicos ;; symmetry) basic_machine=i386-sequent basic_os=dynix ;; t3e) basic_machine=alphaev5-cray basic_os=unicos ;; t90) basic_machine=t90-cray basic_os=unicos ;; toad1) basic_machine=pdp10-xkl basic_os=tops20 ;; tpf) basic_machine=s390x-ibm basic_os=tpf ;; udi29k) basic_machine=a29k-amd basic_os=udi ;; ultra3) basic_machine=a29k-nyu basic_os=sym1 ;; v810 | necv810) basic_machine=v810-nec basic_os=none ;; vaxv) basic_machine=vax-dec basic_os=sysv ;; vms) basic_machine=vax-dec basic_os=vms ;; vsta) basic_machine=i386-pc basic_os=vsta ;; vxworks960) basic_machine=i960-wrs basic_os=vxworks ;; vxworks68) basic_machine=m68k-wrs basic_os=vxworks ;; vxworks29k) basic_machine=a29k-wrs basic_os=vxworks ;; xbox) basic_machine=i686-pc basic_os=mingw32 ;; ymp) basic_machine=ymp-cray basic_os=unicos ;; *) basic_machine=$1 basic_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 basic_os=cnk ;; decsystem10* | dec10*) cpu=pdp10 vendor=dec basic_os=tops10 ;; decsystem20* | dec20*) cpu=pdp10 vendor=dec basic_os=tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) cpu=m68k vendor=motorola ;; dpx2*) cpu=m68k vendor=bull basic_os=sysv3 ;; encore | umax | mmax) cpu=ns32k vendor=encore ;; elxsi) cpu=elxsi vendor=elxsi basic_os=${basic_os:-bsd} ;; fx2800) cpu=i860 vendor=alliant ;; genix) cpu=ns32k vendor=ns ;; h3050r* | hiux*) cpu=hppa1.1 vendor=hitachi basic_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 basic_os=sysv32 ;; i*86v4*) cpu=$(echo "$1" | sed -e 's/86.*/86/') vendor=pc basic_os=sysv4 ;; i*86v) cpu=$(echo "$1" | sed -e 's/86.*/86/') vendor=pc basic_os=sysv ;; i*86sol2) cpu=$(echo "$1" | sed -e 's/86.*/86/') vendor=pc basic_os=solaris2 ;; j90 | j90-cray) cpu=j90 vendor=cray basic_os=${basic_os:-unicos} ;; iris | iris4d) cpu=mips vendor=sgi case $basic_os in irix*) ;; *) basic_os=irix4 ;; esac ;; miniframe) cpu=m68000 vendor=convergent ;; *mint | mint[0-9]* | *MiNT | *MiNT[0-9]*) cpu=m68k vendor=atari basic_os=mint ;; news-3600 | risc-news) cpu=mips vendor=sony basic_os=newsos ;; next | m*-next) cpu=m68k vendor=next case $basic_os in openstep*) ;; nextstep*) ;; ns2*) basic_os=nextstep2 ;; *) basic_os=nextstep3 ;; esac ;; np1) cpu=np1 vendor=gould ;; op50n-* | op60c-*) cpu=hppa1.1 vendor=oki basic_os=proelf ;; pa-hitachi) cpu=hppa1.1 vendor=hitachi basic_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 basic_os=${basic_os:-elf} ;; simso-wrs) cpu=sparclite vendor=wrs basic_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 basic_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 test x$basic_os != x then # First recognize some ad-hoc caes, or perhaps split kernel-os, or else just # set os. case $basic_os in gnu/linux*) kernel=linux os=$(echo $basic_os | sed -e 's|gnu/linux|gnu|') ;; os2-emx) kernel=os2 os=$(echo $basic_os | sed -e 's|os2-emx|emx|') ;; nto-qnx*) kernel=nto os=$(echo $basic_os | sed -e 's|nto-qnx|qnx|') ;; *-*) # shellcheck disable=SC2162 IFS="-" read kernel os <&2 exit 1 ;; esac # As a final step for OS-related things, validate the OS-kernel combination # (given a valid OS), if there is a kernel. case $kernel-$os in linux-gnu* | linux-dietlibc* | linux-android* | linux-newlib* | linux-musl* | linux-uclibc* ) ;; uclinux-uclibc* ) ;; -dietlibc* | -newlib* | -musl* | -uclibc* ) # These are just libc implementations, not actual OSes, and thus # require a kernel. echo "Invalid configuration \`$1': libc \`$os' needs explicit kernel." 1>&2 exit 1 ;; kfreebsd*-gnu* | kopensolaris*-gnu*) ;; vxworks-simlinux | vxworks-simwindows | vxworks-spe) ;; nto-qnx*) ;; os2-emx) ;; *-eabi* | *-gnueabi*) ;; -*) # Blank kernel with real OS is always fine. ;; *-*) echo "Invalid configuration \`$1': Kernel \`$kernel' not known to work with OS \`$os'." 1>&2 exit 1 ;; esac # 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 $cpu-$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 ;; s390-* | s390x-*) 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-${kernel:+$kernel-}$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.4/build-aux/install-sh0000775000000000000000000003577613764057165014124 00000000000000#!/bin/sh # install - install a program, script, or datafile scriptversion=2020-11-14.01; # 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 # Create dirs (including intermediate dirs) using mode 755. # This is like GNU 'install' as of coreutils 8.32 (2020). mkdir_umask=22 backupsuffix= 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 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. -p pass -p to $cpprog. -s $stripprog installed files. -S SUFFIX attempt to back up existing files, with suffix SUFFIX. -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 By default, rm is invoked with -f; when overridden with RMPROG, it's up to you to specify -f if you want it. If -S is not specified, no backups are attempted. Email bug reports to bug-automake@gnu.org. Automake home page: https://www.gnu.org/software/automake/ " 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;; -p) cpprog="$cpprog -p";; -s) stripcmd=$stripprog;; -S) backupsuffix="$2" shift;; -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=$? # Don't chown directories that already exist. if test $dstdir_status = 0; then chowncmd="" fi 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 '') # 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 # The $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'. 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 if $posix_mkdir && ( umask $mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" ) then : else # 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 && { test -z "$stripcmd" || { # Create $dsttmp read-write so that cp doesn't create it read-only, # which would cause strip to fail. if test -z "$doit"; then : >"$dsttmp" # No need to fork-exec 'touch'. else $doit touch "$dsttmp" fi } } && $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 # If $backupsuffix is set, and the file being installed # already exists, attempt a backup. Don't worry if it fails, # e.g., if mv doesn't support -f. if test -n "$backupsuffix" && test -f "$dst"; then $doit $mvcmd -f "$dst" "$dst$backupsuffix" 2>/dev/null fi # 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 "$dst" 2>/dev/null || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && { $doit $rmcmd "$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.4/ChangeLog0000664000000000000000000074657514061422101011757 000000000000002021-06-13 Bruno Haible Prepare for 2.4 release. * VERSION: Set to 2.4. 2021-06-13 Bruno Haible Bump shared library version numbers. * Makefile.in (LIBFFCALL_VERSION_INFO): Bump to 1:0:1. * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): Bump to 2:0:1. * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): Bump to 1:4:0. 2021-06-13 Bruno Haible Port to Solaris 11/SPARC 32-bit. * avcall/avcall-sparc.c (avcall_call): Use preallocated trampolines instead of generating a trampoline on the stack, because the stack is not executable on Solaris 11. * avcall/Makefile.devel (avcall-sparc-solaris.s, avcall-sparc-solaris-macro.S): New rules. * avcall/Makefile.in (SOURCE_FILES): Add avcall-sparc-solaris.s, avcall-sparc-solaris-macro.S. (avcall-sparc.s): Use a different input file on Solaris. * NEWS: Mention the new port. 2021-06-13 Bruno Haible Fix build error on FreeBSD 12/arm. * common/asm-arm.sh: Eliminate '.syntax divided' pseudo-ops. * NEWS: Mention the new port. 2021-06-13 Bruno Haible Fix build error on 64-bit MSVC, due to newer libtool. * avcall/Makefile.in (avcall-x86_64.lo) [IF_MSVC]: Use ml64 directly, without invoking libtool. * callback/vacall_r/Makefile.in (vacall-x86_64.lo) [IF_MSVC]: Likewise. 2021-06-12 Bruno Haible Finish port to macOS 11/arm64. * PLATFORMS, */PLATFORMS: Mention the macOS 11/arm64 port. * NEWS: Mention it as attained in release 2.4, not 2.3. 2021-06-12 Bruno Haible vacall: Fix regression on Linux/arm64. * common/asm-arm64.h: Fix mistake. 2021-06-12 Bruno Haible vacall, callback: Add support for macOS 11/arm64. * vacall/vacall.h (__varword): Define differently on macOS 11/arm64. * callback/vacall_r/vacall_r.h (__varword): Likewise. * vacall/vacall-internal.h (_va_arg_double): Update to allow for sizeof(__vaword) < sizeof(double). (__va_arg_struct): Compare type size with 2*sizeof(__varword). * vacall/Makefile.devel (vacall-arm64-macos-macro.S): New rule. * vacall/Makefile.in (SOURCE_FILES): Add vacall-arm64-macos-macro.S. (vacall-arm64.s): Use a different input file on macOS. * callback/vacall_r/Makefile.devel (vacall-arm64-macos-macro.S): New rule. * callback/vacall_r/Makefile.in (SOURCE_FILES): Add vacall-arm64-macos-macro.S. (vacall-arm64.s): Use a different input file on macOS. 2021-06-12 Bruno Haible vacall, callback: Distinguish a register word from a stack word. * vacall/vacall.h (__varword): New type. * callback/vacall_r/vacall_r.h (__varword): Likewise. * vacall/vacall-alist.h: Use it as as element type of iarg[]. * vacall/vacall-internal.h: Use it when assigning to an iargs[] element. * vacall/vacall-*.c: Use it for integer register variables. 2021-06-12 Bruno Haible avcall: Add support for macOS 11/arm64. * avcall/avcall-arm64.c: Update comment regarding stack words. * avcall/avcall.h (__avword): Define differently on macOS 11/arm64. * avcall/avcall-internal.h (__av_long, __av_ulong, __av_ptr): Define differently on macOS 11/arm64. (_av_double): Update to allow for sizeof(__avword) < sizeof(double). (__av_struct): Update to allow for sizeof(__avword) < sizeof(void*). * avcall/Makefile.devel (avcall-arm64-macos-macro.S): New rule. * avcall/Makefile.in (SOURCE_FILES): Add avcall-arm64-macos-macro.S. (avcall-arm64.s): Use a different input file on macOS. 2021-06-12 Bruno Haible avcall: Distinguish a register word from a stack word. * avcall/avcall.h (__avrword): New type. (avcall_start, av_start_struct): Use it as return type of func. * avcall/avcall-libapi.c (avcall_start, av_start_struct): Likewise. * avcall/avcall-alist.h: Use it as return type of func and as element type of iargs[]. * avcall/avcall-internal.h: Use it when assigning to an iargs[] element. * avcall/avcall-*.c: Use it for integer register variables. 2021-06-12 Bruno Haible avcall: Support calling conventions that pass 'int', 'long' differently. * avcall/avcall-internal.h (__av_int, __av_uint): New macros. * avcall/avcall-libapi.c (avcall_arg_int, avcall_arg_uint): New functions. * avcall/avcall.h (avcall_arg_int, avcall_arg_uint): New declarations. (av_char, av_schar, av_short, av_int, av_uchar, av_ushort, av_uint): Use them. 2021-06-12 Bruno Haible Support assembly language syntax expected by macOS 11/arm64. * common/asm-arm64.sh: New file, based on common/asm-arm.sh. * common/asm-arm64.h: New file, based on common/asm-arm.h. * Makefile.in (SOURCE_FILES): Add them. * avcall/Makefile.devel (avcall-arm64-macro.S): Use asm-arm64.sh, asm-arm64.h instead of asm-arm.sh, asm-arm.h. * vacall/Makefile.devel (vacall-arm64-macro.S): Use asm-arm64.sh, asm-arm64.h instead of asm-arm.sh, asm-arm.h. * callback/vacall_r/Makefile.devel (vacall-arm64-macro.S): Use asm-arm64.sh, asm-arm64.h instead of asm-arm.sh, asm-arm.h. 2021-06-11 Bruno Haible avcall: Remove handling of obsolete enum item '__AVword'. * avcall/avcall-*.c: Remove handling of '__AVword'. 2021-06-11 Bruno Haible Fix undefined behaviour in the tests. * testcases.c (us_cdcd): Cast from double (-30.4) to int to ushort, not directly to ushort. This avoids undefined behaviour (see ISO C 11 § 6.3.1.4.(2)). * vacall/tests.c (simulator): Update accordingly. * callback/tests.c (us_cdcd_simulator): Likewise. 2021-06-06 Bruno Haible Fix test crash with CC="gcc -ftrapv". * callback/trampoline_r/test1.c (f): Reorder summands, to avoid signed integer overflow. 2021-06-06 Bruno Haible Bump shared library version numbers. * Makefile.in (LIBFFCALL_VERSION_INFO): Bump to 0:3:0. * avcall/Makefile.in (LIBAVCALL_VERSION_INFO): Bump to 1:3:0. * trampoline/Makefile.in (LIBTRAMPOLINE_VERSION_INFO): Likewise. * callback/Makefile.in (LIBCALLBACK_VERSION_INFO): Likewise. 2021-06-06 Bruno Haible Add support for xlclang compiler in 64-bit mode on AIX. * avcall/avcall.h (__AV_FLOAT_ARGS): Add __AV_AIXCC_FLOAT_ARGS on 64-bit xlclang. * vacall/vacall.h (__VA_FLOAT_ARGS): Add __VA_AIXCC_FLOAT_ARGS on 64-bit xlclang. * callback/vacall_r/vacall_r.h: Likewise. 2021-06-06 Bruno Haible vacall: Fix minitests crash on OpenBSD 6.5 and newer (x86_64). * vacall/Makefile.devel (vacall-x86_64-linux-pic.s): New target. (vacall-x86_64-macro.S): On OpenBSD, use the variant compiled with -fPIC. Needed because without -fPIC, the .eh_frame section has relocations. 2021-04-14 Bruno Haible build: Fix compilation error on FreeBSD 13.0/x86_64. * common/asm-x86_64.h (EH_FRAME_SECTION): On FreeBSD, use flags "a" instead of "aw". 2021-03-21 Bruno Haible trampoline: Work around failing mmap call on macOS 11. * Makefile.maint (GNULIB_MODULES): Add clean-temp-simple. * trampoline/trampoline.c: On macOS, define KEEP_TEMP_FILE_VISIBLE. (for_mmap_init): If KEEP_TEMP_FILE_VISIBLE, don't delete the file here, but instead register it for deletion when the process terminates. * callback/trampoline_r/trampoline.c: Likewise. 2021-02-28 Bruno Haible Update DEPENDENCIES. * DEPENDENCIES: Update some details. 2021-02-20 Bruno Haible build: Support creating shared libraries on MidnightBSD. * Makefile.maint (libtool-imported-files): Apply the patch from . 2021-02-20 Bruno Haible Switch to autoconf 2.71. * autogen.sh: Update comments. 2020-12-09 Bruno Haible Switch to autoconf 2.70. * configure.ac: Fix AC_CHECK_HEADERS invocation. Don't invoke AC_HEADER_STDC. * Makefile.maint (ACLOCAL, AUTOMAKE, AUTOCONF, AUTOHEADER): Remove the fixed version suffix. * autogen.sh: Update comments. * README-hacking: Indicate which versions of autoconf and automake are supported. 2020-12-09 Bruno Haible build: Fix syntax error in configure.ac (regression from 2020-07-19). * configure.ac: Fix syntax error. 2020-07-19 Bruno Haible trampoline, callback: Fix another multithread-safety bug. * trampoline/trampoline.c (alloc_trampoline): Invoke for_mmap_init before assigning pagesize, not after. * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. 2020-07-19 Bruno Haible trampoline, callback: Fix a multithread-safety bug. * trampoline/trampoline.c (free_trampoline): Take the freelist_lock. * callback/trampoline_r/trampoline.c (free_trampoline_r): Likewise. 2020-07-19 Bruno Haible Use OS-provided functions for flushing the instruction cache. * trampoline/trampoline.c (alloc_trampoline): For flushing the instruction cache, use the OS-provided functions on Windows, macOS, AIX, IRIX, Solaris. * callback/trampoline_r/trampoline.c: Likewise. * configure.ac: Arrange to not build cache-sparc.o or cache-sparc64.o on Solaris. 2020-07-12 Bruno Haible build: Fix misuse of AC_CACHE_CHECK. * m4/codeexec.m4 (FFCALL_CODEEXEC): Use two AC_CACHE_CHECK invocations instead of one. Don't set ffcall_cv_func_mmap_works. 2020-07-12 Bruno Haible build: Avoid possible conflict with the broken AC_FUNC_MMAP. * trampoline/trampoline.c: Don't test HAVE_MMAP. * callback/trampoline_r/trampoline.c: Likewise. * m4/codeexec.m4 (FFCALL_CODEEXEC): Don't define HAVE_MMAP. 2020-07-12 Bruno Haible Drop portability to IRIX 4. * trampoline/trampoline.c (PROT_EXEC): Remove fallback definition. * callback/trampoline_r/trampoline.c (PROT_EXEC): Likewise. 2020-07-12 Bruno Haible build: Simplify autoconf macros. * m4/codeexec.m4: Include the code from m4/mmap.m4 and m4/mprotect.m4. * m4/mmap.m4: Remove file. * m4/mprotect.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove them. * configure.ac: Invoke just FFCALL_CODEEXEC, instead of FFCALL_MMAP, FFCALL_MPROTECT, FFCALL_CODEEXEC, FFCALL_CODEEXEC_PAX. 2020-07-12 Bruno Haible build: Use autoconf macros from gnulib. * Makefile.maint (GNULIB_FILES): New variable. (gnulib-imported-files): Import the $(GNULIB_FILES) from gnulib. * Makefile.in (GNULIB_IMPORTED_FILES): Add m4/mmap-anon.m4. * configure.ac: Invoke gl_FUNC_MMAP_ANON. * m4/mmap.m4 (FFCALL_MMAP): Require gl_FUNC_MMAP_ANON. Don't test MAP_ANON. Don't set HAVE_MMAP_ANON. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Require gl_FUNC_MMAP_ANON. Don't test HAVE_MMAP_ANON. 2020-07-12 Bruno Haible build: Simplify autoconf macros. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Assume that all platforms that have mprotect also have ENOTSUP. 2020-07-12 Bruno Haible build: Use common GNU style in autoconf macros. * m4/mmap.m4 (FFCALL_MMAP): Define HAVE_MMAP, HAVE_MMAP_ANON, HAVE_MMAP_ANONYMOUS, HAVE_MMAP_DEVZERO to 1, not empty. * m4/mprotect.m4 (FFCALL_MPROTECT): Define HAVE_WORKING_MPROTECT to 1, not empty. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Define HAVE_MMAP_SHARED_CAN_EXEC to 1, not empty. * trampoline/trampoline.c: Test these macros with #if, not #ifdef. * callback/trampoline_r/trampoline.c: Likewise. 2020-07-11 Bruno Haible build: Modernize autoconf macros. * m4/mmap.m4 (FFCALL_MMAP): Use AC_RUN_IFELSE instead of AC_TRY_RUN. * m4/mprotect.m4 (FFCALL_MPROTECT): Likewise. * m4/codeexec.m4 (FFCALL_CODEEXEC, FFCALL_CODEEXEC_PAX): Likewise. 2020-07-11 Bruno Haible Drop portability to OSF/1. * trampoline/trampoline.c: Assume HAVE_MACH_VM is not defined. * callback/trampoline_r/trampoline.c: Likewise. * configure.ac: Don't invoke CL_MACH_VM. * m4/mach-vm.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove it. 2020-07-11 Bruno Haible build: Simplify autoconf macros. * trampoline/trampoline.c (getpagesize): Declare only on HP-UX. Remove fallback definition. * callback/trampoline_r/trampoline.c (getpagesize): Likewise. * configure.ac: Don't invoke CL_GETPAGESIZE. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Declare getpagesize only on HP-UX. Remove its fallback definition. * m4/mprotect.m4 (FFCALL_MPROTECT): Don't require CL_GETPAGESIZE. Declare getpagesize only on HP-UX. Remove its fallback definition. * m4/getpagesize.m4: Remove file. * m4/proto.m4: Remove file. * m4/general.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove them. 2020-07-11 Bruno Haible build: Simplify autoconf macros. * configure.ac: Don't invoke FFCALL_SMALL_STRUCT_RETURN, FFCALL_IREG_FLOAT_RETURN. * m4/ireg.m4: Remove file. * m4/smallstruct.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove them. 2020-07-11 Bruno Haible build: Simplify. * Makefile.maint (GNULIB_MODULES): Remove 'longlong'. 2020-07-11 Bruno Haible build: Simplify autoconf macros. * m4/codeexec.m4 (CE_DOC): Remove macro. (FFCALL_CODEEXEC): Inline it. 2020-07-11 Bruno Haible build: Simplify autoconf macros. * m4/getpagesize.m4 (CL_GETPAGESIZE): Inline CL_LINK_CHECK invocation. * m4/mach-vm.m4 (CL_MACH_VM): Likewise. * m4/general.m4 (CL_CHECK, CL_LINK_CHECK): Remove macros. 2020-07-11 Bruno Haible trampoline: Remove option to allocate memory through shared memory. * trampoline/trampoline.c: Remove EXECUTABLE_VIA_SHM and its uses. * callback/trampoline_r/trampoline.c: Likewise. * configure.ac: Don't invoke CL_SHM_H, CL_SHM. * m4/shm.m4: Remove file. * Makefile.in (SOURCE_FILES): Remove it. 2019-10-13 Bruno Haible build: Update after armv7l-linux-gnueabihf gcc version changed. * avcall/Makefile.devel (avcall-armhf-macro.S): Update. * vacall/Makefile.devel (vacall-armhf-linux.s, vacall-armhf-linux-pic.s): Likewise. * callback/vacall_r/Makefile.devel (vacall-armhf-macro.S): Likewise. 2019-10-13 Bruno Haible cross-tools: Fix compilation error of binutils 2.17 with makeinfo-6.x. * cross-tools/patches/binutils-2.17.patch: Fix sectioning in elf.texi. 2019-10-13 Bruno Haible cross-tools: Fix compilation error of binutils < 2.24 with makeinfo-6.1. This backports the fix from . * cross-tools/patches/binutils-2.12.90.0.7.patch: Escape @ characters inside @tex. * cross-tools/patches/binutils-2.16.1.patch: Likewise. * cross-tools/patches/binutils-2.17.patch: New file. 2019-10-09 Bruno Haible cross-tools: Fix compilation error for armhf CPU. * cross-tools/cross.conf (armhf): Use GCC version 6.5.0 instead of 6.3.0. * cross-tools/cross-build.sh (func_build_gcc): Expect GCC 6.x tarball in .xz format. 2019-10-08 Bruno Haible cross-tools: Work around error 500 on www.multiprecision.org. * cross-tools/cross-build.sh (func_build_mpc): Use alternate download location. 2019-10-08 Bruno Haible cross-tools: Reduce verbosity. * cross-tools/cross-build.sh (func_ensure_tarball): Use wget option '-nv'. 2019-09-01 Bruno Haible build: Add support for shallow-cloning of subdirectories. * gitsub.sh (func_usage): Document allowed git options with 'git pull'. (func_pull): Accept GIT_OPTIONS argument. (pull): Parse git options before complaining about too many arguments. Pass the git options to func_pull. 2019-08-29 Bruno Haible trampoline: Fix "illegal instruction" on mips32r6. Reported by Luyou Peng at . The instruction that, before mips32r6, encoded 'j $25' produces an "illegal instruction" on mips32r6. That instruction had the same effects as 'jal $0,$25'; this one works on mips32r6 and on all other MIPS ISAs. The assemblers and disassemblers were changed to map 'j $25' to 'jal $0,$25' and back automatically. * trampoline/trampoline.c (alloc_trampoline): On MIPS, use instruction 'jal $0,$25' instead of 'j $25'. * callback/trampoline_r/trampoline.c (alloc_trampoline_r): Likewise. 2019-08-28 Helmut Grohne (tiny change) Fix configure failure during a cross build. * m4/codeexec.m4 (FFCALL_CODEEXEC_PAX): Fix AC_TRY_RUN invocations. 2019-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.4/dummy/0000775000000000000000000000000014061422456011405 500000000000000libffcall-2.4/dummy/ffcall-version.h0000664000000000000000000000005013146127475014411 00000000000000/* This file is intentionally empty. */ libffcall-2.4/INSTALL.os20000644000000000000000000000051713030557144011724 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.4/Makefile.devel0000664000000000000000000000165713146127475012747 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.4/configure0000775000000000000000000343252614061422200012103 00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.71 for GNU libffcall 2.4. # # Report bugs to . # # # Copyright (C) 1992-1996, 1998-2017, 2020-2021 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 as_nop=: if test ${ZSH_VERSION+y} && (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 $as_nop case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi # Reset variables that may have inherited troublesome values from # the environment. # IFS needs to be set, to space, tab, and newline, in precisely that order. # (If _AS_PATH_WALK were called with IFS unset, it would have the # side effect of setting IFS to empty, thus disabling word splitting.) # Quoting is to prevent editors from complaining about space-tab. as_nl=' ' export as_nl IFS=" "" $as_nl" PS1='$ ' PS2='> ' PS4='+ ' # Ensure predictable behavior from utilities with locale-dependent output. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # We cannot yet rely on "unset" to work, but we need these variables # to be unset--not just set to an empty or harmless value--now, to # avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct # also avoids known problems related to "unset" and subshell syntax # in other old shells (e.g. bash 2.01 and pdksh 5.2.14). for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH do eval test \${$as_var+y} \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done # Ensure that fds 0, 1, and 2 are open. if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi if (exec 3>&2) ; then :; else exec 2>/dev/null; fi # The user is always right. if ${PATH_SEPARATOR+false} :; 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 # 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # 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'. printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 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="as_nop=: if test \${ZSH_VERSION+y} && (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 \$as_nop 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 \$as_nop exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 blah=\$(echo \$(echo blah)) test x\"\$blah\" = xblah || 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_nop as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null then : else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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_run=a "$as_shell" -c "$as_bourne_compatible""$as_required" 2>/dev/null then : CONFIG_SHELL=$as_shell as_have_required=yes if as_run=a "$as_shell" -c "$as_bourne_compatible""$as_suggested" 2>/dev/null then : break 2 fi fi done;; esac as_found=false done IFS=$as_save_IFS if $as_found then : else $as_nop if { test -f "$SHELL" || test -f "$SHELL.exe"; } && as_run=a "$SHELL" -c "$as_bourne_compatible""$as_required" 2>/dev/null then : CONFIG_SHELL=$SHELL as_have_required=yes fi fi 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'. printf "%s\n" "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno then : printf "%s\n" "$0: This script requires a shell more modern than all" printf "%s\n" "$0: the shells that I found on your system." if test ${ZSH_VERSION+y} ; then printf "%s\n" "$0: In particular, zsh $ZSH_VERSION has bugs and should" printf "%s\n" "$0: be upgraded to zsh 4.3.4 or later." else printf "%s\n" "$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_nop # --------- # Do nothing but, unlike ":", preserve the value of $?. as_fn_nop () { return $? } as_nop=as_fn_nop # 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=`printf "%s\n" "$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 || printf "%s\n" 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_nop 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_nop as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_nop # --------- # Do nothing but, unlike ":", preserve the value of $?. as_fn_nop () { return $? } as_nop=as_fn_nop # 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 printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi printf "%s\n" "$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 || printf "%s\n" 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" || { printf "%s\n" "$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 } # Determine whether it's possible to make 'echo' print without a newline. # These variables are no longer used directly by Autoconf, but are AC_SUBSTed # for compatibility with existing Makefiles. 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 # For backward compatibility with old third-party macros, we provide # the shell variables $as_echo and $as_echo_n. New code should use # AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. as_echo='printf %s\n' as_echo_n='printf %s' 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.4' PACKAGE_STRING='GNU libffcall 2.4' PACKAGE_BUGREPORT='https://savannah.gnu.org/projects/libffcall' PACKAGE_URL='https://www.gnu.org/software/libffcall/' ac_unique_file="trampoline/trampoline.h" # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_STDIO_H # include #endif #ifdef HAVE_STDLIB_H # include #endif #ifdef HAVE_STRING_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_header_c_list= gl_use_threads_default= gl_use_winpthreads_default= ac_func_c_list= ac_subst_vars='gltests_LTLIBOBJS gltests_LIBOBJS gl_LTLIBOBJS gl_LIBOBJS am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBOBJS gltests_WITNESS HAVE_UNISTD_H NEXT_AS_FIRST_DIRECTIVE_UNISTD_H NEXT_UNISTD_H GL_GNULIB_MDA_TZSET GL_GNULIB_TZSET GL_GNULIB_TIME_RZ GL_GNULIB_TIME_R GL_GNULIB_TIMESPEC_GET GL_GNULIB_TIMEGM GL_GNULIB_STRPTIME GL_GNULIB_STRFTIME GL_GNULIB_NANOSLEEP GL_GNULIB_LOCALTIME GL_GNULIB_MKTIME GL_GNULIB_CTIME TIME_H_DEFINES_TIME_UTC UNISTD_H_DEFINES_STRUCT_TIMESPEC PTHREAD_H_DEFINES_STRUCT_TIMESPEC SYS_TIME_H_DEFINES_STRUCT_TIMESPEC TIME_H_DEFINES_STRUCT_TIMESPEC NEXT_AS_FIRST_DIRECTIVE_TIME_H NEXT_TIME_H REPLACE_LOCALTIME REPLACE_GMTIME GNULIB_GETTIMEOFDAY REPLACE_TZSET REPLACE_TIMEGM REPLACE_STRFTIME REPLACE_NANOSLEEP REPLACE_MKTIME REPLACE_LOCALTIME_R REPLACE_CTIME HAVE_TIMEZONE_T HAVE_TIMESPEC_GET HAVE_TIMEGM HAVE_STRPTIME HAVE_NANOSLEEP HAVE_DECL_LOCALTIME_R WINDOWS_STAT_INODES WINDOWS_64_BIT_OFF_T NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H NEXT_SYS_TYPES_H NEXT_AS_FIRST_DIRECTIVE_STRING_H NEXT_STRING_H GL_GNULIB_MDA_STRDUP GL_GNULIB_MDA_MEMCCPY GL_GNULIB_STRVERSCMP GL_GNULIB_STRSIGNAL GL_GNULIB_SIGDESCR_NP GL_GNULIB_SIGABBREV_NP GL_GNULIB_STRERRORNAME_NP GL_GNULIB_STRERROR_R GL_GNULIB_STRERROR GL_GNULIB_MBSTOK_R GL_GNULIB_MBSSEP GL_GNULIB_MBSSPN GL_GNULIB_MBSPBRK GL_GNULIB_MBSCSPN GL_GNULIB_MBSCASESTR GL_GNULIB_MBSPCASECMP GL_GNULIB_MBSNCASECMP GL_GNULIB_MBSCASECMP GL_GNULIB_MBSSTR GL_GNULIB_MBSRCHR GL_GNULIB_MBSCHR GL_GNULIB_MBSNLEN GL_GNULIB_MBSLEN GL_GNULIB_STRTOK_R GL_GNULIB_STRCASESTR GL_GNULIB_STRSTR GL_GNULIB_STRSEP GL_GNULIB_STRPBRK GL_GNULIB_STRNLEN GL_GNULIB_STRNDUP GL_GNULIB_STRNCAT GL_GNULIB_STRDUP GL_GNULIB_STRCHRNUL GL_GNULIB_STPNCPY GL_GNULIB_STPCPY GL_GNULIB_RAWMEMCHR GL_GNULIB_MEMRCHR GL_GNULIB_MEMPCPY GL_GNULIB_MEMMEM GL_GNULIB_MEMCHR GL_GNULIB_FFSLL GL_GNULIB_FFSL GL_GNULIB_EXPLICIT_BZERO UNDEFINE_STRTOK_R REPLACE_STRSIGNAL REPLACE_STRERRORNAME_NP REPLACE_STRERROR_R REPLACE_STRERROR REPLACE_STRTOK_R REPLACE_STRCASESTR REPLACE_STRSTR REPLACE_STRNLEN REPLACE_STRNDUP REPLACE_STRNCAT REPLACE_STRDUP REPLACE_STRCHRNUL REPLACE_STPNCPY REPLACE_MEMMEM REPLACE_MEMCHR REPLACE_FFSLL HAVE_STRVERSCMP HAVE_DECL_STRSIGNAL HAVE_SIGDESCR_NP HAVE_SIGABBREV_NP HAVE_STRERRORNAME_NP HAVE_DECL_STRERROR_R HAVE_DECL_STRTOK_R HAVE_STRCASESTR HAVE_STRSEP HAVE_STRPBRK HAVE_DECL_STRNLEN HAVE_DECL_STRNDUP HAVE_DECL_STRDUP HAVE_STRCHRNUL HAVE_STPNCPY HAVE_STPCPY HAVE_RAWMEMCHR HAVE_DECL_MEMRCHR HAVE_MEMPCPY HAVE_DECL_MEMMEM HAVE_FFSLL HAVE_FFSL HAVE_EXPLICIT_BZERO HAVE_MBSLEN GL_GENERATE_STDNORETURN_H_FALSE GL_GENERATE_STDNORETURN_H_TRUE STDNORETURN_H GL_GNULIB_MDA_TEMPNAM GL_GNULIB_MDA_PUTW GL_GNULIB_MDA_GETW GL_GNULIB_MDA_FILENO GL_GNULIB_MDA_FDOPEN GL_GNULIB_MDA_FCLOSEALL GL_GNULIB_VSPRINTF_POSIX GL_GNULIB_VSNPRINTF GL_GNULIB_VPRINTF_POSIX GL_GNULIB_VPRINTF GL_GNULIB_VFPRINTF_POSIX GL_GNULIB_VFPRINTF GL_GNULIB_VDPRINTF GL_GNULIB_VSCANF GL_GNULIB_VFSCANF GL_GNULIB_VASPRINTF GL_GNULIB_TMPFILE GL_GNULIB_STDIO_H_SIGPIPE GL_GNULIB_STDIO_H_NONBLOCKING GL_GNULIB_SPRINTF_POSIX GL_GNULIB_SNPRINTF GL_GNULIB_SCANF GL_GNULIB_RENAMEAT GL_GNULIB_RENAME GL_GNULIB_REMOVE GL_GNULIB_PUTS GL_GNULIB_PUTCHAR GL_GNULIB_PUTC GL_GNULIB_PRINTF_POSIX GL_GNULIB_PRINTF GL_GNULIB_POPEN GL_GNULIB_PERROR GL_GNULIB_PCLOSE GL_GNULIB_OBSTACK_PRINTF_POSIX GL_GNULIB_OBSTACK_PRINTF GL_GNULIB_GETLINE GL_GNULIB_GETDELIM GL_GNULIB_GETCHAR GL_GNULIB_GETC GL_GNULIB_FWRITE GL_GNULIB_FTELLO GL_GNULIB_FTELL GL_GNULIB_FSEEKO GL_GNULIB_FSEEK GL_GNULIB_FSCANF GL_GNULIB_FREOPEN GL_GNULIB_FREAD GL_GNULIB_FPUTS GL_GNULIB_FPUTC GL_GNULIB_FPURGE GL_GNULIB_FPRINTF_POSIX GL_GNULIB_FPRINTF GL_GNULIB_FOPEN GL_GNULIB_FGETS GL_GNULIB_FGETC GL_GNULIB_FFLUSH GL_GNULIB_FDOPEN GL_GNULIB_FCLOSE GL_GNULIB_DPRINTF NEXT_AS_FIRST_DIRECTIVE_STDIO_H NEXT_STDIO_H REPLACE_VSPRINTF REPLACE_VSNPRINTF REPLACE_VPRINTF REPLACE_VFPRINTF REPLACE_VDPRINTF REPLACE_VASPRINTF REPLACE_TMPFILE REPLACE_STDIO_WRITE_FUNCS REPLACE_STDIO_READ_FUNCS REPLACE_SPRINTF REPLACE_SNPRINTF REPLACE_RENAMEAT REPLACE_RENAME REPLACE_REMOVE REPLACE_PRINTF REPLACE_POPEN REPLACE_PERROR REPLACE_OBSTACK_PRINTF REPLACE_GETLINE REPLACE_GETDELIM REPLACE_FTELLO REPLACE_FTELL REPLACE_FSEEKO REPLACE_FSEEK REPLACE_FREOPEN REPLACE_FPURGE REPLACE_FPRINTF REPLACE_FOPEN REPLACE_FFLUSH REPLACE_FDOPEN REPLACE_FCLOSE REPLACE_DPRINTF HAVE_VDPRINTF HAVE_VASPRINTF HAVE_RENAMEAT HAVE_POPEN HAVE_PCLOSE HAVE_FTELLO HAVE_FSEEKO HAVE_DPRINTF HAVE_DECL_VSNPRINTF HAVE_DECL_SNPRINTF HAVE_DECL_OBSTACK_PRINTF HAVE_DECL_GETLINE HAVE_DECL_GETDELIM HAVE_DECL_FTELLO HAVE_DECL_FSEEKO HAVE_DECL_FPURGE HAVE_DECL_FCLOSEALL 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 GNULIBHEADERS_OVERRIDE_WINT_T NEXT_AS_FIRST_DIRECTIVE_STDDEF_H NEXT_STDDEF_H GL_GENERATE_STDDEF_H_FALSE GL_GENERATE_STDDEF_H_TRUE STDDEF_H HAVE_WCHAR_T HAVE_MAX_ALIGN_T REPLACE_NULL HAVE__BOOL GL_GENERATE_STDBOOL_H_FALSE GL_GENERATE_STDBOOL_H_TRUE STDBOOL_H NEXT_AS_FIRST_DIRECTIVE_SIGNAL_H NEXT_SIGNAL_H GL_GNULIB_SIGACTION GL_GNULIB_SIGPROCMASK GL_GNULIB_SIGNAL_H_SIGPIPE GL_GNULIB_RAISE GL_GNULIB_PTHREAD_SIGMASK REPLACE_RAISE REPLACE_PTHREAD_SIGMASK HAVE_SIGHANDLER_T HAVE_TYPE_VOLATILE_SIG_ATOMIC_T HAVE_STRUCT_SIGACTION_SA_SIGACTION HAVE_SIGACTION HAVE_SIGINFO_T HAVE_SIGSET_T HAVE_RAISE HAVE_PTHREAD_SIGMASK HAVE_POSIX_SIGNALBLOCKING APPLE_UNIVERSAL_BUILD LTLIBMULTITHREAD LIBMULTITHREAD LTLIBTHREAD LIBTHREAD LIBSTDTHREAD LIB_SCHED_YIELD LIBPMULTITHREAD LIBPTHREAD GL_GENERATE_LIMITS_H_FALSE GL_GENERATE_LIMITS_H_TRUE LIMITS_H NEXT_AS_FIRST_DIRECTIVE_LIMITS_H NEXT_LIMITS_H LTLIBINTL LIBINTL GL_GNULIB_MDA_UMASK GL_GNULIB_MDA_MKDIR GL_GNULIB_MDA_CHMOD GL_GNULIB_OVERRIDES_STRUCT_STAT GL_GNULIB_UTIMENSAT GL_GNULIB_STAT GL_GNULIB_MKNODAT GL_GNULIB_MKNOD GL_GNULIB_MKFIFOAT GL_GNULIB_MKFIFO GL_GNULIB_MKDIRAT GL_GNULIB_MKDIR GL_GNULIB_LSTAT GL_GNULIB_LCHMOD GL_GNULIB_GETUMASK GL_GNULIB_FUTIMENS GL_GNULIB_FSTATAT GL_GNULIB_FSTAT GL_GNULIB_FCHMODAT WINDOWS_64_BIT_ST_SIZE WINDOWS_STAT_TIMESPEC NEXT_AS_FIRST_DIRECTIVE_SYS_STAT_H NEXT_SYS_STAT_H REPLACE_UTIMENSAT REPLACE_STAT REPLACE_MKNODAT REPLACE_MKNOD REPLACE_MKFIFOAT REPLACE_MKFIFO REPLACE_MKDIR REPLACE_LSTAT REPLACE_FUTIMENS REPLACE_FSTATAT REPLACE_FSTAT REPLACE_FCHMODAT HAVE_UTIMENSAT HAVE_MKNODAT HAVE_MKNOD HAVE_MKFIFOAT HAVE_MKFIFO HAVE_MKDIRAT HAVE_LSTAT HAVE_LCHMOD HAVE_GETUMASK HAVE_FUTIMENS HAVE_FSTATAT HAVE_FCHMODAT NEXT_AS_FIRST_DIRECTIVE_FCNTL_H NEXT_FCNTL_H GL_GNULIB_MDA_OPEN GL_GNULIB_MDA_CREAT GL_GNULIB_OPENAT GL_GNULIB_OPEN GL_GNULIB_NONBLOCKING GL_GNULIB_FCNTL GL_GNULIB_CREAT REPLACE_OPENAT REPLACE_OPEN REPLACE_FCNTL REPLACE_CREAT HAVE_OPENAT HAVE_FCNTL EOVERFLOW_VALUE EOVERFLOW_HIDDEN ENOLINK_VALUE ENOLINK_HIDDEN EMULTIHOP_VALUE EMULTIHOP_HIDDEN GL_GENERATE_ERRNO_H_FALSE GL_GENERATE_ERRNO_H_TRUE ERRNO_H NEXT_AS_FIRST_DIRECTIVE_ERRNO_H NEXT_ERRNO_H PRAGMA_COLUMNS PRAGMA_SYSTEM_HEADER INCLUDE_NEXT_AS_FIRST_DIRECTIVE INCLUDE_NEXT GL_GNULIB_MDA_WRITE GL_GNULIB_MDA_UNLINK GL_GNULIB_MDA_SWAB GL_GNULIB_MDA_RMDIR GL_GNULIB_MDA_READ GL_GNULIB_MDA_LSEEK GL_GNULIB_MDA_ISATTY GL_GNULIB_MDA_GETPID GL_GNULIB_MDA_GETCWD GL_GNULIB_MDA_EXECVPE GL_GNULIB_MDA_EXECVP GL_GNULIB_MDA_EXECVE GL_GNULIB_MDA_EXECV GL_GNULIB_MDA_EXECLP GL_GNULIB_MDA_EXECLE GL_GNULIB_MDA_EXECL GL_GNULIB_MDA_DUP2 GL_GNULIB_MDA_DUP GL_GNULIB_MDA_CLOSE GL_GNULIB_MDA_CHDIR GL_GNULIB_MDA_ACCESS GL_GNULIB_WRITE GL_GNULIB_USLEEP GL_GNULIB_UNLINKAT GL_GNULIB_UNLINK GL_GNULIB_UNISTD_H_SIGPIPE GL_GNULIB_UNISTD_H_NONBLOCKING GL_GNULIB_TTYNAME_R GL_GNULIB_TRUNCATE GL_GNULIB_SYMLINKAT GL_GNULIB_SYMLINK GL_GNULIB_SLEEP GL_GNULIB_SETHOSTNAME GL_GNULIB_RMDIR GL_GNULIB_READLINKAT GL_GNULIB_READLINK GL_GNULIB_READ GL_GNULIB_PWRITE GL_GNULIB_PREAD GL_GNULIB_PIPE2 GL_GNULIB_PIPE GL_GNULIB_LSEEK GL_GNULIB_LINKAT GL_GNULIB_LINK GL_GNULIB_LCHOWN GL_GNULIB_ISATTY GL_GNULIB_GROUP_MEMBER GL_GNULIB_GETUSERSHELL GL_GNULIB_GETPASS GL_GNULIB_GETPAGESIZE GL_GNULIB_GETOPT_POSIX GL_GNULIB_GETLOGIN_R GL_GNULIB_GETLOGIN GL_GNULIB_GETHOSTNAME GL_GNULIB_GETGROUPS GL_GNULIB_GETENTROPY GL_GNULIB_GETDTABLESIZE GL_GNULIB_GETDOMAINNAME GL_GNULIB_GETCWD GL_GNULIB_FTRUNCATE GL_GNULIB_FSYNC GL_GNULIB_FDATASYNC GL_GNULIB_FCHOWNAT GL_GNULIB_FCHDIR GL_GNULIB_FACCESSAT GL_GNULIB_EXECVPE GL_GNULIB_EXECVP GL_GNULIB_EXECVE GL_GNULIB_EXECV GL_GNULIB_EXECLP GL_GNULIB_EXECLE GL_GNULIB_EXECL GL_GNULIB_EUIDACCESS GL_GNULIB_ENVIRON GL_GNULIB_DUP3 GL_GNULIB_DUP2 GL_GNULIB_DUP GL_GNULIB_COPY_FILE_RANGE GL_GNULIB_CLOSE GL_GNULIB_CHOWN GL_GNULIB_CHDIR GL_GNULIB_ACCESS HAVE_WINSOCK2_H HAVE_MSVC_INVALID_PARAMETER_HANDLER UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS UNISTD_H_HAVE_WINSOCK2_H UNISTD_H_HAVE_SYS_RANDOM_H REPLACE_WRITE REPLACE_USLEEP REPLACE_UNLINKAT REPLACE_UNLINK REPLACE_TTYNAME_R REPLACE_TRUNCATE REPLACE_SYMLINKAT REPLACE_SYMLINK REPLACE_SLEEP REPLACE_RMDIR REPLACE_READLINKAT REPLACE_READLINK REPLACE_READ REPLACE_PWRITE REPLACE_PREAD REPLACE_LSEEK REPLACE_LINKAT REPLACE_LINK REPLACE_LCHOWN REPLACE_ISATTY REPLACE_GETPASS REPLACE_GETPAGESIZE REPLACE_GETGROUPS REPLACE_GETLOGIN_R REPLACE_GETDTABLESIZE REPLACE_GETDOMAINNAME REPLACE_GETCWD REPLACE_FTRUNCATE REPLACE_FCHOWNAT REPLACE_FACCESSAT REPLACE_EXECVPE REPLACE_EXECVP REPLACE_EXECVE REPLACE_EXECV REPLACE_EXECLP REPLACE_EXECLE REPLACE_EXECL REPLACE_DUP2 REPLACE_DUP REPLACE_CLOSE REPLACE_CHOWN REPLACE_ACCESS HAVE_SYS_PARAM_H HAVE_OS_H HAVE_DECL_TTYNAME_R HAVE_DECL_TRUNCATE HAVE_DECL_SETHOSTNAME HAVE_DECL_GETUSERSHELL HAVE_DECL_GETPAGESIZE HAVE_DECL_GETLOGIN_R HAVE_DECL_GETLOGIN HAVE_DECL_GETDOMAINNAME HAVE_DECL_FDATASYNC HAVE_DECL_FCHDIR HAVE_DECL_EXECVPE HAVE_DECL_ENVIRON HAVE_USLEEP HAVE_UNLINKAT HAVE_SYMLINKAT HAVE_SYMLINK HAVE_SLEEP HAVE_SETHOSTNAME HAVE_READLINKAT HAVE_READLINK HAVE_PWRITE HAVE_PREAD HAVE_PIPE2 HAVE_PIPE HAVE_LINKAT HAVE_LINK HAVE_LCHOWN HAVE_GROUP_MEMBER HAVE_GETPASS HAVE_GETPAGESIZE HAVE_GETLOGIN HAVE_GETHOSTNAME HAVE_GETGROUPS HAVE_GETENTROPY HAVE_GETDTABLESIZE HAVE_FTRUNCATE HAVE_FSYNC HAVE_FDATASYNC HAVE_FCHOWNAT HAVE_FCHDIR HAVE_FACCESSAT HAVE_EXECVPE HAVE_EUIDACCESS HAVE_DUP3 HAVE_COPY_FILE_RANGE HAVE_CHOWN HAVE_ALLOCA_H GL_GENERATE_ALLOCA_H_FALSE GL_GENERATE_ALLOCA_H_TRUE ALLOCA_H ALLOCA GL_COND_LIBTOOL_FALSE GL_COND_LIBTOOL_TRUE DISABLE_TYPE_BASED_ALIASING WORKAROUND_BUG_81653 CPU_OBJECTS CXXCPP 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__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 runstatedir 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 am__quote' ac_subst_files='' ac_user_opts=' enable_option_checking enable_silent_rules enable_dependency_tracking enable_c__ enable_largefile enable_threads enable_shared enable_static with_pic enable_fast_install with_aix_soname with_gnu_ld with_sysroot enable_libtool_lock enable_cross_guesses ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP CXX CXXFLAGS LT_SYS_LIBRARY_PATH CXXCPP' # 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' runstatedir='${localstatedir}/run' 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 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=`printf "%s\n" "$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=`printf "%s\n" "$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 ;; -runstatedir | --runstatedir | --runstatedi | --runstated \ | --runstate | --runstat | --runsta | --runst | --runs \ | --run | --ru | --r) ac_prev=runstatedir ;; -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \ | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \ | --run=* | --ru=* | --r=*) runstatedir=$ac_optarg ;; -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=`printf "%s\n" "$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=`printf "%s\n" "$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. printf "%s\n" "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && printf "%s\n" "$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" ;; *) printf "%s\n" "$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 runstatedir 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 || printf "%s\n" 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.4 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] --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run] --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.4:";; 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 --disable-largefile omit support for large files --enable-threads={isoc|posix|isoc+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) --enable-cross-guesses={conservative|risky} specify policy for cross-compilation guesses 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. CXXCPP C++ preprocessor 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=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`printf "%s\n" "$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 configure.gnu first; this name is used for a wrapper for # Metaconfig's "Configure" on case-insensitive file systems. 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 printf "%s\n" "$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.4 generated by GNU Autoconf 2.71 Copyright (C) 2021 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 conftest.beam 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\"" printf "%s\n" "$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 printf "%s\n" "$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_nop printf "%s\n" "$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\"" printf "%s\n" "$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 printf "%s\n" "$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_nop printf "%s\n" "$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_cxx_try_compile LINENO # ---------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_cxx_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest.beam 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\"" printf "%s\n" "$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 printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_cxx_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext then : ac_retval=0 else $as_nop printf "%s\n" "$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_cxx_try_compile # 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 printf %s "checking for $2... " >&6; } if eval test \${$3+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi eval ac_res=\$$3 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$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.beam 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\"" printf "%s\n" "$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 printf "%s\n" "$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_nop printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 printf %s "checking for $2... " >&6; } if eval test \${$3+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ #include #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 (void) { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : eval "$3=yes" else $as_nop eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func # ac_fn_cxx_try_cpp LINENO # ------------------------ # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_cxx_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\"" printf "%s\n" "$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 printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_cxx_preproc_warn_flag$ac_cxx_werror_flag" || test ! -s conftest.err } then : ac_retval=0 else $as_nop printf "%s\n" "$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_cxx_try_cpp # ac_fn_cxx_try_link LINENO # ------------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_cxx_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest.beam 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\"" printf "%s\n" "$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 printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_cxx_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_nop printf "%s\n" "$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_cxx_try_link # ac_fn_c_try_run LINENO # ---------------------- # Try to run 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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? printf "%s\n" "$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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; } then : ac_retval=0 else $as_nop printf "%s\n" "$as_me: program exited with status $ac_status" >&5 printf "%s\n" "$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_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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 printf %s "checking for $2... " >&6; } if eval test \${$3+y} then : printf %s "(cached) " >&6 else $as_nop eval "$3=no" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main (void) { 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 (void) { if (sizeof (($2))) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : else $as_nop eval "$3=yes" fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi eval ac_res=\$$3 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$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 (void) { 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 (void) { 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_nop 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.beam conftest.$ac_ext done else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main (void) { 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 (void) { 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_nop 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.beam conftest.$ac_ext done else $as_nop ac_lo= ac_hi= fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 (void) { 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_nop as_fn_arith '(' $ac_mid ')' + 1 && ac_lo=$as_val fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 (void) { return $2; } static unsigned long int ulongval (void) { return $2; } #include #include int main (void) { 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 &5 printf %s "checking whether $as_decl_name is declared... " >&6; } if eval test \${$3+y} then : printf %s "(cached) " >&6 else $as_nop as_decl_use=`echo $2|sed -e 's/(/((/' -e 's/)/) 0&/' -e 's/,/) 0& (/g'` eval ac_save_FLAGS=\$$6 as_fn_append $6 " $5" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main (void) { #ifndef $as_decl_name #ifdef __cplusplus (void) $as_decl_use; #else (void) $as_decl_name; #endif #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : eval "$3=yes" else $as_nop eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext eval $6=\$ac_save_FLAGS fi eval ac_res=\$$3 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno ac_compile="$ac_save_ac_compile" } # ac_fn_check_decl # ac_fn_c_check_member LINENO AGGR MEMBER VAR INCLUDES # ---------------------------------------------------- # Tries to find if the field MEMBER exists in type AGGR, after including # INCLUDES, setting cache variable VAR accordingly. ac_fn_c_check_member () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $2.$3" >&5 printf %s "checking for $2.$3... " >&6; } if eval test \${$4+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $5 int main (void) { static $2 ac_aggr; if (ac_aggr.$3) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : eval "$4=yes" else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $5 int main (void) { static $2 ac_aggr; if (sizeof ac_aggr.$3) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : eval "$4=yes" else $as_nop eval "$4=no" fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi eval ac_res=\$$4 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_member ac_configure_args_raw= for ac_arg do case $ac_arg in *\'*) ac_arg=`printf "%s\n" "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append ac_configure_args_raw " '$ac_arg'" done case $ac_configure_args_raw in *$as_nl*) ac_safe_unquote= ;; *) ac_unsafe_z='|&;<>()$`\\"*?[ '' ' # This string ends in space, tab. ac_unsafe_a="$ac_unsafe_z#~" ac_safe_unquote="s/ '\\([^$ac_unsafe_a][^$ac_unsafe_z]*\\)'/ \\1/g" ac_configure_args_raw=` printf "%s\n" "$ac_configure_args_raw" | sed "$ac_safe_unquote"`;; esac cat >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.4, which was generated by GNU Autoconf 2.71. Invocation command line was $ $0$ac_configure_args_raw _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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac printf "%s\n" "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=`printf "%s\n" "$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=$? # Sanitize IFS. IFS=" "" $as_nl" # Save into config.log some information that might help in debugging. { echo printf "%s\n" "## ---------------- ## ## 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_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 printf "%s\n" "$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 printf "%s\n" "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac printf "%s\n" "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then printf "%s\n" "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`printf "%s\n" "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac printf "%s\n" "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then printf "%s\n" "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && printf "%s\n" "$as_me: caught signal $ac_signal" printf "%s\n" "$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 printf "%s\n" "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. printf "%s\n" "#define PACKAGE_NAME \"$PACKAGE_NAME\"" >>confdefs.h printf "%s\n" "#define PACKAGE_TARNAME \"$PACKAGE_TARNAME\"" >>confdefs.h printf "%s\n" "#define PACKAGE_VERSION \"$PACKAGE_VERSION\"" >>confdefs.h printf "%s\n" "#define PACKAGE_STRING \"$PACKAGE_STRING\"" >>confdefs.h printf "%s\n" "#define PACKAGE_BUGREPORT \"$PACKAGE_BUGREPORT\"" >>confdefs.h printf "%s\n" "#define PACKAGE_URL \"$PACKAGE_URL\"" >>confdefs.h # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. if test -n "$CONFIG_SITE"; then ac_site_files="$CONFIG_SITE" elif test "x$prefix" != xNONE; then ac_site_files="$prefix/share/config.site $prefix/etc/config.site" else ac_site_files="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi for ac_site_file in $ac_site_files do case $ac_site_file in #( */*) : ;; #( *) : ac_site_file=./$ac_site_file ;; esac if test -f "$ac_site_file" && test -r "$ac_site_file"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 printf "%s\n" "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 printf "%s\n" "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 printf "%s\n" "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Test code for whether the C compiler supports C89 (global declarations) ac_c_conftest_c89_globals=' /* Does the compiler advertise C89 conformance? Do not test the value of __STDC__, because some compilers set it to 0 while being otherwise adequately conformant. */ #if !defined __STDC__ # error "Compiler does not advertise C89 conformance" #endif #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7 src/conf.sh. */ struct buf { int x; }; struct buf * (*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 do not provoke an error unfortunately, instead are silently treated as an "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 is necessary to write \x00 == 0 to get something that is 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 **, int *(*)(struct buf *, struct stat *, int), int, int);' # Test code for whether the C compiler supports C89 (body of main). ac_c_conftest_c89_main=' ok |= (argc == 0 || f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]); ' # Test code for whether the C compiler supports C99 (global declarations) ac_c_conftest_c99_globals=' // Does the compiler advertise C99 conformance? #if !defined __STDC_VERSION__ || __STDC_VERSION__ < 199901L # error "Compiler does not advertise C99 conformance" #endif #include extern int puts (const char *); extern int printf (const char *, ...); extern int dprintf (int, const char *, ...); extern void *malloc (size_t); // Check varargs macros. These examples are taken from C99 6.10.3.5. // dprintf is used instead of fprintf to avoid needing to declare // FILE and stderr. #define debug(...) dprintf (2, __VA_ARGS__) #define showlist(...) puts (#__VA_ARGS__) #define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) static void test_varargs_macros (void) { int x = 1234; int y = 5678; debug ("Flag"); debug ("X = %d\n", x); showlist (The first, second, and third items.); report (x>y, "x is %d but y is %d", x, y); } // Check long long types. #define BIG64 18446744073709551615ull #define BIG32 4294967295ul #define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) #if !BIG_OK #error "your preprocessor is broken" #endif #if BIG_OK #else #error "your preprocessor is broken" #endif static long long int bignum = -9223372036854775807LL; static unsigned long long int ubignum = BIG64; struct incomplete_array { int datasize; double data[]; }; struct named_init { int number; const wchar_t *name; double average; }; typedef const char *ccp; static inline int test_restrict (ccp restrict text) { // See if C++-style comments work. // Iterate through items via the restricted pointer. // Also check for declarations in for loops. for (unsigned int i = 0; *(text+i) != '\''\0'\''; ++i) continue; return 0; } // Check varargs and va_copy. static bool test_varargs (const char *format, ...) { va_list args; va_start (args, format); va_list args_copy; va_copy (args_copy, args); const char *str = ""; int number = 0; float fnumber = 0; while (*format) { switch (*format++) { case '\''s'\'': // string str = va_arg (args_copy, const char *); break; case '\''d'\'': // int number = va_arg (args_copy, int); break; case '\''f'\'': // float fnumber = va_arg (args_copy, double); break; default: break; } } va_end (args_copy); va_end (args); return *str && number && fnumber; } ' # Test code for whether the C compiler supports C99 (body of main). ac_c_conftest_c99_main=' // Check bool. _Bool success = false; success |= (argc != 0); // Check restrict. if (test_restrict ("String literal") == 0) success = true; char *restrict newvar = "Another string"; // Check varargs. success &= test_varargs ("s, d'\'' f .", "string", 65, 34.234); test_varargs_macros (); // Check flexible array members. struct incomplete_array *ia = malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); ia->datasize = 10; for (int i = 0; i < ia->datasize; ++i) ia->data[i] = i * 1.234; // Check named initializers. struct named_init ni = { .number = 34, .name = L"Test wide string", .average = 543.34343, }; ni.number = 58; int dynamic_array[ni.number]; dynamic_array[0] = argv[0][0]; dynamic_array[ni.number - 1] = 543; // work around unused variable warnings ok |= (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == '\''x'\'' || dynamic_array[ni.number - 1] != 543); ' # Test code for whether the C compiler supports C11 (global declarations) ac_c_conftest_c11_globals=' // Does the compiler advertise C11 conformance? #if !defined __STDC_VERSION__ || __STDC_VERSION__ < 201112L # error "Compiler does not advertise C11 conformance" #endif // Check _Alignas. char _Alignas (double) aligned_as_double; char _Alignas (0) no_special_alignment; extern char aligned_as_int; char _Alignas (0) _Alignas (int) aligned_as_int; // Check _Alignof. enum { int_alignment = _Alignof (int), int_array_alignment = _Alignof (int[100]), char_alignment = _Alignof (char) }; _Static_assert (0 < -_Alignof (int), "_Alignof is signed"); // Check _Noreturn. int _Noreturn does_not_return (void) { for (;;) continue; } // Check _Static_assert. struct test_static_assert { int x; _Static_assert (sizeof (int) <= sizeof (long int), "_Static_assert does not work in struct"); long int y; }; // Check UTF-8 literals. #define u8 syntax error! char const utf8_literal[] = u8"happens to be ASCII" "another string"; // Check duplicate typedefs. typedef long *long_ptr; typedef long int *long_ptr; typedef long_ptr long_ptr; // Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1. struct anonymous { union { struct { int i; int j; }; struct { int k; long int l; } w; }; int m; } v1; ' # Test code for whether the C compiler supports C11 (body of main). ac_c_conftest_c11_main=' _Static_assert ((offsetof (struct anonymous, i) == offsetof (struct anonymous, w.k)), "Anonymous union alignment botch"); v1.i = 2; v1.w.k = 5; ok |= v1.i != 5; ' # Test code for whether the C compiler supports C11 (complete). ac_c_conftest_c11_program="${ac_c_conftest_c89_globals} ${ac_c_conftest_c99_globals} ${ac_c_conftest_c11_globals} int main (int argc, char **argv) { int ok = 0; ${ac_c_conftest_c89_main} ${ac_c_conftest_c99_main} ${ac_c_conftest_c11_main} return ok; } " # Test code for whether the C compiler supports C99 (complete). ac_c_conftest_c99_program="${ac_c_conftest_c89_globals} ${ac_c_conftest_c99_globals} int main (int argc, char **argv) { int ok = 0; ${ac_c_conftest_c89_main} ${ac_c_conftest_c99_main} return ok; } " # Test code for whether the C compiler supports C89 (complete). ac_c_conftest_c89_program="${ac_c_conftest_c89_globals} int main (int argc, char **argv) { int ok = 0; ${ac_c_conftest_c89_main} return ok; } " as_fn_append ac_header_c_list " stdio.h stdio_h HAVE_STDIO_H" as_fn_append ac_header_c_list " stdlib.h stdlib_h HAVE_STDLIB_H" as_fn_append ac_header_c_list " string.h string_h HAVE_STRING_H" as_fn_append ac_header_c_list " inttypes.h inttypes_h HAVE_INTTYPES_H" as_fn_append ac_header_c_list " stdint.h stdint_h HAVE_STDINT_H" as_fn_append ac_header_c_list " strings.h strings_h HAVE_STRINGS_H" as_fn_append ac_header_c_list " sys/stat.h sys_stat_h HAVE_SYS_STAT_H" as_fn_append ac_header_c_list " sys/types.h sys_types_h HAVE_SYS_TYPES_H" as_fn_append ac_header_c_list " unistd.h unistd_h HAVE_UNISTD_H" as_fn_append ac_header_c_list " wchar.h wchar_h HAVE_WCHAR_H" as_fn_append ac_header_c_list " minix/config.h minix_config_h HAVE_MINIX_CONFIG_H" as_fn_append ac_header_c_list " pthread.h pthread_h HAVE_PTHREAD_H" as_fn_append ac_func_c_list " _set_invalid_parameter_handler HAVE__SET_INVALID_PARAMETER_HANDLER" as_fn_append ac_header_c_list " sys/socket.h sys_socket_h HAVE_SYS_SOCKET_H" as_fn_append ac_func_c_list " fcntl HAVE_FCNTL" as_fn_append ac_func_c_list " symlink HAVE_SYMLINK" as_fn_append ac_func_c_list " getdtablesize HAVE_GETDTABLESIZE" as_fn_append ac_func_c_list " getprogname HAVE_GETPROGNAME" as_fn_append ac_func_c_list " getexecname HAVE_GETEXECNAME" as_fn_append ac_header_c_list " limits.h limits_h HAVE_LIMITS_H" as_fn_append ac_header_c_list " threads.h threads_h HAVE_THREADS_H" as_fn_append ac_func_c_list " lstat HAVE_LSTAT" as_fn_append ac_header_c_list " sys/param.h sys_param_h HAVE_SYS_PARAM_H" as_fn_append ac_func_c_list " sigaction HAVE_SIGACTION" as_fn_append ac_func_c_list " sigaltstack HAVE_SIGALTSTACK" as_fn_append ac_func_c_list " siginterrupt HAVE_SIGINTERRUPT" as_fn_append ac_header_c_list " sys/time.h sys_time_h HAVE_SYS_TIME_H" # Auxiliary files required by this configure script. ac_aux_files="ltmain.sh config.guess config.sub compile missing install-sh" # Locations in which to look for auxiliary files. ac_aux_dir_candidates="${srcdir}/build-aux" # Search for a directory containing all of the required auxiliary files, # $ac_aux_files, from the $PATH-style list $ac_aux_dir_candidates. # If we don't find one directory that contains all the files we need, # we report the set of missing files from the *first* directory in # $ac_aux_dir_candidates and give up. ac_missing_aux_files="" ac_first_candidate=: printf "%s\n" "$as_me:${as_lineno-$LINENO}: looking for aux files: $ac_aux_files" >&5 as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in $ac_aux_dir_candidates do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac as_found=: printf "%s\n" "$as_me:${as_lineno-$LINENO}: trying $as_dir" >&5 ac_aux_dir_found=yes ac_install_sh= for ac_aux in $ac_aux_files do # As a special case, if "install-sh" is required, that requirement # can be satisfied by any of "install-sh", "install.sh", or "shtool", # and $ac_install_sh is set appropriately for whichever one is found. if test x"$ac_aux" = x"install-sh" then if test -f "${as_dir}install-sh"; then printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}install-sh found" >&5 ac_install_sh="${as_dir}install-sh -c" elif test -f "${as_dir}install.sh"; then printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}install.sh found" >&5 ac_install_sh="${as_dir}install.sh -c" elif test -f "${as_dir}shtool"; then printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}shtool found" >&5 ac_install_sh="${as_dir}shtool install -c" else ac_aux_dir_found=no if $ac_first_candidate; then ac_missing_aux_files="${ac_missing_aux_files} install-sh" else break fi fi else if test -f "${as_dir}${ac_aux}"; then printf "%s\n" "$as_me:${as_lineno-$LINENO}: ${as_dir}${ac_aux} found" >&5 else ac_aux_dir_found=no if $ac_first_candidate; then ac_missing_aux_files="${ac_missing_aux_files} ${ac_aux}" else break fi fi fi done if test "$ac_aux_dir_found" = yes; then ac_aux_dir="$as_dir" break fi ac_first_candidate=false as_found=false done IFS=$as_save_IFS if $as_found then : else $as_nop as_fn_error $? "cannot find required auxiliary files:$ac_missing_aux_files" "$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. if test -f "${ac_aux_dir}config.guess"; then ac_config_guess="$SHELL ${ac_aux_dir}config.guess" fi if test -f "${ac_aux_dir}config.sub"; then ac_config_sub="$SHELL ${ac_aux_dir}config.sub" fi if test -f "$ac_aux_dir/configure"; then ac_configure="$SHELL ${ac_aux_dir}configure" fi # 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,) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 printf "%s\n" "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 printf "%s\n" "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 printf "%s\n" "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 printf "%s\n" "$as_me: former value: \`$ac_old_val'" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 printf "%s\n" "$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=`printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 printf "%s\n" "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`${MAKE-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 am__api_version='1.16' # 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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 printf %s "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if test ${ac_cv_path_install+y} then : printf %s "(cached) " >&6 else $as_nop as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac # Account for fact that we put trailing slashes in our PATH walk. 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+y}; 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 printf "%s\n" "$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' { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "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=`printf "%s\n" "$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 MISSING="\${SHELL} '$am_aux_dir/missing'" fi # Use eval to expand $SHELL if eval "$MISSING --is-lightweight"; then am_missing_run="$MISSING " else am_missing_run= { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: 'missing' script is too old or missing" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_STRIP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 printf "%s\n" "$STRIP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_STRIP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 printf "%s\n" "$ac_ct_STRIP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for a race-free mkdir -p" >&5 printf %s "checking for a race-free mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if test ${ac_cv_path_mkdir+y} then : printf %s "(cached) " >&6 else $as_nop as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 ('*'coreutils) '* | \ 'BusyBox '* | \ '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+y}; 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_AWK+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 printf "%s\n" "$AWK" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi test -n "$AWK" && break done { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 printf %s "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`printf "%s\n" "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval test \${ac_cv_prog_make_${ac_make}_set+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } SET_MAKE= else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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+y} 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} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $am_make supports nested variables" >&5 printf %s "checking whether $am_make supports nested variables... " >&6; } if test ${am_cv_make_support_nested_variables+y} then : printf %s "(cached) " >&6 else $as_nop if printf "%s\n" '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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_make_support_nested_variables" >&5 printf "%s\n" "$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.4' printf "%s\n" "#define PACKAGE \"$PACKAGE\"" >>confdefs.h printf "%s\n" "#define VERSION \"$VERSION\"" >>confdefs.h # 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` printf "%s\n" "#define LIBFFCALL_VERSION $HEXVERSION" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 printf %s "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`printf "%s\n" "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval test \${ac_cv_prog_make_${ac_make}_set+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } SET_MAKE= else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 printf "%s\n" "$ac_ct_CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 printf "%s\n" "$ac_ct_CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}clang", so it can be a program name with args. set dummy ${ac_tool_prefix}clang; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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}clang" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 printf "%s\n" "$CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "clang", so it can be a program name with args. set dummy clang; ac_word=$2 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CC+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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="clang" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 printf "%s\n" "$ac_ct_CC" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 fi test -z "$CC" && { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$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. printf "%s\n" "$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 -version; 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\"" printf "%s\n" "$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 printf "%s\n" "$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 (void) { ; 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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 printf %s "checking whether the C compiler works... " >&6; } ac_link_default=`printf "%s\n" "$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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? printf "%s\n" "$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+y} && 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 $as_nop ac_file='' fi if test -z "$ac_file" then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$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_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 printf %s "checking for C compiler default output file name... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 printf %s "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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? printf "%s\n" "$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_nop { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 printf "%s\n" "$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 (void) { 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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 printf %s "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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? printf "%s\n" "$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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? printf "%s\n" "$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 { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 printf "%s\n" "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 printf %s "checking for suffix of object files... " >&6; } if test ${ac_cv_objext+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; 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\"" printf "%s\n" "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? printf "%s\n" "$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_nop printf "%s\n" "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 printf "%s\n" "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C" >&5 printf %s "checking whether the compiler supports GNU C... " >&6; } if test ${ac_cv_c_compiler_gnu+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_compiler_gnu=yes else $as_nop ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 printf "%s\n" "$ac_cv_c_compiler_gnu" >&6; } ac_compiler_gnu=$ac_cv_c_compiler_gnu if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+y} ac_save_CFLAGS=$CFLAGS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 printf %s "checking whether $CC accepts -g... " >&6; } if test ${ac_cv_prog_cc_g+y} then : printf %s "(cached) " >&6 else $as_nop 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 (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_g=yes else $as_nop CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : else $as_nop ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; 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.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 printf "%s\n" "$ac_cv_prog_cc_g" >&6; } if test $ac_test_CFLAGS; 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 ac_prog_cc_stdc=no if test x$ac_prog_cc_stdc = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C11 features" >&5 printf %s "checking for $CC option to enable C11 features... " >&6; } if test ${ac_cv_prog_cc_c11+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_prog_cc_c11=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_c_conftest_c11_program _ACEOF for ac_arg in '' -std=gnu11 do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_c11=$ac_arg fi rm -f core conftest.err conftest.$ac_objext conftest.beam test "x$ac_cv_prog_cc_c11" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi if test "x$ac_cv_prog_cc_c11" = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 printf "%s\n" "unsupported" >&6; } else $as_nop if test "x$ac_cv_prog_cc_c11" = x then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 printf "%s\n" "none needed" >&6; } else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c11" >&5 printf "%s\n" "$ac_cv_prog_cc_c11" >&6; } CC="$CC $ac_cv_prog_cc_c11" fi ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11 ac_prog_cc_stdc=c11 fi fi if test x$ac_prog_cc_stdc = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C99 features" >&5 printf %s "checking for $CC option to enable C99 features... " >&6; } if test ${ac_cv_prog_cc_c99+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_prog_cc_c99=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_c_conftest_c99_program _ACEOF for ac_arg in '' -std=gnu99 -std=c99 -c99 -qlanglvl=extc1x -qlanglvl=extc99 -AC99 -D_STDC_C99= do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO" then : ac_cv_prog_cc_c99=$ac_arg fi rm -f core conftest.err conftest.$ac_objext conftest.beam test "x$ac_cv_prog_cc_c99" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi if test "x$ac_cv_prog_cc_c99" = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 printf "%s\n" "unsupported" >&6; } else $as_nop if test "x$ac_cv_prog_cc_c99" = x then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 printf "%s\n" "none needed" >&6; } else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c99" >&5 printf "%s\n" "$ac_cv_prog_cc_c99" >&6; } CC="$CC $ac_cv_prog_cc_c99" fi ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99 ac_prog_cc_stdc=c99 fi fi if test x$ac_prog_cc_stdc = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC option to enable C89 features" >&5 printf %s "checking for $CC option to enable C89 features... " >&6; } if test ${ac_cv_prog_cc_c89+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_c_conftest_c89_program _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 conftest.beam test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi if test "x$ac_cv_prog_cc_c89" = xno then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 printf "%s\n" "unsupported" >&6; } else $as_nop if test "x$ac_cv_prog_cc_c89" = x then : { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 printf "%s\n" "none needed" >&6; } else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 printf "%s\n" "$ac_cv_prog_cc_c89" >&6; } CC="$CC $ac_cv_prog_cc_c89" fi ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89 ac_prog_cc_stdc=c89 fi 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC understands -c and -o together" >&5 printf %s "checking whether $CC understands -c and -o together... " >&6; } if test ${am_cv_prog_cc_c_o+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_prog_cc_c_o" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler is clang" >&5 printf %s "checking whether the compiler is clang... " >&6; } if test ${gl_cv_compiler_clang+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __clang__ barfbarf #endif int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_compiler_clang=no else $as_nop gl_cv_compiler_clang=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_compiler_clang" >&5 printf "%s\n" "$gl_cv_compiler_clang" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for compiler option needed when checking for declarations" >&5 printf %s "checking for compiler option needed when checking for declarations... " >&6; } if test ${gl_cv_compiler_check_decl_option+y} then : printf %s "(cached) " >&6 else $as_nop if test $gl_cv_compiler_clang = yes; then save_ac_compile="$ac_compile" ac_compile="$ac_compile -Werror=implicit-function-declaration" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_compiler_check_decl_option='-Werror=implicit-function-declaration' else $as_nop gl_cv_compiler_check_decl_option=none fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_compile="$save_ac_compile" else gl_cv_compiler_check_decl_option=none fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_compiler_check_decl_option" >&5 printf "%s\n" "$gl_cv_compiler_check_decl_option" >&6; } if test "x$gl_cv_compiler_check_decl_option" != xnone; then ac_compile_for_check_decl="$ac_compile $gl_cv_compiler_check_decl_option" else ac_compile_for_check_decl="$ac_compile" fi DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} supports the include directive" >&5 printf %s "checking whether ${MAKE-make} supports the include directive... " >&6; } cat > confinc.mk << 'END' am__doit: @echo this is the am__doit target >confinc.out .PHONY: am__doit END am__include="#" am__quote= # BSD make does it like this. echo '.include "confinc.mk" # ignored' > confmf.BSD # Other make implementations (GNU, Solaris 10, AIX) do it like this. echo 'include confinc.mk # ignored' > confmf.GNU _am_result=no for s in GNU BSD; do { echo "$as_me:$LINENO: ${MAKE-make} -f confmf.$s && cat confinc.out" >&5 (${MAKE-make} -f confmf.$s && cat confinc.out) >&5 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } case $?:`cat confinc.out 2>/dev/null` in #( '0:this is the am__doit target') : case $s in #( BSD) : am__include='.include' am__quote='"' ;; #( *) : am__include='include' am__quote='' ;; esac ;; #( *) : ;; esac if test "$am__include" != "#"; then _am_result="yes ($s style)" break fi done rm -f confinc.* confmf.* { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: ${_am_result}" >&5 printf "%s\n" "${_am_result}" >&6; } # Check whether --enable-dependency-tracking was given. if test ${enable_dependency_tracking+y} 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= { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 printf %s "checking dependency style of $depcc... " >&6; } if test ${am_cv_CC_dependencies_compiler_type+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 printf %s "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 test ${ac_cv_prog_CPP+y} then : printf %s "(cached) " >&6 else $as_nop # Double quotes because $CC needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" 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. # 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. */ #include Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO" then : else $as_nop # 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 $as_nop # 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 printf "%s\n" "$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. # 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. */ #include Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO" then : else $as_nop # 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 $as_nop # 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_nop { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 printf %s "checking for grep that handles long lines and -e... " >&6; } if test ${ac_cv_path_GREP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 printf %s 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" printf "%s\n" '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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 printf "%s\n" "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 printf %s "checking for egrep... " >&6; } if test ${ac_cv_path_EGREP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 printf %s 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" printf "%s\n" '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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 printf "%s\n" "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" if test $ac_cv_c_compiler_gnu = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CC needs -traditional" >&5 printf %s "checking whether $CC needs -traditional... " >&6; } if test ${ac_cv_prog_gcc_traditional+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop ac_cv_prog_gcc_traditional=no fi rm -rf 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 -rf conftest* fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_gcc_traditional" >&5 printf "%s\n" "$ac_cv_prog_gcc_traditional" >&6; } if test $ac_cv_prog_gcc_traditional = yes; then CC="$CC -traditional" fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether using GNU C" >&5 printf %s "checking whether using GNU C... " >&6; } if test ${cl_cv_prog_cc_gcc+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop cl_cv_prog_cc_gcc=no fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cl_cv_prog_cc_gcc" >&5 printf "%s\n" "$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 : rm -f conftest* echo 'int dummy;' > conftest.c { ac_try='${CC-cc} $CFLAGS $CPPFLAGS -c conftest.c' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_try\""; } >&5 (eval $ac_try) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; } >/dev/null 2>&1 if test -f conftest.o; then gl_asmext='s' gl_c_asm_opt='-S' else gl_asmext='asm' gl_c_asm_opt='-c -Fa' fi rm -f conftest* else $as_nop gl_asmext='s' gl_c_asm_opt='-S' fi rm -rf conftest* { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether C symbols are prefixed with underscore at the linker level" >&5 printf %s "checking whether C symbols are prefixed with underscore at the linker level... " >&6; } if test ${gl_cv_prog_as_underscore+y} then : printf %s "(cached) " >&6 else $as_nop cat > conftest.c <&5 (eval $ac_try) 2>&5 ac_status=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_as_underscore" >&5 printf "%s\n" "$gl_cv_prog_as_underscore" >&6; } if test $gl_cv_prog_as_underscore = yes; then USER_LABEL_PREFIX=_ else USER_LABEL_PREFIX= fi printf "%s\n" "#define USER_LABEL_PREFIX $USER_LABEL_PREFIX" >>confdefs.h ASM_SYMBOL_PREFIX='"'${USER_LABEL_PREFIX}'"' if test "$USER_LABEL_PREFIX" = '_'; then AS_UNDERSCORE=true else AS_UNDERSCORE=false fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether to use C++" >&5 printf %s "checking whether to use C++... " >&6; } # Check whether --enable-c++ was given. if test ${enable_c__+y} then : enableval=$enable_c__; CXX_CHOICE="$enableval" else $as_nop CXX_CHOICE=yes fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CXX_CHOICE" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CXX+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 printf "%s\n" "$CXX" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CXX+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 printf "%s\n" "$ac_ct_CXX" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works" >&5 printf %s "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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_works" >&5 printf "%s\n" "$gl_cv_prog_ansicxx_works" >&6; } if test $gl_cv_prog_ansicxx_works = no; then CXX=no else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler supports namespaces" >&5 printf %s "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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_namespaces" >&5 printf "%s\n" "$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= { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 printf %s "checking dependency style of $depcc... " >&6; } if test ${am_cv_CXX_dependencies_compiler_type+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 printf "%s\n" "$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 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C++" >&5 printf %s "checking whether the compiler supports GNU C++... " >&6; } if test ${ac_cv_cxx_compiler_gnu+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : ac_compiler_gnu=yes else $as_nop ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_cxx_compiler_gnu=$ac_compiler_gnu fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 printf "%s\n" "$ac_cv_cxx_compiler_gnu" >&6; } ac_compiler_gnu=$ac_cv_cxx_compiler_gnu if test $ac_compiler_gnu = yes; then GXX=yes else GXX= fi ac_test_CXXFLAGS=${CXXFLAGS+y} ac_save_CXXFLAGS=$CXXFLAGS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 printf %s "checking whether $CXX accepts -g... " >&6; } if test ${ac_cv_prog_cxx_g+y} then : printf %s "(cached) " >&6 else $as_nop ac_save_cxx_werror_flag=$ac_cxx_werror_flag ac_cxx_werror_flag=yes ac_cv_prog_cxx_g=no CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : ac_cv_prog_cxx_g=yes else $as_nop CXXFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : else $as_nop ac_cxx_werror_flag=$ac_save_cxx_werror_flag CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : ac_cv_prog_cxx_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cxx_werror_flag=$ac_save_cxx_werror_flag fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 printf "%s\n" "$ac_cv_prog_cxx_g" >&6; } if test $ac_test_CXXFLAGS; then CXXFLAGS=$ac_save_CXXFLAGS elif test $ac_cv_prog_cxx_g = yes; then if test "$GXX" = yes; then CXXFLAGS="-g -O2" else CXXFLAGS="-g" fi else if test "$GXX" = yes; then CXXFLAGS="-O2" else CXXFLAGS= fi 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 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for Minix Amsterdam compiler" >&5 printf %s "checking for Minix Amsterdam compiler... " >&6; } if test ${gl_cv_c_amsterdam_compiler+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop gl_cv_c_amsterdam_compiler=no fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_c_amsterdam_compiler" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_AR+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 printf "%s\n" "$AR" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_AR+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 printf "%s\n" "$ac_ct_AR" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_AR" = x; then AR="ar" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_RANLIB+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 printf "%s\n" "$RANLIB" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_RANLIB+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 printf "%s\n" "$ac_ct_RANLIB" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 $as_nop IF_MSVC='# ' IFNOT_MSVC='' fi rm -rf conftest* { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to make hard links" >&5 printf %s "checking how to make hard links... " >&6; } if test ${cl_cv_prog_LN+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cl_cv_prog_LN" >&5 printf "%s\n" "$cl_cv_prog_LN" >&6; } LN="$cl_cv_prog_LN" ac_header= ac_cache= for ac_item in $ac_header_c_list do if test $ac_cache; then ac_fn_c_check_header_compile "$LINENO" $ac_header ac_cv_header_$ac_cache "$ac_includes_default" if eval test \"x\$ac_cv_header_$ac_cache\" = xyes; then printf "%s\n" "#define $ac_item 1" >> confdefs.h fi ac_header= ac_cache= elif test $ac_header; then ac_cache=$ac_item else ac_header=$ac_item fi done if test $ac_cv_header_stdlib_h = yes && test $ac_cv_header_string_h = yes then : printf "%s\n" "#define STDC_HEADERS 1" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether it is safe to define __EXTENSIONS__" >&5 printf %s "checking whether it is safe to define __EXTENSIONS__... " >&6; } if test ${ac_cv_safe_to_define___extensions__+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ # define __EXTENSIONS__ 1 $ac_includes_default int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_safe_to_define___extensions__=yes else $as_nop ac_cv_safe_to_define___extensions__=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_safe_to_define___extensions__" >&5 printf "%s\n" "$ac_cv_safe_to_define___extensions__" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether _XOPEN_SOURCE should be defined" >&5 printf %s "checking whether _XOPEN_SOURCE should be defined... " >&6; } if test ${ac_cv_should_define__xopen_source+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_should_define__xopen_source=no if test $ac_cv_header_wchar_h = yes then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include mbstate_t x; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _XOPEN_SOURCE 500 #include mbstate_t x; int main (void) { ; 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.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_should_define__xopen_source" >&5 printf "%s\n" "$ac_cv_should_define__xopen_source" >&6; } printf "%s\n" "#define _ALL_SOURCE 1" >>confdefs.h printf "%s\n" "#define _DARWIN_C_SOURCE 1" >>confdefs.h printf "%s\n" "#define _GNU_SOURCE 1" >>confdefs.h printf "%s\n" "#define _HPUX_ALT_XOPEN_SOCKET_API 1" >>confdefs.h printf "%s\n" "#define _NETBSD_SOURCE 1" >>confdefs.h printf "%s\n" "#define _OPENBSD_SOURCE 1" >>confdefs.h printf "%s\n" "#define _POSIX_PTHREAD_SEMANTICS 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_IEC_60559_ATTRIBS_EXT__ 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_IEC_60559_BFP_EXT__ 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_IEC_60559_DFP_EXT__ 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_IEC_60559_FUNCS_EXT__ 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_IEC_60559_TYPES_EXT__ 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_LIB_EXT2__ 1" >>confdefs.h printf "%s\n" "#define __STDC_WANT_MATH_SPEC_FUNCS__ 1" >>confdefs.h printf "%s\n" "#define _TANDEM_SOURCE 1" >>confdefs.h if test $ac_cv_header_minix_config_h = yes then : MINIX=yes printf "%s\n" "#define _MINIX 1" >>confdefs.h printf "%s\n" "#define _POSIX_SOURCE 1" >>confdefs.h printf "%s\n" "#define _POSIX_1_SOURCE 2" >>confdefs.h else $as_nop MINIX= fi if test $ac_cv_safe_to_define___extensions__ = yes then : printf "%s\n" "#define __EXTENSIONS__ 1" >>confdefs.h fi if test $ac_cv_should_define__xopen_source = yes then : printf "%s\n" "#define _XOPEN_SOURCE 500" >>confdefs.h fi # 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 printf %s "checking build system type... " >&6; } if test ${ac_cv_build+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 printf %s "checking host system type... " >&6; } if test ${ac_cv_host+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 printf "%s\n" "$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 case "$host_os" in openbsd*) printf "%s\n" "#define _ISOC11_SOURCE 1" >>confdefs.h ;; esac 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_CXX+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CXX" >&5 printf "%s\n" "$CXX" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_CXX+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CXX" >&5 printf "%s\n" "$ac_ct_CXX" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler ($CXX $CXXFLAGS $LDFLAGS) works" >&5 printf %s "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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_works" >&5 printf "%s\n" "$gl_cv_prog_ansicxx_works" >&6; } if test $gl_cv_prog_ansicxx_works = no; then CXX=no else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C++ compiler supports namespaces" >&5 printf %s "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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_prog_ansicxx_namespaces" >&5 printf "%s\n" "$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= { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 printf %s "checking dependency style of $depcc... " >&6; } if test ${am_cv_CXX_dependencies_compiler_type+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $am_cv_CXX_dependencies_compiler_type" >&5 printf "%s\n" "$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 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler supports GNU C++" >&5 printf %s "checking whether the compiler supports GNU C++... " >&6; } if test ${ac_cv_cxx_compiler_gnu+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : ac_compiler_gnu=yes else $as_nop ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_cxx_compiler_gnu=$ac_compiler_gnu fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_cxx_compiler_gnu" >&5 printf "%s\n" "$ac_cv_cxx_compiler_gnu" >&6; } ac_compiler_gnu=$ac_cv_cxx_compiler_gnu if test $ac_compiler_gnu = yes; then GXX=yes else GXX= fi ac_test_CXXFLAGS=${CXXFLAGS+y} ac_save_CXXFLAGS=$CXXFLAGS { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $CXX accepts -g" >&5 printf %s "checking whether $CXX accepts -g... " >&6; } if test ${ac_cv_prog_cxx_g+y} then : printf %s "(cached) " >&6 else $as_nop ac_save_cxx_werror_flag=$ac_cxx_werror_flag ac_cxx_werror_flag=yes ac_cv_prog_cxx_g=no CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : ac_cv_prog_cxx_g=yes else $as_nop CXXFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : else $as_nop ac_cxx_werror_flag=$ac_save_cxx_werror_flag CXXFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_compile "$LINENO" then : ac_cv_prog_cxx_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cxx_werror_flag=$ac_save_cxx_werror_flag fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cxx_g" >&5 printf "%s\n" "$ac_cv_prog_cxx_g" >&6; } if test $ac_test_CXXFLAGS; then CXXFLAGS=$ac_save_CXXFLAGS elif test $ac_cv_prog_cxx_g = yes; then if test "$GXX" = yes; then CXXFLAGS="-g -O2" else CXXFLAGS="-g" fi else if test "$GXX" = yes; then CXXFLAGS="-O2" else CXXFLAGS= fi 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 else if false; then am__fastdepCXX_TRUE= am__fastdepCXX_FALSE='#' else am__fastdepCXX_TRUE='#' am__fastdepCXX_FALSE= fi fi # Check whether --enable-largefile was given. if test ${enable_largefile+y} then : enableval=$enable_largefile; fi if test "$enable_largefile" != no; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for special C compiler options needed for large files" >&5 printf %s "checking for special C compiler options needed for large files... " >&6; } if test ${ac_cv_sys_largefile_CC+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_sys_largefile_CC=no if test "$GCC" != yes; then ac_save_CC=$CC while :; do # IRIX 6.2 and later do not support large files by default, # so use the C compiler's -n32 option if that helps. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include /* Check that off_t can represent 2**63 - 1 correctly. We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ #define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : break fi rm -f core conftest.err conftest.$ac_objext conftest.beam CC="$CC -n32" if ac_fn_c_try_compile "$LINENO" then : ac_cv_sys_largefile_CC=' -n32'; break fi rm -f core conftest.err conftest.$ac_objext conftest.beam break done CC=$ac_save_CC rm -f conftest.$ac_ext fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_largefile_CC" >&5 printf "%s\n" "$ac_cv_sys_largefile_CC" >&6; } if test "$ac_cv_sys_largefile_CC" != no; then CC=$CC$ac_cv_sys_largefile_CC fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for _FILE_OFFSET_BITS value needed for large files" >&5 printf %s "checking for _FILE_OFFSET_BITS value needed for large files... " >&6; } if test ${ac_cv_sys_file_offset_bits+y} then : printf %s "(cached) " >&6 else $as_nop while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include /* Check that off_t can represent 2**63 - 1 correctly. We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ #define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_sys_file_offset_bits=no; break fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _FILE_OFFSET_BITS 64 #include /* Check that off_t can represent 2**63 - 1 correctly. We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ #define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_sys_file_offset_bits=64; break fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_sys_file_offset_bits=unknown break done fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_file_offset_bits" >&5 printf "%s\n" "$ac_cv_sys_file_offset_bits" >&6; } case $ac_cv_sys_file_offset_bits in #( no | unknown) ;; *) printf "%s\n" "#define _FILE_OFFSET_BITS $ac_cv_sys_file_offset_bits" >>confdefs.h ;; esac rm -rf conftest* if test $ac_cv_sys_file_offset_bits = unknown; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for _LARGE_FILES value needed for large files" >&5 printf %s "checking for _LARGE_FILES value needed for large files... " >&6; } if test ${ac_cv_sys_large_files+y} then : printf %s "(cached) " >&6 else $as_nop while :; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include /* Check that off_t can represent 2**63 - 1 correctly. We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ #define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_sys_large_files=no; break fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _LARGE_FILES 1 #include /* Check that off_t can represent 2**63 - 1 correctly. We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ #define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_sys_large_files=1; break fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ac_cv_sys_large_files=unknown break done fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_large_files" >&5 printf "%s\n" "$ac_cv_sys_large_files" >&6; } case $ac_cv_sys_large_files in #( no | unknown) ;; *) printf "%s\n" "#define _LARGE_FILES $ac_cv_sys_large_files" >>confdefs.h ;; esac rm -rf conftest* fi fi # Check whether --enable-threads was given. if test ${enable_threads+y} then : enableval=$enable_threads; gl_use_threads=$enableval else $as_nop 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" = isoc \ || test "$gl_use_threads" = posix \ || test "$gl_use_threads" = isoc+posix; then # For using or : if test -z "$gl_anythreadlib_early_done"; then 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 gl_anythreadlib_early_done=done fi fi # Pre-early section. # Code from module absolute-header: # Code from module alloca-opt: # Code from module ansi-c++-opt: # Code from module asyncsafe-spin: # Code from module attribute: # Code from module basename-lgpl: # Code from module c99: # Code from module clean-temp-simple: # Code from module cloexec: # Code from module close: # Code from module double-slash-root: # Code from module dup2: # Code from module errno: # Code from module error: # Code from module extensions: # Code from module extern-inline: # Code from module fatal-signal: # Code from module fcntl: # Code from module fcntl-h: # Code from module fd-hook: # Code from module filename: # Code from module fstat: # Code from module getdtablesize: # Code from module getprogname: # Code from module gettext-h: # Code from module host-cpu-c-abi: # Code from module idx: # Code from module include_next: # Code from module intprops: # Code from module largefile: # Code from module limits-h: # Code from module linkedhash-list: # Code from module list: # Code from module lock: # Code from module malloca: # Code from module msvc-inval: # Code from module msvc-nothrow: # Code from module multiarch: # Code from module nocrash: # Code from module open: # Code from module pathmax: # Code from module raise: # Code from module rmdir: # Code from module sigaction: # Code from module signal-h: # Code from module sigprocmask: # Code from module size_max: # Code from module snippet/_Noreturn: # Code from module snippet/arg-nonnull: # Code from module snippet/c++defs: # Code from module snippet/warn-on-use: # Code from module sparcv8+: case "$host_cpu" in sparc*) if test -n "$GCC"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether SPARC v8+ instructions are supported" >&5 printf %s "checking whether SPARC v8+ instructions are supported... " >&6; } if test ${gl_cv_sparc_v8plus+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { asm volatile ("membar 2"); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_sparc_v8plus=yes else $as_nop gl_cv_sparc_v8plus=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sparc_v8plus" >&5 printf "%s\n" "$gl_cv_sparc_v8plus" >&6; } if test $gl_cv_sparc_v8plus = no; then CC="$CC -mcpu=v9" CXX="$CXX -mcpu=v9" fi fi ;; esac # Code from module ssize_t: # Code from module stat: # Code from module stat-time: # Code from module std-gnu11: # Code from module stdbool: # Code from module stddef: # Code from module stdint: # Code from module stdio: # Code from module stdnoreturn: # Code from module strerror: # Code from module strerror-override: # Code from module string: # Code from module sys_stat: # Code from module sys_types: # Code from module thread-optim: # Code from module threadlib: # Code from module time: # Code from module unistd: # Code from module verify: # Code from module windows-mutex: # Code from module windows-once: # Code from module windows-recmutex: # Code from module windows-rwlock: # Code from module windows-spin: # Code from module xalloc-oversized: # Code from module xsize: { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking host CPU and C ABI" >&5 printf %s "checking host CPU and C ABI... " >&6; } if test ${gl_cv_host_cpu_c_abi+y} then : printf %s "(cached) " >&6 else $as_nop case "$host_cpu" in i[34567]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 $as_nop gl_cv_host_cpu_c_abi=x86_64 fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext else $as_nop gl_cv_host_cpu_c_abi=i386 fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop gl_cv_host_cpu_c_abi=arm64 fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext else $as_nop # 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=$? printf "%s\n" "$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.beam 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 $as_nop gl_cv_host_cpu_c_abi=hppa fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop gl_cv_host_cpu_c_abi=ia64 fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop # 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 $as_nop gl_cv_host_cpu_c_abi=mips fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 __LP64__ 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 $as_nop gl_cv_host_cpu_c_abi=powerpc64 fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext else $as_nop gl_cv_host_cpu_c_abi=powerpc fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop cpu=riscv32 fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop main_abi=ilp32 fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop 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 $as_nop float_abi='' fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop gl_cv_host_cpu_c_abi=s390 fi rm -f core conftest.err conftest.$ac_objext conftest.beam 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 $as_nop gl_cv_host_cpu_c_abi=sparc fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext ;; *) gl_cv_host_cpu_c_abi="$host_cpu" ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_host_cpu_c_abi" >&5 printf "%s\n" "$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 printf %s "checking endianness... " >&6; } if test ${ffcall_cv_endianness+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop ffcall_cv_endianness=big fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 printf "%s\n" "$ffcall_cv_endianness" >&6; } ;; mips* ) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking endianness" >&5 printf %s "checking endianness... " >&6; } if test ${ffcall_cv_endianness+y} then : printf %s "(cached) " >&6 else $as_nop # 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 $as_nop 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 $as_nop ffcall_cv_endianness=unknown fi rm -rf conftest* fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 printf "%s\n" "$ffcall_cv_endianness" >&6; } ;; powerpc*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking endianness" >&5 printf %s "checking endianness... " >&6; } if test ${ffcall_cv_endianness+y} then : printf %s "(cached) " >&6 else $as_nop # 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 $as_nop 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 $as_nop ffcall_cv_endianness=unknown fi rm -rf conftest* fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_endianness" >&5 printf "%s\n" "$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 *\ * | *\ *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 printf %s "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*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: printf" >&5 printf "%s\n" "printf" >&6; } ;; print*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 printf "%s\n" "print -r" >&6; } ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: cat" >&5 printf "%s\n" "cat" >&6; } ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 printf %s "checking for a sed that does not truncate output... " >&6; } if test ${ac_cv_path_SED+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 printf %s 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" printf "%s\n" '' >> "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 printf "%s\n" "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 printf %s "checking for fgrep... " >&6; } if test ${ac_cv_path_FGREP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 printf %s 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" printf "%s\n" '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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 printf "%s\n" "$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+y} then : withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes else $as_nop with_gnu_ld=no fi ac_prog=ld if test yes = "$GCC"; then # Check if gcc -print-prog-name=ld gives a path. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 printf %s "checking for GNU ld... " >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 printf %s "checking for non-GNU ld... " >&6; } fi if test ${lt_cv_path_LD+y} then : printf %s "(cached) " >&6 else $as_nop 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 printf "%s\n" "$LD" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 printf %s "checking if the linker ($LD) is GNU ld... " >&6; } if test ${lt_cv_prog_gnu_ld+y} then : printf %s "(cached) " >&6 else $as_nop # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 printf "%s\n" "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 printf %s "checking for BSD- or MS-compatible name lister (nm)... " >&6; } if test ${lt_cv_path_NM+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_DUMPBIN+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 printf "%s\n" "$DUMPBIN" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_DUMPBIN+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 printf "%s\n" "$ac_ct_DUMPBIN" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 printf %s "checking the name lister ($NM) interface... " >&6; } if test ${lt_cv_nm_interface+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 printf "%s\n" "$lt_cv_nm_interface" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 printf %s "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 printf "%s\n" "no, using $LN_S" >&6; } fi # find the maximum length of command line arguments { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 printf %s "checking the maximum length of command line arguments... " >&6; } if test ${lt_cv_sys_max_cmd_len+y} then : printf %s "(cached) " >&6 else $as_nop 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* | midnightbsd* | 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 printf "%s\n" "$lt_cv_sys_max_cmd_len" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: none" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 printf %s "checking how to convert $build file names to $host format... " >&6; } if test ${lt_cv_to_host_file_cmd+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 printf "%s\n" "$lt_cv_to_host_file_cmd" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 printf %s "checking how to convert $build file names to toolchain format... " >&6; } if test ${lt_cv_to_tool_file_cmd+y} then : printf %s "(cached) " >&6 else $as_nop #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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 printf "%s\n" "$lt_cv_to_tool_file_cmd" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 printf %s "checking for $LD option to reload object files... " >&6; } if test ${lt_cv_ld_reload_flag+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_ld_reload_flag='-r' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_OBJDUMP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 printf "%s\n" "$OBJDUMP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_OBJDUMP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 printf "%s\n" "$ac_ct_OBJDUMP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 printf %s "checking how to recognize dependent libraries... " >&6; } if test ${lt_cv_deplibs_check_method+y} then : printf %s "(cached) " >&6 else $as_nop 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* | midnightbsd*) 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_DLLTOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 printf "%s\n" "$DLLTOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_DLLTOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 printf "%s\n" "$ac_ct_DLLTOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 printf %s "checking how to associate runtime and link libraries... " >&6; } if test ${lt_cv_sharedlib_from_linklib_cmd+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_AR+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 printf "%s\n" "$AR" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_AR+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 printf "%s\n" "$ac_ct_AR" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 printf %s "checking for archiver @FILE support... " >&6; } if test ${lt_cv_ar_at_file+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; 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=$? printf "%s\n" "$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=$? printf "%s\n" "$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.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_STRIP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 printf "%s\n" "$STRIP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_STRIP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 printf "%s\n" "$ac_ct_STRIP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_RANLIB+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 printf "%s\n" "$RANLIB" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_RANLIB+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 printf "%s\n" "$ac_ct_RANLIB" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 printf %s "checking command to parse $NM output from $compiler object... " >&6; } if test ${lt_cv_sys_global_symbol_pipe+y} then : printf %s "(cached) " >&6 else $as_nop # 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=$? printf "%s\n" "$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=$? printf "%s\n" "$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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: failed" >&5 printf "%s\n" "failed" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: ok" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 printf %s "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test ${with_sysroot+y} then : withval=$with_sysroot; else $as_nop 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|'') ;; #( *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $with_sysroot" >&5 printf "%s\n" "$with_sysroot" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 printf "%s\n" "${lt_sysroot:-no}" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for a working dd" >&5 printf %s "checking for a working dd... " >&6; } if test ${ac_cv_path_lt_DD+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_lt_DD" >&5 printf "%s\n" "$ac_cv_path_lt_DD" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to truncate binary pipes" >&5 printf %s "checking how to truncate binary pipes... " >&6; } if test ${lt_cv_truncate_bin+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_truncate_bin" >&5 printf "%s\n" "$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+y} 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=$? printf "%s\n" "$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=$? printf "%s\n" "$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=$? printf "%s\n" "$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=$? printf "%s\n" "$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" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 printf %s "checking whether the C compiler needs -belf... " >&6; } if test ${lt_cv_cc_needs_belf+y} then : printf %s "(cached) " >&6 else $as_nop 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 (void) { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : lt_cv_cc_needs_belf=yes else $as_nop lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 printf "%s\n" "$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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_MANIFEST_TOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 printf "%s\n" "$MANIFEST_TOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_MANIFEST_TOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 printf "%s\n" "$ac_ct_MANIFEST_TOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 printf %s "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if test ${lt_cv_path_mainfest_tool+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_DSYMUTIL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 printf "%s\n" "$DSYMUTIL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_DSYMUTIL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 printf "%s\n" "$ac_ct_DSYMUTIL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_NMEDIT+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 printf "%s\n" "$NMEDIT" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_NMEDIT+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 printf "%s\n" "$ac_ct_NMEDIT" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_LIPO+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 printf "%s\n" "$LIPO" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_LIPO+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 printf "%s\n" "$ac_ct_LIPO" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_OTOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 printf "%s\n" "$OTOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_OTOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 printf "%s\n" "$ac_ct_OTOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_OTOOL64+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 printf "%s\n" "$OTOOL64" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_OTOOL64+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 printf "%s\n" "$ac_ct_OTOOL64" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 printf %s "checking for -single_module linker flag... " >&6; } if test ${lt_cv_apple_cc_single_mod+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 printf "%s\n" "$lt_cv_apple_cc_single_mod" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 printf %s "checking for -exported_symbols_list linker flag... " >&6; } if test ${lt_cv_ld_exported_symbols_list+y} then : printf %s "(cached) " >&6 else $as_nop 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 (void) { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : lt_cv_ld_exported_symbols_list=yes else $as_nop lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 printf "%s\n" "$lt_cv_ld_exported_symbols_list" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 printf %s "checking for -force_load linker flag... " >&6; } if test ${lt_cv_ld_force_load+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 printf "%s\n" "$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 } 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 : printf "%s\n" "#define HAVE_DLFCN_H 1" >>confdefs.h fi func_stripname_cnf () { case $2 in .*) func_stripname_result=`$ECHO "$3" | $SED "s%^$1%%; s%\\\\$2\$%%"`;; *) func_stripname_result=`$ECHO "$3" | $SED "s%^$1%%; s%$2\$%%"`;; esac } # func_stripname_cnf # 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_AS+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $AS" >&5 printf "%s\n" "$AS" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_AS+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AS" >&5 printf "%s\n" "$ac_ct_AS" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_AS" = x; then AS="false" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_DLLTOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 printf "%s\n" "$DLLTOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_DLLTOOL+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 printf "%s\n" "$ac_ct_DLLTOOL" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_OBJDUMP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 printf "%s\n" "$OBJDUMP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 printf %s "checking for $ac_word... " >&6; } if test ${ac_cv_prog_ac_ct_OBJDUMP+y} then : printf %s "(cached) " >&6 else $as_nop 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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" printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 printf "%s\n" "$ac_ct_OBJDUMP" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 printf "%s\n" "$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+y} 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 $as_nop enable_shared=yes fi # Check whether --enable-static was given. if test ${enable_static+y} 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 $as_nop enable_static=yes fi # Check whether --with-pic was given. if test ${with_pic+y} 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 $as_nop pic_mode=default fi # Check whether --enable-fast-install was given. if test ${enable_fast_install+y} 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 $as_nop enable_fast_install=yes fi shared_archive_member_spec= case $host,$enable_shared in power*-*-aix[5-9]*,yes) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking which variant of shared library versioning to provide" >&5 printf %s "checking which variant of shared library versioning to provide... " >&6; } # Check whether --with-aix-soname was given. if test ${with_aix_soname+y} 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 $as_nop if test ${lt_cv_with_aix_soname+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_with_aix_soname=aix fi with_aix_soname=$lt_cv_with_aix_soname fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $with_aix_soname" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 printf %s "checking for objdir... " >&6; } if test ${lt_cv_objdir+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 printf "%s\n" "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir printf "%s\n" "#define LT_OBJDIR \"$lt_cv_objdir/\"" >>confdefs.h 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 printf %s "checking for ${ac_tool_prefix}file... " >&6; } if test ${lt_cv_path_MAGIC_CMD+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 printf "%s\n" "$MAGIC_CMD" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for file" >&5 printf %s "checking for file... " >&6; } if test ${lt_cv_path_MAGIC_CMD+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 printf "%s\n" "$MAGIC_CMD" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 printf %s "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if test ${lt_cv_prog_compiler_rtti_exceptions+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 printf %s "checking for $compiler option to produce PIC... " >&6; } if test ${lt_cv_prog_compiler_pic+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 printf %s "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if test ${lt_cv_prog_compiler_pic_works+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 printf "%s\n" "$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\" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 printf %s "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if test ${lt_cv_prog_compiler_static_works+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 printf "%s\n" "$lt_cv_prog_compiler_static_works" >&6; } if test yes = "$lt_cv_prog_compiler_static_works"; then : else lt_prog_compiler_static= fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 printf %s "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if test ${lt_cv_prog_compiler_c_o+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 printf "%s\n" "$lt_cv_prog_compiler_c_o" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 printf %s "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if test ${lt_cv_prog_compiler_c_o+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 printf "%s\n" "$hard_links" >&6; } if test no = "$hard_links"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 printf %s "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 test ${lt_cv_aix_libpath_+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; 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.beam \ 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 test ${lt_cv_aix_libpath_+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; 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.beam \ 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* | midnightbsd*) 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) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 printf %s "checking if $CC understands -b... " >&6; } if test ${lt_cv_prog_compiler__b+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 printf "%s\n" "$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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 printf %s "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if test ${lt_cv_irix_exported_symbol+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 printf "%s\n" "$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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 printf %s "checking whether -lc should be explicitly linked in... " >&6; } if test ${lt_cv_archive_cmds_need_lc+y} then : printf %s "(cached) " >&6 else $as_nop $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=$? printf "%s\n" "$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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 printf "%s\n" "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 printf %s "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* | midnightbsd*) # 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 test ${lt_cv_shlibpath_overrides_runpath+y} then : printf %s "(cached) " >&6 else $as_nop 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 (void) { ; 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.beam \ 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 printf %s "checking for dlopen in -ldl... " >&6; } if test ${ac_cv_lib_dl_dlopen+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char dlopen (); int main (void) { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_dl_dlopen=yes else $as_nop ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 printf "%s\n" "$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_nop 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_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 printf %s "checking for shl_load in -ldld... " >&6; } if test ${ac_cv_lib_dld_shl_load+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char shl_load (); int main (void) { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_dld_shl_load=yes else $as_nop ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 printf "%s\n" "$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 $as_nop 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_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 printf %s "checking for dlopen in -ldl... " >&6; } if test ${ac_cv_lib_dl_dlopen+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char dlopen (); int main (void) { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_dl_dlopen=yes else $as_nop ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 printf "%s\n" "$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_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 printf %s "checking for dlopen in -lsvld... " >&6; } if test ${ac_cv_lib_svld_dlopen+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char dlopen (); int main (void) { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_svld_dlopen=yes else $as_nop ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 printf "%s\n" "$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_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 printf %s "checking for dld_link in -ldld... " >&6; } if test ${ac_cv_lib_dld_dld_link+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char dld_link (); int main (void) { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_dld_dld_link=yes else $as_nop ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 printf "%s\n" "$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" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 printf %s "checking whether a program can dlopen itself... " >&6; } if test ${lt_cv_dlopen_self+y} then : printf %s "(cached) " >&6 else $as_nop 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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 printf "%s\n" "$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\" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 printf %s "checking whether a statically linked program can dlopen itself... " >&6; } if test ${lt_cv_dlopen_self_static+y} then : printf %s "(cached) " >&6 else $as_nop 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=$? printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 printf "%s\n" "$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= { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 printf %s "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" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "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" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: yes" >&5 printf "%s\n" "yes" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } ;; esac fi # Report what library types will actually be built { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 printf %s "checking if libtool supports shared libraries... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 printf "%s\n" "$can_build_shared" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 printf "%s\n" "$enable_shared" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 printf %s "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test yes = "$enable_shared" || enable_static=yes { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 printf "%s\n" "$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 if test -n "$CXX" && ( test no != "$CXX" && ( (test g++ = "$CXX" && `g++ -v >/dev/null 2>&1` ) || (test g++ != "$CXX"))); then 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to run the C++ preprocessor" >&5 printf %s "checking how to run the C++ preprocessor... " >&6; } if test -z "$CXXCPP"; then if test ${ac_cv_prog_CXXCPP+y} then : printf %s "(cached) " >&6 else $as_nop # Double quotes because $CXX needs to be expanded for CXXCPP in "$CXX -E" cpp /lib/cpp do ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # 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. */ #include Syntax error _ACEOF if ac_fn_cxx_try_cpp "$LINENO" then : else $as_nop # 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_cxx_try_cpp "$LINENO" then : # Broken: success on invalid input. continue else $as_nop # 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_CXXCPP=$CXXCPP fi CXXCPP=$ac_cv_prog_CXXCPP else ac_cv_prog_CXXCPP=$CXXCPP fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $CXXCPP" >&5 printf "%s\n" "$CXXCPP" >&6; } ac_preproc_ok=false for ac_cxx_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # 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. */ #include Syntax error _ACEOF if ac_fn_cxx_try_cpp "$LINENO" then : else $as_nop # 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_cxx_try_cpp "$LINENO" then : # Broken: success on invalid input. continue else $as_nop # 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_nop { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C++ preprocessor \"$CXXCPP\" 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 else _lt_caught_CXX_error=yes fi 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 archive_cmds_need_lc_CXX=no allow_undefined_flag_CXX= always_export_symbols_CXX=no archive_expsym_cmds_CXX= compiler_needs_object_CXX=no export_dynamic_flag_spec_CXX= hardcode_direct_CXX=no hardcode_direct_absolute_CXX=no hardcode_libdir_flag_spec_CXX= hardcode_libdir_separator_CXX= hardcode_minus_L_CXX=no hardcode_shlibpath_var_CXX=unsupported hardcode_automatic_CXX=no inherit_rpath_CXX=no module_cmds_CXX= module_expsym_cmds_CXX= link_all_deplibs_CXX=unknown old_archive_cmds_CXX=$old_archive_cmds reload_flag_CXX=$reload_flag reload_cmds_CXX=$reload_cmds no_undefined_flag_CXX= whole_archive_flag_spec_CXX= enable_shared_with_static_runtimes_CXX=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o objext_CXX=$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. # 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 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* # 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 compiler_CXX=$CC func_cc_basename $compiler cc_basename=$func_cc_basename_result 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_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' else lt_prog_compiler_no_builtin_flag_CXX= fi if test yes = "$GXX"; then # Set up default GNU C++ configuration # Check whether --with-gnu-ld was given. if test ${with_gnu_ld+y} then : withval=$with_gnu_ld; test no = "$withval" || with_gnu_ld=yes else $as_nop with_gnu_ld=no fi ac_prog=ld if test yes = "$GCC"; then # Check if gcc -print-prog-name=ld gives a path. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 printf %s "checking for GNU ld... " >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 printf %s "checking for non-GNU ld... " >&6; } fi if test ${lt_cv_path_LD+y} then : printf %s "(cached) " >&6 else $as_nop 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 printf "%s\n" "$LD" >&6; } else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: no" >&5 printf "%s\n" "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 printf %s "checking if the linker ($LD) is GNU ld... " >&6; } if test ${lt_cv_prog_gnu_ld+y} then : printf %s "(cached) " >&6 else $as_nop # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 printf "%s\n" "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_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 archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$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' hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' export_dynamic_flag_spec_CXX='$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 whole_archive_flag_spec_CXX=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' else whole_archive_flag_spec_CXX= 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. archive_cmds_CXX='$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 printf %s "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } ld_shlibs_CXX=yes case $host_os in aix3*) # FIXME: insert proper C++ library support ld_shlibs_CXX=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. archive_cmds_CXX='' hardcode_direct_CXX=yes hardcode_direct_absolute_CXX=yes hardcode_libdir_separator_CXX=':' link_all_deplibs_CXX=yes file_list_spec_CXX='$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. hardcode_direct_CXX=no hardcode_direct_absolute_CXX=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 hardcode_direct_CXX=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_CXX=yes hardcode_libdir_flag_spec_CXX='-L$libdir' hardcode_libdir_separator_CXX= 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_CXX='$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_CXX=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. no_undefined_flag_CXX='-bernotok' # 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 test ${lt_cv_aix_libpath__CXX+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO" then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath__CXX=`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__CXX"; then lt_cv_aix_libpath__CXX=`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.beam \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath__CXX"; then lt_cv_aix_libpath__CXX=/usr/lib:/lib fi fi aix_libpath=$lt_cv_aix_libpath__CXX fi hardcode_libdir_flag_spec_CXX='$wl-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds_CXX='$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_CXX='$wl-R $libdir:/usr/lib:/lib' allow_undefined_flag_CXX="-z nodefs" archive_expsym_cmds_CXX="\$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 test ${lt_cv_aix_libpath__CXX+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_try_link "$LINENO" then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath__CXX=`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__CXX"; then lt_cv_aix_libpath__CXX=`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.beam \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath__CXX"; then lt_cv_aix_libpath__CXX=/usr/lib:/lib fi fi aix_libpath=$lt_cv_aix_libpath__CXX fi hardcode_libdir_flag_spec_CXX='$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_CXX=' $wl-bernotok' allow_undefined_flag_CXX=' $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_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec_CXX='$convenience' fi archive_cmds_need_lc_CXX=yes archive_expsym_cmds_CXX='$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. archive_expsym_cmds_CXX="$archive_expsym_cmds_CXX"'~$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_CXX="$archive_expsym_cmds_CXX"'~$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_CXX="$archive_expsym_cmds_CXX"'~$MV $output_objdir/$realname.d/$soname $output_objdir' fi archive_expsym_cmds_CXX="$archive_expsym_cmds_CXX"'~$RM -r $output_objdir/$realname.d' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag_CXX=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds_CXX='$CC -nostart $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' else ld_shlibs_CXX=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support ld_shlibs_CXX=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. hardcode_libdir_flag_spec_CXX=' ' allow_undefined_flag_CXX=unsupported always_export_symbols_CXX=yes file_list_spec_CXX='@' # 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_CXX='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~linknames=' archive_expsym_cmds_CXX='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, CXX)='true' enable_shared_with_static_runtimes_CXX=yes # Don't use ranlib old_postinstall_cmds_CXX='chmod 644 $oldlib' postlink_cmds_CXX='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, CXX) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec_CXX='-L$libdir' export_dynamic_flag_spec_CXX='$wl--export-all-symbols' allow_undefined_flag_CXX=unsupported always_export_symbols_CXX=no enable_shared_with_static_runtimes_CXX=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds_CXX='$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... archive_expsym_cmds_CXX='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 -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 ld_shlibs_CXX=no fi ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc_CXX=no hardcode_direct_CXX=no hardcode_automatic_CXX=yes hardcode_shlibpath_var_CXX=unsupported if test yes = "$lt_cv_ld_force_load"; then whole_archive_flag_spec_CXX='`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_CXX='' fi link_all_deplibs_CXX=yes allow_undefined_flag_CXX=$_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_CXX="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod$_lt_dsymutil" module_cmds_CXX="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags$_lt_dsymutil" archive_expsym_cmds_CXX="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_CXX="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" if test yes != "$lt_cv_apple_cc_single_mod"; then archive_cmds_CXX="\$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" archive_expsym_cmds_CXX="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 ld_shlibs_CXX=no fi ;; os2*) hardcode_libdir_flag_spec_CXX='-L$libdir' hardcode_minus_L_CXX=yes allow_undefined_flag_CXX=unsupported shrext_cmds=.dll archive_cmds_CXX='$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_CXX='$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_CXX='emximp -o $output_objdir/${libname}_dll.a $output_objdir/$libname.def' enable_shared_with_static_runtimes_CXX=yes ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF ld_shlibs_CXX=no ;; freebsd-elf*) archive_cmds_need_lc_CXX=no ;; freebsd* | dragonfly* | midnightbsd*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions ld_shlibs_CXX=yes ;; haiku*) archive_cmds_CXX='$CC -shared $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' link_all_deplibs_CXX=yes ;; hpux9*) hardcode_libdir_flag_spec_CXX='$wl+b $wl$libdir' hardcode_libdir_separator_CXX=: export_dynamic_flag_spec_CXX='$wl-E' hardcode_direct_CXX=yes hardcode_minus_L_CXX=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 ld_shlibs_CXX=no ;; aCC*) archive_cmds_CXX='$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 archive_cmds_CXX='$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 ld_shlibs_CXX=no fi ;; esac ;; hpux10*|hpux11*) if test no = "$with_gnu_ld"; then hardcode_libdir_flag_spec_CXX='$wl+b $wl$libdir' hardcode_libdir_separator_CXX=: case $host_cpu in hppa*64*|ia64*) ;; *) export_dynamic_flag_spec_CXX='$wl-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) hardcode_direct_CXX=no hardcode_shlibpath_var_CXX=no ;; *) hardcode_direct_CXX=yes hardcode_direct_absolute_CXX=yes hardcode_minus_L_CXX=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 ld_shlibs_CXX=no ;; aCC*) case $host_cpu in hppa*64*) archive_cmds_CXX='$CC -b $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) archive_cmds_CXX='$CC -b $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) archive_cmds_CXX='$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*) archive_cmds_CXX='$CC -shared -nostdlib -fPIC $wl+h $wl$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) archive_cmds_CXX='$CC -shared -nostdlib $pic_flag $wl+h $wl$soname $wl+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) archive_cmds_CXX='$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 ld_shlibs_CXX=no fi ;; esac ;; interix[3-9]*) hardcode_direct_CXX=no hardcode_shlibpath_var_CXX=no hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir' export_dynamic_flag_spec_CXX='$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_CXX='$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_CXX='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++ archive_cmds_CXX='$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. old_archive_cmds_CXX='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test yes = "$GXX"; then if test no = "$with_gnu_ld"; then archive_cmds_CXX='$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 archive_cmds_CXX='$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 link_all_deplibs_CXX=yes ;; esac hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' hardcode_libdir_separator_CXX=: inherit_rpath_CXX=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. archive_cmds_CXX='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' archive_expsym_cmds_CXX='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"' hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir' export_dynamic_flag_spec_CXX='$wl--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. old_archive_cmds_CXX='$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."*) archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$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 archive_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' ;; esac archive_cmds_need_lc_CXX=no hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir' export_dynamic_flag_spec_CXX='$wl--export-dynamic' whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [1-5].* | *pgcpp\ [1-5].*) prelink_cmds_CXX='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`"' old_archive_cmds_CXX='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' archive_cmds_CXX='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' archive_expsym_cmds_CXX='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 archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$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 hardcode_libdir_flag_spec_CXX='$wl--rpath $wl$libdir' export_dynamic_flag_spec_CXX='$wl--export-dynamic' whole_archive_flag_spec_CXX='$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++ archive_cmds_CXX='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' archive_expsym_cmds_CXX='$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 hardcode_libdir_flag_spec_CXX='-rpath $libdir' hardcode_libdir_separator_CXX=: # 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 hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' export_dynamic_flag_spec_CXX='$wl--export-dynamic' archive_cmds_CXX='$CC -qmkshrobj $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' if test yes = "$supports_anon_versioning"; then archive_expsym_cmds_CXX='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 no_undefined_flag_CXX=' -zdefs' archive_cmds_CXX='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' archive_expsym_cmds_CXX='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file $wl$export_symbols' hardcode_libdir_flag_spec_CXX='-R$libdir' whole_archive_flag_spec_CXX='$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_CXX=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. old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; m88k*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds_CXX='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= hardcode_libdir_flag_spec_CXX='-R$libdir' hardcode_direct_CXX=yes hardcode_shlibpath_var_CXX=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*) ld_shlibs_CXX=yes ;; openbsd* | bitrig*) if test -f /usr/libexec/ld.so; then hardcode_direct_CXX=yes hardcode_shlibpath_var_CXX=no hardcode_direct_absolute_CXX=yes archive_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`"; then archive_expsym_cmds_CXX='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-retain-symbols-file,$export_symbols -o $lib' export_dynamic_flag_spec_CXX='$wl-E' whole_archive_flag_spec_CXX=$wlarc'--whole-archive$convenience '$wlarc'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else ld_shlibs_CXX=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. archive_cmds_CXX='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' hardcode_libdir_flag_spec_CXX='$wl-rpath,$libdir' hardcode_libdir_separator_CXX=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) old_archive_cmds_CXX='$CC -Bstatic -o $oldlib $oldobjs' ;; *) old_archive_cmds_CXX='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; cxx*) case $host in osf3*) allow_undefined_flag_CXX=' $wl-expect_unresolved $wl\*' archive_cmds_CXX='$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' hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' ;; *) allow_undefined_flag_CXX=' -expect_unresolved \*' archive_cmds_CXX='$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' archive_expsym_cmds_CXX='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' hardcode_libdir_flag_spec_CXX='-rpath $libdir' ;; esac hardcode_libdir_separator_CXX=: # 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 allow_undefined_flag_CXX=' $wl-expect_unresolved $wl\*' case $host in osf3*) archive_cmds_CXX='$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' ;; *) archive_cmds_CXX='$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 hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' hardcode_libdir_separator_CXX=: # 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 ld_shlibs_CXX=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ archive_cmds_need_lc_CXX=yes no_undefined_flag_CXX=' -zdefs' archive_cmds_CXX='$CC -G$allow_undefined_flag -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' archive_expsym_cmds_CXX='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' hardcode_libdir_flag_spec_CXX='-R$libdir' hardcode_shlibpath_var_CXX=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?) whole_archive_flag_spec_CXX='-z allextract$convenience -z defaultextract' ;; esac link_all_deplibs_CXX=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. old_archive_cmds_CXX='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler archive_cmds_CXX='$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. old_archive_cmds_CXX='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test yes,no = "$GXX,$with_gnu_ld"; then no_undefined_flag_CXX=' $wl-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then archive_cmds_CXX='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' archive_expsym_cmds_CXX='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. archive_cmds_CXX='$CC -G -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-h $wl$soname -o $lib' archive_expsym_cmds_CXX='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 hardcode_libdir_flag_spec_CXX='$wl-R $wl$libdir' case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) whole_archive_flag_spec_CXX='$wl-z ${wl}allextract$convenience $wl-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag_CXX='$wl-z,text' archive_cmds_need_lc_CXX=no hardcode_shlibpath_var_CXX=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) archive_cmds_CXX='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds_CXX='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$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. no_undefined_flag_CXX='$wl-z,text' allow_undefined_flag_CXX='$wl-z,nodefs' archive_cmds_need_lc_CXX=no hardcode_shlibpath_var_CXX=no hardcode_libdir_flag_spec_CXX='$wl-R,$libdir' hardcode_libdir_separator_CXX=':' link_all_deplibs_CXX=yes export_dynamic_flag_spec_CXX='$wl-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) archive_cmds_CXX='$CC -G $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$CC -G $wl-Bexport:$export_symbols $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' old_archive_cmds_CXX='$CC -Tprelink_objects $oldobjs~ '"$old_archive_cmds_CXX" reload_cmds_CXX='$CC -Tprelink_objects $reload_objs~ '"$reload_cmds_CXX" ;; *) archive_cmds_CXX='$CC -shared $wl-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds_CXX='$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 ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; *) # FIXME: insert proper C++ library support ld_shlibs_CXX=no ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5 printf "%s\n" "$ld_shlibs_CXX" >&6; } test no = "$ld_shlibs_CXX" && can_build_shared=no GCC_CXX=$GXX LD_CXX=$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... # Dependencies to place before and after the object being linked: predep_objects_CXX= postdep_objects_CXX= predeps_CXX= postdeps_CXX= compiler_lib_search_path_CXX= cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _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 if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; 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 "$compiler_lib_search_path_CXX"; then compiler_lib_search_path_CXX=$prev$p else compiler_lib_search_path_CXX="${compiler_lib_search_path_CXX} $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 "$postdeps_CXX"; then postdeps_CXX=$prev$p else postdeps_CXX="${postdeps_CXX} $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 "$predep_objects_CXX"; then predep_objects_CXX=$p else predep_objects_CXX="$predep_objects_CXX $p" fi else if test -z "$postdep_objects_CXX"; then postdep_objects_CXX=$p else postdep_objects_CXX="$postdep_objects_CXX $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling CXX test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken 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. predep_objects_CXX= postdep_objects_CXX= postdeps_CXX= ;; esac case " $postdeps_CXX " in *" -lc "*) archive_cmds_need_lc_CXX=no ;; esac compiler_lib_search_dirs_CXX= if test -n "${compiler_lib_search_path_CXX}"; then compiler_lib_search_dirs_CXX=`echo " ${compiler_lib_search_path_CXX}" | $SED -e 's! -L! !g' -e 's!^ !!'` fi lt_prog_compiler_wl_CXX= lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX= # C++ specific cases for pic, static, wl, etc. if test yes = "$GXX"; then lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='-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_CXX='-Bstatic' fi lt_prog_compiler_pic_CXX='-fPIC' ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic_CXX='-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_CXX='-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 lt_prog_compiler_pic_CXX='-DDLL_EXPORT' case $host_os in os2*) lt_prog_compiler_static_CXX='$wl-static' ;; esac ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic_CXX='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all lt_prog_compiler_pic_CXX= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static_CXX= ;; 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_prog_compiler_pic_CXX=-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_prog_compiler_pic_CXX='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic_CXX='-fPIC -shared' ;; *) lt_prog_compiler_pic_CXX='-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_prog_compiler_static_CXX='-Bstatic' else lt_prog_compiler_static_CXX='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, CXX)="--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). lt_prog_compiler_pic_CXX='-DDLL_EXPORT' ;; dgux*) case $cc_basename in ec++*) lt_prog_compiler_pic_CXX='-KPIC' ;; ghcx*) # Green Hills C++ Compiler lt_prog_compiler_pic_CXX='-pic' ;; *) ;; esac ;; freebsd* | dragonfly* | midnightbsd*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='$wl-a ${wl}archive' if test ia64 != "$host_cpu"; then lt_prog_compiler_pic_CXX='+Z' fi ;; aCC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='$wl-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic_CXX='+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_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_static_CXX='-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_prog_compiler_wl_CXX='--backend -Wl,' lt_prog_compiler_pic_CXX='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64, which still supported -KPIC. lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-fPIC' lt_prog_compiler_static_CXX='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-fpic' lt_prog_compiler_static_CXX='-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_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX='-non_shared' ;; xlc* | xlC* | bgxl[cC]* | mpixl[cC]*) # IBM XL 8.0, 9.0 on PPC and BlueGene lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-qpic' lt_prog_compiler_static_CXX='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' lt_prog_compiler_wl_CXX='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) lt_prog_compiler_pic_CXX='-W c,exportall' ;; *) ;; esac ;; netbsd*) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic_CXX='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) lt_prog_compiler_wl_CXX='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 lt_prog_compiler_pic_CXX='-pic' ;; cxx*) # Digital/Compaq C++ lt_prog_compiler_wl_CXX='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. lt_prog_compiler_pic_CXX= lt_prog_compiler_static_CXX='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' lt_prog_compiler_wl_CXX='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler lt_prog_compiler_pic_CXX='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x lt_prog_compiler_pic_CXX='-pic' lt_prog_compiler_static_CXX='-Bstatic' ;; lcc*) # Lucid lt_prog_compiler_pic_CXX='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) lt_prog_compiler_wl_CXX='-Wl,' lt_prog_compiler_pic_CXX='-KPIC' lt_prog_compiler_static_CXX='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 lt_prog_compiler_pic_CXX='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) lt_prog_compiler_can_build_shared_CXX=no ;; esac fi case $host_os in # For platforms that do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic_CXX= ;; *) lt_prog_compiler_pic_CXX="$lt_prog_compiler_pic_CXX -DPIC" ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 printf %s "checking for $compiler option to produce PIC... " >&6; } if test ${lt_cv_prog_compiler_pic_CXX+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_prog_compiler_pic_CXX=$lt_prog_compiler_pic_CXX fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_CXX" >&5 printf "%s\n" "$lt_cv_prog_compiler_pic_CXX" >&6; } lt_prog_compiler_pic_CXX=$lt_cv_prog_compiler_pic_CXX # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic_CXX"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works" >&5 printf %s "checking if $compiler PIC flag $lt_prog_compiler_pic_CXX works... " >&6; } if test ${lt_cv_prog_compiler_pic_works_CXX+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_prog_compiler_pic_works_CXX=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic_CXX -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_CXX=yes fi fi $RM conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works_CXX" >&5 printf "%s\n" "$lt_cv_prog_compiler_pic_works_CXX" >&6; } if test yes = "$lt_cv_prog_compiler_pic_works_CXX"; then case $lt_prog_compiler_pic_CXX in "" | " "*) ;; *) lt_prog_compiler_pic_CXX=" $lt_prog_compiler_pic_CXX" ;; esac else lt_prog_compiler_pic_CXX= lt_prog_compiler_can_build_shared_CXX=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl_CXX eval lt_tmp_static_flag=\"$lt_prog_compiler_static_CXX\" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 printf %s "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if test ${lt_cv_prog_compiler_static_works_CXX+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_prog_compiler_static_works_CXX=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_CXX=yes fi else lt_cv_prog_compiler_static_works_CXX=yes fi fi $RM -r conftest* LDFLAGS=$save_LDFLAGS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works_CXX" >&5 printf "%s\n" "$lt_cv_prog_compiler_static_works_CXX" >&6; } if test yes = "$lt_cv_prog_compiler_static_works_CXX"; then : else lt_prog_compiler_static_CXX= fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 printf %s "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if test ${lt_cv_prog_compiler_c_o_CXX+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_prog_compiler_c_o_CXX=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_CXX=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5 printf "%s\n" "$lt_cv_prog_compiler_c_o_CXX" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 printf %s "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if test ${lt_cv_prog_compiler_c_o_CXX+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_prog_compiler_c_o_CXX=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_CXX=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o_CXX" >&5 printf "%s\n" "$lt_cv_prog_compiler_c_o_CXX" >&6; } hard_links=nottested if test no = "$lt_cv_prog_compiler_c_o_CXX" && test no != "$need_locks"; then # do not overwrite the value of need_locks provided by the user { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 printf "%s\n" "$hard_links" >&6; } if test no = "$hard_links"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: '$CC' does not support '-c -o', so 'make -j' may be unsafe" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 printf %s "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms_CXX='_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 export_symbols_cmds_CXX='$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_CXX='`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*) export_symbols_cmds_CXX=$ltdll_cmds ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) exclude_expsyms_CXX='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) export_symbols_cmds_CXX='$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_CXX='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' ;; esac ;; *) export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs_CXX" >&5 printf "%s\n" "$ld_shlibs_CXX" >&6; } test no = "$ld_shlibs_CXX" && can_build_shared=no with_gnu_ld_CXX=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc_CXX" in x|xyes) # Assume -lc should be added archive_cmds_need_lc_CXX=yes if test yes,yes = "$GCC,$enable_shared"; then case $archive_cmds_CXX 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. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 printf %s "checking whether -lc should be explicitly linked in... " >&6; } if test ${lt_cv_archive_cmds_need_lc_CXX+y} then : printf %s "(cached) " >&6 else $as_nop $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=$? printf "%s\n" "$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_CXX pic_flag=$lt_prog_compiler_pic_CXX compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag_CXX allow_undefined_flag_CXX= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds_CXX 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? printf "%s\n" "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc_CXX=no else lt_cv_archive_cmds_need_lc_CXX=yes fi allow_undefined_flag_CXX=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc_CXX" >&5 printf "%s\n" "$lt_cv_archive_cmds_need_lc_CXX" >&6; } archive_cmds_need_lc_CXX=$lt_cv_archive_cmds_need_lc_CXX ;; esac fi ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 printf %s "checking dynamic linker characteristics... " >&6; } 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' ;; 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_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* | midnightbsd*) # 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_CXX='-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 test ${lt_cv_shlibpath_overrides_runpath+y} then : printf %s "(cached) " >&6 else $as_nop lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl_CXX\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec_CXX\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { ; return 0; } _ACEOF if ac_fn_cxx_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.beam \ 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 printf %s "checking how to hardcode library paths into programs... " >&6; } hardcode_action_CXX= if test -n "$hardcode_libdir_flag_spec_CXX" || test -n "$runpath_var_CXX" || test yes = "$hardcode_automatic_CXX"; then # We can hardcode non-existent directories. if test no != "$hardcode_direct_CXX" && # 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, CXX)" && test no != "$hardcode_minus_L_CXX"; then # Linking always hardcodes the temporary library directory. hardcode_action_CXX=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action_CXX=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action_CXX=unsupported fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $hardcode_action_CXX" >&5 printf "%s\n" "$hardcode_action_CXX" >&6; } if test relink = "$hardcode_action_CXX" || test yes = "$inherit_rpath_CXX"; 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 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_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_config_commands="$ac_config_commands libtool" # Only expand once: ac_fn_c_check_header_compile "$LINENO" "unistd.h" "ac_cv_header_unistd_h" "$ac_includes_default" if test "x$ac_cv_header_unistd_h" = xyes then : printf "%s\n" "#define HAVE_UNISTD_H 1" >>confdefs.h fi # Check for mmap(). Don't use AC_FUNC_MMAP, because it checks too much: it # fails on HP-UX 11, because MAP_FIXED mappings do not work. But this is # irrelevant for anonymous mappings. ac_fn_c_check_func "$LINENO" "mmap" "ac_cv_func_mmap" if test "x$ac_cv_func_mmap" = xyes then : gl_have_mmap=yes else $as_nop gl_have_mmap=no fi # Try to allow MAP_ANONYMOUS. gl_have_mmap_anonymous=no if test $gl_have_mmap = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for MAP_ANONYMOUS" >&5 printf %s "checking for MAP_ANONYMOUS... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef MAP_ANONYMOUS I cannot identify this map #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "I cannot identify this map" >/dev/null 2>&1 then : gl_have_mmap_anonymous=yes fi rm -rf conftest* if test $gl_have_mmap_anonymous != yes; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef MAP_ANON I cannot identify this map #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "I cannot identify this map" >/dev/null 2>&1 then : printf "%s\n" "#define MAP_ANONYMOUS MAP_ANON" >>confdefs.h gl_have_mmap_anonymous=yes fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_have_mmap_anonymous" >&5 printf "%s\n" "$gl_have_mmap_anonymous" >&6; } if test $gl_have_mmap_anonymous = yes; then printf "%s\n" "#define HAVE_MAP_ANONYMOUS 1" >>confdefs.h fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether code in malloc()ed memory is executable" >&5 printf %s "checking whether code in malloc()ed memory is executable... " >&6; } if test ${ffcall_cv_codeexec+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop 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 https://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 https://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 $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_codeexec" >&5 printf "%s\n" "$ffcall_cv_codeexec" >&6; } case "$ffcall_cv_codeexec" in *yes | irrelevant) printf "%s\n" "#define CODE_EXECUTABLE /**/" >>confdefs.h ;; *no) ;; esac ac_fn_c_check_header_compile "$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 $as_nop 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 $as_nop no_mmap=1 fi if test -z "$no_mmap"; 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); } ' { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working mmap with MAP_ANONYMOUS" >&5 printf %s "checking for working mmap with MAP_ANONYMOUS... " >&6; } if test ${ffcall_cv_func_mmap_anonymous+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in aix* | cygwin* | darwin* | hpux* | linux* | solaris*) ffcall_cv_func_mmap_anonymous="guessing yes" ;; *) ffcall_cv_func_mmap_anonymous="guessing no" ;; esac else $as_nop 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 https://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 https://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 else $as_nop ffcall_cv_func_mmap_anonymous=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_func_mmap_anonymous" >&5 printf "%s\n" "$ffcall_cv_func_mmap_anonymous" >&6; } case "$ffcall_cv_func_mmap_anonymous" in *yes) printf "%s\n" "#define HAVE_MMAP_ANONYMOUS 1" >>confdefs.h ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working mmap of /dev/zero" >&5 printf %s "checking for working mmap of /dev/zero... " >&6; } if test ${ffcall_cv_func_mmap_devzero+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : 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 else $as_nop 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 https://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 https://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 else $as_nop ffcall_cv_func_mmap_devzero=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_func_mmap_devzero" >&5 printf "%s\n" "$ffcall_cv_func_mmap_devzero" >&6; } case "$ffcall_cv_func_mmap_devzero" in *yes) printf "%s\n" "#define HAVE_MMAP_DEVZERO 1" >>confdefs.h ;; esac ;; esac fi fi ac_fn_c_check_func "$LINENO" "mprotect" "ac_cv_func_mprotect" if test "x$ac_cv_func_mprotect" = xyes then : printf "%s\n" "#define HAVE_MPROTECT 1" >>confdefs.h fi if test $ac_cv_func_mprotect = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working mprotect" >&5 printf %s "checking for working mprotect... " >&6; } if test ${cl_cv_func_mprotect_works+y} then : printf %s "(cached) " >&6 else $as_nop if test $cross_compiling = no; then mprotect_prog=' #include /* Declare malloc(). */ #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif /* Declare mprotect(). */ #include 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 $as_nop 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 $as_nop 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 $as_nop 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 https://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 https://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 $as_nop 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 https://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 https://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 $as_nop 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 https://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 https://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 $as_nop 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 https://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 https://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 $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $cl_cv_func_mprotect_works" >&5 printf "%s\n" "$cl_cv_func_mprotect_works" >&6; } case "$cl_cv_func_mprotect_works" in *yes) printf "%s\n" "#define HAVE_WORKING_MPROTECT 1" >>confdefs.h ;; esac fi case "$ffcall_cv_codeexec" in *yes | irrelevant) ;; *) case "$ac_cv_func_mprotect--$cl_cv_func_mprotect_works" in yes--*yes) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether mprotect can make malloc()ed memory executable" >&5 printf %s "checking whether mprotect can make malloc()ed memory executable... " >&6; } if test ${ffcall_cv_malloc_mprotect_can_exec+y} then : printf %s "(cached) " >&6 else $as_nop 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 : 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 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif #include /* Declare mprotect(). */ #include 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 || errno == ENOTSUP)) /* 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 $as_nop ffcall_cv_malloc_mprotect_can_exec=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_malloc_mprotect_can_exec" >&5 printf "%s\n" "$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 printf "%s\n" "#define HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC $MPROTECT_AFTER_MALLOC_CAN_EXEC" >>confdefs.h case "$ffcall_cv_malloc_mprotect_can_exec" in *yes) ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether mprotect can make mmap()ed memory executable" >&5 printf %s "checking whether mprotect can make mmap()ed memory executable... " >&6; } if test ${ffcall_cv_mmap_mprotect_can_exec+y} then : printf %s "(cached) " >&6 else $as_nop 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 : 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 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif #include /* Declare mmap(), mprotect(). */ #include #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 HAVE_MMAP_ANONYMOUS p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #elif 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 || errno == ENOTSUP)) /* 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 $as_nop ffcall_cv_mmap_mprotect_can_exec=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_mmap_mprotect_can_exec" >&5 printf "%s\n" "$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 printf "%s\n" "#define HAVE_MPROTECT_AFTER_MMAP_CAN_EXEC $MPROTECT_AFTER_MMAP_CAN_EXEC" >>confdefs.h case "$ffcall_cv_mmap_mprotect_can_exec" in *yes) ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether a shared mmap can make memory pages executable" >&5 printf %s "checking whether a shared mmap can make memory pages executable... " >&6; } if test ${ffcall_cv_mmap_shared_can_exec+y} then : printf %s "(cached) " >&6 else $as_nop filename="/tmp/trampdata$$.data" if test "$cross_compiling" = yes then : ffcall_cv_mmap_shared_can_exec="guessing yes" else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif /* Declare mmap(). */ #include #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 $as_nop ffcall_cv_mmap_shared_can_exec=no 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ffcall_cv_mmap_shared_can_exec" >&5 printf "%s\n" "$ffcall_cv_mmap_shared_can_exec" >&6; } case "$ffcall_cv_mmap_shared_can_exec" in *yes) printf "%s\n" "#define HAVE_MMAP_SHARED_CAN_EXEC 1" >>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} = 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} = sparc -o ${HOST_CPU_C_ABI} = sparc64; then case "${host_os}" in solaris*) ;; *) CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' ;; esac 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*) ac_fn_c_check_header_compile "$LINENO" "sys/cachectl.h" "ac_cv_header_sys_cachectl_h" "$ac_includes_default" if test "x$ac_cv_header_sys_cachectl_h" = xyes then : printf "%s\n" "#define HAVE_SYS_CACHECTL_H 1" >>confdefs.h fi ;; 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 $as_nop DISABLE_TYPE_BASED_ALIASING='' fi rm -rf conftest* ;; esac fi # Check whether --enable-cross-guesses was given. if test ${enable_cross_guesses+y} then : enableval=$enable_cross_guesses; if test "x$enableval" != xconservative && test "x$enableval" != xrisky; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: invalid argument supplied to --enable-cross-guesses" >&5 printf "%s\n" "$as_me: WARNING: invalid argument supplied to --enable-cross-guesses" >&2;} enableval=conservative fi gl_cross_guesses="$enableval" else $as_nop gl_cross_guesses=conservative fi if test $gl_cross_guesses = risky; then gl_cross_guess_normal="guessing yes" gl_cross_guess_inverted="guessing no" else gl_cross_guess_normal="guessing no" gl_cross_guess_inverted="guessing yes" fi LIBC_FATAL_STDERR_=1 export LIBC_FATAL_STDERR_ ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" if test "x$ac_cv_type_size_t" = xyes then : else $as_nop printf "%s\n" "#define size_t unsigned int" >>confdefs.h fi # The Ultrix 4.2 mips builtin alloca declared by alloca.h only works # for constant arguments. Useless! { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working alloca.h" >&5 printf %s "checking for working alloca.h... " >&6; } if test ${ac_cv_working_alloca_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { char *p = (char *) alloca (2 * sizeof (int)); if (p) return 0; ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_working_alloca_h=yes else $as_nop ac_cv_working_alloca_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_working_alloca_h" >&5 printf "%s\n" "$ac_cv_working_alloca_h" >&6; } if test $ac_cv_working_alloca_h = yes; then printf "%s\n" "#define HAVE_ALLOCA_H 1" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for alloca" >&5 printf %s "checking for alloca... " >&6; } if test ${ac_cv_func_alloca_works+y} then : printf %s "(cached) " >&6 else $as_nop if test $ac_cv_working_alloca_h = yes; then ac_cv_func_alloca_works=yes else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #ifndef alloca # ifdef __GNUC__ # define alloca __builtin_alloca # elif defined _MSC_VER # include # define alloca _alloca # else # ifdef __cplusplus extern "C" # endif void *alloca (size_t); # endif #endif int main (void) { char *p = (char *) alloca (1); if (p) return 0; ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_func_alloca_works=yes else $as_nop ac_cv_func_alloca_works=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_alloca_works" >&5 printf "%s\n" "$ac_cv_func_alloca_works" >&6; } fi if test $ac_cv_func_alloca_works = yes; then printf "%s\n" "#define HAVE_ALLOCA 1" >>confdefs.h else # The SVR3 libPW and SVR4 libucb both contain incompatible functions # that cause trouble. Some versions do not even contain alloca or # contain a buggy version. If you still want to use their alloca, # use ar to extract alloca.o from them instead of compiling alloca.c. ALLOCA=\${LIBOBJDIR}alloca.$ac_objext printf "%s\n" "#define C_ALLOCA 1" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking stack direction for C alloca" >&5 printf %s "checking stack direction for C alloca... " >&6; } if test ${ac_cv_c_stack_direction+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : ac_cv_c_stack_direction=0 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int find_stack_direction (int *addr, int depth) { int dir, dummy = 0; if (! addr) addr = &dummy; *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1; dir = depth ? find_stack_direction (addr, depth - 1) : 0; return dir + dummy; } int main (int argc, char **argv) { return find_stack_direction (0, argc + !argv + 20) < 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : ac_cv_c_stack_direction=1 else $as_nop ac_cv_c_stack_direction=-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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_stack_direction" >&5 printf "%s\n" "$ac_cv_c_stack_direction" >&6; } printf "%s\n" "#define STACK_DIRECTION $ac_cv_c_stack_direction" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for inline" >&5 printf %s "checking for inline... " >&6; } if test ${ac_cv_c_inline+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_c_inline=no for ac_kw in inline __inline__ __inline; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifndef __cplusplus typedef int foo_t; static $ac_kw foo_t static_foo (void) {return 0; } $ac_kw foo_t foo (void) {return 0; } #endif _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_c_inline=$ac_kw fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext test "$ac_cv_c_inline" != no && break done fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_inline" >&5 printf "%s\n" "$ac_cv_c_inline" >&6; } case $ac_cv_c_inline in inline | yes) ;; *) case $ac_cv_c_inline in no) ac_val=;; *) ac_val=$ac_cv_c_inline;; esac cat >>confdefs.h <<_ACEOF #ifndef __cplusplus #define inline $ac_val #endif _ACEOF ;; esac HAVE_CHOWN=1; HAVE_COPY_FILE_RANGE=1; HAVE_DUP3=1; HAVE_EUIDACCESS=1; HAVE_EXECVPE=1; HAVE_FACCESSAT=1; HAVE_FCHDIR=1; HAVE_FCHOWNAT=1; HAVE_FDATASYNC=1; HAVE_FSYNC=1; HAVE_FTRUNCATE=1; HAVE_GETDTABLESIZE=1; HAVE_GETENTROPY=1; HAVE_GETGROUPS=1; HAVE_GETHOSTNAME=1; HAVE_GETLOGIN=1; HAVE_GETPAGESIZE=1; HAVE_GETPASS=1; HAVE_GROUP_MEMBER=1; HAVE_LCHOWN=1; HAVE_LINK=1; HAVE_LINKAT=1; HAVE_PIPE=1; HAVE_PIPE2=1; HAVE_PREAD=1; HAVE_PWRITE=1; HAVE_READLINK=1; HAVE_READLINKAT=1; HAVE_SETHOSTNAME=1; HAVE_SLEEP=1; HAVE_SYMLINK=1; HAVE_SYMLINKAT=1; HAVE_UNLINKAT=1; HAVE_USLEEP=1; HAVE_DECL_ENVIRON=1; HAVE_DECL_EXECVPE=1; HAVE_DECL_FCHDIR=1; HAVE_DECL_FDATASYNC=1; HAVE_DECL_GETDOMAINNAME=1; HAVE_DECL_GETLOGIN=1; HAVE_DECL_GETLOGIN_R=1; HAVE_DECL_GETPAGESIZE=1; HAVE_DECL_GETUSERSHELL=1; HAVE_DECL_SETHOSTNAME=1; HAVE_DECL_TRUNCATE=1; HAVE_DECL_TTYNAME_R=1; HAVE_OS_H=0; HAVE_SYS_PARAM_H=0; REPLACE_ACCESS=0; REPLACE_CHOWN=0; REPLACE_CLOSE=0; REPLACE_DUP=0; REPLACE_DUP2=0; REPLACE_EXECL=0; REPLACE_EXECLE=0; REPLACE_EXECLP=0; REPLACE_EXECV=0; REPLACE_EXECVE=0; REPLACE_EXECVP=0; REPLACE_EXECVPE=0; REPLACE_FACCESSAT=0; REPLACE_FCHOWNAT=0; REPLACE_FTRUNCATE=0; REPLACE_GETCWD=0; REPLACE_GETDOMAINNAME=0; REPLACE_GETDTABLESIZE=0; REPLACE_GETLOGIN_R=0; REPLACE_GETGROUPS=0; REPLACE_GETPAGESIZE=0; REPLACE_GETPASS=0; REPLACE_ISATTY=0; REPLACE_LCHOWN=0; REPLACE_LINK=0; REPLACE_LINKAT=0; REPLACE_LSEEK=0; REPLACE_PREAD=0; REPLACE_PWRITE=0; REPLACE_READ=0; REPLACE_READLINK=0; REPLACE_READLINKAT=0; REPLACE_RMDIR=0; REPLACE_SLEEP=0; REPLACE_SYMLINK=0; REPLACE_SYMLINKAT=0; REPLACE_TRUNCATE=0; REPLACE_TTYNAME_R=0; REPLACE_UNLINK=0; REPLACE_UNLINKAT=0; REPLACE_USLEEP=0; REPLACE_WRITE=0; UNISTD_H_HAVE_SYS_RANDOM_H=0; UNISTD_H_HAVE_WINSOCK2_H=0; UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS=0; ac_func= for ac_item in $ac_func_c_list do if test $ac_func; then ac_fn_c_check_func "$LINENO" $ac_func ac_cv_func_$ac_func if eval test \"x\$ac_cv_func_$ac_func\" = xyes; then echo "#define $ac_item 1" >> confdefs.h fi ac_func= else ac_func=$ac_item fi done if test $ac_cv_func__set_invalid_parameter_handler = yes; then HAVE_MSVC_INVALID_PARAMETER_HANDLER=1 printf "%s\n" "#define HAVE_MSVC_INVALID_PARAMETER_HANDLER 1" >>confdefs.h else HAVE_MSVC_INVALID_PARAMETER_HANDLER=0 fi GL_GNULIB_ACCESS=0 GL_GNULIB_CHDIR=0 GL_GNULIB_CHOWN=0 GL_GNULIB_CLOSE=0 GL_GNULIB_COPY_FILE_RANGE=0 GL_GNULIB_DUP=0 GL_GNULIB_DUP2=0 GL_GNULIB_DUP3=0 GL_GNULIB_ENVIRON=0 GL_GNULIB_EUIDACCESS=0 GL_GNULIB_EXECL=0 GL_GNULIB_EXECLE=0 GL_GNULIB_EXECLP=0 GL_GNULIB_EXECV=0 GL_GNULIB_EXECVE=0 GL_GNULIB_EXECVP=0 GL_GNULIB_EXECVPE=0 GL_GNULIB_FACCESSAT=0 GL_GNULIB_FCHDIR=0 GL_GNULIB_FCHOWNAT=0 GL_GNULIB_FDATASYNC=0 GL_GNULIB_FSYNC=0 GL_GNULIB_FTRUNCATE=0 GL_GNULIB_GETCWD=0 GL_GNULIB_GETDOMAINNAME=0 GL_GNULIB_GETDTABLESIZE=0 GL_GNULIB_GETENTROPY=0 GL_GNULIB_GETGROUPS=0 GL_GNULIB_GETHOSTNAME=0 GL_GNULIB_GETLOGIN=0 GL_GNULIB_GETLOGIN_R=0 GL_GNULIB_GETOPT_POSIX=0 GL_GNULIB_GETPAGESIZE=0 GL_GNULIB_GETPASS=0 GL_GNULIB_GETUSERSHELL=0 GL_GNULIB_GROUP_MEMBER=0 GL_GNULIB_ISATTY=0 GL_GNULIB_LCHOWN=0 GL_GNULIB_LINK=0 GL_GNULIB_LINKAT=0 GL_GNULIB_LSEEK=0 GL_GNULIB_PIPE=0 GL_GNULIB_PIPE2=0 GL_GNULIB_PREAD=0 GL_GNULIB_PWRITE=0 GL_GNULIB_READ=0 GL_GNULIB_READLINK=0 GL_GNULIB_READLINKAT=0 GL_GNULIB_RMDIR=0 GL_GNULIB_SETHOSTNAME=0 GL_GNULIB_SLEEP=0 GL_GNULIB_SYMLINK=0 GL_GNULIB_SYMLINKAT=0 GL_GNULIB_TRUNCATE=0 GL_GNULIB_TTYNAME_R=0 GL_GNULIB_UNISTD_H_NONBLOCKING=0 GL_GNULIB_UNISTD_H_SIGPIPE=0 GL_GNULIB_UNLINK=0 GL_GNULIB_UNLINKAT=0 GL_GNULIB_USLEEP=0 GL_GNULIB_WRITE=0 GL_GNULIB_MDA_ACCESS=1 GL_GNULIB_MDA_CHDIR=1 GL_GNULIB_MDA_CLOSE=1 GL_GNULIB_MDA_DUP=1 GL_GNULIB_MDA_DUP2=1 GL_GNULIB_MDA_EXECL=1 GL_GNULIB_MDA_EXECLE=1 GL_GNULIB_MDA_EXECLP=1 GL_GNULIB_MDA_EXECV=1 GL_GNULIB_MDA_EXECVE=1 GL_GNULIB_MDA_EXECVP=1 GL_GNULIB_MDA_EXECVPE=1 GL_GNULIB_MDA_GETCWD=1 GL_GNULIB_MDA_GETPID=1 GL_GNULIB_MDA_ISATTY=1 GL_GNULIB_MDA_LSEEK=1 GL_GNULIB_MDA_READ=1 GL_GNULIB_MDA_RMDIR=1 GL_GNULIB_MDA_SWAB=1 GL_GNULIB_MDA_UNLINK=1 GL_GNULIB_MDA_WRITE=1 gl_mda_defines=' #if defined _WIN32 && !defined __CYGWIN__ #define access _access #define chdir _chdir #define chmod _chmod #define close _close #define creat _creat #define dup _dup #define dup2 _dup2 #define ecvt _ecvt #define execl _execl #define execle _execle #define execlp _execlp #define execv _execv #define execve _execve #define execvp _execvp #define execvpe _execvpe #define fcloseall _fcloseall #define fcvt _fcvt #define fdopen _fdopen #define fileno _fileno #define gcvt _gcvt #define getcwd _getcwd #define getpid _getpid #define getw _getw #define isatty _isatty #define j0 _j0 #define j1 _j1 #define jn _jn #define lfind _lfind #define lsearch _lsearch #define lseek _lseek #define memccpy _memccpy #define mkdir _mkdir #define mktemp _mktemp #define open _open #define putenv _putenv #define putw _putw #define read _read #define rmdir _rmdir #define strdup _strdup #define swab _swab #define tempnam _tempnam #define tzset _tzset #define umask _umask #define unlink _unlink #define utime _utime #define wcsdup _wcsdup #define write _write #define y0 _y0 #define y1 _y1 #define yn _yn #endif ' { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the preprocessor supports include_next" >&5 printf %s "checking whether the preprocessor supports include_next... " >&6; } if test ${gl_cv_have_include_next+y} then : printf %s "(cached) " >&6 else $as_nop 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 $as_nop 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 $as_nop gl_cv_have_include_next=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext CPPFLAGS="$gl_save_CPPFLAGS" rm -rf conftestd1a conftestd1b conftestd2 fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_include_next" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether source code line length is unlimited" >&5 printf %s "checking whether source code line length is unlimited... " >&6; } if test ${gl_cv_source_line_length_unlimited+y} then : printf %s "(cached) " >&6 else $as_nop 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_source_line_length_unlimited=no else $as_nop gl_cv_source_line_length_unlimited=yes fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_source_line_length_unlimited" >&5 printf "%s\n" "$gl_cv_source_line_length_unlimited" >&6; } if test $gl_cv_source_line_length_unlimited = no; then PRAGMA_COLUMNS="#pragma COLUMNS 10000" else PRAGMA_COLUMNS= fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for complete errno.h" >&5 printf %s "checking for complete errno.h... " >&6; } if test ${gl_cv_header_errno_h_complete+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if !defined ETXTBSY booboo #endif #if !defined ENOMSG booboo #endif #if !defined EIDRM booboo #endif #if !defined ENOLINK booboo #endif #if !defined EPROTO booboo #endif #if !defined EMULTIHOP booboo #endif #if !defined EBADMSG booboo #endif #if !defined EOVERFLOW booboo #endif #if !defined ENOTSUP booboo #endif #if !defined ENETRESET booboo #endif #if !defined ECONNABORTED booboo #endif #if !defined ESTALE booboo #endif #if !defined EDQUOT booboo #endif #if !defined ECANCELED booboo #endif #if !defined EOWNERDEAD booboo #endif #if !defined ENOTRECOVERABLE booboo #endif #if !defined EILSEQ booboo #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "booboo" >/dev/null 2>&1 then : gl_cv_header_errno_h_complete=no else $as_nop gl_cv_header_errno_h_complete=yes fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_errno_h_complete" >&5 printf "%s\n" "$gl_cv_header_errno_h_complete" >&6; } if test $gl_cv_header_errno_h_complete = yes; then ERRNO_H='' else if test $gl_cv_have_include_next = yes; then gl_cv_next_errno_h='<'errno.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_errno_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'errno.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_errno_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_errno_h gl_cv_next_errno_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_errno_h" >&5 printf "%s\n" "$gl_cv_next_errno_h" >&6; } fi NEXT_ERRNO_H=$gl_cv_next_errno_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='<'errno.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_errno_h fi NEXT_AS_FIRST_DIRECTIVE_ERRNO_H=$gl_next_as_first_directive ERRNO_H='errno.h' fi if test -n "$ERRNO_H"; then GL_GENERATE_ERRNO_H_TRUE= GL_GENERATE_ERRNO_H_FALSE='#' else GL_GENERATE_ERRNO_H_TRUE='#' GL_GENERATE_ERRNO_H_FALSE= fi if test -n "$ERRNO_H"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for EMULTIHOP value" >&5 printf %s "checking for EMULTIHOP value... " >&6; } if test ${gl_cv_header_errno_h_EMULTIHOP+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef EMULTIHOP yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1 then : gl_cv_header_errno_h_EMULTIHOP=yes else $as_nop gl_cv_header_errno_h_EMULTIHOP=no fi rm -rf conftest* if test $gl_cv_header_errno_h_EMULTIHOP = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _XOPEN_SOURCE_EXTENDED 1 #include #ifdef EMULTIHOP yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1 then : gl_cv_header_errno_h_EMULTIHOP=hidden fi rm -rf conftest* if test $gl_cv_header_errno_h_EMULTIHOP = hidden; then if ac_fn_c_compute_int "$LINENO" "EMULTIHOP" "gl_cv_header_errno_h_EMULTIHOP" " #define _XOPEN_SOURCE_EXTENDED 1 #include /* The following two lines are a workaround against an autoconf-2.52 bug. */ #include #include " then : fi fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_errno_h_EMULTIHOP" >&5 printf "%s\n" "$gl_cv_header_errno_h_EMULTIHOP" >&6; } case $gl_cv_header_errno_h_EMULTIHOP in yes | no) EMULTIHOP_HIDDEN=0; EMULTIHOP_VALUE= ;; *) EMULTIHOP_HIDDEN=1; EMULTIHOP_VALUE="$gl_cv_header_errno_h_EMULTIHOP" ;; esac fi if test -n "$ERRNO_H"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ENOLINK value" >&5 printf %s "checking for ENOLINK value... " >&6; } if test ${gl_cv_header_errno_h_ENOLINK+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef ENOLINK yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1 then : gl_cv_header_errno_h_ENOLINK=yes else $as_nop gl_cv_header_errno_h_ENOLINK=no fi rm -rf conftest* if test $gl_cv_header_errno_h_ENOLINK = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _XOPEN_SOURCE_EXTENDED 1 #include #ifdef ENOLINK yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1 then : gl_cv_header_errno_h_ENOLINK=hidden fi rm -rf conftest* if test $gl_cv_header_errno_h_ENOLINK = hidden; then if ac_fn_c_compute_int "$LINENO" "ENOLINK" "gl_cv_header_errno_h_ENOLINK" " #define _XOPEN_SOURCE_EXTENDED 1 #include /* The following two lines are a workaround against an autoconf-2.52 bug. */ #include #include " then : fi fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_errno_h_ENOLINK" >&5 printf "%s\n" "$gl_cv_header_errno_h_ENOLINK" >&6; } case $gl_cv_header_errno_h_ENOLINK in yes | no) ENOLINK_HIDDEN=0; ENOLINK_VALUE= ;; *) ENOLINK_HIDDEN=1; ENOLINK_VALUE="$gl_cv_header_errno_h_ENOLINK" ;; esac fi if test -n "$ERRNO_H"; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for EOVERFLOW value" >&5 printf %s "checking for EOVERFLOW value... " >&6; } if test ${gl_cv_header_errno_h_EOVERFLOW+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef EOVERFLOW yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1 then : gl_cv_header_errno_h_EOVERFLOW=yes else $as_nop gl_cv_header_errno_h_EOVERFLOW=no fi rm -rf conftest* if test $gl_cv_header_errno_h_EOVERFLOW = no; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define _XOPEN_SOURCE_EXTENDED 1 #include #ifdef EOVERFLOW yes #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "yes" >/dev/null 2>&1 then : gl_cv_header_errno_h_EOVERFLOW=hidden fi rm -rf conftest* if test $gl_cv_header_errno_h_EOVERFLOW = hidden; then if ac_fn_c_compute_int "$LINENO" "EOVERFLOW" "gl_cv_header_errno_h_EOVERFLOW" " #define _XOPEN_SOURCE_EXTENDED 1 #include /* The following two lines are a workaround against an autoconf-2.52 bug. */ #include #include " then : fi fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_errno_h_EOVERFLOW" >&5 printf "%s\n" "$gl_cv_header_errno_h_EOVERFLOW" >&6; } case $gl_cv_header_errno_h_EOVERFLOW in yes | no) EOVERFLOW_HIDDEN=0; EOVERFLOW_VALUE= ;; *) EOVERFLOW_HIDDEN=1; EOVERFLOW_VALUE="$gl_cv_header_errno_h_EOVERFLOW" ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $CC options needed to detect all undeclared functions" >&5 printf %s "checking for $CC options needed to detect all undeclared functions... " >&6; } if test ${ac_cv_c_undeclared_builtin_options+y} then : printf %s "(cached) " >&6 else $as_nop ac_save_CFLAGS=$CFLAGS ac_cv_c_undeclared_builtin_options='cannot detect' for ac_arg in '' -fno-builtin; do CFLAGS="$ac_save_CFLAGS $ac_arg" # This test program should *not* compile successfully. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main (void) { (void) strchr; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : else $as_nop # This test program should compile successfully. # No library function is consistently available on # freestanding implementations, so test against a dummy # declaration. Include always-available headers on the # off chance that they somehow elicit warnings. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include extern void ac_decl (int, char *); int main (void) { (void) ac_decl (0, (char *) 0); (void) ac_decl; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : if test x"$ac_arg" = x then : ac_cv_c_undeclared_builtin_options='none needed' else $as_nop ac_cv_c_undeclared_builtin_options=$ac_arg fi break fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext done CFLAGS=$ac_save_CFLAGS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_undeclared_builtin_options" >&5 printf "%s\n" "$ac_cv_c_undeclared_builtin_options" >&6; } case $ac_cv_c_undeclared_builtin_options in #( 'cannot detect') : { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot make $CC report undeclared builtins See \`config.log' for more details" "$LINENO" 5; } ;; #( 'none needed') : ac_c_undeclared_builtin_options='' ;; #( *) : ac_c_undeclared_builtin_options=$ac_cv_c_undeclared_builtin_options ;; esac ac_fn_check_decl "$LINENO" "strerror_r" "ac_cv_have_decl_strerror_r" "$ac_includes_default" "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl_strerror_r" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL_STRERROR_R $ac_have_decl" >>confdefs.h if test $ac_cv_have_decl_strerror_r = yes; then # For backward compatibility's sake, define HAVE_STRERROR_R. # (We used to run AC_CHECK_FUNCS_ONCE for strerror_r, as well # as AC_CHECK_DECLS_ONCE.) printf "%s\n" "#define HAVE_STRERROR_R 1" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether strerror_r returns char *" >&5 printf %s "checking whether strerror_r returns char *... " >&6; } if test ${ac_cv_func_strerror_r_char_p+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_func_strerror_r_char_p=no if test $ac_cv_have_decl_strerror_r = yes; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { char buf[100]; char x = *strerror_r (0, buf, sizeof buf); char *p = strerror_r (0, buf, sizeof buf); return !p || x; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_func_strerror_r_char_p=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_strerror_r_char_p" >&5 printf "%s\n" "$ac_cv_func_strerror_r_char_p" >&6; } if test $ac_cv_func_strerror_r_char_p = yes; then printf "%s\n" "#define STRERROR_R_CHAR_P 1" >>confdefs.h fi ac_fn_c_check_type "$LINENO" "sig_atomic_t" "ac_cv_type_sig_atomic_t" "#include " if test "x$ac_cv_type_sig_atomic_t" = xyes then : printf "%s\n" "#define HAVE_SIG_ATOMIC_T 1" >>confdefs.h else $as_nop printf "%s\n" "#define sig_atomic_t int" >>confdefs.h fi HAVE_FCNTL=1; HAVE_OPENAT=1; REPLACE_CREAT=0; REPLACE_FCNTL=0; REPLACE_OPEN=0; REPLACE_OPENAT=0; GL_GNULIB_CREAT=0 GL_GNULIB_FCNTL=0 GL_GNULIB_NONBLOCKING=0 GL_GNULIB_OPEN=0 GL_GNULIB_OPENAT=0 GL_GNULIB_MDA_CREAT=1 GL_GNULIB_MDA_OPEN=1 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working fcntl.h" >&5 printf %s "checking for working fcntl.h... " >&6; } if test ${gl_cv_header_working_fcntl_h+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in # Guess 'no' on native Windows. mingw*) gl_cv_header_working_fcntl_h='no' ;; *) gl_cv_header_working_fcntl_h=cross-compiling ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if HAVE_UNISTD_H # include #else /* on Windows with MSVC */ # include # include # defined sleep(n) _sleep ((n) * 1000) #endif #include $gl_mda_defines #ifndef O_NOATIME #define O_NOATIME 0 #endif #ifndef O_NOFOLLOW #define O_NOFOLLOW 0 #endif static int const constants[] = { O_CREAT, O_EXCL, O_NOCTTY, O_TRUNC, O_APPEND, O_NONBLOCK, O_SYNC, O_ACCMODE, O_RDONLY, O_RDWR, O_WRONLY }; int main (void) { int result = !constants; #if HAVE_SYMLINK { static char const sym[] = "conftest.sym"; if (symlink ("/dev/null", sym) != 0) result |= 2; else { int fd = open (sym, O_WRONLY | O_NOFOLLOW | O_CREAT, 0); if (fd >= 0) { close (fd); result |= 4; } } if (unlink (sym) != 0 || symlink (".", sym) != 0) result |= 2; else { int fd = open (sym, O_RDONLY | O_NOFOLLOW); if (fd >= 0) { close (fd); result |= 4; } } unlink (sym); } #endif { static char const file[] = "confdefs.h"; int fd = open (file, O_RDONLY | O_NOATIME); if (fd < 0) result |= 8; else { struct stat st0; if (fstat (fd, &st0) != 0) result |= 16; else { char c; sleep (1); if (read (fd, &c, 1) != 1) result |= 24; else { if (close (fd) != 0) result |= 32; else { struct stat st1; if (stat (file, &st1) != 0) result |= 40; else if (st0.st_atime != st1.st_atime) result |= 64; } } } } } return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_header_working_fcntl_h=yes else $as_nop case $? in #( 4) gl_cv_header_working_fcntl_h='no (bad O_NOFOLLOW)';; #( 64) gl_cv_header_working_fcntl_h='no (bad O_NOATIME)';; #( 68) gl_cv_header_working_fcntl_h='no (bad O_NOATIME, O_NOFOLLOW)';; #( *) gl_cv_header_working_fcntl_h='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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_fcntl_h" >&5 printf "%s\n" "$gl_cv_header_working_fcntl_h" >&6; } case $gl_cv_header_working_fcntl_h in #( *O_NOATIME* | no | cross-compiling) ac_val=0;; #( *) ac_val=1;; esac printf "%s\n" "#define HAVE_WORKING_O_NOATIME $ac_val" >>confdefs.h case $gl_cv_header_working_fcntl_h in #( *O_NOFOLLOW* | no | cross-compiling) ac_val=0;; #( *) ac_val=1;; esac printf "%s\n" "#define HAVE_WORKING_O_NOFOLLOW $ac_val" >>confdefs.h 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 $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined _WIN64 && !defined __CYGWIN__ LLP64 #endif int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_pid_type='int' else $as_nop ac_pid_type='__int64' fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext printf "%s\n" "#define pid_t $ac_pid_type" >>confdefs.h 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 $as_nop printf "%s\n" "#define mode_t int" >>confdefs.h fi if test $gl_cv_have_include_next = yes; then gl_cv_next_fcntl_h='<'fcntl.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_fcntl_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'fcntl.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_fcntl_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_fcntl_h gl_cv_next_fcntl_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_fcntl_h" >&5 printf "%s\n" "$gl_cv_next_fcntl_h" >&6; } fi NEXT_FCNTL_H=$gl_cv_next_fcntl_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='<'fcntl.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_fcntl_h fi NEXT_AS_FIRST_DIRECTIVE_FCNTL_H=$gl_next_as_first_directive HAVE_FCHMODAT=1; HAVE_FSTATAT=1; HAVE_FUTIMENS=1; HAVE_GETUMASK=1; HAVE_LCHMOD=1; HAVE_LSTAT=1; HAVE_MKDIRAT=1; HAVE_MKFIFO=1; HAVE_MKFIFOAT=1; HAVE_MKNOD=1; HAVE_MKNODAT=1; HAVE_UTIMENSAT=1; REPLACE_FCHMODAT=0; REPLACE_FSTAT=0; REPLACE_FSTATAT=0; REPLACE_FUTIMENS=0; REPLACE_LSTAT=0; REPLACE_MKDIR=0; REPLACE_MKFIFO=0; REPLACE_MKFIFOAT=0; REPLACE_MKNOD=0; REPLACE_MKNODAT=0; REPLACE_STAT=0; REPLACE_UTIMENSAT=0; { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether stat file-mode macros are broken" >&5 printf %s "checking whether stat file-mode macros are broken... " >&6; } if test ${ac_cv_header_stat_broken+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if defined S_ISBLK && defined S_IFDIR extern char c1[S_ISBLK (S_IFDIR) ? -1 : 1]; #endif #if defined S_ISBLK && defined S_IFCHR extern char c2[S_ISBLK (S_IFCHR) ? -1 : 1]; #endif #if defined S_ISLNK && defined S_IFREG extern char c3[S_ISLNK (S_IFREG) ? -1 : 1]; #endif #if defined S_ISSOCK && defined S_IFREG extern char c4[S_ISSOCK (S_IFREG) ? -1 : 1]; #endif _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_header_stat_broken=no else $as_nop ac_cv_header_stat_broken=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stat_broken" >&5 printf "%s\n" "$ac_cv_header_stat_broken" >&6; } if test $ac_cv_header_stat_broken = yes; then printf "%s\n" "#define STAT_MACROS_BROKEN 1" >>confdefs.h fi case "$host_os" in mingw*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for 64-bit off_t" >&5 printf %s "checking for 64-bit off_t... " >&6; } if test ${gl_cv_type_off_t_64+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int verify_off_t_size[sizeof (off_t) >= 8 ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_type_off_t_64=yes else $as_nop gl_cv_type_off_t_64=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_type_off_t_64" >&5 printf "%s\n" "$gl_cv_type_off_t_64" >&6; } if test $gl_cv_type_off_t_64 = no; then WINDOWS_64_BIT_OFF_T=1 else WINDOWS_64_BIT_OFF_T=0 fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for 64-bit st_size" >&5 printf %s "checking for 64-bit st_size... " >&6; } if test ${gl_cv_member_st_size_64+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include struct stat buf; int verify_st_size_size[sizeof (buf.st_size) >= 8 ? 1 : -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_member_st_size_64=yes else $as_nop gl_cv_member_st_size_64=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_member_st_size_64" >&5 printf "%s\n" "$gl_cv_member_st_size_64" >&6; } if test $gl_cv_member_st_size_64 = no; then WINDOWS_64_BIT_ST_SIZE=1 else WINDOWS_64_BIT_ST_SIZE=0 fi ;; *) WINDOWS_64_BIT_OFF_T=0 WINDOWS_64_BIT_ST_SIZE=0 ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for C/C++ restrict keyword" >&5 printf %s "checking for C/C++ restrict keyword... " >&6; } if test ${ac_cv_c_restrict+y} then : printf %s "(cached) " >&6 else $as_nop ac_cv_c_restrict=no # Put '__restrict__' first, to avoid problems with glibc and non-GCC; see: # https://lists.gnu.org/archive/html/bug-autoconf/2016-02/msg00006.html # Put 'restrict' last, because C++ lacks it. for ac_kw in __restrict__ __restrict _Restrict restrict; do cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ 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 main (void) { int s[1]; int *$ac_kw t = s; t[0] = 0; return foo (t) + bar (t); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_c_restrict=$ac_kw fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext test "$ac_cv_c_restrict" != no && break done fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_restrict" >&5 printf "%s\n" "$ac_cv_c_restrict" >&6; } case $ac_cv_c_restrict in restrict) ;; no) printf "%s\n" "#define restrict /**/" >>confdefs.h ;; *) printf "%s\n" "#define restrict $ac_cv_c_restrict" >>confdefs.h ;; esac if test $gl_cv_have_include_next = yes; then gl_cv_next_sys_stat_h='<'sys/stat.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_sys_stat_h+y} then : printf %s "(cached) " >&6 else $as_nop if test $ac_cv_header_sys_stat_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 'sys/stat.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_stat_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_sys_stat_h gl_cv_next_sys_stat_h='"'$gl_header'"' else gl_cv_next_sys_stat_h='<'sys/stat.h'>' fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_stat_h" >&5 printf "%s\n" "$gl_cv_next_sys_stat_h" >&6; } fi NEXT_SYS_STAT_H=$gl_cv_next_sys_stat_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/stat.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_sys_stat_h fi NEXT_AS_FIRST_DIRECTIVE_SYS_STAT_H=$gl_next_as_first_directive WINDOWS_STAT_TIMESPEC=0 ac_fn_c_check_type "$LINENO" "nlink_t" "ac_cv_type_nlink_t" "#include #include " if test "x$ac_cv_type_nlink_t" = xyes then : else $as_nop printf "%s\n" "#define nlink_t int" >>confdefs.h fi case "$host_os" in mingw*) ac_fn_c_check_header_compile "$LINENO" "sdkddkver.h" "ac_cv_header_sdkddkver_h" "$ac_includes_default" if test "x$ac_cv_header_sdkddkver_h" = xyes then : printf "%s\n" "#define HAVE_SDKDDKVER_H 1" >>confdefs.h fi ;; esac GL_GNULIB_FCHMODAT=0 GL_GNULIB_FSTAT=0 GL_GNULIB_FSTATAT=0 GL_GNULIB_FUTIMENS=0 GL_GNULIB_GETUMASK=0 GL_GNULIB_LCHMOD=0 GL_GNULIB_LSTAT=0 GL_GNULIB_MKDIR=0 GL_GNULIB_MKDIRAT=0 GL_GNULIB_MKFIFO=0 GL_GNULIB_MKFIFOAT=0 GL_GNULIB_MKNOD=0 GL_GNULIB_MKNODAT=0 GL_GNULIB_STAT=0 GL_GNULIB_UTIMENSAT=0 GL_GNULIB_OVERRIDES_STRUCT_STAT=0 GL_GNULIB_MDA_CHMOD=1 GL_GNULIB_MDA_MKDIR=1 GL_GNULIB_MDA_UMASK=1 ac_fn_check_decl "$LINENO" "getdtablesize" "ac_cv_have_decl_getdtablesize" "$ac_includes_default" "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl_getdtablesize" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL_GETDTABLESIZE $ac_have_decl" >>confdefs.h if test $gl_cv_have_include_next = yes; then gl_cv_next_limits_h='<'limits.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_limits_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_limits_h" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc." >&5 printf %s "checking whether limits.h has LLONG_MAX, WORD_BIT, ULLONG_WIDTH etc.... " >&6; } if test ${gl_cv_header_limits_width+y} then : printf %s "(cached) " >&6 else $as_nop 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 (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_header_limits_width=yes else $as_nop gl_cv_header_limits_width=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_limits_width" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether imported symbols can be declared weak" >&5 printf %s "checking whether imported symbols can be declared weak... " >&6; } if test ${gl_cv_have_weak+y} then : printf %s "(cached) " >&6 else $as_nop gl_cv_have_weak=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ extern void xyzzy (); #pragma weak xyzzy int main (void) { 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.beam \ 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 $as_nop gl_cv_have_weak="guessing no" fi rm -rf conftest* else $as_nop 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 $as_nop 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 case "$gl_cv_have_weak" in *yes) case "$host_os" in freebsd* | dragonfly* | midnightbsd*) : > conftest1.c $CC $CPPFLAGS $CFLAGS $LDFLAGS -fPIC -shared -o libempty.so conftest1.c -lpthread >&5 2>&1 cat < conftest2.c #include #pragma weak pthread_mutexattr_gettype int main () { return (pthread_mutexattr_gettype != NULL); } EOF $CC $CPPFLAGS $CFLAGS $LDFLAGS -o conftest conftest2.c libempty.so >&5 2>&1 \ || gl_cv_have_weak=no rm -f conftest1.c libempty.so conftest2.c conftest ;; esac ;; esac fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_have_weak" >&5 printf "%s\n" "$gl_cv_have_weak" >&6; } case "$gl_cv_have_weak" in *yes) printf "%s\n" "#define HAVE_WEAK_SYMBOLS 1" >>confdefs.h ;; esac if case "$gl_cv_have_weak" in *yes) true;; *) false;; esac; then : fi if test "$gl_use_threads" = isoc || test "$gl_use_threads" = isoc+posix; then gl_have_isoc_threads="$ac_cv_header_threads_h" fi if test "$gl_use_threads" = yes \ || test "$gl_use_threads" = posix \ || test "$gl_use_threads" = isoc+posix; then if test -z "$gl_pthreadlib_body_done"; then gl_pthread_api=no LIBPTHREAD= LIBPMULTITHREAD= # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that # it groks . It's added above, in gl_ANYTHREADLIB_EARLY. ac_fn_c_check_header_compile "$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 $as_nop gl_have_pthread_h=no fi if test "$gl_have_pthread_h" = yes; then # Other possible tests: # -lpthreads (FSU threads, PCthreads) # -lgthreads # 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 (void) { pthread_mutex_lock (&m); pthread_mutexattr_init (&ma); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : gl_pthread_api=yes LIBPTHREAD=$gl_pthread LIBPMULTITHREAD=$gl_pthread fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$save_LIBS test $gl_pthread_api = yes && 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 $gl_pthread_api = yes && test -z "$LIBPTHREAD"; then # The program links fine without libpthread. But it may actually # need to link with libpthread in order to create multiple threads. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 printf %s "checking for pthread_kill in -lpthread... " >&6; } if test ${ac_cv_lib_pthread_pthread_kill+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char pthread_kill (); int main (void) { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_pthread_pthread_kill=yes else $as_nop ac_cv_lib_pthread_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 printf "%s\n" "$ac_cv_lib_pthread_pthread_kill" >&6; } if test "x$ac_cv_lib_pthread_pthread_kill" = xyes then : LIBPMULTITHREAD=-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*) printf "%s\n" "#define PTHREAD_IN_USE_DETECTION_HARD 1" >>confdefs.h esac fi elif test $gl_pthread_api != yes; then # Some library is needed. Try libpthread and libc_r. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 printf %s "checking for pthread_kill in -lpthread... " >&6; } if test ${ac_cv_lib_pthread_pthread_kill+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char pthread_kill (); int main (void) { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_pthread_pthread_kill=yes else $as_nop ac_cv_lib_pthread_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 printf "%s\n" "$ac_cv_lib_pthread_pthread_kill" >&6; } if test "x$ac_cv_lib_pthread_pthread_kill" = xyes then : gl_pthread_api=yes LIBPTHREAD=-lpthread LIBPMULTITHREAD=-lpthread fi if test $gl_pthread_api != yes; then # For FreeBSD 4. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lc_r" >&5 printf %s "checking for pthread_kill in -lc_r... " >&6; } if test ${ac_cv_lib_c_r_pthread_kill+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char pthread_kill (); int main (void) { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_c_r_pthread_kill=yes else $as_nop ac_cv_lib_c_r_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_r_pthread_kill" >&5 printf "%s\n" "$ac_cv_lib_c_r_pthread_kill" >&6; } if test "x$ac_cv_lib_c_r_pthread_kill" = xyes then : gl_pthread_api=yes LIBPTHREAD=-lc_r LIBPMULTITHREAD=-lc_r fi fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether POSIX threads API is available" >&5 printf %s "checking whether POSIX threads API is available... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_pthread_api" >&5 printf "%s\n" "$gl_pthread_api" >&6; } if test $gl_pthread_api = yes; then printf "%s\n" "#define HAVE_PTHREAD_API 1" >>confdefs.h fi cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : LIB_SCHED_YIELD= else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sched_yield in -lrt" >&5 printf %s "checking for sched_yield in -lrt... " >&6; } if test ${ac_cv_lib_rt_sched_yield+y} then : printf %s "(cached) " >&6 else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lrt $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. */ char sched_yield (); int main (void) { return sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_rt_sched_yield=yes else $as_nop ac_cv_lib_rt_sched_yield=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_rt_sched_yield" >&5 printf "%s\n" "$ac_cv_lib_rt_sched_yield" >&6; } if test "x$ac_cv_lib_rt_sched_yield" = xyes then : LIB_SCHED_YIELD=-lrt else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sched_yield in -lposix4" >&5 printf %s "checking for sched_yield in -lposix4... " >&6; } if test ${ac_cv_lib_posix4_sched_yield+y} then : printf %s "(cached) " >&6 else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lposix4 $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. */ char sched_yield (); int main (void) { return sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_posix4_sched_yield=yes else $as_nop ac_cv_lib_posix4_sched_yield=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_posix4_sched_yield" >&5 printf "%s\n" "$ac_cv_lib_posix4_sched_yield" >&6; } if test "x$ac_cv_lib_posix4_sched_yield" = xyes then : LIB_SCHED_YIELD=-lposix4 fi fi fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext gl_pthreadlib_body_done=done fi LIBTHREAD=$LIBPTHREAD LTLIBTHREAD=$LIBPTHREAD LIBMULTITHREAD=$LIBPMULTITHREAD LTLIBMULTITHREAD=$LIBPMULTITHREAD if test $gl_pthread_api = yes; then if test "$gl_use_threads" = isoc+posix && test "$gl_have_isoc_threads" = yes; then gl_threads_api='isoc+posix' printf "%s\n" "#define USE_ISOC_AND_POSIX_THREADS 1" >>confdefs.h LIBTHREAD= LTLIBTHREAD= else gl_threads_api=posix printf "%s\n" "#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 printf "%s\n" "#define USE_POSIX_THREADS_WEAK 1" >>confdefs.h LIBTHREAD= LTLIBTHREAD= else case "$host_os" in freebsd* | dragonfly* | midnightbsd*) if test "x$LIBTHREAD" != "x$LIBMULTITHREAD"; then printf "%s\n" "#define PTHREAD_IN_USE_DETECTION_HARD 1" >>confdefs.h fi ;; esac fi fi fi fi fi if test $gl_threads_api = none; then if test "$gl_use_threads" = isoc && test "$gl_have_isoc_threads" = yes; then if test -z "$gl_stdthreadlib_body_done"; then case "$host_os" in mingw*) LIBSTDTHREAD= ;; *) if test -z "$gl_pthreadlib_body_done"; then gl_pthread_api=no LIBPTHREAD= LIBPMULTITHREAD= # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that # it groks . It's added above, in gl_ANYTHREADLIB_EARLY. ac_fn_c_check_header_compile "$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 $as_nop gl_have_pthread_h=no fi if test "$gl_have_pthread_h" = yes; then # Other possible tests: # -lpthreads (FSU threads, PCthreads) # -lgthreads # 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 (void) { pthread_mutex_lock (&m); pthread_mutexattr_init (&ma); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : gl_pthread_api=yes LIBPTHREAD=$gl_pthread LIBPMULTITHREAD=$gl_pthread fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$save_LIBS test $gl_pthread_api = yes && 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 $gl_pthread_api = yes && test -z "$LIBPTHREAD"; then # The program links fine without libpthread. But it may actually # need to link with libpthread in order to create multiple threads. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 printf %s "checking for pthread_kill in -lpthread... " >&6; } if test ${ac_cv_lib_pthread_pthread_kill+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char pthread_kill (); int main (void) { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_pthread_pthread_kill=yes else $as_nop ac_cv_lib_pthread_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 printf "%s\n" "$ac_cv_lib_pthread_pthread_kill" >&6; } if test "x$ac_cv_lib_pthread_pthread_kill" = xyes then : LIBPMULTITHREAD=-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*) printf "%s\n" "#define PTHREAD_IN_USE_DETECTION_HARD 1" >>confdefs.h esac fi elif test $gl_pthread_api != yes; then # Some library is needed. Try libpthread and libc_r. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lpthread" >&5 printf %s "checking for pthread_kill in -lpthread... " >&6; } if test ${ac_cv_lib_pthread_pthread_kill+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char pthread_kill (); int main (void) { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_pthread_pthread_kill=yes else $as_nop ac_cv_lib_pthread_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_pthread_pthread_kill" >&5 printf "%s\n" "$ac_cv_lib_pthread_pthread_kill" >&6; } if test "x$ac_cv_lib_pthread_pthread_kill" = xyes then : gl_pthread_api=yes LIBPTHREAD=-lpthread LIBPMULTITHREAD=-lpthread fi if test $gl_pthread_api != yes; then # For FreeBSD 4. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for pthread_kill in -lc_r" >&5 printf %s "checking for pthread_kill in -lc_r... " >&6; } if test ${ac_cv_lib_c_r_pthread_kill+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ char pthread_kill (); int main (void) { return pthread_kill (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_c_r_pthread_kill=yes else $as_nop ac_cv_lib_c_r_pthread_kill=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_c_r_pthread_kill" >&5 printf "%s\n" "$ac_cv_lib_c_r_pthread_kill" >&6; } if test "x$ac_cv_lib_c_r_pthread_kill" = xyes then : gl_pthread_api=yes LIBPTHREAD=-lc_r LIBPMULTITHREAD=-lc_r fi fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether POSIX threads API is available" >&5 printf %s "checking whether POSIX threads API is available... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_pthread_api" >&5 printf "%s\n" "$gl_pthread_api" >&6; } if test $gl_pthread_api = yes; then printf "%s\n" "#define HAVE_PTHREAD_API 1" >>confdefs.h fi cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : LIB_SCHED_YIELD= else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sched_yield in -lrt" >&5 printf %s "checking for sched_yield in -lrt... " >&6; } if test ${ac_cv_lib_rt_sched_yield+y} then : printf %s "(cached) " >&6 else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lrt $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. */ char sched_yield (); int main (void) { return sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_rt_sched_yield=yes else $as_nop ac_cv_lib_rt_sched_yield=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_rt_sched_yield" >&5 printf "%s\n" "$ac_cv_lib_rt_sched_yield" >&6; } if test "x$ac_cv_lib_rt_sched_yield" = xyes then : LIB_SCHED_YIELD=-lrt else $as_nop { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for sched_yield in -lposix4" >&5 printf %s "checking for sched_yield in -lposix4... " >&6; } if test ${ac_cv_lib_posix4_sched_yield+y} then : printf %s "(cached) " >&6 else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lposix4 $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. */ char sched_yield (); int main (void) { return sched_yield (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_posix4_sched_yield=yes else $as_nop ac_cv_lib_posix4_sched_yield=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_posix4_sched_yield" >&5 printf "%s\n" "$ac_cv_lib_posix4_sched_yield" >&6; } if test "x$ac_cv_lib_posix4_sched_yield" = xyes then : LIB_SCHED_YIELD=-lposix4 fi fi fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext gl_pthreadlib_body_done=done fi if test $ac_cv_header_threads_h = yes; then ac_fn_c_check_func "$LINENO" "thrd_create" "ac_cv_func_thrd_create" if test "x$ac_cv_func_thrd_create" = xyes then : printf "%s\n" "#define HAVE_THRD_CREATE 1" >>confdefs.h fi if test $ac_cv_func_thrd_create = yes; then LIBSTDTHREAD= else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for thrd_create in -lstdthreads" >&5 printf %s "checking for thrd_create in -lstdthreads... " >&6; } if test ${ac_cv_lib_stdthreads_thrd_create+y} then : printf %s "(cached) " >&6 else $as_nop ac_check_lib_save_LIBS=$LIBS LIBS="-lstdthreads $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. */ char thrd_create (); int main (void) { return thrd_create (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_stdthreads_thrd_create=yes else $as_nop ac_cv_lib_stdthreads_thrd_create=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_stdthreads_thrd_create" >&5 printf "%s\n" "$ac_cv_lib_stdthreads_thrd_create" >&6; } if test "x$ac_cv_lib_stdthreads_thrd_create" = xyes then : LIBSTDTHREAD='-lstdthreads -lpthread' else $as_nop LIBSTDTHREAD="$LIBPMULTITHREAD" fi fi else LIBSTDTHREAD="$LIBPMULTITHREAD $LIB_SCHED_YIELD" fi ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether ISO C threads API is available" >&5 printf %s "checking whether ISO C threads API is available... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_threads_h" >&5 printf "%s\n" "$ac_cv_header_threads_h" >&6; } gl_stdthreadlib_body_done=done fi LIBTHREAD=$LIBSTDTHREAD LTLIBTHREAD=$LIBSTDTHREAD LIBMULTITHREAD=$LIBSTDTHREAD LTLIBMULTITHREAD=$LIBSTDTHREAD gl_threads_api=isoc printf "%s\n" "#define USE_ISOC_THREADS 1" >>confdefs.h fi fi if test $gl_threads_api = none; 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 printf "%s\n" "#define USE_WINDOWS_THREADS 1" >>confdefs.h fi ;; esac fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for multithread API to use" >&5 printf %s "checking for multithread API to use... " >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_threads_api" >&5 printf "%s\n" "$gl_threads_api" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for GNU libc compatible malloc" >&5 printf %s "checking for GNU libc compatible malloc... " >&6; } if test ${ac_cv_func_malloc_0_nonnull+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in # (( # Guess yes on platforms where we know the result. *-gnu* | freebsd* | netbsd* | openbsd* | bitrig* \ | hpux* | solaris* | cygwin* | mingw* | msys* ) ac_cv_func_malloc_0_nonnull=yes ;; # If we don't know, assume the worst. *) ac_cv_func_malloc_0_nonnull=no ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { void *p = malloc (0); int result = !p; free (p); return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : ac_cv_func_malloc_0_nonnull=yes else $as_nop ac_cv_func_malloc_0_nonnull=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_malloc_0_nonnull" >&5 printf "%s\n" "$ac_cv_func_malloc_0_nonnull" >&6; } if test $ac_cv_func_malloc_0_nonnull = yes then : gl_cv_func_malloc_0_nonnull=1 else $as_nop gl_cv_func_malloc_0_nonnull=0 fi printf "%s\n" "#define MALLOC_0_IS_NONNULL $gl_cv_func_malloc_0_nonnull" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether the compiler produces multi-arch binaries" >&5 printf %s "checking whether the compiler produces multi-arch binaries... " >&6; } if test ${gl_cv_c_multiarch+y} then : printf %s "(cached) " >&6 else $as_nop 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 | arm | arm64) 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.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_c_multiarch" >&5 printf "%s\n" "$gl_cv_c_multiarch" >&6; } if test $gl_cv_c_multiarch = yes; then APPLE_UNIVERSAL_BUILD=1 else APPLE_UNIVERSAL_BUILD=0 fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for O_CLOEXEC" >&5 printf %s "checking for O_CLOEXEC... " >&6; } if test ${gl_cv_macro_O_CLOEXEC+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifndef O_CLOEXEC choke me; #endif int main (void) { return O_CLOEXEC; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_macro_O_CLOEXEC=yes else $as_nop gl_cv_macro_O_CLOEXEC=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_macro_O_CLOEXEC" >&5 printf "%s\n" "$gl_cv_macro_O_CLOEXEC" >&6; } { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for promoted mode_t type" >&5 printf %s "checking for promoted mode_t type... " >&6; } if test ${gl_cv_promoted_mode_t+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { typedef int array[2 * (sizeof (mode_t) < sizeof (int)) - 1]; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_promoted_mode_t='int' else $as_nop gl_cv_promoted_mode_t='mode_t' fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_promoted_mode_t" >&5 printf "%s\n" "$gl_cv_promoted_mode_t" >&6; } printf "%s\n" "#define PROMOTED_MODE_T $gl_cv_promoted_mode_t" >>confdefs.h HAVE_POSIX_SIGNALBLOCKING=1; HAVE_PTHREAD_SIGMASK=1; HAVE_RAISE=1; HAVE_SIGSET_T=1; HAVE_SIGINFO_T=1; HAVE_SIGACTION=1; HAVE_STRUCT_SIGACTION_SA_SIGACTION=1; HAVE_TYPE_VOLATILE_SIG_ATOMIC_T=1; HAVE_SIGHANDLER_T=1; REPLACE_PTHREAD_SIGMASK=0; REPLACE_RAISE=0; ac_fn_c_check_type "$LINENO" "sigset_t" "ac_cv_type_sigset_t" " #include /* Mingw defines sigset_t not in , but in . */ #include " if test "x$ac_cv_type_sigset_t" = xyes then : printf "%s\n" "#define HAVE_SIGSET_T 1" >>confdefs.h gl_cv_type_sigset_t=yes else $as_nop gl_cv_type_sigset_t=no fi if test $gl_cv_type_sigset_t != yes; then HAVE_SIGSET_T=0 fi GL_GNULIB_PTHREAD_SIGMASK=0 GL_GNULIB_RAISE=0 GL_GNULIB_SIGNAL_H_SIGPIPE=0 GL_GNULIB_SIGPROCMASK=0 GL_GNULIB_SIGACTION=0 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for uid_t in sys/types.h" >&5 printf %s "checking for uid_t in sys/types.h... " >&6; } if test ${ac_cv_type_uid_t+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "uid_t" >/dev/null 2>&1 then : ac_cv_type_uid_t=yes else $as_nop ac_cv_type_uid_t=no fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_type_uid_t" >&5 printf "%s\n" "$ac_cv_type_uid_t" >&6; } if test $ac_cv_type_uid_t = no; then printf "%s\n" "#define uid_t int" >>confdefs.h printf "%s\n" "#define gid_t int" >>confdefs.h fi if test $gl_cv_have_include_next = yes; then gl_cv_next_signal_h='<'signal.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_signal_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'signal.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_signal_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_signal_h gl_cv_next_signal_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_signal_h" >&5 printf "%s\n" "$gl_cv_next_signal_h" >&6; } fi NEXT_SIGNAL_H=$gl_cv_next_signal_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='<'signal.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_signal_h fi NEXT_AS_FIRST_DIRECTIVE_SIGNAL_H=$gl_next_as_first_directive # AIX declares sig_atomic_t to already include volatile, and C89 compilers # then choke on 'volatile sig_atomic_t'. C99 requires that it compile. ac_fn_c_check_type "$LINENO" "volatile sig_atomic_t" "ac_cv_type_volatile_sig_atomic_t" " #include " if test "x$ac_cv_type_volatile_sig_atomic_t" = xyes then : else $as_nop HAVE_TYPE_VOLATILE_SIG_ATOMIC_T=0 fi ac_fn_c_check_type "$LINENO" "sighandler_t" "ac_cv_type_sighandler_t" " #include " if test "x$ac_cv_type_sighandler_t" = xyes then : else $as_nop HAVE_SIGHANDLER_T=0 fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for stdbool.h that conforms to C99" >&5 printf %s "checking for stdbool.h that conforms to C99... " >&6; } if test ${ac_cv_header_stdbool_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifdef __cplusplus typedef bool Bool; #else typedef _Bool Bool; #ifndef bool "error: bool is not defined" #endif #ifndef false "error: false is not defined" #endif #if false "error: false is not 0" #endif #ifndef true "error: true is not defined" #endif #if true != 1 "error: true is not 1" #endif #endif #ifndef __bool_true_false_are_defined "error: __bool_true_false_are_defined is not defined" #endif struct s { Bool s: 1; Bool t; bool u: 1; bool v; } s; char a[true == 1 ? 1 : -1]; char b[false == 0 ? 1 : -1]; char c[__bool_true_false_are_defined == 1 ? 1 : -1]; char d[(bool) 0.5 == true ? 1 : -1]; /* See body of main program for 'e'. */ char f[(Bool) 0.0 == false ? 1 : -1]; char g[true]; char h[sizeof (Bool)]; char i[sizeof s.t]; enum { j = false, k = true, l = false * true, m = true * 256 }; /* The following fails for HP aC++/ANSI C B3910B A.05.55 [Dec 04 2003]. */ Bool n[m]; char o[sizeof n == m * sizeof n[0] ? 1 : -1]; char p[-1 - (Bool) 0 < 0 && -1 - (bool) 0 < 0 ? 1 : -1]; /* Catch a bug in an HP-UX C compiler. See https://gcc.gnu.org/ml/gcc-patches/2003-12/msg02303.html https://lists.gnu.org/r/bug-coreutils/2005-11/msg00161.html */ Bool q = true; Bool *pq = &q; bool *qq = &q; int main (void) { bool e = &s; *pq |= q; *pq |= ! q; *qq |= q; *qq |= ! q; /* Refer to every declared value, to avoid compiler optimizations. */ return (!a + !b + !c + !d + !e + !f + !g + !h + !i + !!j + !k + !!l + !m + !n + !o + !p + !q + !pq + !qq); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_header_stdbool_h=yes else $as_nop ac_cv_header_stdbool_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdbool_h" >&5 printf "%s\n" "$ac_cv_header_stdbool_h" >&6; } ac_fn_c_check_type "$LINENO" "_Bool" "ac_cv_type__Bool" "$ac_includes_default" if test "x$ac_cv_type__Bool" = xyes then : printf "%s\n" "#define HAVE__BOOL 1" >>confdefs.h fi REPLACE_NULL=0; HAVE_MAX_ALIGN_T=1; HAVE_WCHAR_T=1; { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for wchar_t" >&5 printf %s "checking for wchar_t... " >&6; } if test ${gt_cv_c_wchar_t+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include wchar_t foo = (wchar_t)'\0'; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gt_cv_c_wchar_t=yes else $as_nop gt_cv_c_wchar_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gt_cv_c_wchar_t" >&5 printf "%s\n" "$gt_cv_c_wchar_t" >&6; } if test $gt_cv_c_wchar_t = yes; then printf "%s\n" "#define HAVE_WCHAR_T 1" >>confdefs.h fi STDDEF_H= { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for good max_align_t" >&5 printf %s "checking for good max_align_t... " >&6; } if test ${gl_cv_type_max_align_t+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include unsigned int s = sizeof (max_align_t); #if defined __GNUC__ || defined __clang__ || defined __IBM__ALIGNOF__ int check1[2 * (__alignof__ (double) <= __alignof__ (max_align_t)) - 1]; int check2[2 * (__alignof__ (long double) <= __alignof__ (max_align_t)) - 1]; #endif typedef struct { char a; max_align_t b; } max_helper; typedef struct { char a; long b; } long_helper; typedef struct { char a; double b; } double_helper; typedef struct { char a; long double b; } long_double_helper; int check3[2 * (offsetof (long_helper, b) <= offsetof (max_helper, b)) - 1]; int check4[2 * (offsetof (double_helper, b) <= offsetof (max_helper, b)) - 1]; int check5[2 * (offsetof (long_double_helper, b) <= offsetof (max_helper, b)) - 1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_type_max_align_t=yes else $as_nop gl_cv_type_max_align_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_type_max_align_t" >&5 printf "%s\n" "$gl_cv_type_max_align_t" >&6; } if test $gl_cv_type_max_align_t = no; then HAVE_MAX_ALIGN_T=0 STDDEF_H=stddef.h fi if test $gt_cv_c_wchar_t = no; then HAVE_WCHAR_T=0 STDDEF_H=stddef.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether NULL can be used in arbitrary expressions" >&5 printf %s "checking whether NULL can be used in arbitrary expressions... " >&6; } if test ${gl_cv_decl_null_works+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int test[2 * (sizeof NULL == sizeof (void *)) -1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_decl_null_works=yes else $as_nop gl_cv_decl_null_works=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_decl_null_works" >&5 printf "%s\n" "$gl_cv_decl_null_works" >&6; } if test $gl_cv_decl_null_works = no; then REPLACE_NULL=1 STDDEF_H=stddef.h fi if test -n "$STDDEF_H"; then GL_GENERATE_STDDEF_H_TRUE= GL_GENERATE_STDDEF_H_FALSE='#' else GL_GENERATE_STDDEF_H_TRUE='#' GL_GENERATE_STDDEF_H_FALSE= fi if test -n "$STDDEF_H"; then if test $gl_cv_have_include_next = yes; then gl_cv_next_stddef_h='<'stddef.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_stddef_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'stddef.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_stddef_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_stddef_h gl_cv_next_stddef_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stddef_h" >&5 printf "%s\n" "$gl_cv_next_stddef_h" >&6; } fi NEXT_STDDEF_H=$gl_cv_next_stddef_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='<'stddef.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_stddef_h fi NEXT_AS_FIRST_DIRECTIVE_STDDEF_H=$gl_next_as_first_directive fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for wint_t" >&5 printf %s "checking for wint_t... " >&6; } if test ${gt_cv_c_wint_t+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include wint_t foo = (wchar_t)'\0'; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gt_cv_c_wint_t=yes else $as_nop gt_cv_c_wint_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gt_cv_c_wint_t" >&5 printf "%s\n" "$gt_cv_c_wint_t" >&6; } if test $gt_cv_c_wint_t = yes; then printf "%s\n" "#define HAVE_WINT_T 1" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether wint_t is large enough" >&5 printf %s "checking whether wint_t is large enough... " >&6; } if test ${gl_cv_type_wint_t_large_enough+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int verify[sizeof (wint_t) < sizeof (int) ? -1 : 1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_type_wint_t_large_enough=yes else $as_nop gl_cv_type_wint_t_large_enough=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_type_wint_t_large_enough" >&5 printf "%s\n" "$gl_cv_type_wint_t_large_enough" >&6; } if test $gl_cv_type_wint_t_large_enough = no; then GNULIBHEADERS_OVERRIDE_WINT_T=1 else GNULIBHEADERS_OVERRIDE_WINT_T=0 fi else GNULIBHEADERS_OVERRIDE_WINT_T=0 fi printf "%s\n" "#define HAVE_LONG_LONG_INT 1" >>confdefs.h printf "%s\n" "#define HAVE_UNSIGNED_LONG_LONG_INT 1" >>confdefs.h 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_stdint_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdint_h" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether stdint.h conforms to C99" >&5 printf %s "checking whether stdint.h conforms to C99... " >&6; } if test ${gl_cv_header_working_stdint_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 #include #include #if HAVE_WCHAR_H # 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__ || 4 <= __clang_major__ || 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 and FreeBSD 13.0/arm64. */ 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 (void) { ; 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 $as_nop 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 #include #include #if HAVE_WCHAR_H # 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 (void) { 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.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdint_h" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether stdint.h works without ISO C predefines" >&5 printf %s "checking whether stdint.h works without ISO C predefines... " >&6; } if test ${gl_cv_header_stdint_without_STDC_macros+y} then : printf %s "(cached) " >&6 else $as_nop gl_cv_header_stdint_without_STDC_macros=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 */ #include #include #include #if HAVE_WCHAR_H # include #endif intmax_t im = INTMAX_MAX; int32_t i32 = INT32_C (0x7fffffff); int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_header_stdint_without_STDC_macros=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_stdint_without_STDC_macros" >&5 printf "%s\n" "$gl_cv_header_stdint_without_STDC_macros" >&6; } if test $gl_cv_header_stdint_without_STDC_macros = no; then printf "%s\n" "#define __STDC_CONSTANT_MACROS 1" >>confdefs.h printf "%s\n" "#define __STDC_LIMIT_MACROS 1" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether stdint.h has UINTMAX_WIDTH etc." >&5 printf %s "checking whether stdint.h has UINTMAX_WIDTH etc.... " >&6; } if test ${gl_cv_header_stdint_width+y} then : printf %s "(cached) " >&6 else $as_nop 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 #include #include #if HAVE_WCHAR_H # include #endif int iw = UINTMAX_WIDTH; int main (void) { ; 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.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_stdint_width" >&5 printf "%s\n" "$gl_cv_header_stdint_width" >&6; } if test "$gl_cv_header_stdint_width" = yes; then STDINT_H= fi ;; *) ac_fn_c_check_header_compile "$LINENO" "sys/inttypes.h" "ac_cv_header_sys_inttypes_h" "$ac_includes_default" if test "x$ac_cv_header_sys_inttypes_h" = xyes then : printf "%s\n" "#define HAVE_SYS_INTTYPES_H 1" >>confdefs.h fi ac_fn_c_check_header_compile "$LINENO" "sys/bitypes.h" "ac_cv_header_sys_bitypes_h" "$ac_includes_default" if test "x$ac_cv_header_sys_bitypes_h" = xyes then : printf "%s\n" "#define HAVE_SYS_BITYPES_H 1" >>confdefs.h fi 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5 printf %s "checking for bit size of $gltype... " >&6; } if eval test \${gl_cv_bitsizeof_${gltype}+y} then : printf %s "(cached) " >&6 else $as_nop if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" " #include #include #if HAVE_WCHAR_H # include #endif #include " then : else $as_nop result=unknown fi eval gl_cv_bitsizeof_${gltype}=\$result fi eval ac_res=\$gl_cv_bitsizeof_${gltype} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval result=\$gl_cv_bitsizeof_${gltype} if test $result = unknown; then result=0 fi GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` printf "%s\n" "#define BITSIZEOF_${GLTYPE} $result" >>confdefs.h eval BITSIZEOF_${GLTYPE}=\$result done fi for gltype in sig_atomic_t wchar_t wint_t ; do { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for bit size of $gltype" >&5 printf %s "checking for bit size of $gltype... " >&6; } if eval test \${gl_cv_bitsizeof_${gltype}+y} then : printf %s "(cached) " >&6 else $as_nop if ac_fn_c_compute_int "$LINENO" "sizeof ($gltype) * CHAR_BIT" "result" " #include #include #if HAVE_WCHAR_H # include #endif #include " then : else $as_nop result=unknown fi eval gl_cv_bitsizeof_${gltype}=\$result fi eval ac_res=\$gl_cv_bitsizeof_${gltype} { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval result=\$gl_cv_bitsizeof_${gltype} if test $result = unknown; then result=0 fi GLTYPE=`echo "$gltype" | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` printf "%s\n" "#define BITSIZEOF_${GLTYPE} $result" >>confdefs.h eval BITSIZEOF_${GLTYPE}=\$result done for gltype in sig_atomic_t wchar_t wint_t ; do { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether $gltype is signed" >&5 printf %s "checking whether $gltype is signed... " >&6; } if eval test \${gl_cv_type_${gltype}_signed+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if HAVE_WCHAR_H # include #endif int verify[2 * (($gltype) -1 < ($gltype) 0) - 1]; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : result=yes else $as_nop result=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext eval gl_cv_type_${gltype}_signed=\$result fi eval ac_res=\$gl_cv_type_${gltype}_signed { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } eval result=\$gl_cv_type_${gltype}_signed GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` if test "$result" = yes; then printf "%s\n" "#define HAVE_SIGNED_${GLTYPE} 1" >>confdefs.h 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5 printf %s "checking for $gltype integer literal suffix... " >&6; } if eval test \${gl_cv_type_${gltype}_suffix+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ #include #include #if HAVE_WCHAR_H # include #endif extern $gltype foo; extern $gltype1 foo; int main (void) { ; 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.beam conftest.$ac_ext eval result=\$gl_cv_type_${gltype}_suffix test "$result" != no && break done fi eval ac_res=\$gl_cv_type_${gltype}_suffix { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` eval result=\$gl_cv_type_${gltype}_suffix test "$result" = no && result= eval ${GLTYPE}_SUFFIX=\$result printf "%s\n" "#define ${GLTYPE}_SUFFIX $result" >>confdefs.h done fi for gltype in sig_atomic_t wchar_t wint_t ; do { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for $gltype integer literal suffix" >&5 printf %s "checking for $gltype integer literal suffix... " >&6; } if eval test \${gl_cv_type_${gltype}_suffix+y} then : printf %s "(cached) " >&6 else $as_nop 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. */ #include #include #if HAVE_WCHAR_H # include #endif extern $gltype foo; extern $gltype1 foo; int main (void) { ; 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.beam conftest.$ac_ext eval result=\$gl_cv_type_${gltype}_suffix test "$result" != no && break done fi eval ac_res=\$gl_cv_type_${gltype}_suffix { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 printf "%s\n" "$ac_res" >&6; } GLTYPE=`echo $gltype | tr 'abcdefghijklmnopqrstuvwxyz ' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ_'` eval result=\$gl_cv_type_${gltype}_suffix test "$result" = no && result= eval ${GLTYPE}_SUFFIX=\$result printf "%s\n" "#define ${GLTYPE}_SUFFIX $result" >>confdefs.h done if test $GNULIBHEADERS_OVERRIDE_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 HAVE_DECL_FCLOSEALL=1; HAVE_DECL_FPURGE=1; HAVE_DECL_FSEEKO=1; HAVE_DECL_FTELLO=1; HAVE_DECL_GETDELIM=1; HAVE_DECL_GETLINE=1; HAVE_DECL_OBSTACK_PRINTF=1; HAVE_DECL_SNPRINTF=1; HAVE_DECL_VSNPRINTF=1; HAVE_DPRINTF=1; HAVE_FSEEKO=1; HAVE_FTELLO=1; HAVE_PCLOSE=1; HAVE_POPEN=1; HAVE_RENAMEAT=1; HAVE_VASPRINTF=1; HAVE_VDPRINTF=1; REPLACE_DPRINTF=0; REPLACE_FCLOSE=0; REPLACE_FDOPEN=0; REPLACE_FFLUSH=0; REPLACE_FOPEN=0; REPLACE_FPRINTF=0; REPLACE_FPURGE=0; REPLACE_FREOPEN=0; REPLACE_FSEEK=0; REPLACE_FSEEKO=0; REPLACE_FTELL=0; REPLACE_FTELLO=0; REPLACE_GETDELIM=0; REPLACE_GETLINE=0; REPLACE_OBSTACK_PRINTF=0; REPLACE_PERROR=0; REPLACE_POPEN=0; REPLACE_PRINTF=0; REPLACE_REMOVE=0; REPLACE_RENAME=0; REPLACE_RENAMEAT=0; REPLACE_SNPRINTF=0; REPLACE_SPRINTF=0; REPLACE_STDIO_READ_FUNCS=0; REPLACE_STDIO_WRITE_FUNCS=0; REPLACE_TMPFILE=0; REPLACE_VASPRINTF=0; REPLACE_VDPRINTF=0; REPLACE_VFPRINTF=0; REPLACE_VPRINTF=0; REPLACE_VSNPRINTF=0; REPLACE_VSPRINTF=0; ac_fn_check_decl "$LINENO" "fcloseall" "ac_cv_have_decl_fcloseall" "$ac_includes_default" "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl_fcloseall" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL_FCLOSEALL $ac_have_decl" >>confdefs.h printf "%s\n" "#define __USE_MINGW_ANSI_STDIO 1" >>confdefs.h if test $gl_cv_have_include_next = yes; then gl_cv_next_stdio_h='<'stdio.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_stdio_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'stdio.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_stdio_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_stdio_h gl_cv_next_stdio_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_stdio_h" >&5 printf "%s\n" "$gl_cv_next_stdio_h" >&6; } fi NEXT_STDIO_H=$gl_cv_next_stdio_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='<'stdio.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_stdio_h fi NEXT_AS_FIRST_DIRECTIVE_STDIO_H=$gl_next_as_first_directive { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking which flavor of printf attribute matches inttypes macros" >&5 printf %s "checking which flavor of printf attribute matches inttypes macros... " >&6; } if test ${gl_cv_func_printf_attribute_flavor+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #define __STDC_FORMAT_MACROS 1 #include #include /* For non-mingw systems, compilation will trivially succeed. For mingw, compilation will succeed for older mingw (system printf, "I64d") and fail for newer mingw (gnu printf, "lld"). */ #if (defined _WIN32 && ! defined __CYGWIN__) && \ (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) extern char PRIdMAX_probe[sizeof PRIdMAX == sizeof "I64d" ? 1 : -1]; #endif int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_func_printf_attribute_flavor=system else $as_nop gl_cv_func_printf_attribute_flavor=gnu fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_printf_attribute_flavor" >&5 printf "%s\n" "$gl_cv_func_printf_attribute_flavor" >&6; } if test "$gl_cv_func_printf_attribute_flavor" = gnu; then printf "%s\n" "#define GNULIB_PRINTF_ATTRIBUTE_FLAVOR_GNU 1" >>confdefs.h fi if test $ac_cv_have_decl_fcloseall = no; then HAVE_DECL_FCLOSEALL=0 fi GL_GNULIB_DPRINTF=0 GL_GNULIB_FCLOSE=0 GL_GNULIB_FDOPEN=0 GL_GNULIB_FFLUSH=0 GL_GNULIB_FGETC=0 GL_GNULIB_FGETS=0 GL_GNULIB_FOPEN=0 GL_GNULIB_FPRINTF=0 GL_GNULIB_FPRINTF_POSIX=0 GL_GNULIB_FPURGE=0 GL_GNULIB_FPUTC=0 GL_GNULIB_FPUTS=0 GL_GNULIB_FREAD=0 GL_GNULIB_FREOPEN=0 GL_GNULIB_FSCANF=0 GL_GNULIB_FSEEK=0 GL_GNULIB_FSEEKO=0 GL_GNULIB_FTELL=0 GL_GNULIB_FTELLO=0 GL_GNULIB_FWRITE=0 GL_GNULIB_GETC=0 GL_GNULIB_GETCHAR=0 GL_GNULIB_GETDELIM=0 GL_GNULIB_GETLINE=0 GL_GNULIB_OBSTACK_PRINTF=0 GL_GNULIB_OBSTACK_PRINTF_POSIX=0 GL_GNULIB_PCLOSE=0 GL_GNULIB_PERROR=0 GL_GNULIB_POPEN=0 GL_GNULIB_PRINTF=0 GL_GNULIB_PRINTF_POSIX=0 GL_GNULIB_PUTC=0 GL_GNULIB_PUTCHAR=0 GL_GNULIB_PUTS=0 GL_GNULIB_REMOVE=0 GL_GNULIB_RENAME=0 GL_GNULIB_RENAMEAT=0 GL_GNULIB_SCANF=0 GL_GNULIB_SNPRINTF=0 GL_GNULIB_SPRINTF_POSIX=0 GL_GNULIB_STDIO_H_NONBLOCKING=0 GL_GNULIB_STDIO_H_SIGPIPE=0 GL_GNULIB_TMPFILE=0 GL_GNULIB_VASPRINTF=0 GL_GNULIB_VFSCANF=0 GL_GNULIB_VSCANF=0 GL_GNULIB_VDPRINTF=0 GL_GNULIB_VFPRINTF=0 GL_GNULIB_VFPRINTF_POSIX=0 GL_GNULIB_VPRINTF=0 GL_GNULIB_VPRINTF_POSIX=0 GL_GNULIB_VSNPRINTF=0 GL_GNULIB_VSPRINTF_POSIX=0 GL_GNULIB_MDA_FCLOSEALL=1 GL_GNULIB_MDA_FDOPEN=1 GL_GNULIB_MDA_FILENO=1 GL_GNULIB_MDA_GETW=1 GL_GNULIB_MDA_PUTW=1 GL_GNULIB_MDA_TEMPNAM=1 HAVE_MBSLEN=0; HAVE_EXPLICIT_BZERO=1; HAVE_FFSL=1; HAVE_FFSLL=1; HAVE_DECL_MEMMEM=1; HAVE_MEMPCPY=1; HAVE_DECL_MEMRCHR=1; HAVE_RAWMEMCHR=1; HAVE_STPCPY=1; HAVE_STPNCPY=1; HAVE_STRCHRNUL=1; HAVE_DECL_STRDUP=1; HAVE_DECL_STRNDUP=1; HAVE_DECL_STRNLEN=1; HAVE_STRPBRK=1; HAVE_STRSEP=1; HAVE_STRCASESTR=1; HAVE_DECL_STRTOK_R=1; HAVE_DECL_STRERROR_R=1; HAVE_STRERRORNAME_NP=1; HAVE_SIGABBREV_NP=1; HAVE_SIGDESCR_NP=1; HAVE_DECL_STRSIGNAL=1; HAVE_STRVERSCMP=1; REPLACE_FFSLL=0; REPLACE_MEMCHR=0; REPLACE_MEMMEM=0; REPLACE_STPNCPY=0; REPLACE_STRCHRNUL=0; REPLACE_STRDUP=0; REPLACE_STRNCAT=0; REPLACE_STRNDUP=0; REPLACE_STRNLEN=0; REPLACE_STRSTR=0; REPLACE_STRCASESTR=0; REPLACE_STRTOK_R=0; REPLACE_STRERROR=0; REPLACE_STRERROR_R=0; REPLACE_STRERRORNAME_NP=0; REPLACE_STRSIGNAL=0; UNDEFINE_STRTOK_R=0; REPLACE_STRERROR_0=0 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether strerror(0) succeeds" >&5 printf %s "checking whether strerror(0) succeeds... " >&6; } if test ${gl_cv_func_strerror_0_works+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_strerror_0_works="guessing yes" ;; # Guess yes on musl systems. *-musl*) gl_cv_func_strerror_0_works="guessing yes" ;; # Guess yes on native Windows. mingw*) gl_cv_func_strerror_0_works="guessing yes" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_strerror_0_works="$gl_cross_guess_normal" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main (void) { int result = 0; char *str; errno = 0; str = strerror (0); if (!*str) result |= 1; if (errno) result |= 2; if (strstr (str, "nknown") || strstr (str, "ndefined")) result |= 4; return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_strerror_0_works=yes else $as_nop gl_cv_func_strerror_0_works=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_strerror_0_works" >&5 printf "%s\n" "$gl_cv_func_strerror_0_works" >&6; } case "$gl_cv_func_strerror_0_works" in *yes) ;; *) REPLACE_STRERROR_0=1 printf "%s\n" "#define REPLACE_STRERROR_0 1" >>confdefs.h ;; esac GL_GNULIB_EXPLICIT_BZERO=0 GL_GNULIB_FFSL=0 GL_GNULIB_FFSLL=0 GL_GNULIB_MEMCHR=0 GL_GNULIB_MEMMEM=0 GL_GNULIB_MEMPCPY=0 GL_GNULIB_MEMRCHR=0 GL_GNULIB_RAWMEMCHR=0 GL_GNULIB_STPCPY=0 GL_GNULIB_STPNCPY=0 GL_GNULIB_STRCHRNUL=0 GL_GNULIB_STRDUP=0 GL_GNULIB_STRNCAT=0 GL_GNULIB_STRNDUP=0 GL_GNULIB_STRNLEN=0 GL_GNULIB_STRPBRK=0 GL_GNULIB_STRSEP=0 GL_GNULIB_STRSTR=0 GL_GNULIB_STRCASESTR=0 GL_GNULIB_STRTOK_R=0 GL_GNULIB_MBSLEN=0 GL_GNULIB_MBSNLEN=0 GL_GNULIB_MBSCHR=0 GL_GNULIB_MBSRCHR=0 GL_GNULIB_MBSSTR=0 GL_GNULIB_MBSCASECMP=0 GL_GNULIB_MBSNCASECMP=0 GL_GNULIB_MBSPCASECMP=0 GL_GNULIB_MBSCASESTR=0 GL_GNULIB_MBSCSPN=0 GL_GNULIB_MBSPBRK=0 GL_GNULIB_MBSSPN=0 GL_GNULIB_MBSSEP=0 GL_GNULIB_MBSTOK_R=0 GL_GNULIB_STRERROR=0 GL_GNULIB_STRERROR_R=0 GL_GNULIB_STRERRORNAME_NP=0 GL_GNULIB_SIGABBREV_NP=0 GL_GNULIB_SIGDESCR_NP=0 GL_GNULIB_STRSIGNAL=0 GL_GNULIB_STRVERSCMP=0 GL_GNULIB_MDA_MEMCCPY=1 GL_GNULIB_MDA_STRDUP=1 if test $gl_cv_have_include_next = yes; then gl_cv_next_string_h='<'string.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_string_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'string.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_string_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_string_h gl_cv_next_string_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_string_h" >&5 printf "%s\n" "$gl_cv_next_string_h" >&6; } fi NEXT_STRING_H=$gl_cv_next_string_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='<'string.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_string_h fi NEXT_AS_FIRST_DIRECTIVE_STRING_H=$gl_next_as_first_directive printf "%s\n" "#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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_sys_types_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_sys_types_h" >&5 printf "%s\n" "$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 HAVE_DECL_LOCALTIME_R=1; HAVE_NANOSLEEP=1; HAVE_STRPTIME=1; HAVE_TIMEGM=1; HAVE_TIMESPEC_GET=1; HAVE_TIMEZONE_T=0; REPLACE_CTIME=GNULIB_PORTCHECK; REPLACE_LOCALTIME_R=GNULIB_PORTCHECK; REPLACE_MKTIME=GNULIB_PORTCHECK; REPLACE_NANOSLEEP=GNULIB_PORTCHECK; REPLACE_STRFTIME=GNULIB_PORTCHECK; REPLACE_TIMEGM=GNULIB_PORTCHECK; REPLACE_TZSET=GNULIB_PORTCHECK; : ${GNULIB_GETTIMEOFDAY=0}; REPLACE_GMTIME=0; REPLACE_LOCALTIME=0; { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for struct timespec in " >&5 printf %s "checking for struct timespec in ... " >&6; } if test ${gl_cv_sys_struct_timespec_in_time_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { static struct timespec x; x.tv_sec = x.tv_nsec; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_sys_struct_timespec_in_time_h=yes else $as_nop gl_cv_sys_struct_timespec_in_time_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_time_h" >&5 printf "%s\n" "$gl_cv_sys_struct_timespec_in_time_h" >&6; } TIME_H_DEFINES_STRUCT_TIMESPEC=0 SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=0 PTHREAD_H_DEFINES_STRUCT_TIMESPEC=0 UNISTD_H_DEFINES_STRUCT_TIMESPEC=0 if test $gl_cv_sys_struct_timespec_in_time_h = yes; then TIME_H_DEFINES_STRUCT_TIMESPEC=1 else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for struct timespec in " >&5 printf %s "checking for struct timespec in ... " >&6; } if test ${gl_cv_sys_struct_timespec_in_sys_time_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { static struct timespec x; x.tv_sec = x.tv_nsec; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_sys_struct_timespec_in_sys_time_h=yes else $as_nop gl_cv_sys_struct_timespec_in_sys_time_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_sys_time_h" >&5 printf "%s\n" "$gl_cv_sys_struct_timespec_in_sys_time_h" >&6; } if test $gl_cv_sys_struct_timespec_in_sys_time_h = yes; then SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=1 else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for struct timespec in " >&5 printf %s "checking for struct timespec in ... " >&6; } if test ${gl_cv_sys_struct_timespec_in_pthread_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { static struct timespec x; x.tv_sec = x.tv_nsec; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_sys_struct_timespec_in_pthread_h=yes else $as_nop gl_cv_sys_struct_timespec_in_pthread_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_pthread_h" >&5 printf "%s\n" "$gl_cv_sys_struct_timespec_in_pthread_h" >&6; } if test $gl_cv_sys_struct_timespec_in_pthread_h = yes; then PTHREAD_H_DEFINES_STRUCT_TIMESPEC=1 else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for struct timespec in " >&5 printf %s "checking for struct timespec in ... " >&6; } if test ${gl_cv_sys_struct_timespec_in_unistd_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { static struct timespec x; x.tv_sec = x.tv_nsec; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_sys_struct_timespec_in_unistd_h=yes else $as_nop gl_cv_sys_struct_timespec_in_unistd_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_sys_struct_timespec_in_unistd_h" >&5 printf "%s\n" "$gl_cv_sys_struct_timespec_in_unistd_h" >&6; } if test $gl_cv_sys_struct_timespec_in_unistd_h = yes; then UNISTD_H_DEFINES_STRUCT_TIMESPEC=1 fi fi fi fi if test $gl_cv_have_include_next = yes; then gl_cv_next_time_h='<'time.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_time_h+y} then : printf %s "(cached) " >&6 else $as_nop 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 'time.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_time_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_time_h gl_cv_next_time_h='"'$gl_header'"' fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_time_h" >&5 printf "%s\n" "$gl_cv_next_time_h" >&6; } fi NEXT_TIME_H=$gl_cv_next_time_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='<'time.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_time_h fi NEXT_AS_FIRST_DIRECTIVE_TIME_H=$gl_next_as_first_directive { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for TIME_UTC in " >&5 printf %s "checking for TIME_UTC in ... " >&6; } if test ${gl_cv_time_h_has_TIME_UTC+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { static int x = TIME_UTC; x++; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_time_h_has_TIME_UTC=yes else $as_nop gl_cv_time_h_has_TIME_UTC=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_time_h_has_TIME_UTC" >&5 printf "%s\n" "$gl_cv_time_h_has_TIME_UTC" >&6; } if test $gl_cv_time_h_has_TIME_UTC = yes; then TIME_H_DEFINES_TIME_UTC=1 else TIME_H_DEFINES_TIME_UTC=0 fi GL_GNULIB_CTIME=0 GL_GNULIB_MKTIME=0 GL_GNULIB_LOCALTIME=0 GL_GNULIB_NANOSLEEP=0 GL_GNULIB_STRFTIME=0 GL_GNULIB_STRPTIME=0 GL_GNULIB_TIMEGM=0 GL_GNULIB_TIMESPEC_GET=0 GL_GNULIB_TIME_R=0 GL_GNULIB_TIME_RZ=0 GL_GNULIB_TZSET=0 GL_GNULIB_MDA_TZSET=1 ac_fn_check_decl "$LINENO" "execvpe" "ac_cv_have_decl_execvpe" "$ac_includes_default" "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl_execvpe" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL_EXECVPE $ac_have_decl" >>confdefs.h if test $gl_cv_have_include_next = yes; then gl_cv_next_unistd_h='<'unistd.h'>' else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking absolute name of " >&5 printf %s "checking absolute name of ... " >&6; } if test ${gl_cv_next_unistd_h+y} then : printf %s "(cached) " >&6 else $as_nop if test $ac_cv_header_unistd_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 'unistd.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_unistd_h=`(eval "$gl_absname_cpp conftest.$ac_ext") 2>&5 | sed -n "$gl_absolute_header_sed"` gl_header=$gl_cv_absolute_unistd_h gl_cv_next_unistd_h='"'$gl_header'"' else gl_cv_next_unistd_h='<'unistd.h'>' fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_next_unistd_h" >&5 printf "%s\n" "$gl_cv_next_unistd_h" >&6; } fi NEXT_UNISTD_H=$gl_cv_next_unistd_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='<'unistd.h'>' else # INCLUDE_NEXT_AS_FIRST_DIRECTIVE='include' gl_next_as_first_directive=$gl_cv_next_unistd_h fi NEXT_AS_FIRST_DIRECTIVE_UNISTD_H=$gl_next_as_first_directive if test $ac_cv_header_unistd_h = yes; then HAVE_UNISTD_H=1 else HAVE_UNISTD_H=0 fi if test $ac_cv_have_decl_execvpe = no; then HAVE_DECL_EXECVPE=0 fi 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 $ac_cv_func_alloca_works = no; then : fi # Define an additional variable used in the Makefile substitution. if test $ac_cv_working_alloca_h = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for alloca as a compiler built-in" >&5 printf %s "checking for alloca as a compiler built-in... " >&6; } if test ${gl_cv_rpl_alloca+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined __GNUC__ || defined _AIX || defined _MSC_VER Need own alloca #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "Need own alloca" >/dev/null 2>&1 then : gl_cv_rpl_alloca=yes else $as_nop gl_cv_rpl_alloca=no fi rm -rf conftest* fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_rpl_alloca" >&5 printf "%s\n" "$gl_cv_rpl_alloca" >&6; } if test $gl_cv_rpl_alloca = yes; then printf "%s\n" "#define HAVE_ALLOCA 1" >>confdefs.h ALLOCA_H=alloca.h else ALLOCA_H= fi else ALLOCA_H=alloca.h fi if test -n "$ALLOCA_H"; then GL_GENERATE_ALLOCA_H_TRUE= GL_GENERATE_ALLOCA_H_FALSE='#' else GL_GENERATE_ALLOCA_H_TRUE='#' GL_GENERATE_ALLOCA_H_FALSE= fi if test $ac_cv_working_alloca_h = yes; then HAVE_ALLOCA_H=1 else HAVE_ALLOCA_H=0 fi printf "%s\n" "#define SIGNAL_SAFE_LIST 1" >>confdefs.h printf "%s\n" "#define GNULIB_TEST_CLOEXEC 1" >>confdefs.h if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then REPLACE_CLOSE=1 fi if test $ac_cv_header_sys_socket_h != yes; then ac_fn_c_check_header_compile "$LINENO" "winsock2.h" "ac_cv_header_winsock2_h" "$ac_includes_default" if test "x$ac_cv_header_winsock2_h" = xyes then : printf "%s\n" "#define HAVE_WINSOCK2_H 1" >>confdefs.h fi fi if test "$ac_cv_header_winsock2_h" = yes; then HAVE_WINSOCK2_H=1 UNISTD_H_HAVE_WINSOCK2_H=1 SYS_IOCTL_H_HAVE_WINSOCK2_H=1 else HAVE_WINSOCK2_H=0 fi if test $UNISTD_H_HAVE_WINSOCK2_H = 1; then REPLACE_CLOSE=1 fi if test $REPLACE_CLOSE = 1; then gl_LIBOBJS="$gl_LIBOBJS close.$ac_objext" fi GL_GNULIB_CLOSE=1 printf "%s\n" "#define GNULIB_TEST_CLOSE 1" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether // is distinct from /" >&5 printf %s "checking whether // is distinct from /... " >&6; } if test ${gl_cv_double_slash_root+y} then : printf %s "(cached) " >&6 else $as_nop if test x"$cross_compiling" = xyes ; then # When cross-compiling, there is no way to tell whether // is special # short of a list of hosts. However, the only known hosts to date # that have a distinct // are Apollo DomainOS (too old to port to), # Cygwin, and z/OS. If anyone knows of another system for which // has # special semantics and is distinct from /, please report it to # . case $host in *-cygwin | i370-ibm-openedition) gl_cv_double_slash_root=yes ;; *) # Be optimistic and assume that / and // are the same when we # don't know. gl_cv_double_slash_root='unknown, assuming no' ;; esac else set x `ls -di / // 2>/dev/null` if test "$2" = "$4" && wc //dev/null >/dev/null 2>&1; then gl_cv_double_slash_root=no else gl_cv_double_slash_root=yes fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_double_slash_root" >&5 printf "%s\n" "$gl_cv_double_slash_root" >&6; } if test "$gl_cv_double_slash_root" = yes; then printf "%s\n" "#define DOUBLE_SLASH_IS_DISTINCT_ROOT 1" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether dup2 works" >&5 printf %s "checking whether dup2 works... " >&6; } if test ${gl_cv_func_dup2_works+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in mingw*) # on this platform, dup2 always returns 0 for success gl_cv_func_dup2_works="guessing no" ;; cygwin*) # on cygwin 1.5.x, dup2(1,1) returns 0 gl_cv_func_dup2_works="guessing no" ;; aix* | freebsd*) # on AIX 7.1 and FreeBSD 6.1, dup2 (1,toobig) gives EMFILE, # not EBADF. gl_cv_func_dup2_works="guessing no" ;; haiku*) # on Haiku alpha 2, dup2(1, 1) resets FD_CLOEXEC. gl_cv_func_dup2_works="guessing no" ;; *-android*) # implemented using dup3(), which fails if oldfd == newfd gl_cv_func_dup2_works="guessing no" ;; os2*) # on OS/2 kLIBC, dup2() does not work on a directory fd. gl_cv_func_dup2_works="guessing no" ;; *) gl_cv_func_dup2_works="guessing yes" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include #include $gl_mda_defines #ifndef RLIM_SAVED_CUR # define RLIM_SAVED_CUR RLIM_INFINITY #endif #ifndef RLIM_SAVED_MAX # define RLIM_SAVED_MAX RLIM_INFINITY #endif int main (void) { int result = 0; int bad_fd = INT_MAX; struct rlimit rlim; if (getrlimit (RLIMIT_NOFILE, &rlim) == 0 && 0 <= rlim.rlim_cur && rlim.rlim_cur <= INT_MAX && rlim.rlim_cur != RLIM_INFINITY && rlim.rlim_cur != RLIM_SAVED_MAX && rlim.rlim_cur != RLIM_SAVED_CUR) bad_fd = rlim.rlim_cur; #ifdef FD_CLOEXEC if (fcntl (1, F_SETFD, FD_CLOEXEC) == -1) result |= 1; #endif if (dup2 (1, 1) != 1) result |= 2; #ifdef FD_CLOEXEC if (fcntl (1, F_GETFD) != FD_CLOEXEC) result |= 4; #endif close (0); if (dup2 (0, 0) != -1) result |= 8; /* Many gnulib modules require POSIX conformance of EBADF. */ if (dup2 (2, bad_fd) == -1 && errno != EBADF) result |= 16; /* Flush out some cygwin core dumps. */ if (dup2 (2, -1) != -1 || errno != EBADF) result |= 32; dup2 (2, 255); dup2 (2, 256); /* On OS/2 kLIBC, dup2() does not work on a directory fd. */ { int fd = open (".", O_RDONLY); if (fd == -1) result |= 64; else if (dup2 (fd, fd + 1) == -1) result |= 128; close (fd); } return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_dup2_works=yes else $as_nop gl_cv_func_dup2_works=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_dup2_works" >&5 printf "%s\n" "$gl_cv_func_dup2_works" >&6; } case "$gl_cv_func_dup2_works" in *yes) ;; *) REPLACE_DUP2=1 ac_fn_c_check_func "$LINENO" "setdtablesize" "ac_cv_func_setdtablesize" if test "x$ac_cv_func_setdtablesize" = xyes then : printf "%s\n" "#define HAVE_SETDTABLESIZE 1" >>confdefs.h fi ;; esac if test $REPLACE_DUP2 = 1; then gl_LIBOBJS="$gl_LIBOBJS dup2.$ac_objext" fi GL_GNULIB_DUP2=1 printf "%s\n" "#define GNULIB_TEST_DUP2 1" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for error_at_line" >&5 printf %s "checking for error_at_line... " >&6; } if test ${ac_cv_lib_error_at_line+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { error_at_line (0, 0, "", 0, "an error occurred"); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : ac_cv_lib_error_at_line=yes else $as_nop ac_cv_lib_error_at_line=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_error_at_line" >&5 printf "%s\n" "$ac_cv_lib_error_at_line" >&6; } if test $ac_cv_lib_error_at_line = no; then gl_LIBOBJS="$gl_LIBOBJS error.$ac_objext" : fi : if test $ac_cv_func_fcntl = no; then if test $ac_cv_func_fcntl = no; then HAVE_FCNTL=0 else REPLACE_FCNTL=1 fi else { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether fcntl handles F_DUPFD correctly" >&5 printf %s "checking whether fcntl handles F_DUPFD correctly... " >&6; } if test ${gl_cv_func_fcntl_f_dupfd_works+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case $host_os in aix* | cygwin* | haiku*) gl_cv_func_fcntl_f_dupfd_works="guessing no" ;; *) gl_cv_func_fcntl_f_dupfd_works="guessing yes" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include #include $gl_mda_defines #ifndef RLIM_SAVED_CUR # define RLIM_SAVED_CUR RLIM_INFINITY #endif #ifndef RLIM_SAVED_MAX # define RLIM_SAVED_MAX RLIM_INFINITY #endif int main (void) { int result = 0; int bad_fd = INT_MAX; struct rlimit rlim; if (getrlimit (RLIMIT_NOFILE, &rlim) == 0 && 0 <= rlim.rlim_cur && rlim.rlim_cur <= INT_MAX && rlim.rlim_cur != RLIM_INFINITY && rlim.rlim_cur != RLIM_SAVED_MAX && rlim.rlim_cur != RLIM_SAVED_CUR) bad_fd = rlim.rlim_cur; if (fcntl (0, F_DUPFD, -1) != -1) result |= 1; if (errno != EINVAL) result |= 2; if (fcntl (0, F_DUPFD, bad_fd) != -1) result |= 4; if (errno != EINVAL) result |= 8; /* On OS/2 kLIBC, F_DUPFD does not work on a directory fd */ { int fd; fd = open (".", O_RDONLY); if (fd == -1) result |= 16; else if (fcntl (fd, F_DUPFD, STDERR_FILENO + 1) == -1) result |= 32; close (fd); } return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_fcntl_f_dupfd_works=yes else $as_nop gl_cv_func_fcntl_f_dupfd_works=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_fcntl_f_dupfd_works" >&5 printf "%s\n" "$gl_cv_func_fcntl_f_dupfd_works" >&6; } case $gl_cv_func_fcntl_f_dupfd_works in *yes) ;; *) if test $ac_cv_func_fcntl = no; then HAVE_FCNTL=0 else REPLACE_FCNTL=1 fi printf "%s\n" "#define FCNTL_DUPFD_BUGGY 1" >>confdefs.h ;; esac { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether fcntl understands F_DUPFD_CLOEXEC" >&5 printf %s "checking whether fcntl understands F_DUPFD_CLOEXEC... " >&6; } if test ${gl_cv_func_fcntl_f_dupfd_cloexec+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in # Guess no on NetBSD. netbsd*) gl_cv_func_fcntl_f_dupfd_cloexec="guessing no" ;; *) gl_cv_func_fcntl_f_dupfd_cloexec="$gl_cross_guess_normal" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include int main (int argc, char *argv[]) { if (argc == 1) /* parent process */ { if (fcntl (1, F_DUPFD_CLOEXEC, 10) < 0) return 1; return execl ("./conftest", "./conftest", "child", NULL); } else /* child process */ return (fcntl (10, F_GETFL) < 0 ? 0 : 42); } _ACEOF if ac_fn_c_try_run "$LINENO" then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __linux__ /* The Linux kernel only added F_DUPFD_CLOEXEC in 2.6.24, so we always replace it to support the semantics on older kernels that failed with EINVAL. */ choke me #endif int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_func_fcntl_f_dupfd_cloexec=yes else $as_nop gl_cv_func_fcntl_f_dupfd_cloexec="needs runtime check" fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext else $as_nop gl_cv_func_fcntl_f_dupfd_cloexec=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_fcntl_f_dupfd_cloexec" >&5 printf "%s\n" "$gl_cv_func_fcntl_f_dupfd_cloexec" >&6; } case "$gl_cv_func_fcntl_f_dupfd_cloexec" in *yes) ;; *) if test $ac_cv_func_fcntl = no; then HAVE_FCNTL=0 else REPLACE_FCNTL=1 fi ;; esac fi if test $HAVE_FCNTL = 0 || test $REPLACE_FCNTL = 1; then gl_LIBOBJS="$gl_LIBOBJS fcntl.$ac_objext" fi GL_GNULIB_FCNTL=1 printf "%s\n" "#define GNULIB_TEST_FCNTL 1" >>confdefs.h case "$host_os" in mingw* | solaris*) REPLACE_FSTAT=1 ;; esac if test $REPLACE_FSTAT = 1; then gl_LIBOBJS="$gl_LIBOBJS fstat.$ac_objext" case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS stat-w32.$ac_objext" ;; esac : fi GL_GNULIB_FSTAT=1 printf "%s\n" "#define GNULIB_TEST_FSTAT 1" >>confdefs.h if test $ac_cv_func_getdtablesize = yes && test $ac_cv_have_decl_getdtablesize = yes; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether getdtablesize works" >&5 printf %s "checking whether getdtablesize works... " >&6; } if test ${gl_cv_func_getdtablesize_works+y} then : printf %s "(cached) " >&6 else $as_nop case "$host_os" in vms*) gl_cv_func_getdtablesize_works="no (limitation)" ;; *) if test "$cross_compiling" = yes then : case "$host_os" in cygwin*) # on cygwin 1.5.25, getdtablesize() automatically grows gl_cv_func_getdtablesize_works="guessing no" ;; *) gl_cv_func_getdtablesize_works="guessing yes" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include $gl_mda_defines int main (void) { int size = getdtablesize(); if (dup2 (0, getdtablesize()) != -1) return 1; if (size != getdtablesize()) return 2; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_getdtablesize_works=yes else $as_nop gl_cv_func_getdtablesize_works=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_getdtablesize_works" >&5 printf "%s\n" "$gl_cv_func_getdtablesize_works" >&6; } case "$gl_cv_func_getdtablesize_works" in *yes | "no (limitation)") ;; *) REPLACE_GETDTABLESIZE=1 ;; esac else HAVE_GETDTABLESIZE=0 fi if test $HAVE_GETDTABLESIZE = 0 || test $REPLACE_GETDTABLESIZE = 1; then gl_LIBOBJS="$gl_LIBOBJS getdtablesize.$ac_objext" : fi GL_GNULIB_GETDTABLESIZE=1 printf "%s\n" "#define GNULIB_TEST_GETDTABLESIZE 1" >>confdefs.h ac_found=0 ac_fn_check_decl "$LINENO" "program_invocation_name" "ac_cv_have_decl_program_invocation_name" "#include " "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl_program_invocation_name" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL_PROGRAM_INVOCATION_NAME $ac_have_decl" >>confdefs.h if test $ac_have_decl = 1 then : ac_found=1 fi ac_fn_check_decl "$LINENO" "program_invocation_short_name" "ac_cv_have_decl_program_invocation_short_name" "#include " "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl_program_invocation_short_name" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL_PROGRAM_INVOCATION_SHORT_NAME $ac_have_decl" >>confdefs.h if test $ac_have_decl = 1 then : ac_found=1 fi ac_fn_check_decl "$LINENO" "__argv" "ac_cv_have_decl___argv" "#include " "$ac_c_undeclared_builtin_options" "CFLAGS" if test "x$ac_cv_have_decl___argv" = xyes then : ac_have_decl=1 else $as_nop ac_have_decl=0 fi printf "%s\n" "#define HAVE_DECL___ARGV $ac_have_decl" >>confdefs.h if test $ac_have_decl = 1 then : ac_found=1 fi # Incur the cost of this test only if none of the above worked. if test $ac_found = 0; then # On OpenBSD 5.1, using the global __progname variable appears to be # the only way to implement getprogname. { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether __progname is defined in default libraries" >&5 printf %s "checking whether __progname is defined in default libraries... " >&6; } if test ${gl_cv_var___progname+y} then : printf %s "(cached) " >&6 else $as_nop gl_cv_var___progname= cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ extern char *__progname; int main (void) { return *__progname; ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO" then : gl_cv_var___progname=yes fi rm -f core conftest.err conftest.$ac_objext conftest.beam \ conftest$ac_exeext conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_var___progname" >&5 printf "%s\n" "$gl_cv_var___progname" >&6; } if test "$gl_cv_var___progname" = yes; then printf "%s\n" "#define HAVE_VAR___PROGNAME 1" >>confdefs.h fi fi 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 printf "%s\n" "#define HAVE_PTHREAD_RWLOCK 1" >>confdefs.h fi if $has_rwlock; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether pthread_rwlock_rdlock prefers a writer to a reader" >&5 printf %s "checking whether pthread_rwlock_rdlock prefers a writer to a reader... " >&6; } if test ${gl_cv_pthread_rwlock_rdlock_prefer_writer+y} then : printf %s "(cached) " >&6 else $as_nop save_LIBS="$LIBS" LIBS="$LIBS $LIBMULTITHREAD" if test "$cross_compiling" = yes then : case "$host_os" in # Guess no on glibc systems. *-gnu* | gnu*) gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" ;; # Guess no on musl systems. *-musl*) gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" ;; # Guess no on bionic systems. *-android*) gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" ;; # Guess yes on native Windows with the mingw-w64 winpthreads library. # Guess no on native Windows with the gnulib windows-rwlock module. mingw*) if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing yes" else gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" fi ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_pthread_rwlock_rdlock_prefer_writer="$gl_cross_guess_normal" ;; esac else $as_nop 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 $as_nop 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_pthread_rwlock_rdlock_prefer_writer" >&5 printf "%s\n" "$gl_cv_pthread_rwlock_rdlock_prefer_writer" >&6; } case "$gl_cv_pthread_rwlock_rdlock_prefer_writer" in *yes) printf "%s\n" "#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 (void) { #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 : printf "%s\n" "#define HAVE_PTHREAD_MUTEX_RECURSIVE 1" >>confdefs.h fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi : printf "%s\n" "#define GNULIB_LOCK 1" >>confdefs.h if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then gl_LIBOBJS="$gl_LIBOBJS msvc-inval.$ac_objext" fi if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then gl_LIBOBJS="$gl_LIBOBJS msvc-nothrow.$ac_objext" fi printf "%s\n" "#define GNULIB_MSVC_NOTHROW 1" >>confdefs.h case "$host_os" in mingw* | pw*) REPLACE_OPEN=1 ;; *) if test "$gl_cv_macro_O_CLOEXEC" != yes; then REPLACE_OPEN=1 fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether open recognizes a trailing slash" >&5 printf %s "checking whether open recognizes a trailing slash... " >&6; } if test ${gl_cv_func_open_slash+y} then : printf %s "(cached) " >&6 else $as_nop # Assume that if we have lstat, we can also check symlinks. if test $ac_cv_func_lstat = yes; then touch conftest.tmp ln -s conftest.tmp conftest.lnk fi if test "$cross_compiling" = yes then : case "$host_os" in freebsd* | aix* | hpux* | solaris2.[0-9] | solaris2.[0-9].*) gl_cv_func_open_slash="guessing no" ;; *) gl_cv_func_open_slash="guessing yes" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if HAVE_UNISTD_H # include #endif $gl_mda_defines int main () { int result = 0; #if HAVE_LSTAT if (open ("conftest.lnk/", O_RDONLY) != -1) result |= 1; #endif if (open ("conftest.sl/", O_CREAT, 0600) >= 0) result |= 2; return result; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_open_slash=yes else $as_nop gl_cv_func_open_slash=no 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 conftest.sl conftest.tmp conftest.lnk fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_open_slash" >&5 printf "%s\n" "$gl_cv_func_open_slash" >&6; } case "$gl_cv_func_open_slash" in *no) printf "%s\n" "#define OPEN_TRAILING_SLASH_BUG 1" >>confdefs.h ;; esac case "$gl_cv_func_open_slash" in *no) REPLACE_OPEN=1 ;; esac ;; esac if test $REPLACE_OPEN = 1; then gl_LIBOBJS="$gl_LIBOBJS open.$ac_objext" : fi GL_GNULIB_OPEN=1 printf "%s\n" "#define GNULIB_TEST_OPEN 1" >>confdefs.h ac_fn_c_check_func "$LINENO" "raise" "ac_cv_func_raise" if test "x$ac_cv_func_raise" = xyes then : printf "%s\n" "#define HAVE_RAISE 1" >>confdefs.h fi if test $ac_cv_func_raise = no; then HAVE_RAISE=0 else if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then REPLACE_RAISE=1 fi HAVE_POSIX_SIGNALBLOCKING=0 if test "$gl_cv_type_sigset_t" = yes; then ac_fn_c_check_func "$LINENO" "sigprocmask" "ac_cv_func_sigprocmask" if test "x$ac_cv_func_sigprocmask" = xyes then : HAVE_POSIX_SIGNALBLOCKING=1 fi fi if test $HAVE_POSIX_SIGNALBLOCKING = 0; then : fi fi if test $HAVE_RAISE = 0 || test $REPLACE_RAISE = 1; then gl_LIBOBJS="$gl_LIBOBJS raise.$ac_objext" : fi GL_GNULIB_RAISE=1 printf "%s\n" "#define GNULIB_TEST_RAISE 1" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether rmdir works" >&5 printf %s "checking whether rmdir works... " >&6; } if test ${gl_cv_func_rmdir_works+y} then : printf %s "(cached) " >&6 else $as_nop mkdir conftest.dir touch conftest.file if test "$cross_compiling" = yes then : case "$host_os" in # Guess yes on Linux systems. linux-* | linux) gl_cv_func_rmdir_works="guessing yes" ;; # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_rmdir_works="guessing yes" ;; # Guess no on native Windows. mingw*) gl_cv_func_rmdir_works="guessing no" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_rmdir_works="$gl_cross_guess_normal" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if HAVE_UNISTD_H # include #else /* on Windows with MSVC */ # include #endif $gl_mda_defines int main (void) { int result = 0; if (!rmdir ("conftest.file/")) result |= 1; else if (errno != ENOTDIR) result |= 2; if (!rmdir ("conftest.dir/./")) result |= 4; return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_rmdir_works=yes else $as_nop gl_cv_func_rmdir_works=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi rm -rf conftest.dir conftest.file fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_rmdir_works" >&5 printf "%s\n" "$gl_cv_func_rmdir_works" >&6; } case "$gl_cv_func_rmdir_works" in *yes) ;; *) REPLACE_RMDIR=1 ;; esac if test $REPLACE_RMDIR = 1; then gl_LIBOBJS="$gl_LIBOBJS rmdir.$ac_objext" fi GL_GNULIB_RMDIR=1 printf "%s\n" "#define GNULIB_TEST_RMDIR 1" >>confdefs.h if test $ac_cv_func_sigaction = yes; then ac_fn_c_check_member "$LINENO" "struct sigaction" "sa_sigaction" "ac_cv_member_struct_sigaction_sa_sigaction" "#include " if test "x$ac_cv_member_struct_sigaction_sa_sigaction" = xyes then : printf "%s\n" "#define HAVE_STRUCT_SIGACTION_SA_SIGACTION 1" >>confdefs.h fi if test $ac_cv_member_struct_sigaction_sa_sigaction = no; then HAVE_STRUCT_SIGACTION_SA_SIGACTION=0 fi else HAVE_SIGACTION=0 fi if test $HAVE_SIGACTION = 0; then gl_LIBOBJS="$gl_LIBOBJS sigaction.$ac_objext" ac_fn_c_check_type "$LINENO" "siginfo_t" "ac_cv_type_siginfo_t" " #include " if test "x$ac_cv_type_siginfo_t" = xyes then : printf "%s\n" "#define HAVE_SIGINFO_T 1" >>confdefs.h fi if test $ac_cv_type_siginfo_t = no; then HAVE_SIGINFO_T=0 fi fi GL_GNULIB_SIGACTION=1 printf "%s\n" "#define GNULIB_TEST_SIGACTION 1" >>confdefs.h HAVE_POSIX_SIGNALBLOCKING=0 if test "$gl_cv_type_sigset_t" = yes; then ac_fn_c_check_func "$LINENO" "sigprocmask" "ac_cv_func_sigprocmask" if test "x$ac_cv_func_sigprocmask" = xyes then : HAVE_POSIX_SIGNALBLOCKING=1 fi fi if test $HAVE_POSIX_SIGNALBLOCKING = 0; then gl_LIBOBJS="$gl_LIBOBJS sigprocmask.$ac_objext" : fi GL_GNULIB_SIGPROCMASK=1 printf "%s\n" "#define GNULIB_TEST_SIGPROCMASK 1" >>confdefs.h ac_fn_c_check_header_compile "$LINENO" "stdint.h" "ac_cv_header_stdint_h" "$ac_includes_default" if test "x$ac_cv_header_stdint_h" = xyes then : printf "%s\n" "#define HAVE_STDINT_H 1" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for SIZE_MAX" >&5 printf %s "checking for SIZE_MAX... " >&6; } if test ${gl_cv_size_max+y} then : printf %s "(cached) " >&6 else $as_nop gl_cv_size_max=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #if HAVE_STDINT_H #include #endif #ifdef SIZE_MAX Found it #endif _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "Found it" >/dev/null 2>&1 then : gl_cv_size_max=yes fi rm -rf conftest* if test $gl_cv_size_max != yes; then if ac_fn_c_compute_int "$LINENO" "sizeof (size_t) * CHAR_BIT - 1" "size_t_bits_minus_1" "#include #include " then : else $as_nop size_t_bits_minus_1= fi if ac_fn_c_compute_int "$LINENO" "sizeof (size_t) <= sizeof (unsigned int)" "fits_in_uint" "#include " then : else $as_nop fits_in_uint= fi if test -n "$size_t_bits_minus_1" && test -n "$fits_in_uint"; then if test $fits_in_uint = 1; then cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include extern size_t foo; extern unsigned long foo; int main (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : fits_in_uint=0 fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi if test $fits_in_uint = 1; then gl_cv_size_max="(((1U << $size_t_bits_minus_1) - 1) * 2 + 1)" else gl_cv_size_max="(((1UL << $size_t_bits_minus_1) - 1) * 2 + 1)" fi else gl_cv_size_max='((size_t)~(size_t)0)' fi fi fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_size_max" >&5 printf "%s\n" "$gl_cv_size_max" >&6; } if test "$gl_cv_size_max" != yes; then printf "%s\n" "#define SIZE_MAX $gl_cv_size_max" >>confdefs.h fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for ssize_t" >&5 printf %s "checking for ssize_t... " >&6; } if test ${gt_cv_ssize_t+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { 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 $as_nop gt_cv_ssize_t=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gt_cv_ssize_t" >&5 printf "%s\n" "$gt_cv_ssize_t" >&6; } if test $gt_cv_ssize_t = no; then printf "%s\n" "#define ssize_t int" >>confdefs.h fi case "$host_os" in mingw*) REPLACE_STAT=1 ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether stat handles trailing slashes on files" >&5 printf %s "checking whether stat handles trailing slashes on files... " >&6; } if test ${gl_cv_func_stat_file_slash+y} then : printf %s "(cached) " >&6 else $as_nop touch conftest.tmp # Assume that if we have lstat, we can also check symlinks. if test $ac_cv_func_lstat = yes; then ln -s conftest.tmp conftest.lnk fi if test "$cross_compiling" = yes then : case "$host_os" in # Guess yes on Linux systems. linux-* | linux) gl_cv_func_stat_file_slash="guessing yes" ;; # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_stat_file_slash="guessing yes" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_stat_file_slash="$gl_cross_guess_normal" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { int result = 0; struct stat st; if (!stat ("conftest.tmp/", &st)) result |= 1; #if HAVE_LSTAT if (!stat ("conftest.lnk/", &st)) result |= 2; #endif return result; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_stat_file_slash=yes else $as_nop gl_cv_func_stat_file_slash=no 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 conftest.tmp conftest.lnk fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_stat_file_slash" >&5 printf "%s\n" "$gl_cv_func_stat_file_slash" >&6; } case $gl_cv_func_stat_file_slash in *no) REPLACE_STAT=1 printf "%s\n" "#define REPLACE_FUNC_STAT_FILE 1" >>confdefs.h ;; esac case $host_os in solaris*) REPLACE_FSTAT=1 ;; esac ;; esac if test $REPLACE_STAT = 1; then gl_LIBOBJS="$gl_LIBOBJS stat.$ac_objext" case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS stat-w32.$ac_objext" ;; esac : fi GL_GNULIB_STAT=1 printf "%s\n" "#define GNULIB_TEST_STAT 1" >>confdefs.h ac_fn_c_check_member "$LINENO" "struct stat" "st_atim.tv_nsec" "ac_cv_member_struct_stat_st_atim_tv_nsec" "#include #include " if test "x$ac_cv_member_struct_stat_st_atim_tv_nsec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC 1" >>confdefs.h { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking whether struct stat.st_atim is of type struct timespec" >&5 printf %s "checking whether struct stat.st_atim is of type struct timespec... " >&6; } if test ${ac_cv_typeof_struct_stat_st_atim_is_struct_timespec+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if HAVE_SYS_TIME_H # include #endif #include struct timespec ts; struct stat st; int main (void) { st.st_atim = ts; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : ac_cv_typeof_struct_stat_st_atim_is_struct_timespec=yes else $as_nop ac_cv_typeof_struct_stat_st_atim_is_struct_timespec=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $ac_cv_typeof_struct_stat_st_atim_is_struct_timespec" >&5 printf "%s\n" "$ac_cv_typeof_struct_stat_st_atim_is_struct_timespec" >&6; } if test $ac_cv_typeof_struct_stat_st_atim_is_struct_timespec = yes; then printf "%s\n" "#define TYPEOF_STRUCT_STAT_ST_ATIM_IS_STRUCT_TIMESPEC 1" >>confdefs.h fi else $as_nop ac_fn_c_check_member "$LINENO" "struct stat" "st_atimespec.tv_nsec" "ac_cv_member_struct_stat_st_atimespec_tv_nsec" "#include #include " if test "x$ac_cv_member_struct_stat_st_atimespec_tv_nsec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_ATIMESPEC_TV_NSEC 1" >>confdefs.h else $as_nop ac_fn_c_check_member "$LINENO" "struct stat" "st_atimensec" "ac_cv_member_struct_stat_st_atimensec" "#include #include " if test "x$ac_cv_member_struct_stat_st_atimensec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_ATIMENSEC 1" >>confdefs.h else $as_nop ac_fn_c_check_member "$LINENO" "struct stat" "st_atim.st__tim.tv_nsec" "ac_cv_member_struct_stat_st_atim_st__tim_tv_nsec" "#include #include " if test "x$ac_cv_member_struct_stat_st_atim_st__tim_tv_nsec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_ATIM_ST__TIM_TV_NSEC 1" >>confdefs.h fi fi fi fi ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtimespec.tv_nsec" "ac_cv_member_struct_stat_st_birthtimespec_tv_nsec" "#include #include " if test "x$ac_cv_member_struct_stat_st_birthtimespec_tv_nsec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC 1" >>confdefs.h else $as_nop ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtimensec" "ac_cv_member_struct_stat_st_birthtimensec" "#include #include " if test "x$ac_cv_member_struct_stat_st_birthtimensec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC 1" >>confdefs.h else $as_nop ac_fn_c_check_member "$LINENO" "struct stat" "st_birthtim.tv_nsec" "ac_cv_member_struct_stat_st_birthtim_tv_nsec" "#include #include " if test "x$ac_cv_member_struct_stat_st_birthtim_tv_nsec" = xyes then : printf "%s\n" "#define HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC 1" >>confdefs.h fi fi fi if test "$ac_cv_header_stdbool_h" = yes; then case "$host_os" in solaris*) if test -z "$GCC"; then STDBOOL_H='stdbool.h' else STDBOOL_H='' fi ;; *) STDBOOL_H='' ;; esac else STDBOOL_H='stdbool.h' fi if test -n "$STDBOOL_H"; then GL_GENERATE_STDBOOL_H_TRUE= GL_GENERATE_STDBOOL_H_FALSE='#' else GL_GENERATE_STDBOOL_H_TRUE='#' GL_GENERATE_STDBOOL_H_FALSE= fi if test "$ac_cv_type__Bool" = yes; then HAVE__BOOL=1 else HAVE__BOOL=0 fi GL_GNULIB_FSCANF=1 printf "%s\n" "#define GNULIB_TEST_FSCANF 1" >>confdefs.h printf "%s\n" "#define GNULIB_FSCANF 1" >>confdefs.h GL_GNULIB_SCANF=1 printf "%s\n" "#define GNULIB_TEST_SCANF 1" >>confdefs.h printf "%s\n" "#define GNULIB_SCANF 1" >>confdefs.h GL_GNULIB_FGETC=1 printf "%s\n" "#define GNULIB_TEST_FGETC 1" >>confdefs.h GL_GNULIB_GETC=1 printf "%s\n" "#define GNULIB_TEST_GETC 1" >>confdefs.h GL_GNULIB_GETCHAR=1 printf "%s\n" "#define GNULIB_TEST_GETCHAR 1" >>confdefs.h GL_GNULIB_FGETS=1 printf "%s\n" "#define GNULIB_TEST_FGETS 1" >>confdefs.h GL_GNULIB_FREAD=1 printf "%s\n" "#define GNULIB_TEST_FREAD 1" >>confdefs.h GL_GNULIB_FPRINTF=1 printf "%s\n" "#define GNULIB_TEST_FPRINTF 1" >>confdefs.h GL_GNULIB_PRINTF=1 printf "%s\n" "#define GNULIB_TEST_PRINTF 1" >>confdefs.h GL_GNULIB_VFPRINTF=1 printf "%s\n" "#define GNULIB_TEST_VFPRINTF 1" >>confdefs.h GL_GNULIB_VPRINTF=1 printf "%s\n" "#define GNULIB_TEST_VPRINTF 1" >>confdefs.h GL_GNULIB_FPUTC=1 printf "%s\n" "#define GNULIB_TEST_FPUTC 1" >>confdefs.h GL_GNULIB_PUTC=1 printf "%s\n" "#define GNULIB_TEST_PUTC 1" >>confdefs.h GL_GNULIB_PUTCHAR=1 printf "%s\n" "#define GNULIB_TEST_PUTCHAR 1" >>confdefs.h GL_GNULIB_FPUTS=1 printf "%s\n" "#define GNULIB_TEST_FPUTS 1" >>confdefs.h GL_GNULIB_PUTS=1 printf "%s\n" "#define GNULIB_TEST_PUTS 1" >>confdefs.h GL_GNULIB_FWRITE=1 printf "%s\n" "#define GNULIB_TEST_FWRITE 1" >>confdefs.h case "$host_os" in cygwin*) STDNORETURN_H='stdnoreturn.h' ;; *) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working stdnoreturn.h" >&5 printf %s "checking for working stdnoreturn.h... " >&6; } if test ${gl_cv_header_working_stdnoreturn_h+y} then : printf %s "(cached) " >&6 else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if defined _WIN32 && !defined __CYGWIN__ # include #endif /* 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 (void) { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO" then : gl_cv_header_working_stdnoreturn_h=yes else $as_nop gl_cv_header_working_stdnoreturn_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.beam conftest.$ac_ext fi { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_header_working_stdnoreturn_h" >&5 printf "%s\n" "$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 if test "$ERRNO_H:$REPLACE_STRERROR_0" = :0; then { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking for working strerror function" >&5 printf %s "checking for working strerror function... " >&6; } if test ${gl_cv_func_working_strerror+y} then : printf %s "(cached) " >&6 else $as_nop if test "$cross_compiling" = yes then : case "$host_os" in # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_working_strerror="guessing yes" ;; # Guess yes on musl systems. *-musl*) gl_cv_func_working_strerror="guessing yes" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_working_strerror="$gl_cross_guess_normal" ;; esac else $as_nop cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main (void) { if (!*strerror (-2)) return 1; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO" then : gl_cv_func_working_strerror=yes else $as_nop gl_cv_func_working_strerror=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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: $gl_cv_func_working_strerror" >&5 printf "%s\n" "$gl_cv_func_working_strerror" >&6; } case "$gl_cv_func_working_strerror" in *yes) ;; *) REPLACE_STRERROR=1 ;; esac else REPLACE_STRERROR=1 fi if test $REPLACE_STRERROR = 1; then gl_LIBOBJS="$gl_LIBOBJS strerror.$ac_objext" fi printf "%s\n" "#define GNULIB_STRERROR 1" >>confdefs.h GL_GNULIB_STRERROR=1 printf "%s\n" "#define GNULIB_TEST_STRERROR 1" >>confdefs.h if test -n "$ERRNO_H" || test $REPLACE_STRERROR_0 = 1; then gl_LIBOBJS="$gl_LIBOBJS strerror-override.$ac_objext" if test $ac_cv_header_sys_socket_h != yes; then ac_fn_c_check_header_compile "$LINENO" "winsock2.h" "ac_cv_header_winsock2_h" "$ac_includes_default" if test "x$ac_cv_header_winsock2_h" = xyes then : printf "%s\n" "#define HAVE_WINSOCK2_H 1" >>confdefs.h fi fi if test "$ac_cv_header_winsock2_h" = yes; then HAVE_WINSOCK2_H=1 UNISTD_H_HAVE_WINSOCK2_H=1 SYS_IOCTL_H_HAVE_WINSOCK2_H=1 else HAVE_WINSOCK2_H=0 fi fi ac_fn_c_check_header_compile "$LINENO" "sys/single_threaded.h" "ac_cv_header_sys_single_threaded_h" "$ac_includes_default" if test "x$ac_cv_header_sys_single_threaded_h" = xyes then : printf "%s\n" "#define HAVE_SYS_SINGLE_THREADED_H 1" >>confdefs.h 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 case "$host_os" in mingw*) gl_LIBOBJS="$gl_LIBOBJS windows-spin.$ac_objext" ;; esac ac_fn_c_check_header_compile "$LINENO" "stdint.h" "ac_cv_header_stdint_h" "$ac_includes_default" if test "x$ac_cv_header_stdint_h" = xyes then : printf "%s\n" "#define HAVE_STDINT_H 1" >>confdefs.h fi # 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_*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 printf "%s\n" "$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+y} || &/ 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 printf "%s\n" "$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=`printf "%s\n" "$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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: checking that generated files are newer than configure" >&5 printf %s "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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: result: done" >&5 printf "%s\n" "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 "${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 "${GL_GENERATE_ALLOCA_H_TRUE}" && test -z "${GL_GENERATE_ALLOCA_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_ALLOCA_H\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_GENERATE_ERRNO_H_TRUE}" && test -z "${GL_GENERATE_ERRNO_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_ERRNO_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_STDBOOL_H_TRUE}" && test -z "${GL_GENERATE_STDBOOL_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_STDBOOL_H\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${GL_GENERATE_STDDEF_H_TRUE}" && test -z "${GL_GENERATE_STDDEF_H_FALSE}"; then as_fn_error $? "conditional \"GL_GENERATE_STDDEF_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" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 printf "%s\n" "$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 as_nop=: if test ${ZSH_VERSION+y} && (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 $as_nop case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi # Reset variables that may have inherited troublesome values from # the environment. # IFS needs to be set, to space, tab, and newline, in precisely that order. # (If _AS_PATH_WALK were called with IFS unset, it would have the # side effect of setting IFS to empty, thus disabling word splitting.) # Quoting is to prevent editors from complaining about space-tab. as_nl=' ' export as_nl IFS=" "" $as_nl" PS1='$ ' PS2='> ' PS4='+ ' # Ensure predictable behavior from utilities with locale-dependent output. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # We cannot yet rely on "unset" to work, but we need these variables # to be unset--not just set to an empty or harmless value--now, to # avoid bugs in old shells (e.g. pre-3.0 UWIN ksh). This construct # also avoids known problems related to "unset" and subshell syntax # in other old shells (e.g. bash 2.01 and pdksh 5.2.14). for as_var in BASH_ENV ENV MAIL MAILPATH CDPATH do eval test \${$as_var+y} \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done # Ensure that fds 0, 1, and 2 are open. if (exec 3>&0) 2>/dev/null; then :; else exec 0&1) 2>/dev/null; then :; else exec 1>/dev/null; fi if (exec 3>&2) ; then :; else exec 2>/dev/null; fi # The user is always right. if ${PATH_SEPARATOR+false} :; 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 # 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 case $as_dir in #((( '') as_dir=./ ;; */) ;; *) as_dir=$as_dir/ ;; esac 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 printf "%s\n" "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # 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 printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi printf "%s\n" "$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_nop 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_nop 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 || printf "%s\n" 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 # Determine whether it's possible to make 'echo' print without a newline. # These variables are no longer used directly by Autoconf, but are AC_SUBSTed # for compatibility with existing Makefiles. 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 # For backward compatibility with old third-party macros, we provide # the shell variables $as_echo and $as_echo_n. New code should use # AS_ECHO(["message"]) and AS_ECHO_N(["message"]), respectively. as_echo='printf %s\n' as_echo_n='printf %s' 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=`printf "%s\n" "$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 || printf "%s\n" 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.4, which was generated by GNU Autoconf 2.71. 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 ac_cs_config=`printf "%s\n" "$ac_configure_args" | sed "$ac_safe_unquote"` ac_cs_config_escaped=`printf "%s\n" "$ac_cs_config" | sed "s/^ //; s/'/'\\\\\\\\''/g"` cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config='$ac_cs_config_escaped' ac_cs_version="\\ GNU libffcall config.status 2.4 configured by $0, generated by GNU Autoconf 2.71, with options \\"\$ac_cs_config\\" Copyright (C) 2021 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 ) printf "%s\n" "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) printf "%s\n" "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`printf "%s\n" "$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=`printf "%s\n" "$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 ) printf "%s\n" "$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 \printf "%s\n" "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 printf "%s\n" "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # # INIT-COMMANDS # AMDEP_TRUE="$AMDEP_TRUE" MAKE="${MAKE-make}" # 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"`' compiler_lib_search_dirs='`$ECHO "$compiler_lib_search_dirs" | $SED "$delay_single_quote_subst"`' predep_objects='`$ECHO "$predep_objects" | $SED "$delay_single_quote_subst"`' postdep_objects='`$ECHO "$postdep_objects" | $SED "$delay_single_quote_subst"`' predeps='`$ECHO "$predeps" | $SED "$delay_single_quote_subst"`' postdeps='`$ECHO "$postdeps" | $SED "$delay_single_quote_subst"`' compiler_lib_search_path='`$ECHO "$compiler_lib_search_path" | $SED "$delay_single_quote_subst"`' LD_CXX='`$ECHO "$LD_CXX" | $SED "$delay_single_quote_subst"`' reload_flag_CXX='`$ECHO "$reload_flag_CXX" | $SED "$delay_single_quote_subst"`' reload_cmds_CXX='`$ECHO "$reload_cmds_CXX" | $SED "$delay_single_quote_subst"`' old_archive_cmds_CXX='`$ECHO "$old_archive_cmds_CXX" | $SED "$delay_single_quote_subst"`' compiler_CXX='`$ECHO "$compiler_CXX" | $SED "$delay_single_quote_subst"`' GCC_CXX='`$ECHO "$GCC_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag_CXX='`$ECHO "$lt_prog_compiler_no_builtin_flag_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic_CXX='`$ECHO "$lt_prog_compiler_pic_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl_CXX='`$ECHO "$lt_prog_compiler_wl_CXX" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static_CXX='`$ECHO "$lt_prog_compiler_static_CXX" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o_CXX='`$ECHO "$lt_cv_prog_compiler_c_o_CXX" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc_CXX='`$ECHO "$archive_cmds_need_lc_CXX" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes_CXX='`$ECHO "$enable_shared_with_static_runtimes_CXX" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec_CXX='`$ECHO "$export_dynamic_flag_spec_CXX" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec_CXX='`$ECHO "$whole_archive_flag_spec_CXX" | $SED "$delay_single_quote_subst"`' compiler_needs_object_CXX='`$ECHO "$compiler_needs_object_CXX" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds_CXX='`$ECHO "$old_archive_from_new_cmds_CXX" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds_CXX='`$ECHO "$old_archive_from_expsyms_cmds_CXX" | $SED "$delay_single_quote_subst"`' archive_cmds_CXX='`$ECHO "$archive_cmds_CXX" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds_CXX='`$ECHO "$archive_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`' module_cmds_CXX='`$ECHO "$module_cmds_CXX" | $SED "$delay_single_quote_subst"`' module_expsym_cmds_CXX='`$ECHO "$module_expsym_cmds_CXX" | $SED "$delay_single_quote_subst"`' with_gnu_ld_CXX='`$ECHO "$with_gnu_ld_CXX" | $SED "$delay_single_quote_subst"`' allow_undefined_flag_CXX='`$ECHO "$allow_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`' no_undefined_flag_CXX='`$ECHO "$no_undefined_flag_CXX" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec_CXX='`$ECHO "$hardcode_libdir_flag_spec_CXX" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator_CXX='`$ECHO "$hardcode_libdir_separator_CXX" | $SED "$delay_single_quote_subst"`' hardcode_direct_CXX='`$ECHO "$hardcode_direct_CXX" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute_CXX='`$ECHO "$hardcode_direct_absolute_CXX" | $SED "$delay_single_quote_subst"`' hardcode_minus_L_CXX='`$ECHO "$hardcode_minus_L_CXX" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var_CXX='`$ECHO "$hardcode_shlibpath_var_CXX" | $SED "$delay_single_quote_subst"`' hardcode_automatic_CXX='`$ECHO "$hardcode_automatic_CXX" | $SED "$delay_single_quote_subst"`' inherit_rpath_CXX='`$ECHO "$inherit_rpath_CXX" | $SED "$delay_single_quote_subst"`' link_all_deplibs_CXX='`$ECHO "$link_all_deplibs_CXX" | $SED "$delay_single_quote_subst"`' always_export_symbols_CXX='`$ECHO "$always_export_symbols_CXX" | $SED "$delay_single_quote_subst"`' export_symbols_cmds_CXX='`$ECHO "$export_symbols_cmds_CXX" | $SED "$delay_single_quote_subst"`' exclude_expsyms_CXX='`$ECHO "$exclude_expsyms_CXX" | $SED "$delay_single_quote_subst"`' include_expsyms_CXX='`$ECHO "$include_expsyms_CXX" | $SED "$delay_single_quote_subst"`' prelink_cmds_CXX='`$ECHO "$prelink_cmds_CXX" | $SED "$delay_single_quote_subst"`' postlink_cmds_CXX='`$ECHO "$postlink_cmds_CXX" | $SED "$delay_single_quote_subst"`' file_list_spec_CXX='`$ECHO "$file_list_spec_CXX" | $SED "$delay_single_quote_subst"`' hardcode_action_CXX='`$ECHO "$hardcode_action_CXX" | $SED "$delay_single_quote_subst"`' compiler_lib_search_dirs_CXX='`$ECHO "$compiler_lib_search_dirs_CXX" | $SED "$delay_single_quote_subst"`' predep_objects_CXX='`$ECHO "$predep_objects_CXX" | $SED "$delay_single_quote_subst"`' postdep_objects_CXX='`$ECHO "$postdep_objects_CXX" | $SED "$delay_single_quote_subst"`' predeps_CXX='`$ECHO "$predeps_CXX" | $SED "$delay_single_quote_subst"`' postdeps_CXX='`$ECHO "$postdeps_CXX" | $SED "$delay_single_quote_subst"`' compiler_lib_search_path_CXX='`$ECHO "$compiler_lib_search_path_CXX" | $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 \ compiler_lib_search_dirs \ predep_objects \ postdep_objects \ predeps \ postdeps \ compiler_lib_search_path \ LD_CXX \ reload_flag_CXX \ compiler_CXX \ lt_prog_compiler_no_builtin_flag_CXX \ lt_prog_compiler_pic_CXX \ lt_prog_compiler_wl_CXX \ lt_prog_compiler_static_CXX \ lt_cv_prog_compiler_c_o_CXX \ export_dynamic_flag_spec_CXX \ whole_archive_flag_spec_CXX \ compiler_needs_object_CXX \ with_gnu_ld_CXX \ allow_undefined_flag_CXX \ no_undefined_flag_CXX \ hardcode_libdir_flag_spec_CXX \ hardcode_libdir_separator_CXX \ exclude_expsyms_CXX \ include_expsyms_CXX \ file_list_spec_CXX \ compiler_lib_search_dirs_CXX \ predep_objects_CXX \ postdep_objects_CXX \ predeps_CXX \ postdeps_CXX \ compiler_lib_search_path_CXX; 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 \ reload_cmds_CXX \ old_archive_cmds_CXX \ old_archive_from_new_cmds_CXX \ old_archive_from_expsyms_cmds_CXX \ archive_cmds_CXX \ archive_expsym_cmds_CXX \ module_cmds_CXX \ module_expsym_cmds_CXX \ export_symbols_cmds_CXX \ prelink_cmds_CXX \ postlink_cmds_CXX; 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+y} || CONFIG_FILES=$config_files test ${CONFIG_HEADERS+y} || CONFIG_HEADERS=$config_headers test ${CONFIG_COMMANDS+y} || 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=`printf "%s\n" "$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 '` printf "%s\n" "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { printf "%s\n" "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 printf "%s\n" "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`printf "%s\n" "$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 || printf "%s\n" 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=/`printf "%s\n" "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`printf "%s\n" "$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@*) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 printf "%s\n" "$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"; } && { printf "%s\n" "$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 printf "%s\n" "$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 { printf "%s\n" "/* $configure_input */" >&1 \ && 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 printf "%s\n" "$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 printf "%s\n" "/* $configure_input */" >&1 \ && 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 || printf "%s\n" 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) { printf "%s\n" "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 printf "%s\n" "$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. # TODO: see whether this extra hack can be removed once we start # requiring Autoconf 2.70 or later. case $CONFIG_FILES in #( *\'*) : eval set x "$CONFIG_FILES" ;; #( *) : set x $CONFIG_FILES ;; #( *) : ;; esac shift # Used to flag and report bootstrapping failures. am_rc=0 for am_mf do # Strip MF so we end up with the name of the file. am_mf=`printf "%s\n" "$am_mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile which includes # dependency-tracking related rules and includes. # Grep'ing the whole file directly is not great: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. sed -n 's,^am--depfiles:.*,X,p' "$am_mf" | grep X >/dev/null 2>&1 \ || continue am_dirpart=`$as_dirname -- "$am_mf" || $as_expr X"$am_mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$am_mf" : 'X\(//\)[^/]' \| \ X"$am_mf" : 'X\(//\)$' \| \ X"$am_mf" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X"$am_mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` am_filepart=`$as_basename -- "$am_mf" || $as_expr X/"$am_mf" : '.*/\([^/][^/]*\)/*$' \| \ X"$am_mf" : 'X\(//\)$' \| \ X"$am_mf" : 'X\(/\)' \| . 2>/dev/null || printf "%s\n" X/"$am_mf" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` { echo "$as_me:$LINENO: cd "$am_dirpart" \ && sed -e '/# am--include-marker/d' "$am_filepart" \ | $MAKE -f - am--depfiles" >&5 (cd "$am_dirpart" \ && sed -e '/# am--include-marker/d' "$am_filepart" \ | $MAKE -f - am--depfiles) >&5 2>&5 ac_status=$? echo "$as_me:$LINENO: \$? = $ac_status" >&5 (exit $ac_status); } || am_rc=$? done if test $am_rc -ne 0; then { { printf "%s\n" "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 printf "%s\n" "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "Something went wrong bootstrapping makefile fragments for automatic dependency tracking. If GNU make was not used, consider re-running the configure script with MAKE=\"gmake\" (or whatever is necessary). You can also try re-running configure with the '--disable-dependency-tracking' option to at least be able to build the package (albeit without support for automatic dependency tracking). See \`config.log' for more details" "$LINENO" 5; } fi { am_dirpart=; unset am_dirpart;} { am_filepart=; unset am_filepart;} { am_mf=; unset am_mf;} { am_rc=; unset am_rc;} rm -f conftest-deps.mk } ;; "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='CXX ' # 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 # The directories searched by this compiler when creating a shared library. compiler_lib_search_dirs=$lt_compiler_lib_search_dirs # Dependencies to place before and after the objects being linked to # create a shared library. predep_objects=$lt_predep_objects postdep_objects=$lt_postdep_objects predeps=$lt_predeps postdeps=$lt_postdeps # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path # ### 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" cat <<_LT_EOF >> "$ofile" # ### BEGIN LIBTOOL TAG CONFIG: CXX # The linker used to build libraries. LD=$lt_LD_CXX # How to create reloadable object files. reload_flag=$lt_reload_flag_CXX reload_cmds=$lt_reload_cmds_CXX # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds_CXX # A language specific compiler. CC=$lt_compiler_CXX # Is the compiler the GNU compiler? with_gcc=$GCC_CXX # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic_CXX # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl_CXX # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static_CXX # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc_CXX # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object_CXX # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds_CXX archive_expsym_cmds=$lt_archive_expsym_cmds_CXX # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds_CXX module_expsym_cmds=$lt_module_expsym_cmds_CXX # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld_CXX # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag_CXX # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag_CXX # 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_CXX # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX # Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct_CXX # 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_CXX # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L_CXX # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX # 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_CXX # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath_CXX # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs_CXX # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols_CXX # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds_CXX # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms_CXX # Symbols that must always be exported. include_expsyms=$lt_include_expsyms_CXX # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds_CXX # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds_CXX # Specify filename containing input files. file_list_spec=$lt_file_list_spec_CXX # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action_CXX # The directories searched by this compiler when creating a shared library. compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX # Dependencies to place before and after the objects being linked to # create a shared library. predep_objects=$lt_predep_objects_CXX postdep_objects=$lt_postdep_objects_CXX predeps=$lt_predeps_CXX postdeps=$lt_postdeps_CXX # The library search path used internally by the compiler when linking # a shared library. compiler_lib_search_path=$lt_compiler_lib_search_path_CXX # ### END LIBTOOL TAG CONFIG: CXX _LT_EOF ;; 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 { printf "%s\n" "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 printf "%s\n" "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi libffcall-2.4/Makefile.in0000664000000000000000000001572014061422000012225 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 = 1:0:1 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/ln.m4 \ common/asm-alpha.sh \ common/asm-arm.sh common/asm-arm.h \ common/asm-arm64.sh common/asm-arm64.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 \ m4/mmap-anon.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.4/gnulib-lib/0000775000000000000000000000000014061422457012277 500000000000000libffcall-2.4/gnulib-lib/stat-time.h0000664000000000000000000001702414057155505014305 00000000000000/* stat-related time functions. Copyright (C) 2005, 2007, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Paul Eggert. */ #ifndef STAT_TIME_H #define STAT_TIME_H 1 #include "intprops.h" #include #include #include #include #ifndef _GL_INLINE_HEADER_BEGIN #error "Please include config.h first." #endif _GL_INLINE_HEADER_BEGIN #ifndef _GL_STAT_TIME_INLINE # define _GL_STAT_TIME_INLINE _GL_INLINE #endif #ifdef __cplusplus extern "C" { #endif /* STAT_TIMESPEC (ST, ST_XTIM) is the ST_XTIM member for *ST of type struct timespec, if available. If not, then STAT_TIMESPEC_NS (ST, ST_XTIM) is the nanosecond component of the ST_XTIM member for *ST, if available. ST_XTIM can be st_atim, st_ctim, st_mtim, or st_birthtim for access, status change, data modification, or birth (creation) time respectively. These macros are private to stat-time.h. */ #if _GL_WINDOWS_STAT_TIMESPEC || defined HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC # if _GL_WINDOWS_STAT_TIMESPEC || defined TYPEOF_STRUCT_STAT_ST_ATIM_IS_STRUCT_TIMESPEC # define STAT_TIMESPEC(st, st_xtim) ((st)->st_xtim) # else # define STAT_TIMESPEC_NS(st, st_xtim) ((st)->st_xtim.tv_nsec) # endif #elif defined HAVE_STRUCT_STAT_ST_ATIMESPEC_TV_NSEC # define STAT_TIMESPEC(st, st_xtim) ((st)->st_xtim##espec) #elif defined HAVE_STRUCT_STAT_ST_ATIMENSEC # define STAT_TIMESPEC_NS(st, st_xtim) ((st)->st_xtim##ensec) #elif defined HAVE_STRUCT_STAT_ST_ATIM_ST__TIM_TV_NSEC # define STAT_TIMESPEC_NS(st, st_xtim) ((st)->st_xtim.st__tim.tv_nsec) #endif /* Return the nanosecond component of *ST's access time. */ _GL_STAT_TIME_INLINE long int _GL_ATTRIBUTE_PURE get_stat_atime_ns (struct stat const *st) { # if defined STAT_TIMESPEC return STAT_TIMESPEC (st, st_atim).tv_nsec; # elif defined STAT_TIMESPEC_NS return STAT_TIMESPEC_NS (st, st_atim); # else return 0; # endif } /* Return the nanosecond component of *ST's status change time. */ _GL_STAT_TIME_INLINE long int _GL_ATTRIBUTE_PURE get_stat_ctime_ns (struct stat const *st) { # if defined STAT_TIMESPEC return STAT_TIMESPEC (st, st_ctim).tv_nsec; # elif defined STAT_TIMESPEC_NS return STAT_TIMESPEC_NS (st, st_ctim); # else return 0; # endif } /* Return the nanosecond component of *ST's data modification time. */ _GL_STAT_TIME_INLINE long int _GL_ATTRIBUTE_PURE get_stat_mtime_ns (struct stat const *st) { # if defined STAT_TIMESPEC return STAT_TIMESPEC (st, st_mtim).tv_nsec; # elif defined STAT_TIMESPEC_NS return STAT_TIMESPEC_NS (st, st_mtim); # else return 0; # endif } /* Return the nanosecond component of *ST's birth time. */ _GL_STAT_TIME_INLINE long int _GL_ATTRIBUTE_PURE get_stat_birthtime_ns (struct stat const *st _GL_UNUSED) { # if defined HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC return STAT_TIMESPEC (st, st_birthtim).tv_nsec; # elif defined HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC return STAT_TIMESPEC_NS (st, st_birthtim); # else return 0; # endif } /* Return *ST's access time. */ _GL_STAT_TIME_INLINE struct timespec _GL_ATTRIBUTE_PURE get_stat_atime (struct stat const *st) { #ifdef STAT_TIMESPEC return STAT_TIMESPEC (st, st_atim); #else struct timespec t; t.tv_sec = st->st_atime; t.tv_nsec = get_stat_atime_ns (st); return t; #endif } /* Return *ST's status change time. */ _GL_STAT_TIME_INLINE struct timespec _GL_ATTRIBUTE_PURE get_stat_ctime (struct stat const *st) { #ifdef STAT_TIMESPEC return STAT_TIMESPEC (st, st_ctim); #else struct timespec t; t.tv_sec = st->st_ctime; t.tv_nsec = get_stat_ctime_ns (st); return t; #endif } /* Return *ST's data modification time. */ _GL_STAT_TIME_INLINE struct timespec _GL_ATTRIBUTE_PURE get_stat_mtime (struct stat const *st) { #ifdef STAT_TIMESPEC return STAT_TIMESPEC (st, st_mtim); #else struct timespec t; t.tv_sec = st->st_mtime; t.tv_nsec = get_stat_mtime_ns (st); return t; #endif } /* Return *ST's birth time, if available; otherwise return a value with tv_sec and tv_nsec both equal to -1. */ _GL_STAT_TIME_INLINE struct timespec _GL_ATTRIBUTE_PURE get_stat_birthtime (struct stat const *st _GL_UNUSED) { struct timespec t; #if (defined HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC \ || defined HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC) t = STAT_TIMESPEC (st, st_birthtim); #elif defined HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC t.tv_sec = st->st_birthtime; t.tv_nsec = st->st_birthtimensec; #elif defined _WIN32 && ! defined __CYGWIN__ /* Native Windows platforms (but not Cygwin) put the "file creation time" in st_ctime (!). See . */ # if _GL_WINDOWS_STAT_TIMESPEC t = st->st_ctim; # else t.tv_sec = st->st_ctime; t.tv_nsec = 0; # endif #else /* Birth time is not supported. */ t.tv_sec = -1; t.tv_nsec = -1; #endif #if (defined HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC \ || defined HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC \ || defined HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC) /* FreeBSD and NetBSD sometimes signal the absence of knowledge by using zero. Attempt to work around this problem. Alas, this can report failure even for valid timestamps. Also, NetBSD sometimes returns junk in the birth time fields; work around this bug if it is detected. */ if (! (t.tv_sec && 0 <= t.tv_nsec && t.tv_nsec < 1000000000)) { t.tv_sec = -1; t.tv_nsec = -1; } #endif return t; } /* If a stat-like function returned RESULT, normalize the timestamps in *ST, in case this platform suffers from the Solaris 11 bug where tv_nsec might be negative. Return the adjusted RESULT, setting errno to EOVERFLOW if normalization overflowed. This function is intended to be private to this .h file. */ _GL_STAT_TIME_INLINE int stat_time_normalize (int result, struct stat *st _GL_UNUSED) { #if defined __sun && defined STAT_TIMESPEC if (result == 0) { long int timespec_hz = 1000000000; short int const ts_off[] = { offsetof (struct stat, st_atim), offsetof (struct stat, st_mtim), offsetof (struct stat, st_ctim) }; int i; for (i = 0; i < sizeof ts_off / sizeof *ts_off; i++) { struct timespec *ts = (struct timespec *) ((char *) st + ts_off[i]); long int q = ts->tv_nsec / timespec_hz; long int r = ts->tv_nsec % timespec_hz; if (r < 0) { r += timespec_hz; q--; } ts->tv_nsec = r; /* Overflow is possible, as Solaris 11 stat can yield tv_sec == TYPE_MINIMUM (time_t) && tv_nsec == -1000000000. INT_ADD_WRAPV is OK, since time_t is signed on Solaris. */ if (INT_ADD_WRAPV (q, ts->tv_sec, &ts->tv_sec)) { errno = EOVERFLOW; return -1; } } } #endif return result; } #ifdef __cplusplus } #endif _GL_INLINE_HEADER_END #endif libffcall-2.4/gnulib-lib/stat-w32.c0000664000000000000000000004422414057155505013757 00000000000000/* Core of implementation of fstat and stat for native Windows. Copyright (C) 2017-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible. */ #include #if defined _WIN32 && ! defined __CYGWIN__ /* Attempt to make define FILE_ID_INFO. But ensure that the redefinition of _WIN32_WINNT does not make us assume Windows Vista or newer when building for an older version of Windows. */ #if HAVE_SDKDDKVER_H # include # if _WIN32_WINNT >= _WIN32_WINNT_VISTA # define WIN32_ASSUME_VISTA 1 # else # define WIN32_ASSUME_VISTA 0 # endif # if !defined _WIN32_WINNT || (_WIN32_WINNT < _WIN32_WINNT_WIN8) # undef _WIN32_WINNT # define _WIN32_WINNT _WIN32_WINNT_WIN8 # endif #else # define WIN32_ASSUME_VISTA (_WIN32_WINNT >= _WIN32_WINNT_VISTA) #endif #include #include #include #include #include #include #include /* Specification. */ #include "stat-w32.h" #include "pathmax.h" #include "verify.h" /* Don't assume that UNICODE is not defined. */ #undef LoadLibrary #define LoadLibrary LoadLibraryA #undef GetFinalPathNameByHandle #define GetFinalPathNameByHandle GetFinalPathNameByHandleA /* Older mingw headers do not define VOLUME_NAME_NONE. */ #ifndef VOLUME_NAME_NONE # define VOLUME_NAME_NONE 4 #endif #if !WIN32_ASSUME_VISTA /* Avoid warnings from gcc -Wcast-function-type. */ # define GetProcAddress \ (void *) GetProcAddress # if _GL_WINDOWS_STAT_INODES == 2 /* GetFileInformationByHandleEx was introduced only in Windows Vista. */ typedef DWORD (WINAPI * GetFileInformationByHandleExFuncType) (HANDLE hFile, FILE_INFO_BY_HANDLE_CLASS fiClass, LPVOID lpBuffer, DWORD dwBufferSize); static GetFileInformationByHandleExFuncType GetFileInformationByHandleExFunc = NULL; # endif /* GetFinalPathNameByHandle was introduced only in Windows Vista. */ typedef DWORD (WINAPI * GetFinalPathNameByHandleFuncType) (HANDLE hFile, LPSTR lpFilePath, DWORD lenFilePath, DWORD dwFlags); static GetFinalPathNameByHandleFuncType GetFinalPathNameByHandleFunc = NULL; static BOOL initialized = FALSE; static void initialize (void) { HMODULE kernel32 = LoadLibrary ("kernel32.dll"); if (kernel32 != NULL) { # if _GL_WINDOWS_STAT_INODES == 2 GetFileInformationByHandleExFunc = (GetFileInformationByHandleExFuncType) GetProcAddress (kernel32, "GetFileInformationByHandleEx"); # endif GetFinalPathNameByHandleFunc = (GetFinalPathNameByHandleFuncType) GetProcAddress (kernel32, "GetFinalPathNameByHandleA"); } initialized = TRUE; } #else # define GetFileInformationByHandleExFunc GetFileInformationByHandleEx # define GetFinalPathNameByHandleFunc GetFinalPathNameByHandle #endif /* Converts a FILETIME to GMT time since 1970-01-01 00:00:00. */ #if _GL_WINDOWS_STAT_TIMESPEC struct timespec _gl_convert_FILETIME_to_timespec (const FILETIME *ft) { struct timespec result; /* FILETIME: */ unsigned long long since_1601 = ((unsigned long long) ft->dwHighDateTime << 32) | (unsigned long long) ft->dwLowDateTime; if (since_1601 == 0) { result.tv_sec = 0; result.tv_nsec = 0; } else { /* Between 1601-01-01 and 1970-01-01 there were 280 normal years and 89 leap years, in total 134774 days. */ unsigned long long since_1970 = since_1601 - (unsigned long long) 134774 * (unsigned long long) 86400 * (unsigned long long) 10000000; result.tv_sec = since_1970 / (unsigned long long) 10000000; result.tv_nsec = (unsigned long) (since_1970 % (unsigned long long) 10000000) * 100; } return result; } #else time_t _gl_convert_FILETIME_to_POSIX (const FILETIME *ft) { /* FILETIME: */ unsigned long long since_1601 = ((unsigned long long) ft->dwHighDateTime << 32) | (unsigned long long) ft->dwLowDateTime; if (since_1601 == 0) return 0; else { /* Between 1601-01-01 and 1970-01-01 there were 280 normal years and 89 leap years, in total 134774 days. */ unsigned long long since_1970 = since_1601 - (unsigned long long) 134774 * (unsigned long long) 86400 * (unsigned long long) 10000000; return since_1970 / (unsigned long long) 10000000; } } #endif /* Fill *BUF with information about the file designated by H. PATH is the file name, if known, otherwise NULL. Return 0 if successful, or -1 with errno set upon failure. */ int _gl_fstat_by_handle (HANDLE h, const char *path, struct stat *buf) { /* GetFileType */ DWORD type = GetFileType (h); if (type == FILE_TYPE_DISK) { #if !WIN32_ASSUME_VISTA if (!initialized) initialize (); #endif /* st_mode can be determined through GetFileAttributesEx or through GetFileInformationByHandle or through GetFileInformationByHandleEx with argument FileBasicInfo The latter requires -D_WIN32_WINNT=_WIN32_WINNT_VISTA or higher. */ BY_HANDLE_FILE_INFORMATION info; if (! GetFileInformationByHandle (h, &info)) goto failed; /* Test for error conditions before starting to fill *buf. */ if (sizeof (buf->st_size) <= 4 && info.nFileSizeHigh > 0) { errno = EOVERFLOW; return -1; } #if _GL_WINDOWS_STAT_INODES /* st_ino can be determined through GetFileInformationByHandle as 64 bits, or through GetFileInformationByHandleEx with argument FileIdInfo as 128 bits. The latter requires -D_WIN32_WINNT=_WIN32_WINNT_WIN8 or higher. */ /* Experiments show that GetFileInformationByHandleEx does not provide much more information than GetFileInformationByHandle: * The dwVolumeSerialNumber from GetFileInformationByHandle is equal to the low 32 bits of the 64-bit VolumeSerialNumber from GetFileInformationByHandleEx, and is apparently sufficient for identifying the device. * The nFileIndex from GetFileInformationByHandle is equal to the low 64 bits of the 128-bit FileId from GetFileInformationByHandleEx, and the high 64 bits of this 128-bit FileId are zero. * On a FAT file system, GetFileInformationByHandleEx fails with error ERROR_INVALID_PARAMETER, whereas GetFileInformationByHandle succeeds. * On a CIFS/SMB file system, GetFileInformationByHandleEx fails with error ERROR_INVALID_LEVEL, whereas GetFileInformationByHandle succeeds. */ # if _GL_WINDOWS_STAT_INODES == 2 if (GetFileInformationByHandleExFunc != NULL) { FILE_ID_INFO id; if (GetFileInformationByHandleExFunc (h, FileIdInfo, &id, sizeof (id))) { buf->st_dev = id.VolumeSerialNumber; verify (sizeof (ino_t) == sizeof (id.FileId)); memcpy (&buf->st_ino, &id.FileId, sizeof (ino_t)); goto ino_done; } else { switch (GetLastError ()) { case ERROR_INVALID_PARAMETER: /* older Windows version, or FAT */ case ERROR_INVALID_LEVEL: /* CIFS/SMB file system */ goto fallback; default: goto failed; } } } fallback: ; /* Fallback for older Windows versions. */ buf->st_dev = info.dwVolumeSerialNumber; buf->st_ino._gl_ino[0] = ((ULONGLONG) info.nFileIndexHigh << 32) | (ULONGLONG) info.nFileIndexLow; buf->st_ino._gl_ino[1] = 0; ino_done: ; # else /* _GL_WINDOWS_STAT_INODES == 1 */ buf->st_dev = info.dwVolumeSerialNumber; buf->st_ino = ((ULONGLONG) info.nFileIndexHigh << 32) | (ULONGLONG) info.nFileIndexLow; # endif #else /* st_ino is not wide enough for identifying a file on a device. Without st_ino, st_dev is pointless. */ buf->st_dev = 0; buf->st_ino = 0; #endif /* st_mode. */ unsigned int mode = /* XXX How to handle FILE_ATTRIBUTE_REPARSE_POINT ? */ ((info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ? _S_IFDIR | S_IEXEC_UGO : _S_IFREG) | S_IREAD_UGO | ((info.dwFileAttributes & FILE_ATTRIBUTE_READONLY) ? 0 : S_IWRITE_UGO); if (!(info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) { /* Determine whether the file is executable by looking at the file name suffix. If the file name is already known, use it. Otherwise, for non-empty files, it can be determined through GetFinalPathNameByHandle or through GetFileInformationByHandleEx with argument FileNameInfo Both require -D_WIN32_WINNT=_WIN32_WINNT_VISTA or higher. */ if (info.nFileSizeHigh > 0 || info.nFileSizeLow > 0) { char fpath[PATH_MAX]; if (path != NULL || (GetFinalPathNameByHandleFunc != NULL && GetFinalPathNameByHandleFunc (h, fpath, sizeof (fpath), VOLUME_NAME_NONE) < sizeof (fpath) && (path = fpath, 1))) { const char *last_dot = NULL; const char *p; for (p = path; *p != '\0'; p++) if (*p == '.') last_dot = p; if (last_dot != NULL) { const char *suffix = last_dot + 1; if (_stricmp (suffix, "exe") == 0 || _stricmp (suffix, "bat") == 0 || _stricmp (suffix, "cmd") == 0 || _stricmp (suffix, "com") == 0) mode |= S_IEXEC_UGO; } } else /* Cannot determine file name. Pretend that it is executable. */ mode |= S_IEXEC_UGO; } } buf->st_mode = mode; /* st_nlink can be determined through GetFileInformationByHandle or through GetFileInformationByHandleEx with argument FileStandardInfo The latter requires -D_WIN32_WINNT=_WIN32_WINNT_VISTA or higher. */ buf->st_nlink = (info.nNumberOfLinks > SHRT_MAX ? SHRT_MAX : info.nNumberOfLinks); /* There's no easy way to map the Windows SID concept to an integer. */ buf->st_uid = 0; buf->st_gid = 0; /* st_rdev is irrelevant for normal files and directories. */ buf->st_rdev = 0; /* st_size can be determined through GetFileSizeEx or through GetFileAttributesEx or through GetFileInformationByHandle or through GetFileInformationByHandleEx with argument FileStandardInfo The latter requires -D_WIN32_WINNT=_WIN32_WINNT_VISTA or higher. */ if (sizeof (buf->st_size) <= 4) /* Range check already done above. */ buf->st_size = info.nFileSizeLow; else buf->st_size = ((long long) info.nFileSizeHigh << 32) | (long long) info.nFileSizeLow; /* st_atime, st_mtime, st_ctime can be determined through GetFileTime or through GetFileAttributesEx or through GetFileInformationByHandle or through GetFileInformationByHandleEx with argument FileBasicInfo The latter requires -D_WIN32_WINNT=_WIN32_WINNT_VISTA or higher. */ #if _GL_WINDOWS_STAT_TIMESPEC buf->st_atim = _gl_convert_FILETIME_to_timespec (&info.ftLastAccessTime); buf->st_mtim = _gl_convert_FILETIME_to_timespec (&info.ftLastWriteTime); buf->st_ctim = _gl_convert_FILETIME_to_timespec (&info.ftCreationTime); #else buf->st_atime = _gl_convert_FILETIME_to_POSIX (&info.ftLastAccessTime); buf->st_mtime = _gl_convert_FILETIME_to_POSIX (&info.ftLastWriteTime); buf->st_ctime = _gl_convert_FILETIME_to_POSIX (&info.ftCreationTime); #endif return 0; } else if (type == FILE_TYPE_CHAR || type == FILE_TYPE_PIPE) { buf->st_dev = 0; #if _GL_WINDOWS_STAT_INODES == 2 buf->st_ino._gl_ino[0] = buf->st_ino._gl_ino[1] = 0; #else buf->st_ino = 0; #endif buf->st_mode = (type == FILE_TYPE_PIPE ? _S_IFIFO : _S_IFCHR); buf->st_nlink = 1; buf->st_uid = 0; buf->st_gid = 0; buf->st_rdev = 0; if (type == FILE_TYPE_PIPE) { /* PeekNamedPipe */ DWORD bytes_available; if (PeekNamedPipe (h, NULL, 0, NULL, &bytes_available, NULL)) buf->st_size = bytes_available; else buf->st_size = 0; } else buf->st_size = 0; #if _GL_WINDOWS_STAT_TIMESPEC buf->st_atim.tv_sec = 0; buf->st_atim.tv_nsec = 0; buf->st_mtim.tv_sec = 0; buf->st_mtim.tv_nsec = 0; buf->st_ctim.tv_sec = 0; buf->st_ctim.tv_nsec = 0; #else buf->st_atime = 0; buf->st_mtime = 0; buf->st_ctime = 0; #endif return 0; } else { errno = ENOENT; return -1; } failed: { DWORD error = GetLastError (); #if 0 fprintf (stderr, "_gl_fstat_by_handle error 0x%x\n", (unsigned int) error); #endif switch (error) { case ERROR_ACCESS_DENIED: case ERROR_SHARING_VIOLATION: errno = EACCES; break; case ERROR_OUTOFMEMORY: errno = ENOMEM; break; case ERROR_WRITE_FAULT: case ERROR_READ_FAULT: case ERROR_GEN_FAILURE: errno = EIO; break; default: errno = EINVAL; break; } return -1; } } #else /* This declaration is solely to ensure that after preprocessing this file is never empty. */ typedef int dummy; #endif libffcall-2.4/gnulib-lib/windows-recmutex.h0000664000000000000000000000367514057155505015731 00000000000000/* Plain recursive mutexes (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/stdnoreturn.in.h0000664000000000000000000000420214057155505015364 00000000000000/* A substitute for ISO C11 . Copyright 2012-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/malloca.h0000664000000000000000000001064314057155505014006 00000000000000/* Safe automatic memory allocation. Copyright (C) 2003-2007, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2003. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _MALLOCA_H #define _MALLOCA_H #include #include #include #include #include "xalloc-oversized.h" #ifdef __cplusplus extern "C" { #endif /* safe_alloca(N) is equivalent to alloca(N) when it is safe to call alloca(N); otherwise it returns NULL. It either returns N bytes of memory allocated on the stack, that lasts until the function returns, or NULL. Use of safe_alloca should be avoided: - inside arguments of function calls - undefined behaviour, - in inline functions - the allocation may actually last until the calling function returns. */ #if HAVE_ALLOCA /* The OS usually guarantees only one guard page at the bottom of the stack, and a page size can be as small as 4096 bytes. So we cannot safely allocate anything larger than 4096 bytes. Also care for the possibility of a few compiler-allocated temporary stack slots. This must be a macro, not a function. */ # define safe_alloca(N) ((N) < 4032 ? alloca (N) : NULL) #else # define safe_alloca(N) ((void) (N), NULL) #endif /* malloca(N) is a safe variant of alloca(N). It allocates N bytes of memory allocated on the stack, that must be freed using freea() before the function returns. Upon failure, it returns NULL. */ #if HAVE_ALLOCA # define malloca(N) \ ((N) < 4032 - (2 * sa_alignment_max - 1) \ ? (void *) (((uintptr_t) (char *) alloca ((N) + 2 * sa_alignment_max - 1) \ + (2 * sa_alignment_max - 1)) \ & ~(uintptr_t)(2 * sa_alignment_max - 1)) \ : mmalloca (N)) #else # define malloca(N) \ mmalloca (N) #endif extern void * mmalloca (size_t n); /* Free a block of memory allocated through malloca(). */ #if HAVE_ALLOCA extern void freea (void *p); #else # define freea free #endif /* nmalloca(N,S) is an overflow-safe variant of malloca (N * S). It allocates an array of N objects, each with S bytes of memory, on the stack. N and S should be nonnegative and free of side effects. The array must be freed using freea() before the function returns. */ #define nmalloca(n, s) \ (xalloc_oversized (n, s) ? NULL : malloca ((n) * (size_t) (s))) #ifdef __cplusplus } #endif /* ------------------- Auxiliary, non-public definitions ------------------- */ /* Determine the alignment of a type at compile time. */ #if defined __GNUC__ || defined __clang__ || defined __IBM__ALIGNOF__ # define sa_alignof __alignof__ #elif defined __cplusplus template struct sa_alignof_helper { char __slot1; type __slot2; }; # define sa_alignof(type) offsetof (sa_alignof_helper, __slot2) #elif defined __hpux /* Work around a HP-UX 10.20 cc bug with enums constants defined as offsetof values. */ # define sa_alignof(type) (sizeof (type) <= 4 ? 4 : 8) #elif defined _AIX /* Work around an AIX 3.2.5 xlc bug with enums constants defined as offsetof values. */ # define sa_alignof(type) (sizeof (type) <= 4 ? 4 : 8) #else # define sa_alignof(type) offsetof (struct { char __slot1; type __slot2; }, __slot2) #endif enum { /* The desired alignment of memory allocations is the maximum alignment among all elementary types. */ sa_alignment_long = sa_alignof (long), sa_alignment_double = sa_alignof (double), sa_alignment_longlong = sa_alignof (long long), sa_alignment_longdouble = sa_alignof (long double), sa_alignment_max = ((sa_alignment_long - 1) | (sa_alignment_double - 1) | (sa_alignment_longlong - 1) | (sa_alignment_longdouble - 1) ) + 1 }; #endif /* _MALLOCA_H */ libffcall-2.4/gnulib-lib/windows-once.c0000664000000000000000000000441614057155505015006 00000000000000/* Once-only control (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/idx.h0000664000000000000000000001025314057155505013157 00000000000000/* A type for indices and sizes. Copyright (C) 2020-2021 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. The GNU C Library 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with the GNU C Library; if not, see . */ #ifndef _IDX_H #define _IDX_H /* Get ptrdiff_t. */ #include /* Get PTRDIFF_MAX. */ #include /* The type 'idx_t' holds an (array) index or an (object) size. Its implementation promotes to a signed integer type, which can hold the values 0..2^63-1 (on 64-bit platforms) or 0..2^31-1 (on 32-bit platforms). Why a signed integer type? * Security: Signed types can be checked for overflow via '-fsanitize=undefined', but unsigned types cannot. * Comparisons without surprises: ISO C99 § 6.3.1.8 specifies a few surprising results for comparisons, such as (int) -3 < (unsigned long) 7 => false (int) -3 < (unsigned int) 7 => false and on 32-bit machines: (long) -3 < (unsigned int) 7 => false This is surprising because the natural comparison order is by value in the realm of infinite-precision signed integers (ℤ). The best way to get rid of such surprises is to use signed types for numerical integer values, and use unsigned types only for bit masks and enums. Why not use 'size_t' directly? * Because 'size_t' is an unsigned type, and a signed type is better. See above. Why not use 'ptrdiff_t' directly? * Maintainability: When reading and modifying code, it helps to know that a certain variable cannot have negative values. For example, when you have a loop int n = ...; for (int i = 0; i < n; i++) ... or ptrdiff_t n = ...; for (ptrdiff_t i = 0; i < n; i++) ... you have to ask yourself "what if n < 0?". Whereas in idx_t n = ...; for (idx_t i = 0; i < n; i++) ... you know that this case cannot happen. Similarly, when a programmer writes idx_t = ptr2 - ptr1; there is an implied assertion that ptr1 and ptr2 point into the same object and that ptr1 <= ptr2. * Being future-proof: In the future, range types (integers which are constrained to a certain range of values) may be added to C compilers or to the C standard. Several programming languages (Ada, Haskell, Common Lisp, Pascal) already have range types. Such range types may help producing good code and good warnings. The type 'idx_t' could then be typedef'ed to a range type that is signed after promotion. */ /* In the future, idx_t could be typedef'ed to a signed range type. The clang "extended integer types", supported in Clang 11 or newer , are a special case of range types. However, these types don't support binary operators with plain integer types (e.g. expressions such as x > 1). Therefore, they don't behave like signed types (and not like unsigned types either). So, we cannot use them here. */ /* Use the signed type 'ptrdiff_t'. */ /* Note: ISO C does not mandate that 'size_t' and 'ptrdiff_t' have the same size, but it is so on all platforms we have seen since 1990. */ typedef ptrdiff_t idx_t; /* IDX_MAX is the maximum value of an idx_t. */ #define IDX_MAX PTRDIFF_MAX /* So far no need has been found for an IDX_WIDTH macro. Perhaps there should be another macro IDX_VALUE_BITS that does not count the sign bit and is therefore one less than PTRDIFF_WIDTH. */ #endif /* _IDX_H */ libffcall-2.4/gnulib-lib/getprogname.h0000664000000000000000000000222314057155505014701 00000000000000/* Program name management. Copyright (C) 2016-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_GETPROGNAME_H #define _GL_GETPROGNAME_H #include #ifdef __cplusplus extern "C" { #endif /* Return the base name of the executing program. On native Windows this will usually end in ".exe" or ".EXE". */ #ifndef HAVE_GETPROGNAME extern char const *getprogname (void) # ifdef HAVE_DECL_PROGRAM_INVOCATION_NAME _GL_ATTRIBUTE_PURE # endif ; #endif #ifdef __cplusplus } #endif #endif libffcall-2.4/gnulib-lib/fcntl.c0000664000000000000000000004462114057155505013502 00000000000000/* Provide file descriptor control. Copyright (C) 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Eric Blake . */ #include /* Specification. */ #include #include #include #include #include #include #ifdef __KLIBC__ # define INCL_DOS # include #endif #if defined _WIN32 && ! defined __CYGWIN__ /* Get declarations of the native Windows API functions. */ # define WIN32_LEAN_AND_MEAN # include /* Get _get_osfhandle. */ # if GNULIB_MSVC_NOTHROW # include "msvc-nothrow.h" # else # include # endif /* Upper bound on getdtablesize(). See lib/getdtablesize.c. */ # define OPEN_MAX_MAX 0x10000 /* Duplicate OLDFD into the first available slot of at least NEWFD, which must be positive, with FLAGS determining whether the duplicate will be inheritable. */ static int dupfd (int oldfd, int newfd, int flags) { /* Mingw has no way to create an arbitrary fd. Iterate until all file descriptors less than newfd are filled up. */ HANDLE curr_process = GetCurrentProcess (); HANDLE old_handle = (HANDLE) _get_osfhandle (oldfd); unsigned char fds_to_close[OPEN_MAX_MAX / CHAR_BIT]; unsigned int fds_to_close_bound = 0; int result; BOOL inherit = flags & O_CLOEXEC ? FALSE : TRUE; int mode; if (newfd < 0 || getdtablesize () <= newfd) { errno = EINVAL; return -1; } if (old_handle == INVALID_HANDLE_VALUE || (mode = _setmode (oldfd, O_BINARY)) == -1) { /* oldfd is not open, or is an unassigned standard file descriptor. */ errno = EBADF; return -1; } _setmode (oldfd, mode); flags |= mode; for (;;) { HANDLE new_handle; int duplicated_fd; unsigned int index; if (!DuplicateHandle (curr_process, /* SourceProcessHandle */ old_handle, /* SourceHandle */ curr_process, /* TargetProcessHandle */ (PHANDLE) &new_handle, /* TargetHandle */ (DWORD) 0, /* DesiredAccess */ inherit, /* InheritHandle */ DUPLICATE_SAME_ACCESS)) /* Options */ { switch (GetLastError ()) { case ERROR_TOO_MANY_OPEN_FILES: errno = EMFILE; break; case ERROR_INVALID_HANDLE: case ERROR_INVALID_TARGET_HANDLE: case ERROR_DIRECT_ACCESS_HANDLE: errno = EBADF; break; case ERROR_INVALID_PARAMETER: case ERROR_INVALID_FUNCTION: case ERROR_INVALID_ACCESS: errno = EINVAL; break; default: errno = EACCES; break; } result = -1; break; } duplicated_fd = _open_osfhandle ((intptr_t) new_handle, flags); if (duplicated_fd < 0) { CloseHandle (new_handle); result = -1; break; } if (newfd <= duplicated_fd) { result = duplicated_fd; break; } /* Set the bit duplicated_fd in fds_to_close[]. */ index = (unsigned int) duplicated_fd / CHAR_BIT; if (fds_to_close_bound <= index) { if (sizeof fds_to_close <= index) /* Need to increase OPEN_MAX_MAX. */ abort (); memset (fds_to_close + fds_to_close_bound, '\0', index + 1 - fds_to_close_bound); fds_to_close_bound = index + 1; } fds_to_close[index] |= 1 << ((unsigned int) duplicated_fd % CHAR_BIT); } /* Close the previous fds that turned out to be too small. */ { int saved_errno = errno; unsigned int duplicated_fd; for (duplicated_fd = 0; duplicated_fd < fds_to_close_bound * CHAR_BIT; duplicated_fd++) if ((fds_to_close[duplicated_fd / CHAR_BIT] >> (duplicated_fd % CHAR_BIT)) & 1) close (duplicated_fd); errno = saved_errno; } # if REPLACE_FCHDIR if (0 <= result) result = _gl_register_dup (oldfd, result); # endif return result; } #endif /* W32 */ /* Forward declarations, because we '#undef fcntl' in the middle of this compilation unit. */ /* Our implementation of fcntl (fd, F_DUPFD, target). */ static int rpl_fcntl_DUPFD (int fd, int target); /* Our implementation of fcntl (fd, F_DUPFD_CLOEXEC, target). */ static int rpl_fcntl_DUPFD_CLOEXEC (int fd, int target); #ifdef __KLIBC__ /* Adds support for fcntl on directories. */ static int klibc_fcntl (int fd, int action, /* arg */...); #endif /* Perform the specified ACTION on the file descriptor FD, possibly using the argument ARG further described below. This replacement handles the following actions, and forwards all others on to the native fcntl. An unrecognized ACTION returns -1 with errno set to EINVAL. F_DUPFD - duplicate FD, with int ARG being the minimum target fd. If successful, return the duplicate, which will be inheritable; otherwise return -1 and set errno. F_DUPFD_CLOEXEC - duplicate FD, with int ARG being the minimum target fd. If successful, return the duplicate, which will not be inheritable; otherwise return -1 and set errno. F_GETFD - ARG need not be present. If successful, return a non-negative value containing the descriptor flags of FD (only FD_CLOEXEC is portable, but other flags may be present); otherwise return -1 and set errno. */ int fcntl (int fd, int action, /* arg */...) #undef fcntl #ifdef __KLIBC__ # define fcntl klibc_fcntl #endif { va_list arg; int result = -1; va_start (arg, action); switch (action) { case F_DUPFD: { int target = va_arg (arg, int); result = rpl_fcntl_DUPFD (fd, target); break; } case F_DUPFD_CLOEXEC: { int target = va_arg (arg, int); result = rpl_fcntl_DUPFD_CLOEXEC (fd, target); break; } #if !HAVE_FCNTL case F_GETFD: { # if defined _WIN32 && ! defined __CYGWIN__ HANDLE handle = (HANDLE) _get_osfhandle (fd); DWORD flags; if (handle == INVALID_HANDLE_VALUE || GetHandleInformation (handle, &flags) == 0) errno = EBADF; else result = (flags & HANDLE_FLAG_INHERIT) ? 0 : FD_CLOEXEC; # else /* !W32 */ /* Use dup2 to reject invalid file descriptors. No way to access this information, so punt. */ if (0 <= dup2 (fd, fd)) result = 0; # endif /* !W32 */ break; } /* F_GETFD */ #endif /* !HAVE_FCNTL */ /* Implementing F_SETFD on mingw is not trivial - there is no API for changing the O_NOINHERIT bit on an fd, and merely changing the HANDLE_FLAG_INHERIT bit on the underlying handle can lead to odd state. It may be possible by duplicating the handle, using _open_osfhandle with the right flags, then using dup2 to move the duplicate onto the original, but that is not supported for now. */ default: { #if HAVE_FCNTL switch (action) { #ifdef F_BARRIERFSYNC /* macOS */ case F_BARRIERFSYNC: #endif #ifdef F_CHKCLEAN /* macOS */ case F_CHKCLEAN: #endif #ifdef F_CLOSEM /* NetBSD, HP-UX */ case F_CLOSEM: #endif #ifdef F_FLUSH_DATA /* macOS */ case F_FLUSH_DATA: #endif #ifdef F_FREEZE_FS /* macOS */ case F_FREEZE_FS: #endif #ifdef F_FULLFSYNC /* macOS */ case F_FULLFSYNC: #endif #ifdef F_GETCONFINED /* macOS */ case F_GETCONFINED: #endif #ifdef F_GETDEFAULTPROTLEVEL /* macOS */ case F_GETDEFAULTPROTLEVEL: #endif #ifdef F_GETFD /* POSIX */ case F_GETFD: #endif #ifdef F_GETFL /* POSIX */ case F_GETFL: #endif #ifdef F_GETLEASE /* Linux */ case F_GETLEASE: #endif #ifdef F_GETNOSIGPIPE /* macOS */ case F_GETNOSIGPIPE: #endif #ifdef F_GETOWN /* POSIX */ case F_GETOWN: #endif #ifdef F_GETPIPE_SZ /* Linux */ case F_GETPIPE_SZ: #endif #ifdef F_GETPROTECTIONCLASS /* macOS */ case F_GETPROTECTIONCLASS: #endif #ifdef F_GETPROTECTIONLEVEL /* macOS */ case F_GETPROTECTIONLEVEL: #endif #ifdef F_GET_SEALS /* Linux */ case F_GET_SEALS: #endif #ifdef F_GETSIG /* Linux */ case F_GETSIG: #endif #ifdef F_MAXFD /* NetBSD */ case F_MAXFD: #endif #ifdef F_RECYCLE /* macOS */ case F_RECYCLE: #endif #ifdef F_SETFIFOENH /* HP-UX */ case F_SETFIFOENH: #endif #ifdef F_THAW_FS /* macOS */ case F_THAW_FS: #endif /* These actions take no argument. */ result = fcntl (fd, action); break; #ifdef F_ADD_SEALS /* Linux */ case F_ADD_SEALS: #endif #ifdef F_BADFD /* Solaris */ case F_BADFD: #endif #ifdef F_CHECK_OPENEVT /* macOS */ case F_CHECK_OPENEVT: #endif #ifdef F_DUP2FD /* FreeBSD, AIX, Solaris */ case F_DUP2FD: #endif #ifdef F_DUP2FD_CLOEXEC /* FreeBSD, Solaris */ case F_DUP2FD_CLOEXEC: #endif #ifdef F_DUP2FD_CLOFORK /* Solaris */ case F_DUP2FD_CLOFORK: #endif #ifdef F_DUPFD /* POSIX */ case F_DUPFD: #endif #ifdef F_DUPFD_CLOEXEC /* POSIX */ case F_DUPFD_CLOEXEC: #endif #ifdef F_DUPFD_CLOFORK /* Solaris */ case F_DUPFD_CLOFORK: #endif #ifdef F_GETXFL /* Solaris */ case F_GETXFL: #endif #ifdef F_GLOBAL_NOCACHE /* macOS */ case F_GLOBAL_NOCACHE: #endif #ifdef F_MAKECOMPRESSED /* macOS */ case F_MAKECOMPRESSED: #endif #ifdef F_MOVEDATAEXTENTS /* macOS */ case F_MOVEDATAEXTENTS: #endif #ifdef F_NOCACHE /* macOS */ case F_NOCACHE: #endif #ifdef F_NODIRECT /* macOS */ case F_NODIRECT: #endif #ifdef F_NOTIFY /* Linux */ case F_NOTIFY: #endif #ifdef F_OPLKACK /* IRIX */ case F_OPLKACK: #endif #ifdef F_OPLKREG /* IRIX */ case F_OPLKREG: #endif #ifdef F_RDAHEAD /* macOS */ case F_RDAHEAD: #endif #ifdef F_SETBACKINGSTORE /* macOS */ case F_SETBACKINGSTORE: #endif #ifdef F_SETCONFINED /* macOS */ case F_SETCONFINED: #endif #ifdef F_SETFD /* POSIX */ case F_SETFD: #endif #ifdef F_SETFL /* POSIX */ case F_SETFL: #endif #ifdef F_SETLEASE /* Linux */ case F_SETLEASE: #endif #ifdef F_SETNOSIGPIPE /* macOS */ case F_SETNOSIGPIPE: #endif #ifdef F_SETOWN /* POSIX */ case F_SETOWN: #endif #ifdef F_SETPIPE_SZ /* Linux */ case F_SETPIPE_SZ: #endif #ifdef F_SETPROTECTIONCLASS /* macOS */ case F_SETPROTECTIONCLASS: #endif #ifdef F_SETSIG /* Linux */ case F_SETSIG: #endif #ifdef F_SINGLE_WRITER /* macOS */ case F_SINGLE_WRITER: #endif /* These actions take an 'int' argument. */ { int x = va_arg (arg, int); result = fcntl (fd, action, x); } break; default: /* Other actions take a pointer argument. */ { void *p = va_arg (arg, void *); result = fcntl (fd, action, p); } break; } #else errno = EINVAL; #endif break; } } va_end (arg); return result; } static int rpl_fcntl_DUPFD (int fd, int target) { int result; #if !HAVE_FCNTL result = dupfd (fd, target, 0); #elif FCNTL_DUPFD_BUGGY || REPLACE_FCHDIR /* Detect invalid target; needed for cygwin 1.5.x. */ if (target < 0 || getdtablesize () <= target) { result = -1; errno = EINVAL; } else { /* Haiku alpha 2 loses fd flags on original. */ int flags = fcntl (fd, F_GETFD); if (flags < 0) result = -1; else { result = fcntl (fd, F_DUPFD, target); if (0 <= result && fcntl (fd, F_SETFD, flags) == -1) { int saved_errno = errno; close (result); result = -1; errno = saved_errno; } # if REPLACE_FCHDIR if (0 <= result) result = _gl_register_dup (fd, result); # endif } } #else result = fcntl (fd, F_DUPFD, target); #endif return result; } static int rpl_fcntl_DUPFD_CLOEXEC (int fd, int target) { int result; #if !HAVE_FCNTL result = dupfd (fd, target, O_CLOEXEC); #else /* HAVE_FCNTL */ # if defined __NetBSD__ || defined __HAIKU__ /* On NetBSD 9.0, the system fcntl (fd, F_DUPFD_CLOEXEC, target) has only the same effect as fcntl (fd, F_DUPFD, target). */ /* On Haiku, the system fcntl (fd, F_DUPFD_CLOEXEC, target) sets the FD_CLOEXEC flag on fd, not on target. Therefore avoid the system fcntl in this case. */ # define have_dupfd_cloexec -1 # else /* Try the system call first, if the headers claim it exists (that is, if GNULIB_defined_F_DUPFD_CLOEXEC is 0), since we may be running with a glibc that has the macro but with an older kernel that does not support it. Cache the information on whether the system call really works, but avoid caching failure if the corresponding F_DUPFD fails for any reason. 0 = unknown, 1 = yes, -1 = no. */ static int have_dupfd_cloexec = GNULIB_defined_F_DUPFD_CLOEXEC ? -1 : 0; if (0 <= have_dupfd_cloexec) { result = fcntl (fd, F_DUPFD_CLOEXEC, target); if (0 <= result || errno != EINVAL) { have_dupfd_cloexec = 1; # if REPLACE_FCHDIR if (0 <= result) result = _gl_register_dup (fd, result); # endif } else { result = rpl_fcntl_DUPFD (fd, target); if (result >= 0) have_dupfd_cloexec = -1; } } else # endif result = rpl_fcntl_DUPFD (fd, target); if (0 <= result && have_dupfd_cloexec == -1) { int flags = fcntl (result, F_GETFD); if (flags < 0 || fcntl (result, F_SETFD, flags | FD_CLOEXEC) == -1) { int saved_errno = errno; close (result); errno = saved_errno; result = -1; } } #endif /* HAVE_FCNTL */ return result; } #undef fcntl #ifdef __KLIBC__ static int klibc_fcntl (int fd, int action, /* arg */...) { va_list arg_ptr; int arg; struct stat sbuf; int result; va_start (arg_ptr, action); arg = va_arg (arg_ptr, int); result = fcntl (fd, action, arg); /* EPERM for F_DUPFD, ENOTSUP for others */ if (result == -1 && (errno == EPERM || errno == ENOTSUP) && !fstat (fd, &sbuf) && S_ISDIR (sbuf.st_mode)) { ULONG ulMode; switch (action) { case F_DUPFD: /* Find available fd */ while (fcntl (arg, F_GETFL) != -1 || errno != EBADF) arg++; result = dup2 (fd, arg); break; /* Using underlying APIs is right ? */ case F_GETFD: if (DosQueryFHState (fd, &ulMode)) break; result = (ulMode & OPEN_FLAGS_NOINHERIT) ? FD_CLOEXEC : 0; break; case F_SETFD: if (arg & ~FD_CLOEXEC) break; if (DosQueryFHState (fd, &ulMode)) break; if (arg & FD_CLOEXEC) ulMode |= OPEN_FLAGS_NOINHERIT; else ulMode &= ~OPEN_FLAGS_NOINHERIT; /* Filter supported flags. */ ulMode &= (OPEN_FLAGS_WRITE_THROUGH | OPEN_FLAGS_FAIL_ON_ERROR | OPEN_FLAGS_NO_CACHE | OPEN_FLAGS_NOINHERIT); if (DosSetFHState (fd, ulMode)) break; result = 0; break; case F_GETFL: result = 0; break; case F_SETFL: if (arg != 0) break; result = 0; break; default: errno = EINVAL; break; } } va_end (arg_ptr); return result; } #endif libffcall-2.4/gnulib-lib/close.c0000664000000000000000000000314314057155505013473 00000000000000/* close replacement. Copyright (C) 2008-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include #include #include "fd-hook.h" #if HAVE_MSVC_INVALID_PARAMETER_HANDLER # include "msvc-inval.h" #endif #undef close #if defined _WIN32 && !defined __CYGWIN__ # if HAVE_MSVC_INVALID_PARAMETER_HANDLER static int close_nothrow (int fd) { int result; TRY_MSVC_INVAL { result = _close (fd); } CATCH_MSVC_INVAL { result = -1; errno = EBADF; } DONE_MSVC_INVAL; return result; } # else # define close_nothrow _close # endif #else # define close_nothrow close #endif /* Override close() to call into other gnulib modules. */ int rpl_close (int fd) { #if WINDOWS_SOCKETS int retval = execute_all_close_hooks (close_nothrow, fd); #else int retval = close_nothrow (fd); #endif #if REPLACE_FCHDIR if (retval >= 0) _gl_unregister_fd (fd); #endif return retval; } libffcall-2.4/gnulib-lib/gl_anylinked_list1.h0000664000000000000000000000337214057155505016153 00000000000000/* Sequential list data type implemented by a linked list. Copyright (C) 2006, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Common code of gl_linked_list.c and gl_linkedhash_list.c. */ /* -------------------------- gl_list_t Data Type -------------------------- */ /* Concrete list node implementation, valid for this file only. */ struct gl_list_node_impl { #if WITH_HASHTABLE struct gl_hash_entry h; /* hash table entry fields; must be first */ #endif struct gl_list_node_impl *next; struct gl_list_node_impl *prev; const void *value; }; /* Concrete gl_list_impl type, valid for this file only. */ struct gl_list_impl { struct gl_list_impl_base base; #if WITH_HASHTABLE /* A hash table: managed as an array of collision lists. */ struct gl_hash_entry **table; size_t table_size; #endif /* A circular list anchored at root. The first node is = root.next, the last node is = root.prev. The root's value is unused. */ struct gl_list_node_impl root; /* Number of list nodes, excluding the root. */ size_t count; }; libffcall-2.4/gnulib-lib/filename.h0000664000000000000000000001112114057155505014146 00000000000000/* Basic filename support macros. Copyright (C) 2001-2004, 2007-2021 Free Software Foundation, Inc. This file is part of the GNU C Library. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. The GNU C Library 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with the GNU C Library; if not, see . */ /* From Paul Eggert and Jim Meyering. */ #ifndef _FILENAME_H #define _FILENAME_H #include #ifdef __cplusplus extern "C" { #endif /* Filename support. ISSLASH(C) tests whether C is a directory separator character. HAS_DEVICE(Filename) tests whether Filename contains a device specification. FILE_SYSTEM_PREFIX_LEN(Filename) length of the device specification at the beginning of Filename, index of the part consisting of alternating components and slashes. FILE_SYSTEM_DRIVE_PREFIX_CAN_BE_RELATIVE 1 when a non-empty device specification can be followed by an empty or relative part, 0 when a non-empty device specification must be followed by a slash, 0 when device specification don't exist. IS_ABSOLUTE_FILE_NAME(Filename) tests whether Filename is independent of any notion of "current directory". IS_RELATIVE_FILE_NAME(Filename) tests whether Filename may be concatenated to a directory filename. Note: On native Windows, OS/2, DOS, "c:" is neither an absolute nor a relative file name! IS_FILE_NAME_WITH_DIR(Filename) tests whether Filename contains a device or directory specification. */ #if defined _WIN32 || defined __CYGWIN__ \ || defined __EMX__ || defined __MSDOS__ || defined __DJGPP__ /* Native Windows, Cygwin, OS/2, DOS */ # define ISSLASH(C) ((C) == '/' || (C) == '\\') /* Internal macro: Tests whether a character is a drive letter. */ # define _IS_DRIVE_LETTER(C) \ (((C) >= 'A' && (C) <= 'Z') || ((C) >= 'a' && (C) <= 'z')) /* Help the compiler optimizing it. This assumes ASCII. */ # undef _IS_DRIVE_LETTER # define _IS_DRIVE_LETTER(C) \ (((unsigned int) (C) | ('a' - 'A')) - 'a' <= 'z' - 'a') # define HAS_DEVICE(Filename) \ (_IS_DRIVE_LETTER ((Filename)[0]) && (Filename)[1] == ':') # define FILE_SYSTEM_PREFIX_LEN(Filename) (HAS_DEVICE (Filename) ? 2 : 0) # ifdef __CYGWIN__ # define FILE_SYSTEM_DRIVE_PREFIX_CAN_BE_RELATIVE 0 # else /* On native Windows, OS/2, DOS, the system has the notion of a "current directory" on each drive. */ # define FILE_SYSTEM_DRIVE_PREFIX_CAN_BE_RELATIVE 1 # endif # if FILE_SYSTEM_DRIVE_PREFIX_CAN_BE_RELATIVE # define IS_ABSOLUTE_FILE_NAME(Filename) \ ISSLASH ((Filename)[FILE_SYSTEM_PREFIX_LEN (Filename)]) # else # define IS_ABSOLUTE_FILE_NAME(Filename) \ (ISSLASH ((Filename)[0]) || HAS_DEVICE (Filename)) # endif # define IS_RELATIVE_FILE_NAME(Filename) \ (! (ISSLASH ((Filename)[0]) || HAS_DEVICE (Filename))) # define IS_FILE_NAME_WITH_DIR(Filename) \ (strchr ((Filename), '/') != NULL || strchr ((Filename), '\\') != NULL \ || HAS_DEVICE (Filename)) #else /* Unix */ # define ISSLASH(C) ((C) == '/') # define HAS_DEVICE(Filename) ((void) (Filename), 0) # define FILE_SYSTEM_PREFIX_LEN(Filename) ((void) (Filename), 0) # define FILE_SYSTEM_DRIVE_PREFIX_CAN_BE_RELATIVE 0 # define IS_ABSOLUTE_FILE_NAME(Filename) ISSLASH ((Filename)[0]) # define IS_RELATIVE_FILE_NAME(Filename) (! ISSLASH ((Filename)[0])) # define IS_FILE_NAME_WITH_DIR(Filename) (strchr ((Filename), '/') != NULL) #endif /* Deprecated macros. For backward compatibility with old users of the 'filename' module. */ #define IS_ABSOLUTE_PATH IS_ABSOLUTE_FILE_NAME #define IS_PATH_WITH_DIR IS_FILE_NAME_WITH_DIR #ifdef __cplusplus } #endif #endif /* _FILENAME_H */ libffcall-2.4/gnulib-lib/msvc-nothrow.h0000664000000000000000000000302314057155505015036 00000000000000/* Wrappers that don't throw invalid parameter notifications with MSVC runtime libraries. Copyright (C) 2011-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _MSVC_NOTHROW_H #define _MSVC_NOTHROW_H /* With MSVC runtime libraries with the "invalid parameter handler" concept, functions like fprintf(), dup2(), or close() crash when the caller passes an invalid argument. But POSIX wants error codes (such as EINVAL or EBADF) instead. This file defines wrappers that turn such an invalid parameter notification into an error code. */ #if defined _WIN32 && ! defined __CYGWIN__ /* Get original declaration of _get_osfhandle. */ # include # if HAVE_MSVC_INVALID_PARAMETER_HANDLER /* Override _get_osfhandle. */ extern intptr_t _gl_nothrow_get_osfhandle (int fd); # define _get_osfhandle _gl_nothrow_get_osfhandle # endif #endif #endif /* _MSVC_NOTHROW_H */ libffcall-2.4/gnulib-lib/fatal-signal.h0000664000000000000000000000757214057155505014747 00000000000000/* Emergency actions in case of a fatal signal. Copyright (C) 2003-2004, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2003. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _FATAL_SIGNAL_H #define _FATAL_SIGNAL_H #include #ifdef __cplusplus extern "C" { #endif /* It is often useful to do some cleanup action when a usually fatal signal terminates the process, like removing a temporary file or killing a subprocess that may be stuck waiting for a device, pipe or network input. Such signals are SIGHUP, SIGINT, SIGPIPE, SIGTERM, and possibly others. The limitation of this facility is that it cannot work for SIGKILL. Signals with a SIG_IGN handler are considered to be non-fatal. The functions in this file assume that when a SIG_IGN handler is installed for a signal, it was installed before any functions in this file were called and it stays so for the whole lifetime of the process. */ /* Register a cleanup function to be executed when a catchable fatal signal occurs. Restrictions for the cleanup function: - The cleanup function can do all kinds of system calls. It may also modify (clobber) errno. - It can also access application dependent memory locations and data structures provided they are in a consistent state. One way to ensure this is through block_fatal_signals()/unblock_fatal_signals(), see below. Another - more tricky - way to ensure this is the careful use of 'volatile'. However, - malloc() and similarly complex facilities are not safe to be called because they are not guaranteed to be in a consistent state. - Also, the cleanup function must not block the catchable fatal signals and leave them blocked upon return. The cleanup function is executed asynchronously. It is unspecified whether during its execution the catchable fatal signals are blocked or not. Return 0 upon success, or -1 if there was a memory allocation problem. */ extern int at_fatal_signal (_GL_ASYNC_SAFE void (*function) (int sig)); /* Sometimes it is necessary to block the usually fatal signals while the data structures being accessed by the cleanup action are being built or reorganized. This is the case, for example, when a temporary file or directory is created through mkstemp() or mkdtemp(), because these functions create the temporary file or directory _before_ returning its name to the application. */ /* Temporarily delay the catchable fatal signals. The signals will be blocked (= delayed) until the next call to unblock_fatal_signals(). If the signals are already blocked, a further call to block_fatal_signals() has no effect. */ extern void block_fatal_signals (void); /* Stop delaying the catchable fatal signals. */ extern void unblock_fatal_signals (void); /* Return the list of signals that block_fatal_signals/unblock_fatal_signals would block or unblock. Fills signals[0..count-1] and returns count. */ extern unsigned int get_fatal_signals (int signals[64]); /* Return the list of signals that block_fatal_signals/unblock_fatal_signals would block or unblock. */ extern const sigset_t * get_fatal_signal_set (void); #ifdef __cplusplus } #endif #endif /* _FATAL_SIGNAL_H */ libffcall-2.4/gnulib-lib/fcntl.in.h0000664000000000000000000003116514057155505014113 00000000000000/* Like , but with non-working flags defined to 0. Copyright (C) 2006-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* written by Paul Eggert */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined __need_system_fcntl_h /* Special invocation convention. */ /* Needed before . May also define off_t to a 64-bit type on native Windows. */ #include /* On some systems other than glibc, is a prerequisite of . On glibc systems, we would like to avoid namespace pollution. But on glibc systems, includes inside an extern "C" { ... } block, which leads to errors in C++ mode with the overridden from gnulib. These errors are known to be gone with g++ version >= 4.3. */ #if !(defined __GLIBC__ || defined __UCLIBC__) || (defined __cplusplus && defined GNULIB_NAMESPACE && (defined __ICC || !(__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 3)))) # include #endif #@INCLUDE_NEXT@ @NEXT_FCNTL_H@ /* Native Windows platforms declare open(), creat() in . */ #if (@GNULIB_CREAT@ || @GNULIB_OPEN@ || defined GNULIB_POSIXCHECK) \ && (defined _WIN32 && ! defined __CYGWIN__) # include #endif #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_FCNTL_H /* Needed before . May also define off_t to a 64-bit type on native Windows. */ #include /* On some systems other than glibc, is a prerequisite of . On glibc systems, we would like to avoid namespace pollution. But on glibc systems, includes inside an extern "C" { ... } block, which leads to errors in C++ mode with the overridden from gnulib. These errors are known to be gone with g++ version >= 4.3. */ #if !(defined __GLIBC__ || defined __UCLIBC__) || (defined __cplusplus && defined GNULIB_NAMESPACE && (defined __ICC || !(__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 3)))) # include #endif /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_FCNTL_H@ /* Native Windows platforms declare open(), creat() in . */ #if (@GNULIB_CREAT@ || @GNULIB_OPEN@ || defined GNULIB_POSIXCHECK) \ && (defined _WIN32 && ! defined __CYGWIN__) # include #endif #ifndef _@GUARD_PREFIX@_FCNTL_H #define _@GUARD_PREFIX@_FCNTL_H #ifndef __GLIBC__ /* Avoid namespace pollution on glibc systems. */ # include #endif /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* Declare overridden functions. */ #if @GNULIB_CREAT@ # if @REPLACE_CREAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef creat # define creat rpl_creat # endif _GL_FUNCDECL_RPL (creat, int, (const char *filename, mode_t mode) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (creat, int, (const char *filename, mode_t mode)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef creat # define creat _creat # endif _GL_CXXALIAS_MDA (creat, int, (const char *filename, mode_t mode)); # else _GL_CXXALIAS_SYS (creat, int, (const char *filename, mode_t mode)); # endif _GL_CXXALIASWARN (creat); #elif defined GNULIB_POSIXCHECK # undef creat /* Assume creat is always declared. */ _GL_WARN_ON_USE (creat, "creat is not always POSIX compliant - " "use gnulib module creat for portability"); #elif @GNULIB_MDA_CREAT@ /* On native Windows, map 'creat' to '_creat', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::creat always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef creat # define creat _creat # endif /* Need to cast, because in mingw the last argument is 'int mode'. */ _GL_CXXALIAS_MDA_CAST (creat, int, (const char *filename, mode_t mode)); # else _GL_CXXALIAS_SYS (creat, int, (const char *filename, mode_t mode)); # endif _GL_CXXALIASWARN (creat); #endif #if @GNULIB_FCNTL@ # if @REPLACE_FCNTL@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fcntl # define fcntl rpl_fcntl # endif _GL_FUNCDECL_RPL (fcntl, int, (int fd, int action, ...)); _GL_CXXALIAS_RPL (fcntl, int, (int fd, int action, ...)); # if !GNULIB_defined_rpl_fcntl # define GNULIB_defined_rpl_fcntl 1 # endif # else # if !@HAVE_FCNTL@ _GL_FUNCDECL_SYS (fcntl, int, (int fd, int action, ...)); # if !GNULIB_defined_fcntl # define GNULIB_defined_fcntl 1 # endif # endif _GL_CXXALIAS_SYS (fcntl, int, (int fd, int action, ...)); # endif _GL_CXXALIASWARN (fcntl); #elif defined GNULIB_POSIXCHECK # undef fcntl # if HAVE_RAW_DECL_FCNTL _GL_WARN_ON_USE (fcntl, "fcntl is not always POSIX compliant - " "use gnulib module fcntl for portability"); # endif #endif #if @GNULIB_OPEN@ # if @REPLACE_OPEN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef open # define open rpl_open # endif _GL_FUNCDECL_RPL (open, int, (const char *filename, int flags, ...) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (open, int, (const char *filename, int flags, ...)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef open # define open _open # endif _GL_CXXALIAS_MDA (open, int, (const char *filename, int flags, ...)); # else _GL_CXXALIAS_SYS (open, int, (const char *filename, int flags, ...)); # endif /* On HP-UX 11, in C++ mode, open() is defined as an inline function with a default argument. _GL_CXXALIASWARN does not work in this case. */ # if !defined __hpux _GL_CXXALIASWARN (open); # endif #elif defined GNULIB_POSIXCHECK # undef open /* Assume open is always declared. */ _GL_WARN_ON_USE (open, "open is not always POSIX compliant - " "use gnulib module open for portability"); #elif @GNULIB_MDA_OPEN@ /* On native Windows, map 'open' to '_open', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::open always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef open # define open _open # endif _GL_CXXALIAS_MDA (open, int, (const char *filename, int flags, ...)); # else _GL_CXXALIAS_SYS (open, int, (const char *filename, int flags, ...)); # endif # if !defined __hpux _GL_CXXALIASWARN (open); # endif #endif #if @GNULIB_OPENAT@ # if @REPLACE_OPENAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef openat # define openat rpl_openat # endif _GL_FUNCDECL_RPL (openat, int, (int fd, char const *file, int flags, /* mode_t mode */ ...) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (openat, int, (int fd, char const *file, int flags, /* mode_t mode */ ...)); # else # if !@HAVE_OPENAT@ _GL_FUNCDECL_SYS (openat, int, (int fd, char const *file, int flags, /* mode_t mode */ ...) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (openat, int, (int fd, char const *file, int flags, /* mode_t mode */ ...)); # endif _GL_CXXALIASWARN (openat); #elif defined GNULIB_POSIXCHECK # undef openat # if HAVE_RAW_DECL_OPENAT _GL_WARN_ON_USE (openat, "openat is not portable - " "use gnulib module openat for portability"); # endif #endif /* Fix up the FD_* macros, only known to be missing on mingw. */ #ifndef FD_CLOEXEC # define FD_CLOEXEC 1 #endif /* Fix up the supported F_* macros. Intentionally leave other F_* macros undefined. Only known to be missing on mingw. */ #ifndef F_DUPFD_CLOEXEC # define F_DUPFD_CLOEXEC 0x40000000 /* Witness variable: 1 if gnulib defined F_DUPFD_CLOEXEC, 0 otherwise. */ # define GNULIB_defined_F_DUPFD_CLOEXEC 1 #else # define GNULIB_defined_F_DUPFD_CLOEXEC 0 #endif #ifndef F_DUPFD # define F_DUPFD 1 #endif #ifndef F_GETFD # define F_GETFD 2 #endif /* Fix up the O_* macros. */ /* AIX 7.1 with XL C 12.1 defines O_CLOEXEC, O_NOFOLLOW, and O_TTY_INIT to values outside 'int' range, so omit these misdefinitions. But avoid namespace pollution on non-AIX systems. */ #ifdef _AIX # include # if defined O_CLOEXEC && ! (INT_MIN <= O_CLOEXEC && O_CLOEXEC <= INT_MAX) # undef O_CLOEXEC # endif # if defined O_NOFOLLOW && ! (INT_MIN <= O_NOFOLLOW && O_NOFOLLOW <= INT_MAX) # undef O_NOFOLLOW # endif # if defined O_TTY_INIT && ! (INT_MIN <= O_TTY_INIT && O_TTY_INIT <= INT_MAX) # undef O_TTY_INIT # endif #endif #if !defined O_DIRECT && defined O_DIRECTIO /* Tru64 spells it 'O_DIRECTIO'. */ # define O_DIRECT O_DIRECTIO #endif #if !defined O_CLOEXEC && defined O_NOINHERIT /* Mingw spells it 'O_NOINHERIT'. */ # define O_CLOEXEC O_NOINHERIT #endif #ifndef O_CLOEXEC # define O_CLOEXEC 0x40000000 /* Try to not collide with system O_* flags. */ # define GNULIB_defined_O_CLOEXEC 1 #else # define GNULIB_defined_O_CLOEXEC 0 #endif #ifndef O_DIRECT # define O_DIRECT 0 #endif #ifndef O_DIRECTORY # define O_DIRECTORY 0 #endif #ifndef O_DSYNC # define O_DSYNC 0 #endif #ifndef O_EXEC # define O_EXEC O_RDONLY /* This is often close enough in older systems. */ #endif #ifndef O_IGNORE_CTTY # define O_IGNORE_CTTY 0 #endif #ifndef O_NDELAY # define O_NDELAY 0 #endif #ifndef O_NOATIME # define O_NOATIME 0 #endif #ifndef O_NONBLOCK # define O_NONBLOCK O_NDELAY #endif /* If the gnulib module 'nonblocking' is in use, guarantee a working non-zero value of O_NONBLOCK. Otherwise, O_NONBLOCK is defined (above) to O_NDELAY or to 0 as fallback. */ #if @GNULIB_NONBLOCKING@ # if O_NONBLOCK # define GNULIB_defined_O_NONBLOCK 0 # else # define GNULIB_defined_O_NONBLOCK 1 # undef O_NONBLOCK # define O_NONBLOCK 0x40000000 # endif #endif #ifndef O_NOCTTY # define O_NOCTTY 0 #endif #ifndef O_NOFOLLOW # define O_NOFOLLOW 0 #endif #ifndef O_NOLINK # define O_NOLINK 0 #endif #ifndef O_NOLINKS # define O_NOLINKS 0 #endif #ifndef O_NOTRANS # define O_NOTRANS 0 #endif #ifndef O_RSYNC # define O_RSYNC 0 #endif #ifndef O_SEARCH # define O_SEARCH O_RDONLY /* This is often close enough in older systems. */ #endif #ifndef O_SYNC # define O_SYNC 0 #endif #ifndef O_TTY_INIT # define O_TTY_INIT 0 #endif #if ~O_ACCMODE & (O_RDONLY | O_WRONLY | O_RDWR | O_EXEC | O_SEARCH) # undef O_ACCMODE # define O_ACCMODE (O_RDONLY | O_WRONLY | O_RDWR | O_EXEC | O_SEARCH) #endif /* For systems that distinguish between text and binary I/O. O_BINARY is usually declared in fcntl.h */ #if !defined O_BINARY && defined _O_BINARY /* For MSC-compatible compilers. */ # define O_BINARY _O_BINARY # define O_TEXT _O_TEXT #endif #if defined __BEOS__ || defined __HAIKU__ /* BeOS 5 and Haiku have O_BINARY and O_TEXT, but they have no effect. */ # undef O_BINARY # undef O_TEXT #endif #ifndef O_BINARY # define O_BINARY 0 # define O_TEXT 0 #endif /* Fix up the AT_* macros. */ /* Work around a bug in Solaris 9 and 10: AT_FDCWD is positive. Its value exceeds INT_MAX, so its use as an int doesn't conform to the C standard, and GCC and Sun C complain in some cases. If the bug is present, undef AT_FDCWD here, so it can be redefined below. */ #if 0 < AT_FDCWD && AT_FDCWD == 0xffd19553 # undef AT_FDCWD #endif /* Use the same bit pattern as Solaris 9, but with the proper signedness. The bit pattern is important, in case this actually is Solaris with the above workaround. */ #ifndef AT_FDCWD # define AT_FDCWD (-3041965) #endif /* Use the same values as Solaris 9. This shouldn't matter, but there's no real reason to differ. */ #ifndef AT_SYMLINK_NOFOLLOW # define AT_SYMLINK_NOFOLLOW 4096 #endif #ifndef AT_REMOVEDIR # define AT_REMOVEDIR 1 #endif /* Solaris 9 lacks these two, so just pick unique values. */ #ifndef AT_SYMLINK_FOLLOW # define AT_SYMLINK_FOLLOW 2 #endif #ifndef AT_EACCESS # define AT_EACCESS 4 #endif #endif /* _@GUARD_PREFIX@_FCNTL_H */ #endif /* _@GUARD_PREFIX@_FCNTL_H */ #endif libffcall-2.4/gnulib-lib/sig-handler.c0000664000000000000000000000155214057155505014565 00000000000000/* Convenience declarations when working with . Copyright (C) 2012-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include #define SIG_HANDLER_INLINE _GL_EXTERN_INLINE #include "sig-handler.h" libffcall-2.4/gnulib-lib/pathmax.h0000664000000000000000000000563014057155505014040 00000000000000/* Define PATH_MAX somehow. Requires sys/types.h. Copyright (C) 1992, 1999, 2001, 2003, 2005, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _PATHMAX_H # define _PATHMAX_H /* POSIX:2008 defines PATH_MAX to be the maximum number of bytes in a filename, including the terminating NUL byte. PATH_MAX is not defined on systems which have no limit on filename length, such as GNU/Hurd. This file does *not* define PATH_MAX always. Programs that use this file can handle the GNU/Hurd case in several ways: - Either with a package-wide handling, or with a per-file handling, - Either through a #ifdef PATH_MAX or through a fallback like #ifndef PATH_MAX # define PATH_MAX 8192 #endif or through a fallback like #ifndef PATH_MAX # define PATH_MAX pathconf ("/", _PC_PATH_MAX) #endif */ # include # include # ifndef _POSIX_PATH_MAX # define _POSIX_PATH_MAX 256 # endif /* Don't include sys/param.h if it already has been. */ # if defined HAVE_SYS_PARAM_H && !defined PATH_MAX && !defined MAXPATHLEN # include # endif # if !defined PATH_MAX && defined MAXPATHLEN # define PATH_MAX MAXPATHLEN # endif # ifdef __hpux /* On HP-UX, PATH_MAX designates the maximum number of bytes in a filename, *not* including the terminating NUL byte, and is set to 1023. Additionally, when _XOPEN_SOURCE is defined to 500 or more, PATH_MAX is not defined at all any more. */ # undef PATH_MAX # define PATH_MAX 1024 # endif # if defined _WIN32 && ! defined __CYGWIN__ /* The page "Naming Files, Paths, and Namespaces" on msdn.microsoft.com, section "Maximum Path Length Limitation", explains that the maximum size of a filename, including the terminating NUL byte, is 260 = 3 + 256 + 1. This is the same value as - FILENAME_MAX in , - _MAX_PATH in , - MAX_PATH in . Undefine the original value, because mingw's gets it wrong. */ # undef PATH_MAX # define PATH_MAX 260 # endif #endif /* _PATHMAX_H */ libffcall-2.4/gnulib-lib/sig-handler.h0000664000000000000000000000356314057155505014576 00000000000000/* Convenience declarations when working with . Copyright (C) 2008-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_SIG_HANDLER_H #define _GL_SIG_HANDLER_H #include #ifndef _GL_INLINE_HEADER_BEGIN #error "Please include config.h first." #endif _GL_INLINE_HEADER_BEGIN #ifndef SIG_HANDLER_INLINE # define SIG_HANDLER_INLINE _GL_INLINE #endif /* Convenience type when working with signal handlers. */ typedef void (*sa_handler_t) (int); /* Return the handler of a signal, as a sa_handler_t value regardless of its true type. The resulting function can be compared to special values like SIG_IGN but it is not portable to call it. */ SIG_HANDLER_INLINE sa_handler_t _GL_ATTRIBUTE_PURE get_handler (struct sigaction const *a) { /* POSIX says that special values like SIG_IGN can only occur when action.sa_flags does not contain SA_SIGINFO. But in Linux 2.4, for example, sa_sigaction and sa_handler are aliases and a signal is ignored if sa_sigaction (after casting) equals SIG_IGN. In this case, this implementation relies on the fact that the two are aliases, and simply returns sa_handler. */ return a->sa_handler; } _GL_INLINE_HEADER_END #endif /* _GL_SIG_HANDLER_H */ libffcall-2.4/gnulib-lib/gl_linkedhash_list.h0000664000000000000000000000224314057155505016222 00000000000000/* Sequential list data type implemented by a hash table with a linked list. Copyright (C) 2006, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_LINKEDHASH_LIST_H #define _GL_LINKEDHASH_LIST_H #include "gl_list.h" #ifdef __cplusplus extern "C" { #endif extern const struct gl_list_implementation gl_linkedhash_list_implementation; #define GL_LINKEDHASH_LIST &gl_linkedhash_list_implementation #ifdef __cplusplus } #endif #endif /* _GL_LINKEDHASH_LIST_H */ libffcall-2.4/gnulib-lib/dup2.c0000664000000000000000000000774214057155505013251 00000000000000/* Duplicate an open file descriptor to a specified file descriptor. Copyright (C) 1999, 2004-2007, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* written by Paul Eggert */ #include /* Specification. */ #include #include #include #undef dup2 #if defined _WIN32 && ! defined __CYGWIN__ /* Get declarations of the native Windows API functions. */ # define WIN32_LEAN_AND_MEAN # include # if HAVE_MSVC_INVALID_PARAMETER_HANDLER # include "msvc-inval.h" # endif /* Get _get_osfhandle. */ # if GNULIB_MSVC_NOTHROW # include "msvc-nothrow.h" # else # include # endif # if HAVE_MSVC_INVALID_PARAMETER_HANDLER static int dup2_nothrow (int fd, int desired_fd) { int result; TRY_MSVC_INVAL { result = _dup2 (fd, desired_fd); } CATCH_MSVC_INVAL { errno = EBADF; result = -1; } DONE_MSVC_INVAL; return result; } # else # define dup2_nothrow _dup2 # endif static int ms_windows_dup2 (int fd, int desired_fd) { int result; /* If fd is closed, mingw hangs on dup2 (fd, fd). If fd is open, dup2 (fd, fd) returns 0, but all further attempts to use fd in future dup2 calls will hang. */ if (fd == desired_fd) { if ((HANDLE) _get_osfhandle (fd) == INVALID_HANDLE_VALUE) { errno = EBADF; return -1; } return fd; } /* Wine 1.0.1 return 0 when desired_fd is negative but not -1: https://bugs.winehq.org/show_bug.cgi?id=21289 */ if (desired_fd < 0) { errno = EBADF; return -1; } result = dup2_nothrow (fd, desired_fd); if (result == 0) result = desired_fd; return result; } # define dup2 ms_windows_dup2 #elif defined __KLIBC__ # include static int klibc_dup2dirfd (int fd, int desired_fd) { int tempfd; int dupfd; tempfd = open ("NUL", O_RDONLY); if (tempfd == -1) return -1; if (tempfd == desired_fd) { close (tempfd); char path[_MAX_PATH]; if (__libc_Back_ioFHToPath (fd, path, sizeof (path))) return -1; return open(path, O_RDONLY); } dupfd = klibc_dup2dirfd (fd, desired_fd); close (tempfd); return dupfd; } static int klibc_dup2 (int fd, int desired_fd) { int dupfd; struct stat sbuf; dupfd = dup2 (fd, desired_fd); if (dupfd == -1 && errno == ENOTSUP \ && !fstat (fd, &sbuf) && S_ISDIR (sbuf.st_mode)) { close (desired_fd); return klibc_dup2dirfd (fd, desired_fd); } return dupfd; } # define dup2 klibc_dup2 #endif int rpl_dup2 (int fd, int desired_fd) { int result; #ifdef F_GETFL /* On Linux kernels 2.6.26-2.6.29, dup2 (fd, fd) returns -EBADF. On Cygwin 1.5.x, dup2 (1, 1) returns 0. On Cygwin 1.7.17, dup2 (1, -1) dumps core. On Cygwin 1.7.25, dup2 (1, 256) can dump core. On Haiku, dup2 (fd, fd) mistakenly clears FD_CLOEXEC. */ # if HAVE_SETDTABLESIZE setdtablesize (desired_fd + 1); # endif if (desired_fd < 0) fd = desired_fd; if (fd == desired_fd) return fcntl (fd, F_GETFL) == -1 ? -1 : fd; #endif result = dup2 (fd, desired_fd); /* Correct an errno value on FreeBSD 6.1 and Cygwin 1.5.x. */ if (result == -1 && errno == EMFILE) errno = EBADF; #if REPLACE_FCHDIR if (fd != desired_fd && result != -1) result = _gl_register_dup (fd, result); #endif return result; } libffcall-2.4/gnulib-lib/msvc-nothrow.c0000664000000000000000000000255614057155505015043 00000000000000/* Wrappers that don't throw invalid parameter notifications with MSVC runtime libraries. Copyright (C) 2011-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "msvc-nothrow.h" /* Get declarations of the native Windows API functions. */ #define WIN32_LEAN_AND_MEAN #include #if HAVE_MSVC_INVALID_PARAMETER_HANDLER # include "msvc-inval.h" #endif #undef _get_osfhandle #if HAVE_MSVC_INVALID_PARAMETER_HANDLER intptr_t _gl_nothrow_get_osfhandle (int fd) { intptr_t result; TRY_MSVC_INVAL { result = _get_osfhandle (fd); } CATCH_MSVC_INVAL { result = (intptr_t) INVALID_HANDLE_VALUE; } DONE_MSVC_INVAL; return result; } #endif libffcall-2.4/gnulib-lib/getprogname.c0000664000000000000000000002232614057155505014702 00000000000000/* Program name management. Copyright (C) 2016-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "getprogname.h" #include /* get program_invocation_name declaration */ #include /* get __argv declaration */ #ifdef _AIX # include # include # include #endif #ifdef __MVS__ # ifndef _OPEN_SYS # define _OPEN_SYS # endif # include # include #endif #ifdef __hpux # include # include # include # include #endif #if defined __sgi || defined __osf__ # include # include # include # include # include #endif #if defined __SCO_VERSION__ || defined __sysv5__ # include # include # include #endif #include "basename-lgpl.h" #ifndef HAVE_GETPROGNAME /* not Mac OS X, FreeBSD, NetBSD, OpenBSD >= 5.4, Cygwin */ char const * getprogname (void) { # if HAVE_DECL_PROGRAM_INVOCATION_SHORT_NAME /* glibc, BeOS */ /* https://www.gnu.org/software/libc/manual/html_node/Error-Messages.html */ return program_invocation_short_name; # elif HAVE_DECL_PROGRAM_INVOCATION_NAME /* glibc, BeOS */ /* https://www.gnu.org/software/libc/manual/html_node/Error-Messages.html */ return last_component (program_invocation_name); # elif HAVE_GETEXECNAME /* Solaris */ /* https://docs.oracle.com/cd/E19253-01/816-5168/6mbb3hrb1/index.html */ const char *p = getexecname (); if (!p) p = "?"; return last_component (p); # elif HAVE_DECL___ARGV /* mingw, MSVC */ /* https://docs.microsoft.com/en-us/cpp/c-runtime-library/argc-argv-wargv */ const char *p = __argv && __argv[0] ? __argv[0] : "?"; return last_component (p); # elif HAVE_VAR___PROGNAME /* OpenBSD, Android, QNX */ /* https://man.openbsd.org/style.9 */ /* http://www.qnx.de/developers/docs/6.5.0/index.jsp?topic=%2Fcom.qnx.doc.neutrino_lib_ref%2Fp%2F__progname.html */ /* Be careful to declare this only when we absolutely need it (OpenBSD 5.1), rather than when it's available. Otherwise, its mere declaration makes program_invocation_short_name malfunction (have zero length) with Fedora 25's glibc. */ extern char *__progname; const char *p = __progname; # if defined __ANDROID__ return last_component (p); # else return p && p[0] ? p : "?"; # endif # elif _AIX /* AIX */ /* Idea by Bastien ROUCARIÈS, https://lists.gnu.org/r/bug-gnulib/2010-12/msg00095.html Reference: https://www.ibm.com/support/knowledgecenter/en/ssw_aix_61/com.ibm.aix.basetrf1/getprocs.htm */ static char *p; static int first = 1; if (first) { first = 0; pid_t pid = getpid (); struct procentry64 procs; p = (0 < getprocs64 (&procs, sizeof procs, NULL, 0, &pid, 1) ? strdup (procs.pi_comm) : NULL); if (!p) p = "?"; } return p; # elif defined __hpux static char *p; static int first = 1; if (first) { first = 0; pid_t pid = getpid (); struct pst_status status; if (pstat_getproc (&status, sizeof status, 0, pid) > 0) { char *ucomm = status.pst_ucomm; char *cmd = status.pst_cmd; if (strlen (ucomm) < PST_UCOMMLEN - 1) p = ucomm; else { /* ucomm is truncated to length PST_UCOMMLEN - 1. Look at cmd instead. */ char *space = strchr (cmd, ' '); if (space != NULL) *space = '\0'; p = strrchr (cmd, '/'); if (p != NULL) p++; else p = cmd; if (strlen (p) > PST_UCOMMLEN - 1 && memcmp (p, ucomm, PST_UCOMMLEN - 1) == 0) /* p is less truncated than ucomm. */ ; else p = ucomm; } p = strdup (p); } else { # if !defined __LP64__ /* Support for 32-bit programs running in 64-bit HP-UX. The documented way to do this is to use the same source code as above, but in a compilation unit where '#define _PSTAT64 1' is in effect. I prefer a single compilation unit; the struct size and the offsets are not going to change. */ char status64[1216]; if (__pstat_getproc64 (status64, sizeof status64, 0, pid) > 0) { char *ucomm = status64 + 288; char *cmd = status64 + 168; if (strlen (ucomm) < PST_UCOMMLEN - 1) p = ucomm; else { /* ucomm is truncated to length PST_UCOMMLEN - 1. Look at cmd instead. */ char *space = strchr (cmd, ' '); if (space != NULL) *space = '\0'; p = strrchr (cmd, '/'); if (p != NULL) p++; else p = cmd; if (strlen (p) > PST_UCOMMLEN - 1 && memcmp (p, ucomm, PST_UCOMMLEN - 1) == 0) /* p is less truncated than ucomm. */ ; else p = ucomm; } p = strdup (p); } else # endif p = NULL; } if (!p) p = "?"; } return p; # elif __MVS__ /* z/OS */ /* https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.bpxbd00/rtwgetp.htm */ static char *p = "?"; static int first = 1; if (first) { pid_t pid = getpid (); int token; W_PSPROC buf; first = 0; memset (&buf, 0, sizeof(buf)); buf.ps_cmdptr = (char *) malloc (buf.ps_cmdlen = PS_CMDBLEN_LONG); buf.ps_conttyptr = (char *) malloc (buf.ps_conttylen = PS_CONTTYBLEN); buf.ps_pathptr = (char *) malloc (buf.ps_pathlen = PS_PATHBLEN); if (buf.ps_cmdptr && buf.ps_conttyptr && buf.ps_pathptr) { for (token = 0; token >= 0; token = w_getpsent (token, &buf, sizeof(buf))) { if (token > 0 && buf.ps_pid == pid) { char *s = strdup (last_component (buf.ps_pathptr)); if (s) p = s; break; } } } free (buf.ps_cmdptr); free (buf.ps_conttyptr); free (buf.ps_pathptr); } return p; # elif defined __sgi || defined __osf__ /* IRIX or Tru64 */ char filename[50]; int fd; # if defined __sgi sprintf (filename, "/proc/pinfo/%d", (int) getpid ()); # else sprintf (filename, "/proc/%d", (int) getpid ()); # endif fd = open (filename, O_RDONLY | O_CLOEXEC); if (0 <= fd) { prpsinfo_t buf; int ioctl_ok = 0 <= ioctl (fd, PIOCPSINFO, &buf); close (fd); if (ioctl_ok) { char *name = buf.pr_fname; size_t namesize = sizeof buf.pr_fname; /* It may not be NUL-terminated. */ char *namenul = memchr (name, '\0', namesize); size_t namelen = namenul ? namenul - name : namesize; char *namecopy = malloc (namelen + 1); if (namecopy) { namecopy[namelen] = '\0'; return memcpy (namecopy, name, namelen); } } } return NULL; # elif defined __SCO_VERSION__ || defined __sysv5__ /* SCO OpenServer6/UnixWare */ char buf[80]; int fd; sprintf (buf, "/proc/%d/cmdline", getpid()); fd = open (buf, O_RDONLY); if (0 <= fd) { size_t n = read (fd, buf, 79); if (n > 0) { buf[n] = '\0'; /* Guarantee null-termination */ char *progname; progname = strrchr (buf, '/'); if (progname) { progname = progname + 1; /* Skip the '/' */ } else { progname = buf; } char *ret; ret = malloc (strlen (progname) + 1); if (ret) { strcpy (ret, progname); return ret; } } close (fd); } return "?"; # else # error "getprogname module not ported to this OS" # endif } #endif /* * Hey Emacs! * Local Variables: * coding: utf-8 * End: */ libffcall-2.4/gnulib-lib/cloexec.h0000664000000000000000000000275514057155505014025 00000000000000/* cloexec.c - set or clear the close-on-exec descriptor flag Copyright (C) 2004, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Set the 'FD_CLOEXEC' flag of DESC if VALUE is true, or clear the flag if VALUE is false. Return 0 on success, or -1 on error with 'errno' set. Note that on MingW, this function does NOT protect DESC from being inherited into spawned children. Instead, either use dup_cloexec followed by closing the original DESC, or use interfaces such as open or pipe2 that accept flags like O_CLOEXEC to create DESC non-inheritable in the first place. */ int set_cloexec_flag (int desc, bool value); /* Duplicates a file handle FD, while marking the copy to be closed prior to exec or spawn. Returns -1 and sets errno if FD could not be duplicated. */ int dup_cloexec (int fd); libffcall-2.4/gnulib-lib/size_max.h0000664000000000000000000000225314057155505014213 00000000000000/* size_max.h -- declare SIZE_MAX through system headers Copyright (C) 2005-2006, 2009-2021 Free Software Foundation, Inc. Written by Simon Josefsson. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef GNULIB_SIZE_MAX_H #define GNULIB_SIZE_MAX_H /* Get SIZE_MAX declaration on systems like Solaris 7/8/9. */ # include /* Get SIZE_MAX declaration on systems like glibc 2. */ # if HAVE_STDINT_H # include # endif /* On systems where these include files don't define it, SIZE_MAX is defined in config.h. */ #endif /* GNULIB_SIZE_MAX_H */ libffcall-2.4/gnulib-lib/Makefile.am0000664000000000000000000015172714057155511014267 00000000000000## DO NOT EDIT! GENERATED AUTOMATICALLY! ## Process this file with automake to produce Makefile.in. # Copyright (C) 2002-2021 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 \ # clean-temp-simple \ # host-cpu-c-abi \ # lock \ # 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 += $(LIBTHREAD) libgnu_la_LDFLAGS += $(LTLIBINTL) ## 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__ || __clang__ || 60000000 <= __DECC_VER) ## end gnulib module absolute-header ## begin gnulib module alloca-opt BUILT_SOURCES += $(ALLOCA_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_ALLOCA_H alloca.h: alloca.in.h $(top_builddir)/config.status $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''HAVE_ALLOCA_H''@|$(HAVE_ALLOCA_H)|g' < $(srcdir)/alloca.in.h; \ } > $@-t && \ mv -f $@-t $@ else alloca.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += alloca.h alloca.h-t EXTRA_DIST += alloca.in.h ## end gnulib module alloca-opt ## begin gnulib module asyncsafe-spin libgnu_la_SOURCES += asyncsafe-spin.c EXTRA_DIST += asyncsafe-spin.h ## end gnulib module asyncsafe-spin ## begin gnulib module attribute EXTRA_DIST += attribute.h ## end gnulib module attribute ## begin gnulib module basename-lgpl libgnu_la_SOURCES += basename-lgpl.c EXTRA_DIST += basename-lgpl.h ## end gnulib module basename-lgpl ## begin gnulib module clean-temp-simple libgnu_la_SOURCES += clean-temp-simple.h clean-temp-simple.c EXTRA_DIST += clean-temp-private.h ## end gnulib module clean-temp-simple ## begin gnulib module cloexec libgnu_la_SOURCES += cloexec.c EXTRA_DIST += cloexec.h ## end gnulib module cloexec ## begin gnulib module close EXTRA_DIST += close.c EXTRA_libgnu_la_SOURCES += close.c ## end gnulib module close ## begin gnulib module dup2 EXTRA_DIST += dup2.c EXTRA_libgnu_la_SOURCES += dup2.c ## end gnulib module dup2 ## begin gnulib module errno BUILT_SOURCES += $(ERRNO_H) # We need the following in order to create when the system # doesn't have one that is POSIX compliant. if GL_GENERATE_ERRNO_H errno.h: errno.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_ERRNO_H''@|$(NEXT_ERRNO_H)|g' \ -e 's|@''EMULTIHOP_HIDDEN''@|$(EMULTIHOP_HIDDEN)|g' \ -e 's|@''EMULTIHOP_VALUE''@|$(EMULTIHOP_VALUE)|g' \ -e 's|@''ENOLINK_HIDDEN''@|$(ENOLINK_HIDDEN)|g' \ -e 's|@''ENOLINK_VALUE''@|$(ENOLINK_VALUE)|g' \ -e 's|@''EOVERFLOW_HIDDEN''@|$(EOVERFLOW_HIDDEN)|g' \ -e 's|@''EOVERFLOW_VALUE''@|$(EOVERFLOW_VALUE)|g' \ < $(srcdir)/errno.in.h; \ } > $@-t && \ mv $@-t $@ else errno.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += errno.h errno.h-t EXTRA_DIST += errno.in.h ## end gnulib module errno ## begin gnulib module error EXTRA_DIST += error.c error.h EXTRA_libgnu_la_SOURCES += error.c ## end gnulib module error ## begin gnulib module fatal-signal libgnu_la_SOURCES += fatal-signal.h fatal-signal.c ## end gnulib module fatal-signal ## begin gnulib module fcntl EXTRA_DIST += fcntl.c EXTRA_libgnu_la_SOURCES += fcntl.c ## end gnulib module fcntl ## begin gnulib module fcntl-h BUILT_SOURCES += fcntl.h # We need the following in order to create when the system # doesn't have one that works with the given compiler. fcntl.h: fcntl.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_FCNTL_H''@|$(NEXT_FCNTL_H)|g' \ -e 's/@''GNULIB_CREAT''@/$(GL_GNULIB_CREAT)/g' \ -e 's/@''GNULIB_FCNTL''@/$(GL_GNULIB_FCNTL)/g' \ -e 's/@''GNULIB_NONBLOCKING''@/$(GL_GNULIB_NONBLOCKING)/g' \ -e 's/@''GNULIB_OPEN''@/$(GL_GNULIB_OPEN)/g' \ -e 's/@''GNULIB_OPENAT''@/$(GL_GNULIB_OPENAT)/g' \ -e 's/@''GNULIB_MDA_CREAT''@/$(GL_GNULIB_MDA_CREAT)/g' \ -e 's/@''GNULIB_MDA_OPEN''@/$(GL_GNULIB_MDA_OPEN)/g' \ -e 's|@''HAVE_FCNTL''@|$(HAVE_FCNTL)|g' \ -e 's|@''HAVE_OPENAT''@|$(HAVE_OPENAT)|g' \ -e 's|@''REPLACE_CREAT''@|$(REPLACE_CREAT)|g' \ -e 's|@''REPLACE_FCNTL''@|$(REPLACE_FCNTL)|g' \ -e 's|@''REPLACE_OPEN''@|$(REPLACE_OPEN)|g' \ -e 's|@''REPLACE_OPENAT''@|$(REPLACE_OPENAT)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/fcntl.in.h; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += fcntl.h fcntl.h-t EXTRA_DIST += fcntl.in.h ## end gnulib module fcntl-h ## begin gnulib module fd-hook libgnu_la_SOURCES += fd-hook.c EXTRA_DIST += fd-hook.h ## end gnulib module fd-hook ## begin gnulib module filename EXTRA_DIST += filename.h ## end gnulib module filename ## begin gnulib module fstat EXTRA_DIST += fstat.c stat-w32.c stat-w32.h EXTRA_libgnu_la_SOURCES += fstat.c stat-w32.c ## end gnulib module fstat ## begin gnulib module getdtablesize EXTRA_DIST += getdtablesize.c EXTRA_libgnu_la_SOURCES += getdtablesize.c ## end gnulib module getdtablesize ## begin gnulib module getprogname libgnu_la_SOURCES += getprogname.h getprogname.c ## end gnulib module getprogname ## begin gnulib module gettext-h libgnu_la_SOURCES += gettext.h ## end gnulib module gettext-h ## begin gnulib module idx libgnu_la_SOURCES += idx.h ## end gnulib module idx ## begin gnulib module intprops EXTRA_DIST += intprops.h ## end gnulib module intprops ## 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 linkedhash-list libgnu_la_SOURCES += gl_linkedhash_list.h gl_linkedhash_list.c gl_anyhash1.h gl_anyhash2.h gl_anyhash_primes.h gl_anylinked_list1.h gl_anylinked_list2.h ## end gnulib module linkedhash-list ## begin gnulib module list libgnu_la_SOURCES += gl_list.h gl_list.c ## end gnulib module list ## begin gnulib module lock libgnu_la_SOURCES += glthread/lock.h glthread/lock.c ## end gnulib module lock ## begin gnulib module malloca libgnu_la_SOURCES += malloca.c EXTRA_DIST += malloca.h ## end gnulib module malloca ## begin gnulib module msvc-inval EXTRA_DIST += msvc-inval.c msvc-inval.h EXTRA_libgnu_la_SOURCES += msvc-inval.c ## end gnulib module msvc-inval ## begin gnulib module msvc-nothrow EXTRA_DIST += msvc-nothrow.c msvc-nothrow.h EXTRA_libgnu_la_SOURCES += msvc-nothrow.c ## end gnulib module msvc-nothrow ## begin gnulib module open EXTRA_DIST += open.c EXTRA_libgnu_la_SOURCES += open.c ## end gnulib module open ## begin gnulib module pathmax EXTRA_DIST += pathmax.h ## end gnulib module pathmax ## begin gnulib module raise EXTRA_DIST += raise.c EXTRA_libgnu_la_SOURCES += raise.c ## end gnulib module raise ## begin gnulib module rmdir EXTRA_DIST += rmdir.c EXTRA_libgnu_la_SOURCES += rmdir.c ## end gnulib module rmdir ## begin gnulib module sigaction libgnu_la_SOURCES += sig-handler.c EXTRA_DIST += sig-handler.h sigaction.c EXTRA_libgnu_la_SOURCES += sigaction.c ## end gnulib module sigaction ## begin gnulib module signal-h BUILT_SOURCES += signal.h # We need the following in order to create when the system # doesn't have a complete one. signal.h: signal.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_SIGNAL_H''@|$(NEXT_SIGNAL_H)|g' \ -e 's/@''GNULIB_PTHREAD_SIGMASK''@/$(GL_GNULIB_PTHREAD_SIGMASK)/g' \ -e 's/@''GNULIB_RAISE''@/$(GL_GNULIB_RAISE)/g' \ -e 's/@''GNULIB_SIGNAL_H_SIGPIPE''@/$(GL_GNULIB_SIGNAL_H_SIGPIPE)/g' \ -e 's/@''GNULIB_SIGPROCMASK''@/$(GL_GNULIB_SIGPROCMASK)/g' \ -e 's/@''GNULIB_SIGACTION''@/$(GL_GNULIB_SIGACTION)/g' \ -e 's|@''HAVE_POSIX_SIGNALBLOCKING''@|$(HAVE_POSIX_SIGNALBLOCKING)|g' \ -e 's|@''HAVE_PTHREAD_SIGMASK''@|$(HAVE_PTHREAD_SIGMASK)|g' \ -e 's|@''HAVE_RAISE''@|$(HAVE_RAISE)|g' \ -e 's|@''HAVE_SIGSET_T''@|$(HAVE_SIGSET_T)|g' \ -e 's|@''HAVE_SIGINFO_T''@|$(HAVE_SIGINFO_T)|g' \ -e 's|@''HAVE_SIGACTION''@|$(HAVE_SIGACTION)|g' \ -e 's|@''HAVE_STRUCT_SIGACTION_SA_SIGACTION''@|$(HAVE_STRUCT_SIGACTION_SA_SIGACTION)|g' \ -e 's|@''HAVE_TYPE_VOLATILE_SIG_ATOMIC_T''@|$(HAVE_TYPE_VOLATILE_SIG_ATOMIC_T)|g' \ -e 's|@''HAVE_SIGHANDLER_T''@|$(HAVE_SIGHANDLER_T)|g' \ -e 's|@''REPLACE_PTHREAD_SIGMASK''@|$(REPLACE_PTHREAD_SIGMASK)|g' \ -e 's|@''REPLACE_RAISE''@|$(REPLACE_RAISE)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/signal.in.h; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += signal.h signal.h-t EXTRA_DIST += signal.in.h ## end gnulib module signal-h ## begin gnulib module sigprocmask EXTRA_DIST += sigprocmask.c EXTRA_libgnu_la_SOURCES += sigprocmask.c ## end gnulib module sigprocmask ## begin gnulib module size_max libgnu_la_SOURCES += size_max.h ## end gnulib module size_max ## 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 snippet/arg-nonnull # 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. ARG_NONNULL_H=$(srcdir)/arg-nonnull.h EXTRA_DIST += arg-nonnull.h ## end gnulib module snippet/arg-nonnull ## begin gnulib module snippet/c++defs # 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. CXXDEFS_H=$(srcdir)/c++defs.h EXTRA_DIST += c++defs.h ## end gnulib module snippet/c++defs ## begin gnulib module snippet/warn-on-use # 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. WARN_ON_USE_H=$(srcdir)/warn-on-use.h EXTRA_DIST += warn-on-use.h ## end gnulib module snippet/warn-on-use ## begin gnulib module stat EXTRA_DIST += stat-w32.c stat-w32.h stat.c EXTRA_libgnu_la_SOURCES += stat-w32.c stat.c ## end gnulib module stat ## begin gnulib module stat-time libgnu_la_SOURCES += stat-time.c EXTRA_DIST += stat-time.h ## end gnulib module stat-time ## begin gnulib module stdbool BUILT_SOURCES += $(STDBOOL_H) # We need the following in order to create when the system # doesn't have one that works. if GL_GENERATE_STDBOOL_H stdbool.h: stdbool.in.h $(top_builddir)/config.status $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's/@''HAVE__BOOL''@/$(HAVE__BOOL)/g' < $(srcdir)/stdbool.in.h; \ } > $@-t && \ mv $@-t $@ else stdbool.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += stdbool.h stdbool.h-t EXTRA_DIST += stdbool.in.h ## end gnulib module stdbool ## begin gnulib module stddef BUILT_SOURCES += $(STDDEF_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_STDDEF_H stddef.h: stddef.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_STDDEF_H''@|$(NEXT_STDDEF_H)|g' \ -e 's|@''HAVE_MAX_ALIGN_T''@|$(HAVE_MAX_ALIGN_T)|g' \ -e 's|@''HAVE_WCHAR_T''@|$(HAVE_WCHAR_T)|g' \ -e 's|@''REPLACE_NULL''@|$(REPLACE_NULL)|g' \ < $(srcdir)/stddef.in.h; \ } > $@-t && \ mv $@-t $@ else stddef.h: $(top_builddir)/config.status rm -f $@ endif MOSTLYCLEANFILES += stddef.h stddef.h-t EXTRA_DIST += stddef.in.h ## end gnulib module stddef ## 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/@''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/@''GNULIBHEADERS_OVERRIDE_WINT_T''@/$(GNULIBHEADERS_OVERRIDE_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 stdio BUILT_SOURCES += stdio.h # We need the following in order to create when the system # doesn't have one that works with the given compiler. stdio.h: stdio.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_STDIO_H''@|$(NEXT_STDIO_H)|g' \ -e 's/@''GNULIB_DPRINTF''@/$(GL_GNULIB_DPRINTF)/g' \ -e 's/@''GNULIB_FCLOSE''@/$(GL_GNULIB_FCLOSE)/g' \ -e 's/@''GNULIB_FDOPEN''@/$(GL_GNULIB_FDOPEN)/g' \ -e 's/@''GNULIB_FFLUSH''@/$(GL_GNULIB_FFLUSH)/g' \ -e 's/@''GNULIB_FGETC''@/$(GL_GNULIB_FGETC)/g' \ -e 's/@''GNULIB_FGETS''@/$(GL_GNULIB_FGETS)/g' \ -e 's/@''GNULIB_FOPEN''@/$(GL_GNULIB_FOPEN)/g' \ -e 's/@''GNULIB_FPRINTF''@/$(GL_GNULIB_FPRINTF)/g' \ -e 's/@''GNULIB_FPRINTF_POSIX''@/$(GL_GNULIB_FPRINTF_POSIX)/g' \ -e 's/@''GNULIB_FPURGE''@/$(GL_GNULIB_FPURGE)/g' \ -e 's/@''GNULIB_FPUTC''@/$(GL_GNULIB_FPUTC)/g' \ -e 's/@''GNULIB_FPUTS''@/$(GL_GNULIB_FPUTS)/g' \ -e 's/@''GNULIB_FREAD''@/$(GL_GNULIB_FREAD)/g' \ -e 's/@''GNULIB_FREOPEN''@/$(GL_GNULIB_FREOPEN)/g' \ -e 's/@''GNULIB_FSCANF''@/$(GL_GNULIB_FSCANF)/g' \ -e 's/@''GNULIB_FSEEK''@/$(GL_GNULIB_FSEEK)/g' \ -e 's/@''GNULIB_FSEEKO''@/$(GL_GNULIB_FSEEKO)/g' \ -e 's/@''GNULIB_FTELL''@/$(GL_GNULIB_FTELL)/g' \ -e 's/@''GNULIB_FTELLO''@/$(GL_GNULIB_FTELLO)/g' \ -e 's/@''GNULIB_FWRITE''@/$(GL_GNULIB_FWRITE)/g' \ -e 's/@''GNULIB_GETC''@/$(GL_GNULIB_GETC)/g' \ -e 's/@''GNULIB_GETCHAR''@/$(GL_GNULIB_GETCHAR)/g' \ -e 's/@''GNULIB_GETDELIM''@/$(GL_GNULIB_GETDELIM)/g' \ -e 's/@''GNULIB_GETLINE''@/$(GL_GNULIB_GETLINE)/g' \ -e 's/@''GNULIB_OBSTACK_PRINTF''@/$(GL_GNULIB_OBSTACK_PRINTF)/g' \ -e 's/@''GNULIB_OBSTACK_PRINTF_POSIX''@/$(GL_GNULIB_OBSTACK_PRINTF_POSIX)/g' \ -e 's/@''GNULIB_PCLOSE''@/$(GL_GNULIB_PCLOSE)/g' \ -e 's/@''GNULIB_PERROR''@/$(GL_GNULIB_PERROR)/g' \ -e 's/@''GNULIB_POPEN''@/$(GL_GNULIB_POPEN)/g' \ -e 's/@''GNULIB_PRINTF''@/$(GL_GNULIB_PRINTF)/g' \ -e 's/@''GNULIB_PRINTF_POSIX''@/$(GL_GNULIB_PRINTF_POSIX)/g' \ -e 's/@''GNULIB_PUTC''@/$(GL_GNULIB_PUTC)/g' \ -e 's/@''GNULIB_PUTCHAR''@/$(GL_GNULIB_PUTCHAR)/g' \ -e 's/@''GNULIB_PUTS''@/$(GL_GNULIB_PUTS)/g' \ -e 's/@''GNULIB_REMOVE''@/$(GL_GNULIB_REMOVE)/g' \ -e 's/@''GNULIB_RENAME''@/$(GL_GNULIB_RENAME)/g' \ -e 's/@''GNULIB_RENAMEAT''@/$(GL_GNULIB_RENAMEAT)/g' \ -e 's/@''GNULIB_SCANF''@/$(GL_GNULIB_SCANF)/g' \ -e 's/@''GNULIB_SNPRINTF''@/$(GL_GNULIB_SNPRINTF)/g' \ -e 's/@''GNULIB_SPRINTF_POSIX''@/$(GL_GNULIB_SPRINTF_POSIX)/g' \ -e 's/@''GNULIB_STDIO_H_NONBLOCKING''@/$(GL_GNULIB_STDIO_H_NONBLOCKING)/g' \ -e 's/@''GNULIB_STDIO_H_SIGPIPE''@/$(GL_GNULIB_STDIO_H_SIGPIPE)/g' \ -e 's/@''GNULIB_TMPFILE''@/$(GL_GNULIB_TMPFILE)/g' \ -e 's/@''GNULIB_VASPRINTF''@/$(GL_GNULIB_VASPRINTF)/g' \ -e 's/@''GNULIB_VDPRINTF''@/$(GL_GNULIB_VDPRINTF)/g' \ -e 's/@''GNULIB_VFPRINTF''@/$(GL_GNULIB_VFPRINTF)/g' \ -e 's/@''GNULIB_VFPRINTF_POSIX''@/$(GL_GNULIB_VFPRINTF_POSIX)/g' \ -e 's/@''GNULIB_VFSCANF''@/$(GL_GNULIB_VFSCANF)/g' \ -e 's/@''GNULIB_VSCANF''@/$(GL_GNULIB_VSCANF)/g' \ -e 's/@''GNULIB_VPRINTF''@/$(GL_GNULIB_VPRINTF)/g' \ -e 's/@''GNULIB_VPRINTF_POSIX''@/$(GL_GNULIB_VPRINTF_POSIX)/g' \ -e 's/@''GNULIB_VSNPRINTF''@/$(GL_GNULIB_VSNPRINTF)/g' \ -e 's/@''GNULIB_VSPRINTF_POSIX''@/$(GL_GNULIB_VSPRINTF_POSIX)/g' \ -e 's/@''GNULIB_MDA_FCLOSEALL''@/$(GL_GNULIB_MDA_FCLOSEALL)/g' \ -e 's/@''GNULIB_MDA_FDOPEN''@/$(GL_GNULIB_MDA_FDOPEN)/g' \ -e 's/@''GNULIB_MDA_FILENO''@/$(GL_GNULIB_MDA_FILENO)/g' \ -e 's/@''GNULIB_MDA_GETW''@/$(GL_GNULIB_MDA_GETW)/g' \ -e 's/@''GNULIB_MDA_PUTW''@/$(GL_GNULIB_MDA_PUTW)/g' \ -e 's/@''GNULIB_MDA_TEMPNAM''@/$(GL_GNULIB_MDA_TEMPNAM)/g' \ < $(srcdir)/stdio.in.h | \ sed -e 's|@''HAVE_DECL_FCLOSEALL''@|$(HAVE_DECL_FCLOSEALL)|g' \ -e 's|@''HAVE_DECL_FPURGE''@|$(HAVE_DECL_FPURGE)|g' \ -e 's|@''HAVE_DECL_FSEEKO''@|$(HAVE_DECL_FSEEKO)|g' \ -e 's|@''HAVE_DECL_FTELLO''@|$(HAVE_DECL_FTELLO)|g' \ -e 's|@''HAVE_DECL_GETDELIM''@|$(HAVE_DECL_GETDELIM)|g' \ -e 's|@''HAVE_DECL_GETLINE''@|$(HAVE_DECL_GETLINE)|g' \ -e 's|@''HAVE_DECL_OBSTACK_PRINTF''@|$(HAVE_DECL_OBSTACK_PRINTF)|g' \ -e 's|@''HAVE_DECL_SNPRINTF''@|$(HAVE_DECL_SNPRINTF)|g' \ -e 's|@''HAVE_DECL_VSNPRINTF''@|$(HAVE_DECL_VSNPRINTF)|g' \ -e 's|@''HAVE_DPRINTF''@|$(HAVE_DPRINTF)|g' \ -e 's|@''HAVE_FSEEKO''@|$(HAVE_FSEEKO)|g' \ -e 's|@''HAVE_FTELLO''@|$(HAVE_FTELLO)|g' \ -e 's|@''HAVE_PCLOSE''@|$(HAVE_PCLOSE)|g' \ -e 's|@''HAVE_POPEN''@|$(HAVE_POPEN)|g' \ -e 's|@''HAVE_RENAMEAT''@|$(HAVE_RENAMEAT)|g' \ -e 's|@''HAVE_VASPRINTF''@|$(HAVE_VASPRINTF)|g' \ -e 's|@''HAVE_VDPRINTF''@|$(HAVE_VDPRINTF)|g' \ -e 's|@''REPLACE_DPRINTF''@|$(REPLACE_DPRINTF)|g' \ -e 's|@''REPLACE_FCLOSE''@|$(REPLACE_FCLOSE)|g' \ -e 's|@''REPLACE_FDOPEN''@|$(REPLACE_FDOPEN)|g' \ -e 's|@''REPLACE_FFLUSH''@|$(REPLACE_FFLUSH)|g' \ -e 's|@''REPLACE_FOPEN''@|$(REPLACE_FOPEN)|g' \ -e 's|@''REPLACE_FPRINTF''@|$(REPLACE_FPRINTF)|g' \ -e 's|@''REPLACE_FPURGE''@|$(REPLACE_FPURGE)|g' \ -e 's|@''REPLACE_FREOPEN''@|$(REPLACE_FREOPEN)|g' \ -e 's|@''REPLACE_FSEEK''@|$(REPLACE_FSEEK)|g' \ -e 's|@''REPLACE_FSEEKO''@|$(REPLACE_FSEEKO)|g' \ -e 's|@''REPLACE_FTELL''@|$(REPLACE_FTELL)|g' \ -e 's|@''REPLACE_FTELLO''@|$(REPLACE_FTELLO)|g' \ -e 's|@''REPLACE_GETDELIM''@|$(REPLACE_GETDELIM)|g' \ -e 's|@''REPLACE_GETLINE''@|$(REPLACE_GETLINE)|g' \ -e 's|@''REPLACE_OBSTACK_PRINTF''@|$(REPLACE_OBSTACK_PRINTF)|g' \ -e 's|@''REPLACE_PERROR''@|$(REPLACE_PERROR)|g' \ -e 's|@''REPLACE_POPEN''@|$(REPLACE_POPEN)|g' \ -e 's|@''REPLACE_PRINTF''@|$(REPLACE_PRINTF)|g' \ -e 's|@''REPLACE_REMOVE''@|$(REPLACE_REMOVE)|g' \ -e 's|@''REPLACE_RENAME''@|$(REPLACE_RENAME)|g' \ -e 's|@''REPLACE_RENAMEAT''@|$(REPLACE_RENAMEAT)|g' \ -e 's|@''REPLACE_SNPRINTF''@|$(REPLACE_SNPRINTF)|g' \ -e 's|@''REPLACE_SPRINTF''@|$(REPLACE_SPRINTF)|g' \ -e 's|@''REPLACE_STDIO_READ_FUNCS''@|$(REPLACE_STDIO_READ_FUNCS)|g' \ -e 's|@''REPLACE_STDIO_WRITE_FUNCS''@|$(REPLACE_STDIO_WRITE_FUNCS)|g' \ -e 's|@''REPLACE_TMPFILE''@|$(REPLACE_TMPFILE)|g' \ -e 's|@''REPLACE_VASPRINTF''@|$(REPLACE_VASPRINTF)|g' \ -e 's|@''REPLACE_VDPRINTF''@|$(REPLACE_VDPRINTF)|g' \ -e 's|@''REPLACE_VFPRINTF''@|$(REPLACE_VFPRINTF)|g' \ -e 's|@''REPLACE_VPRINTF''@|$(REPLACE_VPRINTF)|g' \ -e 's|@''REPLACE_VSNPRINTF''@|$(REPLACE_VSNPRINTF)|g' \ -e 's|@''REPLACE_VSPRINTF''@|$(REPLACE_VSPRINTF)|g' \ -e 's|@''ASM_SYMBOL_PREFIX''@|$(ASM_SYMBOL_PREFIX)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)'; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += stdio.h stdio.h-t EXTRA_DIST += stdio.in.h ## end gnulib module stdio ## 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 strerror EXTRA_DIST += strerror.c EXTRA_libgnu_la_SOURCES += strerror.c ## end gnulib module strerror ## begin gnulib module strerror-override EXTRA_DIST += strerror-override.c strerror-override.h EXTRA_libgnu_la_SOURCES += strerror-override.c ## end gnulib module strerror-override ## begin gnulib module string BUILT_SOURCES += string.h # We need the following in order to create when the system # doesn't have one that works with the given compiler. string.h: string.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_STRING_H''@|$(NEXT_STRING_H)|g' \ -e 's/@''GNULIB_EXPLICIT_BZERO''@/$(GL_GNULIB_EXPLICIT_BZERO)/g' \ -e 's/@''GNULIB_FFSL''@/$(GL_GNULIB_FFSL)/g' \ -e 's/@''GNULIB_FFSLL''@/$(GL_GNULIB_FFSLL)/g' \ -e 's/@''GNULIB_MBSLEN''@/$(GL_GNULIB_MBSLEN)/g' \ -e 's/@''GNULIB_MBSNLEN''@/$(GL_GNULIB_MBSNLEN)/g' \ -e 's/@''GNULIB_MBSCHR''@/$(GL_GNULIB_MBSCHR)/g' \ -e 's/@''GNULIB_MBSRCHR''@/$(GL_GNULIB_MBSRCHR)/g' \ -e 's/@''GNULIB_MBSSTR''@/$(GL_GNULIB_MBSSTR)/g' \ -e 's/@''GNULIB_MBSCASECMP''@/$(GL_GNULIB_MBSCASECMP)/g' \ -e 's/@''GNULIB_MBSNCASECMP''@/$(GL_GNULIB_MBSNCASECMP)/g' \ -e 's/@''GNULIB_MBSPCASECMP''@/$(GL_GNULIB_MBSPCASECMP)/g' \ -e 's/@''GNULIB_MBSCASESTR''@/$(GL_GNULIB_MBSCASESTR)/g' \ -e 's/@''GNULIB_MBSCSPN''@/$(GL_GNULIB_MBSCSPN)/g' \ -e 's/@''GNULIB_MBSPBRK''@/$(GL_GNULIB_MBSPBRK)/g' \ -e 's/@''GNULIB_MBSSPN''@/$(GL_GNULIB_MBSSPN)/g' \ -e 's/@''GNULIB_MBSSEP''@/$(GL_GNULIB_MBSSEP)/g' \ -e 's/@''GNULIB_MBSTOK_R''@/$(GL_GNULIB_MBSTOK_R)/g' \ -e 's/@''GNULIB_MEMCHR''@/$(GL_GNULIB_MEMCHR)/g' \ -e 's/@''GNULIB_MEMMEM''@/$(GL_GNULIB_MEMMEM)/g' \ -e 's/@''GNULIB_MEMPCPY''@/$(GL_GNULIB_MEMPCPY)/g' \ -e 's/@''GNULIB_MEMRCHR''@/$(GL_GNULIB_MEMRCHR)/g' \ -e 's/@''GNULIB_RAWMEMCHR''@/$(GL_GNULIB_RAWMEMCHR)/g' \ -e 's/@''GNULIB_STPCPY''@/$(GL_GNULIB_STPCPY)/g' \ -e 's/@''GNULIB_STPNCPY''@/$(GL_GNULIB_STPNCPY)/g' \ -e 's/@''GNULIB_STRCHRNUL''@/$(GL_GNULIB_STRCHRNUL)/g' \ -e 's/@''GNULIB_STRDUP''@/$(GL_GNULIB_STRDUP)/g' \ -e 's/@''GNULIB_STRNCAT''@/$(GL_GNULIB_STRNCAT)/g' \ -e 's/@''GNULIB_STRNDUP''@/$(GL_GNULIB_STRNDUP)/g' \ -e 's/@''GNULIB_STRNLEN''@/$(GL_GNULIB_STRNLEN)/g' \ -e 's/@''GNULIB_STRPBRK''@/$(GL_GNULIB_STRPBRK)/g' \ -e 's/@''GNULIB_STRSEP''@/$(GL_GNULIB_STRSEP)/g' \ -e 's/@''GNULIB_STRSTR''@/$(GL_GNULIB_STRSTR)/g' \ -e 's/@''GNULIB_STRCASESTR''@/$(GL_GNULIB_STRCASESTR)/g' \ -e 's/@''GNULIB_STRTOK_R''@/$(GL_GNULIB_STRTOK_R)/g' \ -e 's/@''GNULIB_STRERROR''@/$(GL_GNULIB_STRERROR)/g' \ -e 's/@''GNULIB_STRERROR_R''@/$(GL_GNULIB_STRERROR_R)/g' \ -e 's/@''GNULIB_STRERRORNAME_NP''@/$(GL_GNULIB_STRERRORNAME_NP)/g' \ -e 's/@''GNULIB_SIGABBREV_NP''@/$(GL_GNULIB_SIGABBREV_NP)/g' \ -e 's/@''GNULIB_SIGDESCR_NP''@/$(GL_GNULIB_SIGDESCR_NP)/g' \ -e 's/@''GNULIB_STRSIGNAL''@/$(GL_GNULIB_STRSIGNAL)/g' \ -e 's/@''GNULIB_STRVERSCMP''@/$(GL_GNULIB_STRVERSCMP)/g' \ -e 's/@''GNULIB_MDA_MEMCCPY''@/$(GL_GNULIB_MDA_MEMCCPY)/g' \ -e 's/@''GNULIB_MDA_STRDUP''@/$(GL_GNULIB_MDA_STRDUP)/g' \ < $(srcdir)/string.in.h | \ sed -e 's|@''HAVE_EXPLICIT_BZERO''@|$(HAVE_EXPLICIT_BZERO)|g' \ -e 's|@''HAVE_FFSL''@|$(HAVE_FFSL)|g' \ -e 's|@''HAVE_FFSLL''@|$(HAVE_FFSLL)|g' \ -e 's|@''HAVE_MBSLEN''@|$(HAVE_MBSLEN)|g' \ -e 's|@''HAVE_DECL_MEMMEM''@|$(HAVE_DECL_MEMMEM)|g' \ -e 's|@''HAVE_MEMPCPY''@|$(HAVE_MEMPCPY)|g' \ -e 's|@''HAVE_DECL_MEMRCHR''@|$(HAVE_DECL_MEMRCHR)|g' \ -e 's|@''HAVE_RAWMEMCHR''@|$(HAVE_RAWMEMCHR)|g' \ -e 's|@''HAVE_STPCPY''@|$(HAVE_STPCPY)|g' \ -e 's|@''HAVE_STPNCPY''@|$(HAVE_STPNCPY)|g' \ -e 's|@''HAVE_STRCHRNUL''@|$(HAVE_STRCHRNUL)|g' \ -e 's|@''HAVE_DECL_STRDUP''@|$(HAVE_DECL_STRDUP)|g' \ -e 's|@''HAVE_DECL_STRNDUP''@|$(HAVE_DECL_STRNDUP)|g' \ -e 's|@''HAVE_DECL_STRNLEN''@|$(HAVE_DECL_STRNLEN)|g' \ -e 's|@''HAVE_STRPBRK''@|$(HAVE_STRPBRK)|g' \ -e 's|@''HAVE_STRSEP''@|$(HAVE_STRSEP)|g' \ -e 's|@''HAVE_STRCASESTR''@|$(HAVE_STRCASESTR)|g' \ -e 's|@''HAVE_DECL_STRTOK_R''@|$(HAVE_DECL_STRTOK_R)|g' \ -e 's|@''HAVE_DECL_STRERROR_R''@|$(HAVE_DECL_STRERROR_R)|g' \ -e 's|@''HAVE_STRERRORNAME_NP''@|$(HAVE_STRERRORNAME_NP)|g' \ -e 's|@''HAVE_SIGABBREV_NP''@|$(HAVE_SIGABBREV_NP)|g' \ -e 's|@''HAVE_SIGDESCR_NP''@|$(HAVE_SIGDESCR_NP)|g' \ -e 's|@''HAVE_DECL_STRSIGNAL''@|$(HAVE_DECL_STRSIGNAL)|g' \ -e 's|@''HAVE_STRVERSCMP''@|$(HAVE_STRVERSCMP)|g' \ -e 's|@''REPLACE_FFSLL''@|$(REPLACE_FFSLL)|g' \ -e 's|@''REPLACE_MEMCHR''@|$(REPLACE_MEMCHR)|g' \ -e 's|@''REPLACE_MEMMEM''@|$(REPLACE_MEMMEM)|g' \ -e 's|@''REPLACE_STPNCPY''@|$(REPLACE_STPNCPY)|g' \ -e 's|@''REPLACE_STRCHRNUL''@|$(REPLACE_STRCHRNUL)|g' \ -e 's|@''REPLACE_STRDUP''@|$(REPLACE_STRDUP)|g' \ -e 's|@''REPLACE_STRNCAT''@|$(REPLACE_STRNCAT)|g' \ -e 's|@''REPLACE_STRNDUP''@|$(REPLACE_STRNDUP)|g' \ -e 's|@''REPLACE_STRNLEN''@|$(REPLACE_STRNLEN)|g' \ -e 's|@''REPLACE_STRSTR''@|$(REPLACE_STRSTR)|g' \ -e 's|@''REPLACE_STRCASESTR''@|$(REPLACE_STRCASESTR)|g' \ -e 's|@''REPLACE_STRTOK_R''@|$(REPLACE_STRTOK_R)|g' \ -e 's|@''REPLACE_STRERROR''@|$(REPLACE_STRERROR)|g' \ -e 's|@''REPLACE_STRERROR_R''@|$(REPLACE_STRERROR_R)|g' \ -e 's|@''REPLACE_STRERRORNAME_NP''@|$(REPLACE_STRERRORNAME_NP)|g' \ -e 's|@''REPLACE_STRSIGNAL''@|$(REPLACE_STRSIGNAL)|g' \ -e 's|@''UNDEFINE_STRTOK_R''@|$(UNDEFINE_STRTOK_R)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)'; \ < $(srcdir)/string.in.h; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += string.h string.h-t EXTRA_DIST += string.in.h ## end gnulib module string ## begin gnulib module sys_stat BUILT_SOURCES += sys/stat.h # We need the following in order to create when the system # has one that is incomplete. sys/stat.h: sys_stat.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_STAT_H''@|$(NEXT_SYS_STAT_H)|g' \ -e 's|@''WINDOWS_64_BIT_ST_SIZE''@|$(WINDOWS_64_BIT_ST_SIZE)|g' \ -e 's|@''WINDOWS_STAT_TIMESPEC''@|$(WINDOWS_STAT_TIMESPEC)|g' \ -e 's/@''GNULIB_FCHMODAT''@/$(GL_GNULIB_FCHMODAT)/g' \ -e 's/@''GNULIB_FSTAT''@/$(GL_GNULIB_FSTAT)/g' \ -e 's/@''GNULIB_FSTATAT''@/$(GL_GNULIB_FSTATAT)/g' \ -e 's/@''GNULIB_FUTIMENS''@/$(GL_GNULIB_FUTIMENS)/g' \ -e 's/@''GNULIB_GETUMASK''@/$(GL_GNULIB_GETUMASK)/g' \ -e 's/@''GNULIB_LCHMOD''@/$(GL_GNULIB_LCHMOD)/g' \ -e 's/@''GNULIB_LSTAT''@/$(GL_GNULIB_LSTAT)/g' \ -e 's/@''GNULIB_MKDIR''@/$(GL_GNULIB_MKDIR)/g' \ -e 's/@''GNULIB_MKDIRAT''@/$(GL_GNULIB_MKDIRAT)/g' \ -e 's/@''GNULIB_MKFIFO''@/$(GL_GNULIB_MKFIFO)/g' \ -e 's/@''GNULIB_MKFIFOAT''@/$(GL_GNULIB_MKFIFOAT)/g' \ -e 's/@''GNULIB_MKNOD''@/$(GL_GNULIB_MKNOD)/g' \ -e 's/@''GNULIB_MKNODAT''@/$(GL_GNULIB_MKNODAT)/g' \ -e 's/@''GNULIB_STAT''@/$(GL_GNULIB_STAT)/g' \ -e 's/@''GNULIB_UTIMENSAT''@/$(GL_GNULIB_UTIMENSAT)/g' \ -e 's/@''GNULIB_OVERRIDES_STRUCT_STAT''@/$(GL_GNULIB_OVERRIDES_STRUCT_STAT)/g' \ -e 's/@''GNULIB_MDA_CHMOD''@/$(GL_GNULIB_MDA_CHMOD)/g' \ -e 's/@''GNULIB_MDA_MKDIR''@/$(GL_GNULIB_MDA_MKDIR)/g' \ -e 's/@''GNULIB_MDA_UMASK''@/$(GL_GNULIB_MDA_UMASK)/g' \ -e 's|@''HAVE_FCHMODAT''@|$(HAVE_FCHMODAT)|g' \ -e 's|@''HAVE_FSTATAT''@|$(HAVE_FSTATAT)|g' \ -e 's|@''HAVE_FUTIMENS''@|$(HAVE_FUTIMENS)|g' \ -e 's|@''HAVE_GETUMASK''@|$(HAVE_GETUMASK)|g' \ -e 's|@''HAVE_LCHMOD''@|$(HAVE_LCHMOD)|g' \ -e 's|@''HAVE_LSTAT''@|$(HAVE_LSTAT)|g' \ -e 's|@''HAVE_MKDIRAT''@|$(HAVE_MKDIRAT)|g' \ -e 's|@''HAVE_MKFIFO''@|$(HAVE_MKFIFO)|g' \ -e 's|@''HAVE_MKFIFOAT''@|$(HAVE_MKFIFOAT)|g' \ -e 's|@''HAVE_MKNOD''@|$(HAVE_MKNOD)|g' \ -e 's|@''HAVE_MKNODAT''@|$(HAVE_MKNODAT)|g' \ -e 's|@''HAVE_UTIMENSAT''@|$(HAVE_UTIMENSAT)|g' \ -e 's|@''REPLACE_FCHMODAT''@|$(REPLACE_FCHMODAT)|g' \ -e 's|@''REPLACE_FSTAT''@|$(REPLACE_FSTAT)|g' \ -e 's|@''REPLACE_FSTATAT''@|$(REPLACE_FSTATAT)|g' \ -e 's|@''REPLACE_FUTIMENS''@|$(REPLACE_FUTIMENS)|g' \ -e 's|@''REPLACE_LSTAT''@|$(REPLACE_LSTAT)|g' \ -e 's|@''REPLACE_MKDIR''@|$(REPLACE_MKDIR)|g' \ -e 's|@''REPLACE_MKFIFO''@|$(REPLACE_MKFIFO)|g' \ -e 's|@''REPLACE_MKFIFOAT''@|$(REPLACE_MKFIFOAT)|g' \ -e 's|@''REPLACE_MKNOD''@|$(REPLACE_MKNOD)|g' \ -e 's|@''REPLACE_MKNODAT''@|$(REPLACE_MKNODAT)|g' \ -e 's|@''REPLACE_STAT''@|$(REPLACE_STAT)|g' \ -e 's|@''REPLACE_UTIMENSAT''@|$(REPLACE_UTIMENSAT)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/sys_stat.in.h; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += sys/stat.h sys/stat.h-t MOSTLYCLEANDIRS += sys EXTRA_DIST += sys_stat.in.h ## end gnulib module sys_stat ## 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 thread-optim EXTRA_DIST += thread-optim.h ## end gnulib module thread-optim ## begin gnulib module threadlib libgnu_la_SOURCES += glthread/threadlib.c ## end gnulib module threadlib ## begin gnulib module time BUILT_SOURCES += time.h # We need the following in order to create when the system # doesn't have one that works with the given compiler. time.h: time.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_TIME_H''@|$(NEXT_TIME_H)|g' \ -e 's/@''GNULIB_CTIME''@/$(GL_GNULIB_CTIME)/g' \ -e 's/@''GNULIB_LOCALTIME''@/$(GL_GNULIB_LOCALTIME)/g' \ -e 's/@''GNULIB_MKTIME''@/$(GL_GNULIB_MKTIME)/g' \ -e 's/@''GNULIB_NANOSLEEP''@/$(GL_GNULIB_NANOSLEEP)/g' \ -e 's/@''GNULIB_STRFTIME''@/$(GL_GNULIB_STRFTIME)/g' \ -e 's/@''GNULIB_STRPTIME''@/$(GL_GNULIB_STRPTIME)/g' \ -e 's/@''GNULIB_TIMEGM''@/$(GL_GNULIB_TIMEGM)/g' \ -e 's/@''GNULIB_TIMESPEC_GET''@/$(GL_GNULIB_TIMESPEC_GET)/g' \ -e 's/@''GNULIB_TIME_R''@/$(GL_GNULIB_TIME_R)/g' \ -e 's/@''GNULIB_TIME_RZ''@/$(GL_GNULIB_TIME_RZ)/g' \ -e 's/@''GNULIB_TZSET''@/$(GL_GNULIB_TZSET)/g' \ -e 's/@''GNULIB_MDA_TZSET''@/$(GL_GNULIB_MDA_TZSET)/g' \ -e 's|@''HAVE_DECL_LOCALTIME_R''@|$(HAVE_DECL_LOCALTIME_R)|g' \ -e 's|@''HAVE_NANOSLEEP''@|$(HAVE_NANOSLEEP)|g' \ -e 's|@''HAVE_STRPTIME''@|$(HAVE_STRPTIME)|g' \ -e 's|@''HAVE_TIMEGM''@|$(HAVE_TIMEGM)|g' \ -e 's|@''HAVE_TIMESPEC_GET''@|$(HAVE_TIMESPEC_GET)|g' \ -e 's|@''HAVE_TIMEZONE_T''@|$(HAVE_TIMEZONE_T)|g' \ -e 's|@''REPLACE_CTIME''@|$(REPLACE_CTIME)|g' \ -e 's|@''REPLACE_GMTIME''@|$(REPLACE_GMTIME)|g' \ -e 's|@''REPLACE_LOCALTIME''@|$(REPLACE_LOCALTIME)|g' \ -e 's|@''REPLACE_LOCALTIME_R''@|$(REPLACE_LOCALTIME_R)|g' \ -e 's|@''REPLACE_MKTIME''@|$(REPLACE_MKTIME)|g' \ -e 's|@''REPLACE_NANOSLEEP''@|$(REPLACE_NANOSLEEP)|g' \ -e 's|@''REPLACE_STRFTIME''@|$(REPLACE_STRFTIME)|g' \ -e 's|@''REPLACE_TIMEGM''@|$(REPLACE_TIMEGM)|g' \ -e 's|@''REPLACE_TZSET''@|$(REPLACE_TZSET)|g' \ -e 's|@''PTHREAD_H_DEFINES_STRUCT_TIMESPEC''@|$(PTHREAD_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''SYS_TIME_H_DEFINES_STRUCT_TIMESPEC''@|$(SYS_TIME_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''TIME_H_DEFINES_STRUCT_TIMESPEC''@|$(TIME_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''UNISTD_H_DEFINES_STRUCT_TIMESPEC''@|$(UNISTD_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''TIME_H_DEFINES_TIME_UTC''@|$(TIME_H_DEFINES_TIME_UTC)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/time.in.h; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += time.h time.h-t EXTRA_DIST += time.in.h ## end gnulib module time ## begin gnulib module unistd BUILT_SOURCES += unistd.h libgnu_la_SOURCES += unistd.c # We need the following in order to create an empty placeholder for # when the system doesn't have one. unistd.h: unistd.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_UNISTD_H''@|$(HAVE_UNISTD_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_UNISTD_H''@|$(NEXT_UNISTD_H)|g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|$(WINDOWS_64_BIT_OFF_T)|g' \ -e 's/@''GNULIB_ACCESS''@/$(GL_GNULIB_ACCESS)/g' \ -e 's/@''GNULIB_CHDIR''@/$(GL_GNULIB_CHDIR)/g' \ -e 's/@''GNULIB_CHOWN''@/$(GL_GNULIB_CHOWN)/g' \ -e 's/@''GNULIB_CLOSE''@/$(GL_GNULIB_CLOSE)/g' \ -e 's/@''GNULIB_COPY_FILE_RANGE''@/$(GL_GNULIB_COPY_FILE_RANGE)/g' \ -e 's/@''GNULIB_DUP''@/$(GL_GNULIB_DUP)/g' \ -e 's/@''GNULIB_DUP2''@/$(GL_GNULIB_DUP2)/g' \ -e 's/@''GNULIB_DUP3''@/$(GL_GNULIB_DUP3)/g' \ -e 's/@''GNULIB_ENVIRON''@/$(GL_GNULIB_ENVIRON)/g' \ -e 's/@''GNULIB_EUIDACCESS''@/$(GL_GNULIB_EUIDACCESS)/g' \ -e 's/@''GNULIB_EXECL''@/$(GL_GNULIB_EXECL)/g' \ -e 's/@''GNULIB_EXECLE''@/$(GL_GNULIB_EXECLE)/g' \ -e 's/@''GNULIB_EXECLP''@/$(GL_GNULIB_EXECLP)/g' \ -e 's/@''GNULIB_EXECV''@/$(GL_GNULIB_EXECV)/g' \ -e 's/@''GNULIB_EXECVE''@/$(GL_GNULIB_EXECVE)/g' \ -e 's/@''GNULIB_EXECVP''@/$(GL_GNULIB_EXECVP)/g' \ -e 's/@''GNULIB_EXECVPE''@/$(GL_GNULIB_EXECVPE)/g' \ -e 's/@''GNULIB_FACCESSAT''@/$(GL_GNULIB_FACCESSAT)/g' \ -e 's/@''GNULIB_FCHDIR''@/$(GL_GNULIB_FCHDIR)/g' \ -e 's/@''GNULIB_FCHOWNAT''@/$(GL_GNULIB_FCHOWNAT)/g' \ -e 's/@''GNULIB_FDATASYNC''@/$(GL_GNULIB_FDATASYNC)/g' \ -e 's/@''GNULIB_FSYNC''@/$(GL_GNULIB_FSYNC)/g' \ -e 's/@''GNULIB_FTRUNCATE''@/$(GL_GNULIB_FTRUNCATE)/g' \ -e 's/@''GNULIB_GETCWD''@/$(GL_GNULIB_GETCWD)/g' \ -e 's/@''GNULIB_GETDOMAINNAME''@/$(GL_GNULIB_GETDOMAINNAME)/g' \ -e 's/@''GNULIB_GETDTABLESIZE''@/$(GL_GNULIB_GETDTABLESIZE)/g' \ -e 's/@''GNULIB_GETENTROPY''@/$(GL_GNULIB_GETENTROPY)/g' \ -e 's/@''GNULIB_GETGROUPS''@/$(GL_GNULIB_GETGROUPS)/g' \ -e 's/@''GNULIB_GETHOSTNAME''@/$(GL_GNULIB_GETHOSTNAME)/g' \ -e 's/@''GNULIB_GETLOGIN''@/$(GL_GNULIB_GETLOGIN)/g' \ -e 's/@''GNULIB_GETLOGIN_R''@/$(GL_GNULIB_GETLOGIN_R)/g' \ -e 's/@''GNULIB_GETOPT_POSIX''@/$(GL_GNULIB_GETOPT_POSIX)/g' \ -e 's/@''GNULIB_GETPAGESIZE''@/$(GL_GNULIB_GETPAGESIZE)/g' \ -e 's/@''GNULIB_GETPASS''@/$(GL_GNULIB_GETPASS)/g' \ -e 's/@''GNULIB_GETUSERSHELL''@/$(GL_GNULIB_GETUSERSHELL)/g' \ -e 's/@''GNULIB_GROUP_MEMBER''@/$(GL_GNULIB_GROUP_MEMBER)/g' \ -e 's/@''GNULIB_ISATTY''@/$(GL_GNULIB_ISATTY)/g' \ -e 's/@''GNULIB_LCHOWN''@/$(GL_GNULIB_LCHOWN)/g' \ -e 's/@''GNULIB_LINK''@/$(GL_GNULIB_LINK)/g' \ -e 's/@''GNULIB_LINKAT''@/$(GL_GNULIB_LINKAT)/g' \ -e 's/@''GNULIB_LSEEK''@/$(GL_GNULIB_LSEEK)/g' \ -e 's/@''GNULIB_PIPE''@/$(GL_GNULIB_PIPE)/g' \ -e 's/@''GNULIB_PIPE2''@/$(GL_GNULIB_PIPE2)/g' \ -e 's/@''GNULIB_PREAD''@/$(GL_GNULIB_PREAD)/g' \ -e 's/@''GNULIB_PWRITE''@/$(GL_GNULIB_PWRITE)/g' \ -e 's/@''GNULIB_READ''@/$(GL_GNULIB_READ)/g' \ -e 's/@''GNULIB_READLINK''@/$(GL_GNULIB_READLINK)/g' \ -e 's/@''GNULIB_READLINKAT''@/$(GL_GNULIB_READLINKAT)/g' \ -e 's/@''GNULIB_RMDIR''@/$(GL_GNULIB_RMDIR)/g' \ -e 's/@''GNULIB_SETHOSTNAME''@/$(GL_GNULIB_SETHOSTNAME)/g' \ -e 's/@''GNULIB_SLEEP''@/$(GL_GNULIB_SLEEP)/g' \ -e 's/@''GNULIB_SYMLINK''@/$(GL_GNULIB_SYMLINK)/g' \ -e 's/@''GNULIB_SYMLINKAT''@/$(GL_GNULIB_SYMLINKAT)/g' \ -e 's/@''GNULIB_TRUNCATE''@/$(GL_GNULIB_TRUNCATE)/g' \ -e 's/@''GNULIB_TTYNAME_R''@/$(GL_GNULIB_TTYNAME_R)/g' \ -e 's/@''GNULIB_UNISTD_H_GETOPT''@/0$(GL_GNULIB_GL_UNISTD_H_GETOPT)/g' \ -e 's/@''GNULIB_UNISTD_H_NONBLOCKING''@/$(GL_GNULIB_UNISTD_H_NONBLOCKING)/g' \ -e 's/@''GNULIB_UNISTD_H_SIGPIPE''@/$(GL_GNULIB_UNISTD_H_SIGPIPE)/g' \ -e 's/@''GNULIB_UNLINK''@/$(GL_GNULIB_UNLINK)/g' \ -e 's/@''GNULIB_UNLINKAT''@/$(GL_GNULIB_UNLINKAT)/g' \ -e 's/@''GNULIB_USLEEP''@/$(GL_GNULIB_USLEEP)/g' \ -e 's/@''GNULIB_WRITE''@/$(GL_GNULIB_WRITE)/g' \ -e 's/@''GNULIB_MDA_ACCESS''@/$(GL_GNULIB_MDA_ACCESS)/g' \ -e 's/@''GNULIB_MDA_CHDIR''@/$(GL_GNULIB_MDA_CHDIR)/g' \ -e 's/@''GNULIB_MDA_CLOSE''@/$(GL_GNULIB_MDA_CLOSE)/g' \ -e 's/@''GNULIB_MDA_DUP''@/$(GL_GNULIB_MDA_DUP)/g' \ -e 's/@''GNULIB_MDA_DUP2''@/$(GL_GNULIB_MDA_DUP2)/g' \ -e 's/@''GNULIB_MDA_EXECL''@/$(GL_GNULIB_MDA_EXECL)/g' \ -e 's/@''GNULIB_MDA_EXECLE''@/$(GL_GNULIB_MDA_EXECLE)/g' \ -e 's/@''GNULIB_MDA_EXECLP''@/$(GL_GNULIB_MDA_EXECLP)/g' \ -e 's/@''GNULIB_MDA_EXECV''@/$(GL_GNULIB_MDA_EXECV)/g' \ -e 's/@''GNULIB_MDA_EXECVE''@/$(GL_GNULIB_MDA_EXECVE)/g' \ -e 's/@''GNULIB_MDA_EXECVP''@/$(GL_GNULIB_MDA_EXECVP)/g' \ -e 's/@''GNULIB_MDA_EXECVPE''@/$(GL_GNULIB_MDA_EXECVPE)/g' \ -e 's/@''GNULIB_MDA_GETCWD''@/$(GL_GNULIB_MDA_GETCWD)/g' \ -e 's/@''GNULIB_MDA_GETPID''@/$(GL_GNULIB_MDA_GETPID)/g' \ -e 's/@''GNULIB_MDA_ISATTY''@/$(GL_GNULIB_MDA_ISATTY)/g' \ -e 's/@''GNULIB_MDA_LSEEK''@/$(GL_GNULIB_MDA_LSEEK)/g' \ -e 's/@''GNULIB_MDA_READ''@/$(GL_GNULIB_MDA_READ)/g' \ -e 's/@''GNULIB_MDA_RMDIR''@/$(GL_GNULIB_MDA_RMDIR)/g' \ -e 's/@''GNULIB_MDA_SWAB''@/$(GL_GNULIB_MDA_SWAB)/g' \ -e 's/@''GNULIB_MDA_UNLINK''@/$(GL_GNULIB_MDA_UNLINK)/g' \ -e 's/@''GNULIB_MDA_WRITE''@/$(GL_GNULIB_MDA_WRITE)/g' \ < $(srcdir)/unistd.in.h | \ sed -e 's|@''HAVE_CHOWN''@|$(HAVE_CHOWN)|g' \ -e 's|@''HAVE_COPY_FILE_RANGE''@|$(HAVE_COPY_FILE_RANGE)|g' \ -e 's|@''HAVE_DUP3''@|$(HAVE_DUP3)|g' \ -e 's|@''HAVE_EUIDACCESS''@|$(HAVE_EUIDACCESS)|g' \ -e 's|@''HAVE_EXECVPE''@|$(HAVE_EXECVPE)|g' \ -e 's|@''HAVE_FACCESSAT''@|$(HAVE_FACCESSAT)|g' \ -e 's|@''HAVE_FCHDIR''@|$(HAVE_FCHDIR)|g' \ -e 's|@''HAVE_FCHOWNAT''@|$(HAVE_FCHOWNAT)|g' \ -e 's|@''HAVE_FDATASYNC''@|$(HAVE_FDATASYNC)|g' \ -e 's|@''HAVE_FSYNC''@|$(HAVE_FSYNC)|g' \ -e 's|@''HAVE_FTRUNCATE''@|$(HAVE_FTRUNCATE)|g' \ -e 's|@''HAVE_GETDTABLESIZE''@|$(HAVE_GETDTABLESIZE)|g' \ -e 's|@''HAVE_GETENTROPY''@|$(HAVE_GETENTROPY)|g' \ -e 's|@''HAVE_GETGROUPS''@|$(HAVE_GETGROUPS)|g' \ -e 's|@''HAVE_GETHOSTNAME''@|$(HAVE_GETHOSTNAME)|g' \ -e 's|@''HAVE_GETPAGESIZE''@|$(HAVE_GETPAGESIZE)|g' \ -e 's|@''HAVE_GETPASS''@|$(HAVE_GETPASS)|g' \ -e 's|@''HAVE_GROUP_MEMBER''@|$(HAVE_GROUP_MEMBER)|g' \ -e 's|@''HAVE_LCHOWN''@|$(HAVE_LCHOWN)|g' \ -e 's|@''HAVE_LINK''@|$(HAVE_LINK)|g' \ -e 's|@''HAVE_LINKAT''@|$(HAVE_LINKAT)|g' \ -e 's|@''HAVE_PIPE''@|$(HAVE_PIPE)|g' \ -e 's|@''HAVE_PIPE2''@|$(HAVE_PIPE2)|g' \ -e 's|@''HAVE_PREAD''@|$(HAVE_PREAD)|g' \ -e 's|@''HAVE_PWRITE''@|$(HAVE_PWRITE)|g' \ -e 's|@''HAVE_READLINK''@|$(HAVE_READLINK)|g' \ -e 's|@''HAVE_READLINKAT''@|$(HAVE_READLINKAT)|g' \ -e 's|@''HAVE_SETHOSTNAME''@|$(HAVE_SETHOSTNAME)|g' \ -e 's|@''HAVE_SLEEP''@|$(HAVE_SLEEP)|g' \ -e 's|@''HAVE_SYMLINK''@|$(HAVE_SYMLINK)|g' \ -e 's|@''HAVE_SYMLINKAT''@|$(HAVE_SYMLINKAT)|g' \ -e 's|@''HAVE_UNLINKAT''@|$(HAVE_UNLINKAT)|g' \ -e 's|@''HAVE_USLEEP''@|$(HAVE_USLEEP)|g' \ -e 's|@''HAVE_DECL_ENVIRON''@|$(HAVE_DECL_ENVIRON)|g' \ -e 's|@''HAVE_DECL_EXECVPE''@|$(HAVE_DECL_EXECVPE)|g' \ -e 's|@''HAVE_DECL_FCHDIR''@|$(HAVE_DECL_FCHDIR)|g' \ -e 's|@''HAVE_DECL_FDATASYNC''@|$(HAVE_DECL_FDATASYNC)|g' \ -e 's|@''HAVE_DECL_GETDOMAINNAME''@|$(HAVE_DECL_GETDOMAINNAME)|g' \ -e 's|@''HAVE_DECL_GETLOGIN''@|$(HAVE_DECL_GETLOGIN)|g' \ -e 's|@''HAVE_DECL_GETLOGIN_R''@|$(HAVE_DECL_GETLOGIN_R)|g' \ -e 's|@''HAVE_DECL_GETPAGESIZE''@|$(HAVE_DECL_GETPAGESIZE)|g' \ -e 's|@''HAVE_DECL_GETUSERSHELL''@|$(HAVE_DECL_GETUSERSHELL)|g' \ -e 's|@''HAVE_DECL_SETHOSTNAME''@|$(HAVE_DECL_SETHOSTNAME)|g' \ -e 's|@''HAVE_DECL_TRUNCATE''@|$(HAVE_DECL_TRUNCATE)|g' \ -e 's|@''HAVE_DECL_TTYNAME_R''@|$(HAVE_DECL_TTYNAME_R)|g' \ -e 's|@''HAVE_OS_H''@|$(HAVE_OS_H)|g' \ -e 's|@''HAVE_SYS_PARAM_H''@|$(HAVE_SYS_PARAM_H)|g' \ | \ sed -e 's|@''REPLACE_ACCESS''@|$(REPLACE_ACCESS)|g' \ -e 's|@''REPLACE_CHOWN''@|$(REPLACE_CHOWN)|g' \ -e 's|@''REPLACE_CLOSE''@|$(REPLACE_CLOSE)|g' \ -e 's|@''REPLACE_DUP''@|$(REPLACE_DUP)|g' \ -e 's|@''REPLACE_DUP2''@|$(REPLACE_DUP2)|g' \ -e 's|@''REPLACE_EXECL''@|$(REPLACE_EXECL)|g' \ -e 's|@''REPLACE_EXECLE''@|$(REPLACE_EXECLE)|g' \ -e 's|@''REPLACE_EXECLP''@|$(REPLACE_EXECLP)|g' \ -e 's|@''REPLACE_EXECV''@|$(REPLACE_EXECV)|g' \ -e 's|@''REPLACE_EXECVE''@|$(REPLACE_EXECVE)|g' \ -e 's|@''REPLACE_EXECVP''@|$(REPLACE_EXECVP)|g' \ -e 's|@''REPLACE_EXECVPE''@|$(REPLACE_EXECVPE)|g' \ -e 's|@''REPLACE_FACCESSAT''@|$(REPLACE_FACCESSAT)|g' \ -e 's|@''REPLACE_FCHOWNAT''@|$(REPLACE_FCHOWNAT)|g' \ -e 's|@''REPLACE_FTRUNCATE''@|$(REPLACE_FTRUNCATE)|g' \ -e 's|@''REPLACE_GETCWD''@|$(REPLACE_GETCWD)|g' \ -e 's|@''REPLACE_GETDOMAINNAME''@|$(REPLACE_GETDOMAINNAME)|g' \ -e 's|@''REPLACE_GETDTABLESIZE''@|$(REPLACE_GETDTABLESIZE)|g' \ -e 's|@''REPLACE_GETLOGIN_R''@|$(REPLACE_GETLOGIN_R)|g' \ -e 's|@''REPLACE_GETGROUPS''@|$(REPLACE_GETGROUPS)|g' \ -e 's|@''REPLACE_GETPAGESIZE''@|$(REPLACE_GETPAGESIZE)|g' \ -e 's|@''REPLACE_GETPASS''@|$(REPLACE_GETPASS)|g' \ -e 's|@''REPLACE_ISATTY''@|$(REPLACE_ISATTY)|g' \ -e 's|@''REPLACE_LCHOWN''@|$(REPLACE_LCHOWN)|g' \ -e 's|@''REPLACE_LINK''@|$(REPLACE_LINK)|g' \ -e 's|@''REPLACE_LINKAT''@|$(REPLACE_LINKAT)|g' \ -e 's|@''REPLACE_LSEEK''@|$(REPLACE_LSEEK)|g' \ -e 's|@''REPLACE_PREAD''@|$(REPLACE_PREAD)|g' \ -e 's|@''REPLACE_PWRITE''@|$(REPLACE_PWRITE)|g' \ -e 's|@''REPLACE_READ''@|$(REPLACE_READ)|g' \ -e 's|@''REPLACE_READLINK''@|$(REPLACE_READLINK)|g' \ -e 's|@''REPLACE_READLINKAT''@|$(REPLACE_READLINKAT)|g' \ -e 's|@''REPLACE_RMDIR''@|$(REPLACE_RMDIR)|g' \ -e 's|@''REPLACE_SLEEP''@|$(REPLACE_SLEEP)|g' \ -e 's|@''REPLACE_SYMLINK''@|$(REPLACE_SYMLINK)|g' \ -e 's|@''REPLACE_SYMLINKAT''@|$(REPLACE_SYMLINKAT)|g' \ -e 's|@''REPLACE_TRUNCATE''@|$(REPLACE_TRUNCATE)|g' \ -e 's|@''REPLACE_TTYNAME_R''@|$(REPLACE_TTYNAME_R)|g' \ -e 's|@''REPLACE_UNLINK''@|$(REPLACE_UNLINK)|g' \ -e 's|@''REPLACE_UNLINKAT''@|$(REPLACE_UNLINKAT)|g' \ -e 's|@''REPLACE_USLEEP''@|$(REPLACE_USLEEP)|g' \ -e 's|@''REPLACE_WRITE''@|$(REPLACE_WRITE)|g' \ -e 's|@''UNISTD_H_HAVE_SYS_RANDOM_H''@|$(UNISTD_H_HAVE_SYS_RANDOM_H)|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H''@|$(UNISTD_H_HAVE_WINSOCK2_H)|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|$(UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)'; \ } > $@-t && \ mv $@-t $@ MOSTLYCLEANFILES += unistd.h unistd.h-t EXTRA_DIST += unistd.in.h ## end gnulib module unistd ## begin gnulib module verify EXTRA_DIST += verify.h ## end gnulib module verify ## 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 ## begin gnulib module windows-spin EXTRA_DIST += windows-spin.c windows-spin.h EXTRA_libgnu_la_SOURCES += windows-spin.c ## end gnulib module windows-spin ## begin gnulib module xalloc-oversized EXTRA_DIST += xalloc-oversized.h ## end gnulib module xalloc-oversized ## begin gnulib module xsize libgnu_la_SOURCES += xsize.h xsize.c ## end gnulib module xsize 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.4/gnulib-lib/raise.c0000664000000000000000000000343514057155505013475 00000000000000/* Provide a non-threads replacement for the POSIX raise function. Copyright (C) 2002-2003, 2005-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* written by Jim Meyering and Bruno Haible */ #include /* Specification. */ #include #if HAVE_RAISE /* Native Windows platform. */ # include # if HAVE_MSVC_INVALID_PARAMETER_HANDLER # include "msvc-inval.h" # endif # if HAVE_MSVC_INVALID_PARAMETER_HANDLER /* Forward declaration. */ static int raise_nothrow (int sig); # else # define raise_nothrow raise # endif #else /* An old Unix platform. */ # include #endif int raise (int sig) #undef raise { #if GNULIB_defined_signal_blocking && GNULIB_defined_SIGPIPE if (sig == SIGPIPE) return _gl_raise_SIGPIPE (); #endif #if HAVE_RAISE return raise_nothrow (sig); #else return kill (getpid (), sig); #endif } #if HAVE_RAISE && HAVE_MSVC_INVALID_PARAMETER_HANDLER static int raise_nothrow (int sig) { int result; TRY_MSVC_INVAL { result = raise (sig); } CATCH_MSVC_INVAL { result = -1; errno = EINVAL; } DONE_MSVC_INVAL; return result; } #endif libffcall-2.4/gnulib-lib/asyncsafe-spin.c0000664000000000000000000002052014057155505015307 00000000000000/* Spin locks for communication between threads and signal handlers. Copyright (C) 2020-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2020. */ #include /* Specification. */ #include "asyncsafe-spin.h" #include #include #if defined _AIX # include #endif #if defined _WIN32 && ! defined __CYGWIN__ /* Use Windows threads. */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { glwthread_spin_init (lock); } static inline void do_lock (asyncsafe_spinlock_t *lock) { glwthread_spin_lock (lock); } static inline void do_unlock (asyncsafe_spinlock_t *lock) { if (glwthread_spin_unlock (lock)) abort (); } void asyncsafe_spin_destroy (asyncsafe_spinlock_t *lock) { glwthread_spin_destroy (lock); } #else # if HAVE_PTHREAD_H /* Use POSIX threads. */ /* We don't use semaphores (although sem_post() is allowed in signal handlers), because it would require to link with -lrt on HP-UX 11, OSF/1, Solaris 10, and also because on macOS only named semaphores work. We don't use the C11 (available in GCC >= 4.9) because it would require to link with -latomic. */ # if (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 7) \ || __clang_major > 3 || (__clang_major__ == 3 && __clang_minor__ >= 1)) \ && !defined __ibmxl__ /* Use GCC built-ins (available in GCC >= 4.7 and clang >= 3.1) that operate on the first byte of the lock. Documentation: */ # if 1 /* An implementation that verifies the unlocks. */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { __atomic_store_n (lock, 0, __ATOMIC_SEQ_CST); } static inline void do_lock (asyncsafe_spinlock_t *lock) { /* Wait until *lock becomes 0, then replace it with 1. */ asyncsafe_spinlock_t zero; while (!(zero = 0, __atomic_compare_exchange_n (lock, &zero, 1, false, __ATOMIC_SEQ_CST, __ATOMIC_SEQ_CST))) ; } static inline void do_unlock (asyncsafe_spinlock_t *lock) { /* If *lock is 1, then replace it with 0. */ asyncsafe_spinlock_t one = 1; if (!__atomic_compare_exchange_n (lock, &one, 0, false, __ATOMIC_SEQ_CST, __ATOMIC_SEQ_CST)) abort (); } # else /* An implementation that is a little bit more optimized, but does not verify the unlocks. */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { __atomic_clear (lock, __ATOMIC_SEQ_CST); } static inline void do_lock (asyncsafe_spinlock_t *lock) { while (__atomic_test_and_set (lock, __ATOMIC_SEQ_CST)) ; } static inline void do_unlock (asyncsafe_spinlock_t *lock) { __atomic_clear (lock, __ATOMIC_SEQ_CST); } # endif # elif (((__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 1)) \ && !defined __sparc__) \ || __clang_major__ >= 3) \ && !defined __ibmxl__ /* Use GCC built-ins (available in GCC >= 4.1, except on SPARC, and clang >= 3.0). Documentation: */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; *vp = 0; __sync_synchronize (); } static inline void do_lock (asyncsafe_spinlock_t *lock) { /* Wait until *lock becomes 0, then replace it with 1. */ while (__sync_val_compare_and_swap (lock, 0, 1) != 0) ; } static inline void do_unlock (asyncsafe_spinlock_t *lock) { /* If *lock is 1, then replace it with 0. */ if (__sync_val_compare_and_swap (lock, 1, 0) != 1) abort (); } # elif defined _AIX /* AIX */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { atomic_p vp = (int *) lock; _clear_lock (vp, 0); } static inline void do_lock (asyncsafe_spinlock_t *lock) { atomic_p vp = (int *) lock; while (_check_lock (vp, 0, 1)) ; } static inline void do_unlock (asyncsafe_spinlock_t *lock) { atomic_p vp = (int *) lock; if (_check_lock (vp, 1, 0)) abort (); } # elif ((defined __GNUC__ || defined __clang__ || defined __SUNPRO_C) && (defined __sparc || defined __i386 || defined __x86_64__)) || (defined __TINYC__ && (defined __i386 || defined __x86_64__)) /* For older versions of GCC or clang, use inline assembly. GCC, clang, and the Oracle Studio C 12 compiler understand GCC's extended asm syntax, but the plain Oracle Studio C 11 compiler understands only simple asm. */ /* An implementation that verifies the unlocks. */ static void memory_barrier (void) { # if defined __GNUC__ || defined __clang__ || __SUNPRO_C >= 0x590 || defined __TINYC__ # if defined __i386 || defined __x86_64__ # if defined __TINYC__ && defined __i386 /* Cannot use the SSE instruction "mfence" with this compiler. */ asm volatile ("lock orl $0,(%esp)"); # else asm volatile ("mfence"); # endif # endif # if defined __sparc asm volatile ("membar 2"); # endif # else # if defined __i386 || defined __x86_64__ asm ("mfence"); # endif # if defined __sparc asm ("membar 2"); # endif # endif } /* Store NEWVAL in *VP if the old value *VP is == CMP. Return the old value. */ static unsigned int atomic_compare_and_swap (volatile unsigned int *vp, unsigned int cmp, unsigned int newval) { # if defined __GNUC__ || defined __clang__ || __SUNPRO_C >= 0x590 || defined __TINYC__ unsigned int oldval; # if defined __i386 || defined __x86_64__ asm volatile (" lock\n cmpxchgl %3,(%1)" : "=a" (oldval) : "r" (vp), "a" (cmp), "r" (newval) : "memory"); # endif # if defined __sparc asm volatile (" cas [%1],%2,%3\n" " mov %3,%0" : "=r" (oldval) : "r" (vp), "r" (cmp), "r" (newval) : "memory"); # endif return oldval; # else /* __SUNPRO_C */ # if defined __x86_64__ asm (" movl %esi,%eax\n" " lock\n cmpxchgl %edx,(%rdi)"); # elif defined __i386 asm (" movl 16(%ebp),%ecx\n" " movl 12(%ebp),%eax\n" " movl 8(%ebp),%edx\n" " lock\n cmpxchgl %ecx,(%edx)"); # endif # if defined __sparc asm (" cas [%i0],%i1,%i2\n" " mov %i2,%i0"); # endif # endif } void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; *vp = 0; memory_barrier (); } static inline void do_lock (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; while (atomic_compare_and_swap (vp, 0, 1) != 0) ; } static inline void do_unlock (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; if (atomic_compare_and_swap (vp, 1, 0) != 1) abort (); } # else /* Fallback code. It has some race conditions. */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; *vp = 0; } static inline void do_lock (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; while (*vp) ; *vp = 1; } static inline void do_unlock (asyncsafe_spinlock_t *lock) { volatile unsigned int *vp = lock; *vp = 0; } # endif # else /* Provide a dummy implementation for single-threaded applications. */ void asyncsafe_spin_init (asyncsafe_spinlock_t *lock) { } static inline void do_lock (asyncsafe_spinlock_t *lock) { } static inline void do_unlock (asyncsafe_spinlock_t *lock) { } # endif void asyncsafe_spin_destroy (asyncsafe_spinlock_t *lock) { } #endif void asyncsafe_spin_lock (asyncsafe_spinlock_t *lock, const sigset_t *mask, sigset_t *saved_mask) { sigprocmask (SIG_BLOCK, mask, saved_mask); /* equivalent to pthread_sigmask */ do_lock (lock); } void asyncsafe_spin_unlock (asyncsafe_spinlock_t *lock, const sigset_t *saved_mask) { do_unlock (lock); sigprocmask (SIG_SETMASK, saved_mask, NULL); /* equivalent to pthread_sigmask */ } libffcall-2.4/gnulib-lib/basename-lgpl.c0000664000000000000000000000346514057155505015104 00000000000000/* basename.c -- return the last element in a file name Copyright (C) 1990, 1998-2001, 2003-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "basename-lgpl.h" #include #include #include "filename.h" char * last_component (char const *name) { char const *base = name + FILE_SYSTEM_PREFIX_LEN (name); char const *p; bool last_was_slash = false; while (ISSLASH (*base)) base++; for (p = base; *p; p++) { if (ISSLASH (*p)) last_was_slash = true; else if (last_was_slash) { base = p; last_was_slash = false; } } return (char *) base; } size_t base_len (char const *name) { size_t len; size_t prefix_len = FILE_SYSTEM_PREFIX_LEN (name); for (len = strlen (name); 1 < len && ISSLASH (name[len - 1]); len--) continue; if (DOUBLE_SLASH_IS_DISTINCT_ROOT && len == 1 && ISSLASH (name[0]) && ISSLASH (name[1]) && ! name[2]) return 2; if (FILE_SYSTEM_DRIVE_PREFIX_CAN_BE_RELATIVE && prefix_len && len == prefix_len && ISSLASH (name[prefix_len])) return prefix_len + 1; return len; } libffcall-2.4/gnulib-lib/cloexec.c0000664000000000000000000000445414057155505014016 00000000000000/* cloexec.c - set or clear the close-on-exec descriptor flag Copyright (C) 1991, 2004-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* The code is taken from glibc/manual/llio.texi */ #include #include "cloexec.h" #include #include #include /* Set the 'FD_CLOEXEC' flag of DESC if VALUE is true, or clear the flag if VALUE is false. Return 0 on success, or -1 on error with 'errno' set. Note that on MingW, this function does NOT protect DESC from being inherited into spawned children. Instead, either use dup_cloexec followed by closing the original DESC, or use interfaces such as open or pipe2 that accept flags like O_CLOEXEC to create DESC non-inheritable in the first place. */ int set_cloexec_flag (int desc, bool value) { #ifdef F_SETFD int flags = fcntl (desc, F_GETFD, 0); if (0 <= flags) { int newflags = (value ? flags | FD_CLOEXEC : flags & ~FD_CLOEXEC); if (flags == newflags || fcntl (desc, F_SETFD, newflags) != -1) return 0; } return -1; #else /* !F_SETFD */ /* Use dup2 to reject invalid file descriptors; the cloexec flag will be unaffected. */ if (desc < 0) { errno = EBADF; return -1; } if (dup2 (desc, desc) < 0) /* errno is EBADF here. */ return -1; /* There is nothing we can do on this kind of platform. Punt. */ return 0; #endif /* !F_SETFD */ } /* Duplicates a file handle FD, while marking the copy to be closed prior to exec or spawn. Returns -1 and sets errno if FD could not be duplicated. */ int dup_cloexec (int fd) { return fcntl (fd, F_DUPFD_CLOEXEC, 0); } libffcall-2.4/gnulib-lib/Makefile.in0000664000000000000000000032065714061422203014266 00000000000000# Makefile.in generated by automake 1.16.3 from Makefile.am. # @configure_input@ # Copyright (C) 1994-2020 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-2021 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 \ # clean-temp-simple \ # host-cpu-c-abi \ # lock \ # 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/alloca.m4 \ $(top_srcdir)/gnulib-m4/ansi-c++.m4 \ $(top_srcdir)/gnulib-m4/asm-underscore.m4 \ $(top_srcdir)/gnulib-m4/close.m4 \ $(top_srcdir)/gnulib-m4/double-slash-root.m4 \ $(top_srcdir)/gnulib-m4/dup2.m4 \ $(top_srcdir)/gnulib-m4/eealloc.m4 \ $(top_srcdir)/gnulib-m4/errno_h.m4 \ $(top_srcdir)/gnulib-m4/error.m4 \ $(top_srcdir)/gnulib-m4/extensions.m4 \ $(top_srcdir)/gnulib-m4/extern-inline.m4 \ $(top_srcdir)/gnulib-m4/fatal-signal.m4 \ $(top_srcdir)/gnulib-m4/fcntl-o.m4 \ $(top_srcdir)/gnulib-m4/fcntl.m4 \ $(top_srcdir)/gnulib-m4/fcntl_h.m4 \ $(top_srcdir)/gnulib-m4/fstat.m4 \ $(top_srcdir)/gnulib-m4/getdtablesize.m4 \ $(top_srcdir)/gnulib-m4/getprogname.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/largefile.m4 \ $(top_srcdir)/gnulib-m4/limits-h.m4 \ $(top_srcdir)/gnulib-m4/lock.m4 \ $(top_srcdir)/gnulib-m4/malloca.m4 \ $(top_srcdir)/gnulib-m4/mode_t.m4 \ $(top_srcdir)/gnulib-m4/msvc-inval.m4 \ $(top_srcdir)/gnulib-m4/msvc-nothrow.m4 \ $(top_srcdir)/gnulib-m4/multiarch.m4 \ $(top_srcdir)/gnulib-m4/nocrash.m4 \ $(top_srcdir)/gnulib-m4/off_t.m4 \ $(top_srcdir)/gnulib-m4/open-cloexec.m4 \ $(top_srcdir)/gnulib-m4/open-slash.m4 \ $(top_srcdir)/gnulib-m4/open.m4 \ $(top_srcdir)/gnulib-m4/pathmax.m4 \ $(top_srcdir)/gnulib-m4/pthread_rwlock_rdlock.m4 \ $(top_srcdir)/gnulib-m4/raise.m4 \ $(top_srcdir)/gnulib-m4/rmdir.m4 \ $(top_srcdir)/gnulib-m4/sig_atomic_t.m4 \ $(top_srcdir)/gnulib-m4/sigaction.m4 \ $(top_srcdir)/gnulib-m4/signal_h.m4 \ $(top_srcdir)/gnulib-m4/signalblocking.m4 \ $(top_srcdir)/gnulib-m4/size_max.m4 \ $(top_srcdir)/gnulib-m4/sparcv8+.m4 \ $(top_srcdir)/gnulib-m4/ssize_t.m4 \ $(top_srcdir)/gnulib-m4/stat-time.m4 \ $(top_srcdir)/gnulib-m4/stat.m4 \ $(top_srcdir)/gnulib-m4/stdbool.m4 \ $(top_srcdir)/gnulib-m4/stddef_h.m4 \ $(top_srcdir)/gnulib-m4/stdint.m4 \ $(top_srcdir)/gnulib-m4/stdio_h.m4 \ $(top_srcdir)/gnulib-m4/stdnoreturn.m4 \ $(top_srcdir)/gnulib-m4/strerror.m4 \ $(top_srcdir)/gnulib-m4/string_h.m4 \ $(top_srcdir)/gnulib-m4/sys_socket_h.m4 \ $(top_srcdir)/gnulib-m4/sys_stat_h.m4 \ $(top_srcdir)/gnulib-m4/sys_types_h.m4 \ $(top_srcdir)/gnulib-m4/threadlib.m4 \ $(top_srcdir)/gnulib-m4/time_h.m4 \ $(top_srcdir)/gnulib-m4/unistd_h.m4 \ $(top_srcdir)/gnulib-m4/warn-on-use.m4 \ $(top_srcdir)/gnulib-m4/wchar_t.m4 \ $(top_srcdir)/gnulib-m4/wint_t.m4 \ $(top_srcdir)/gnulib-m4/xsize.m4 \ $(top_srcdir)/gnulib-m4/zzgnulib.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/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/mmap-anon.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 = asyncsafe-spin.lo basename-lgpl.lo \ clean-temp-simple.lo cloexec.lo fatal-signal.lo fd-hook.lo \ getprogname.lo gl_linkedhash_list.lo gl_list.lo \ glthread/lock.lo malloca.lo sig-handler.lo stat-time.lo \ glthread/threadlib.lo unistd.lo xsize.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__maybe_remake_depfiles = depfiles am__depfiles_remade = ./$(DEPDIR)/asyncsafe-spin.Plo \ ./$(DEPDIR)/basename-lgpl.Plo \ ./$(DEPDIR)/clean-temp-simple.Plo ./$(DEPDIR)/cloexec.Plo \ ./$(DEPDIR)/close.Plo ./$(DEPDIR)/dup2.Plo \ ./$(DEPDIR)/error.Plo ./$(DEPDIR)/fatal-signal.Plo \ ./$(DEPDIR)/fcntl.Plo ./$(DEPDIR)/fd-hook.Plo \ ./$(DEPDIR)/fstat.Plo ./$(DEPDIR)/getdtablesize.Plo \ ./$(DEPDIR)/getprogname.Plo ./$(DEPDIR)/gl_linkedhash_list.Plo \ ./$(DEPDIR)/gl_list.Plo ./$(DEPDIR)/malloca.Plo \ ./$(DEPDIR)/msvc-inval.Plo ./$(DEPDIR)/msvc-nothrow.Plo \ ./$(DEPDIR)/open.Plo ./$(DEPDIR)/raise.Plo \ ./$(DEPDIR)/rmdir.Plo ./$(DEPDIR)/sig-handler.Plo \ ./$(DEPDIR)/sigaction.Plo ./$(DEPDIR)/sigprocmask.Plo \ ./$(DEPDIR)/stat-time.Plo ./$(DEPDIR)/stat-w32.Plo \ ./$(DEPDIR)/stat.Plo ./$(DEPDIR)/strerror-override.Plo \ ./$(DEPDIR)/strerror.Plo ./$(DEPDIR)/unistd.Plo \ ./$(DEPDIR)/windows-mutex.Plo ./$(DEPDIR)/windows-once.Plo \ ./$(DEPDIR)/windows-recmutex.Plo \ ./$(DEPDIR)/windows-rwlock.Plo ./$(DEPDIR)/windows-spin.Plo \ ./$(DEPDIR)/xsize.Plo glthread/$(DEPDIR)/lock.Plo \ glthread/$(DEPDIR)/threadlib.Plo 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 distdir-am 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@ ALLOCA = @ALLOCA@ ALLOCA_H = @ALLOCA_H@ 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@ CXXCPP = @CXXCPP@ 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@ EMULTIHOP_HIDDEN = @EMULTIHOP_HIDDEN@ EMULTIHOP_VALUE = @EMULTIHOP_VALUE@ ENDIANNESS = @ENDIANNESS@ ENOLINK_HIDDEN = @ENOLINK_HIDDEN@ ENOLINK_VALUE = @ENOLINK_VALUE@ EOVERFLOW_HIDDEN = @EOVERFLOW_HIDDEN@ EOVERFLOW_VALUE = @EOVERFLOW_VALUE@ ERRNO_H = @ERRNO_H@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GCC_X_NONE = @GCC_X_NONE@ GL_GNULIB_ACCESS = @GL_GNULIB_ACCESS@ GL_GNULIB_CHDIR = @GL_GNULIB_CHDIR@ GL_GNULIB_CHOWN = @GL_GNULIB_CHOWN@ GL_GNULIB_CLOSE = @GL_GNULIB_CLOSE@ GL_GNULIB_COPY_FILE_RANGE = @GL_GNULIB_COPY_FILE_RANGE@ GL_GNULIB_CREAT = @GL_GNULIB_CREAT@ GL_GNULIB_CTIME = @GL_GNULIB_CTIME@ GL_GNULIB_DPRINTF = @GL_GNULIB_DPRINTF@ GL_GNULIB_DUP = @GL_GNULIB_DUP@ GL_GNULIB_DUP2 = @GL_GNULIB_DUP2@ GL_GNULIB_DUP3 = @GL_GNULIB_DUP3@ GL_GNULIB_ENVIRON = @GL_GNULIB_ENVIRON@ GL_GNULIB_EUIDACCESS = @GL_GNULIB_EUIDACCESS@ GL_GNULIB_EXECL = @GL_GNULIB_EXECL@ GL_GNULIB_EXECLE = @GL_GNULIB_EXECLE@ GL_GNULIB_EXECLP = @GL_GNULIB_EXECLP@ GL_GNULIB_EXECV = @GL_GNULIB_EXECV@ GL_GNULIB_EXECVE = @GL_GNULIB_EXECVE@ GL_GNULIB_EXECVP = @GL_GNULIB_EXECVP@ GL_GNULIB_EXECVPE = @GL_GNULIB_EXECVPE@ GL_GNULIB_EXPLICIT_BZERO = @GL_GNULIB_EXPLICIT_BZERO@ GL_GNULIB_FACCESSAT = @GL_GNULIB_FACCESSAT@ GL_GNULIB_FCHDIR = @GL_GNULIB_FCHDIR@ GL_GNULIB_FCHMODAT = @GL_GNULIB_FCHMODAT@ GL_GNULIB_FCHOWNAT = @GL_GNULIB_FCHOWNAT@ GL_GNULIB_FCLOSE = @GL_GNULIB_FCLOSE@ GL_GNULIB_FCNTL = @GL_GNULIB_FCNTL@ GL_GNULIB_FDATASYNC = @GL_GNULIB_FDATASYNC@ GL_GNULIB_FDOPEN = @GL_GNULIB_FDOPEN@ GL_GNULIB_FFLUSH = @GL_GNULIB_FFLUSH@ GL_GNULIB_FFSL = @GL_GNULIB_FFSL@ GL_GNULIB_FFSLL = @GL_GNULIB_FFSLL@ GL_GNULIB_FGETC = @GL_GNULIB_FGETC@ GL_GNULIB_FGETS = @GL_GNULIB_FGETS@ GL_GNULIB_FOPEN = @GL_GNULIB_FOPEN@ GL_GNULIB_FPRINTF = @GL_GNULIB_FPRINTF@ GL_GNULIB_FPRINTF_POSIX = @GL_GNULIB_FPRINTF_POSIX@ GL_GNULIB_FPURGE = @GL_GNULIB_FPURGE@ GL_GNULIB_FPUTC = @GL_GNULIB_FPUTC@ GL_GNULIB_FPUTS = @GL_GNULIB_FPUTS@ GL_GNULIB_FREAD = @GL_GNULIB_FREAD@ GL_GNULIB_FREOPEN = @GL_GNULIB_FREOPEN@ GL_GNULIB_FSCANF = @GL_GNULIB_FSCANF@ GL_GNULIB_FSEEK = @GL_GNULIB_FSEEK@ GL_GNULIB_FSEEKO = @GL_GNULIB_FSEEKO@ GL_GNULIB_FSTAT = @GL_GNULIB_FSTAT@ GL_GNULIB_FSTATAT = @GL_GNULIB_FSTATAT@ GL_GNULIB_FSYNC = @GL_GNULIB_FSYNC@ GL_GNULIB_FTELL = @GL_GNULIB_FTELL@ GL_GNULIB_FTELLO = @GL_GNULIB_FTELLO@ GL_GNULIB_FTRUNCATE = @GL_GNULIB_FTRUNCATE@ GL_GNULIB_FUTIMENS = @GL_GNULIB_FUTIMENS@ GL_GNULIB_FWRITE = @GL_GNULIB_FWRITE@ GL_GNULIB_GETC = @GL_GNULIB_GETC@ GL_GNULIB_GETCHAR = @GL_GNULIB_GETCHAR@ GL_GNULIB_GETCWD = @GL_GNULIB_GETCWD@ GL_GNULIB_GETDELIM = @GL_GNULIB_GETDELIM@ GL_GNULIB_GETDOMAINNAME = @GL_GNULIB_GETDOMAINNAME@ GL_GNULIB_GETDTABLESIZE = @GL_GNULIB_GETDTABLESIZE@ GL_GNULIB_GETENTROPY = @GL_GNULIB_GETENTROPY@ GL_GNULIB_GETGROUPS = @GL_GNULIB_GETGROUPS@ GL_GNULIB_GETHOSTNAME = @GL_GNULIB_GETHOSTNAME@ GL_GNULIB_GETLINE = @GL_GNULIB_GETLINE@ GL_GNULIB_GETLOGIN = @GL_GNULIB_GETLOGIN@ GL_GNULIB_GETLOGIN_R = @GL_GNULIB_GETLOGIN_R@ GL_GNULIB_GETOPT_POSIX = @GL_GNULIB_GETOPT_POSIX@ GL_GNULIB_GETPAGESIZE = @GL_GNULIB_GETPAGESIZE@ GL_GNULIB_GETPASS = @GL_GNULIB_GETPASS@ GL_GNULIB_GETUMASK = @GL_GNULIB_GETUMASK@ GL_GNULIB_GETUSERSHELL = @GL_GNULIB_GETUSERSHELL@ GL_GNULIB_GROUP_MEMBER = @GL_GNULIB_GROUP_MEMBER@ GL_GNULIB_ISATTY = @GL_GNULIB_ISATTY@ GL_GNULIB_LCHMOD = @GL_GNULIB_LCHMOD@ GL_GNULIB_LCHOWN = @GL_GNULIB_LCHOWN@ GL_GNULIB_LINK = @GL_GNULIB_LINK@ GL_GNULIB_LINKAT = @GL_GNULIB_LINKAT@ GL_GNULIB_LOCALTIME = @GL_GNULIB_LOCALTIME@ GL_GNULIB_LSEEK = @GL_GNULIB_LSEEK@ GL_GNULIB_LSTAT = @GL_GNULIB_LSTAT@ GL_GNULIB_MBSCASECMP = @GL_GNULIB_MBSCASECMP@ GL_GNULIB_MBSCASESTR = @GL_GNULIB_MBSCASESTR@ GL_GNULIB_MBSCHR = @GL_GNULIB_MBSCHR@ GL_GNULIB_MBSCSPN = @GL_GNULIB_MBSCSPN@ GL_GNULIB_MBSLEN = @GL_GNULIB_MBSLEN@ GL_GNULIB_MBSNCASECMP = @GL_GNULIB_MBSNCASECMP@ GL_GNULIB_MBSNLEN = @GL_GNULIB_MBSNLEN@ GL_GNULIB_MBSPBRK = @GL_GNULIB_MBSPBRK@ GL_GNULIB_MBSPCASECMP = @GL_GNULIB_MBSPCASECMP@ GL_GNULIB_MBSRCHR = @GL_GNULIB_MBSRCHR@ GL_GNULIB_MBSSEP = @GL_GNULIB_MBSSEP@ GL_GNULIB_MBSSPN = @GL_GNULIB_MBSSPN@ GL_GNULIB_MBSSTR = @GL_GNULIB_MBSSTR@ GL_GNULIB_MBSTOK_R = @GL_GNULIB_MBSTOK_R@ GL_GNULIB_MDA_ACCESS = @GL_GNULIB_MDA_ACCESS@ GL_GNULIB_MDA_CHDIR = @GL_GNULIB_MDA_CHDIR@ GL_GNULIB_MDA_CHMOD = @GL_GNULIB_MDA_CHMOD@ GL_GNULIB_MDA_CLOSE = @GL_GNULIB_MDA_CLOSE@ GL_GNULIB_MDA_CREAT = @GL_GNULIB_MDA_CREAT@ GL_GNULIB_MDA_DUP = @GL_GNULIB_MDA_DUP@ GL_GNULIB_MDA_DUP2 = @GL_GNULIB_MDA_DUP2@ GL_GNULIB_MDA_EXECL = @GL_GNULIB_MDA_EXECL@ GL_GNULIB_MDA_EXECLE = @GL_GNULIB_MDA_EXECLE@ GL_GNULIB_MDA_EXECLP = @GL_GNULIB_MDA_EXECLP@ GL_GNULIB_MDA_EXECV = @GL_GNULIB_MDA_EXECV@ GL_GNULIB_MDA_EXECVE = @GL_GNULIB_MDA_EXECVE@ GL_GNULIB_MDA_EXECVP = @GL_GNULIB_MDA_EXECVP@ GL_GNULIB_MDA_EXECVPE = @GL_GNULIB_MDA_EXECVPE@ GL_GNULIB_MDA_FCLOSEALL = @GL_GNULIB_MDA_FCLOSEALL@ GL_GNULIB_MDA_FDOPEN = @GL_GNULIB_MDA_FDOPEN@ GL_GNULIB_MDA_FILENO = @GL_GNULIB_MDA_FILENO@ GL_GNULIB_MDA_GETCWD = @GL_GNULIB_MDA_GETCWD@ GL_GNULIB_MDA_GETPID = @GL_GNULIB_MDA_GETPID@ GL_GNULIB_MDA_GETW = @GL_GNULIB_MDA_GETW@ GL_GNULIB_MDA_ISATTY = @GL_GNULIB_MDA_ISATTY@ GL_GNULIB_MDA_LSEEK = @GL_GNULIB_MDA_LSEEK@ GL_GNULIB_MDA_MEMCCPY = @GL_GNULIB_MDA_MEMCCPY@ GL_GNULIB_MDA_MKDIR = @GL_GNULIB_MDA_MKDIR@ GL_GNULIB_MDA_OPEN = @GL_GNULIB_MDA_OPEN@ GL_GNULIB_MDA_PUTW = @GL_GNULIB_MDA_PUTW@ GL_GNULIB_MDA_READ = @GL_GNULIB_MDA_READ@ GL_GNULIB_MDA_RMDIR = @GL_GNULIB_MDA_RMDIR@ GL_GNULIB_MDA_STRDUP = @GL_GNULIB_MDA_STRDUP@ GL_GNULIB_MDA_SWAB = @GL_GNULIB_MDA_SWAB@ GL_GNULIB_MDA_TEMPNAM = @GL_GNULIB_MDA_TEMPNAM@ GL_GNULIB_MDA_TZSET = @GL_GNULIB_MDA_TZSET@ GL_GNULIB_MDA_UMASK = @GL_GNULIB_MDA_UMASK@ GL_GNULIB_MDA_UNLINK = @GL_GNULIB_MDA_UNLINK@ GL_GNULIB_MDA_WRITE = @GL_GNULIB_MDA_WRITE@ GL_GNULIB_MEMCHR = @GL_GNULIB_MEMCHR@ GL_GNULIB_MEMMEM = @GL_GNULIB_MEMMEM@ GL_GNULIB_MEMPCPY = @GL_GNULIB_MEMPCPY@ GL_GNULIB_MEMRCHR = @GL_GNULIB_MEMRCHR@ GL_GNULIB_MKDIR = @GL_GNULIB_MKDIR@ GL_GNULIB_MKDIRAT = @GL_GNULIB_MKDIRAT@ GL_GNULIB_MKFIFO = @GL_GNULIB_MKFIFO@ GL_GNULIB_MKFIFOAT = @GL_GNULIB_MKFIFOAT@ GL_GNULIB_MKNOD = @GL_GNULIB_MKNOD@ GL_GNULIB_MKNODAT = @GL_GNULIB_MKNODAT@ GL_GNULIB_MKTIME = @GL_GNULIB_MKTIME@ GL_GNULIB_NANOSLEEP = @GL_GNULIB_NANOSLEEP@ GL_GNULIB_NONBLOCKING = @GL_GNULIB_NONBLOCKING@ GL_GNULIB_OBSTACK_PRINTF = @GL_GNULIB_OBSTACK_PRINTF@ GL_GNULIB_OBSTACK_PRINTF_POSIX = @GL_GNULIB_OBSTACK_PRINTF_POSIX@ GL_GNULIB_OPEN = @GL_GNULIB_OPEN@ GL_GNULIB_OPENAT = @GL_GNULIB_OPENAT@ GL_GNULIB_OVERRIDES_STRUCT_STAT = @GL_GNULIB_OVERRIDES_STRUCT_STAT@ GL_GNULIB_PCLOSE = @GL_GNULIB_PCLOSE@ GL_GNULIB_PERROR = @GL_GNULIB_PERROR@ GL_GNULIB_PIPE = @GL_GNULIB_PIPE@ GL_GNULIB_PIPE2 = @GL_GNULIB_PIPE2@ GL_GNULIB_POPEN = @GL_GNULIB_POPEN@ GL_GNULIB_PREAD = @GL_GNULIB_PREAD@ GL_GNULIB_PRINTF = @GL_GNULIB_PRINTF@ GL_GNULIB_PRINTF_POSIX = @GL_GNULIB_PRINTF_POSIX@ GL_GNULIB_PTHREAD_SIGMASK = @GL_GNULIB_PTHREAD_SIGMASK@ GL_GNULIB_PUTC = @GL_GNULIB_PUTC@ GL_GNULIB_PUTCHAR = @GL_GNULIB_PUTCHAR@ GL_GNULIB_PUTS = @GL_GNULIB_PUTS@ GL_GNULIB_PWRITE = @GL_GNULIB_PWRITE@ GL_GNULIB_RAISE = @GL_GNULIB_RAISE@ GL_GNULIB_RAWMEMCHR = @GL_GNULIB_RAWMEMCHR@ GL_GNULIB_READ = @GL_GNULIB_READ@ GL_GNULIB_READLINK = @GL_GNULIB_READLINK@ GL_GNULIB_READLINKAT = @GL_GNULIB_READLINKAT@ GL_GNULIB_REMOVE = @GL_GNULIB_REMOVE@ GL_GNULIB_RENAME = @GL_GNULIB_RENAME@ GL_GNULIB_RENAMEAT = @GL_GNULIB_RENAMEAT@ GL_GNULIB_RMDIR = @GL_GNULIB_RMDIR@ GL_GNULIB_SCANF = @GL_GNULIB_SCANF@ GL_GNULIB_SETHOSTNAME = @GL_GNULIB_SETHOSTNAME@ GL_GNULIB_SIGABBREV_NP = @GL_GNULIB_SIGABBREV_NP@ GL_GNULIB_SIGACTION = @GL_GNULIB_SIGACTION@ GL_GNULIB_SIGDESCR_NP = @GL_GNULIB_SIGDESCR_NP@ GL_GNULIB_SIGNAL_H_SIGPIPE = @GL_GNULIB_SIGNAL_H_SIGPIPE@ GL_GNULIB_SIGPROCMASK = @GL_GNULIB_SIGPROCMASK@ GL_GNULIB_SLEEP = @GL_GNULIB_SLEEP@ GL_GNULIB_SNPRINTF = @GL_GNULIB_SNPRINTF@ GL_GNULIB_SPRINTF_POSIX = @GL_GNULIB_SPRINTF_POSIX@ GL_GNULIB_STAT = @GL_GNULIB_STAT@ GL_GNULIB_STDIO_H_NONBLOCKING = @GL_GNULIB_STDIO_H_NONBLOCKING@ GL_GNULIB_STDIO_H_SIGPIPE = @GL_GNULIB_STDIO_H_SIGPIPE@ GL_GNULIB_STPCPY = @GL_GNULIB_STPCPY@ GL_GNULIB_STPNCPY = @GL_GNULIB_STPNCPY@ GL_GNULIB_STRCASESTR = @GL_GNULIB_STRCASESTR@ GL_GNULIB_STRCHRNUL = @GL_GNULIB_STRCHRNUL@ GL_GNULIB_STRDUP = @GL_GNULIB_STRDUP@ GL_GNULIB_STRERROR = @GL_GNULIB_STRERROR@ GL_GNULIB_STRERRORNAME_NP = @GL_GNULIB_STRERRORNAME_NP@ GL_GNULIB_STRERROR_R = @GL_GNULIB_STRERROR_R@ GL_GNULIB_STRFTIME = @GL_GNULIB_STRFTIME@ GL_GNULIB_STRNCAT = @GL_GNULIB_STRNCAT@ GL_GNULIB_STRNDUP = @GL_GNULIB_STRNDUP@ GL_GNULIB_STRNLEN = @GL_GNULIB_STRNLEN@ GL_GNULIB_STRPBRK = @GL_GNULIB_STRPBRK@ GL_GNULIB_STRPTIME = @GL_GNULIB_STRPTIME@ GL_GNULIB_STRSEP = @GL_GNULIB_STRSEP@ GL_GNULIB_STRSIGNAL = @GL_GNULIB_STRSIGNAL@ GL_GNULIB_STRSTR = @GL_GNULIB_STRSTR@ GL_GNULIB_STRTOK_R = @GL_GNULIB_STRTOK_R@ GL_GNULIB_STRVERSCMP = @GL_GNULIB_STRVERSCMP@ GL_GNULIB_SYMLINK = @GL_GNULIB_SYMLINK@ GL_GNULIB_SYMLINKAT = @GL_GNULIB_SYMLINKAT@ GL_GNULIB_TIMEGM = @GL_GNULIB_TIMEGM@ GL_GNULIB_TIMESPEC_GET = @GL_GNULIB_TIMESPEC_GET@ GL_GNULIB_TIME_R = @GL_GNULIB_TIME_R@ GL_GNULIB_TIME_RZ = @GL_GNULIB_TIME_RZ@ GL_GNULIB_TMPFILE = @GL_GNULIB_TMPFILE@ GL_GNULIB_TRUNCATE = @GL_GNULIB_TRUNCATE@ GL_GNULIB_TTYNAME_R = @GL_GNULIB_TTYNAME_R@ GL_GNULIB_TZSET = @GL_GNULIB_TZSET@ GL_GNULIB_UNISTD_H_NONBLOCKING = @GL_GNULIB_UNISTD_H_NONBLOCKING@ GL_GNULIB_UNISTD_H_SIGPIPE = @GL_GNULIB_UNISTD_H_SIGPIPE@ GL_GNULIB_UNLINK = @GL_GNULIB_UNLINK@ GL_GNULIB_UNLINKAT = @GL_GNULIB_UNLINKAT@ GL_GNULIB_USLEEP = @GL_GNULIB_USLEEP@ GL_GNULIB_UTIMENSAT = @GL_GNULIB_UTIMENSAT@ GL_GNULIB_VASPRINTF = @GL_GNULIB_VASPRINTF@ GL_GNULIB_VDPRINTF = @GL_GNULIB_VDPRINTF@ GL_GNULIB_VFPRINTF = @GL_GNULIB_VFPRINTF@ GL_GNULIB_VFPRINTF_POSIX = @GL_GNULIB_VFPRINTF_POSIX@ GL_GNULIB_VFSCANF = @GL_GNULIB_VFSCANF@ GL_GNULIB_VPRINTF = @GL_GNULIB_VPRINTF@ GL_GNULIB_VPRINTF_POSIX = @GL_GNULIB_VPRINTF_POSIX@ GL_GNULIB_VSCANF = @GL_GNULIB_VSCANF@ GL_GNULIB_VSNPRINTF = @GL_GNULIB_VSNPRINTF@ GL_GNULIB_VSPRINTF_POSIX = @GL_GNULIB_VSPRINTF_POSIX@ GL_GNULIB_WRITE = @GL_GNULIB_WRITE@ GNULIBHEADERS_OVERRIDE_WINT_T = @GNULIBHEADERS_OVERRIDE_WINT_T@ GNULIB_GETTIMEOFDAY = @GNULIB_GETTIMEOFDAY@ GREP = @GREP@ HAVE_ALLOCA_H = @HAVE_ALLOCA_H@ HAVE_C99_STDINT_H = @HAVE_C99_STDINT_H@ HAVE_CHOWN = @HAVE_CHOWN@ HAVE_COPY_FILE_RANGE = @HAVE_COPY_FILE_RANGE@ HAVE_DECL_ENVIRON = @HAVE_DECL_ENVIRON@ HAVE_DECL_EXECVPE = @HAVE_DECL_EXECVPE@ HAVE_DECL_FCHDIR = @HAVE_DECL_FCHDIR@ HAVE_DECL_FCLOSEALL = @HAVE_DECL_FCLOSEALL@ HAVE_DECL_FDATASYNC = @HAVE_DECL_FDATASYNC@ HAVE_DECL_FPURGE = @HAVE_DECL_FPURGE@ HAVE_DECL_FSEEKO = @HAVE_DECL_FSEEKO@ HAVE_DECL_FTELLO = @HAVE_DECL_FTELLO@ HAVE_DECL_GETDELIM = @HAVE_DECL_GETDELIM@ HAVE_DECL_GETDOMAINNAME = @HAVE_DECL_GETDOMAINNAME@ HAVE_DECL_GETLINE = @HAVE_DECL_GETLINE@ HAVE_DECL_GETLOGIN = @HAVE_DECL_GETLOGIN@ HAVE_DECL_GETLOGIN_R = @HAVE_DECL_GETLOGIN_R@ HAVE_DECL_GETPAGESIZE = @HAVE_DECL_GETPAGESIZE@ HAVE_DECL_GETUSERSHELL = @HAVE_DECL_GETUSERSHELL@ HAVE_DECL_LOCALTIME_R = @HAVE_DECL_LOCALTIME_R@ HAVE_DECL_MEMMEM = @HAVE_DECL_MEMMEM@ HAVE_DECL_MEMRCHR = @HAVE_DECL_MEMRCHR@ HAVE_DECL_OBSTACK_PRINTF = @HAVE_DECL_OBSTACK_PRINTF@ HAVE_DECL_SETHOSTNAME = @HAVE_DECL_SETHOSTNAME@ HAVE_DECL_SNPRINTF = @HAVE_DECL_SNPRINTF@ HAVE_DECL_STRDUP = @HAVE_DECL_STRDUP@ HAVE_DECL_STRERROR_R = @HAVE_DECL_STRERROR_R@ HAVE_DECL_STRNDUP = @HAVE_DECL_STRNDUP@ HAVE_DECL_STRNLEN = @HAVE_DECL_STRNLEN@ HAVE_DECL_STRSIGNAL = @HAVE_DECL_STRSIGNAL@ HAVE_DECL_STRTOK_R = @HAVE_DECL_STRTOK_R@ HAVE_DECL_TRUNCATE = @HAVE_DECL_TRUNCATE@ HAVE_DECL_TTYNAME_R = @HAVE_DECL_TTYNAME_R@ HAVE_DECL_VSNPRINTF = @HAVE_DECL_VSNPRINTF@ HAVE_DPRINTF = @HAVE_DPRINTF@ HAVE_DUP3 = @HAVE_DUP3@ HAVE_EUIDACCESS = @HAVE_EUIDACCESS@ HAVE_EXECVPE = @HAVE_EXECVPE@ HAVE_EXPLICIT_BZERO = @HAVE_EXPLICIT_BZERO@ HAVE_FACCESSAT = @HAVE_FACCESSAT@ HAVE_FCHDIR = @HAVE_FCHDIR@ HAVE_FCHMODAT = @HAVE_FCHMODAT@ HAVE_FCHOWNAT = @HAVE_FCHOWNAT@ HAVE_FCNTL = @HAVE_FCNTL@ HAVE_FDATASYNC = @HAVE_FDATASYNC@ HAVE_FFSL = @HAVE_FFSL@ HAVE_FFSLL = @HAVE_FFSLL@ HAVE_FSEEKO = @HAVE_FSEEKO@ HAVE_FSTATAT = @HAVE_FSTATAT@ HAVE_FSYNC = @HAVE_FSYNC@ HAVE_FTELLO = @HAVE_FTELLO@ HAVE_FTRUNCATE = @HAVE_FTRUNCATE@ HAVE_FUTIMENS = @HAVE_FUTIMENS@ HAVE_GETDTABLESIZE = @HAVE_GETDTABLESIZE@ HAVE_GETENTROPY = @HAVE_GETENTROPY@ HAVE_GETGROUPS = @HAVE_GETGROUPS@ HAVE_GETHOSTNAME = @HAVE_GETHOSTNAME@ HAVE_GETLOGIN = @HAVE_GETLOGIN@ HAVE_GETPAGESIZE = @HAVE_GETPAGESIZE@ HAVE_GETPASS = @HAVE_GETPASS@ HAVE_GETUMASK = @HAVE_GETUMASK@ HAVE_GROUP_MEMBER = @HAVE_GROUP_MEMBER@ HAVE_INTTYPES_H = @HAVE_INTTYPES_H@ HAVE_LCHMOD = @HAVE_LCHMOD@ HAVE_LCHOWN = @HAVE_LCHOWN@ HAVE_LINK = @HAVE_LINK@ HAVE_LINKAT = @HAVE_LINKAT@ HAVE_LSTAT = @HAVE_LSTAT@ HAVE_MAX_ALIGN_T = @HAVE_MAX_ALIGN_T@ HAVE_MBSLEN = @HAVE_MBSLEN@ HAVE_MEMPCPY = @HAVE_MEMPCPY@ HAVE_MKDIRAT = @HAVE_MKDIRAT@ HAVE_MKFIFO = @HAVE_MKFIFO@ HAVE_MKFIFOAT = @HAVE_MKFIFOAT@ HAVE_MKNOD = @HAVE_MKNOD@ HAVE_MKNODAT = @HAVE_MKNODAT@ HAVE_MSVC_INVALID_PARAMETER_HANDLER = @HAVE_MSVC_INVALID_PARAMETER_HANDLER@ HAVE_NANOSLEEP = @HAVE_NANOSLEEP@ HAVE_OPENAT = @HAVE_OPENAT@ HAVE_OS_H = @HAVE_OS_H@ HAVE_PCLOSE = @HAVE_PCLOSE@ HAVE_PIPE = @HAVE_PIPE@ HAVE_PIPE2 = @HAVE_PIPE2@ HAVE_POPEN = @HAVE_POPEN@ HAVE_POSIX_SIGNALBLOCKING = @HAVE_POSIX_SIGNALBLOCKING@ HAVE_PREAD = @HAVE_PREAD@ HAVE_PTHREAD_SIGMASK = @HAVE_PTHREAD_SIGMASK@ HAVE_PWRITE = @HAVE_PWRITE@ HAVE_RAISE = @HAVE_RAISE@ HAVE_RAWMEMCHR = @HAVE_RAWMEMCHR@ HAVE_READLINK = @HAVE_READLINK@ HAVE_READLINKAT = @HAVE_READLINKAT@ HAVE_RENAMEAT = @HAVE_RENAMEAT@ HAVE_SETHOSTNAME = @HAVE_SETHOSTNAME@ HAVE_SIGABBREV_NP = @HAVE_SIGABBREV_NP@ HAVE_SIGACTION = @HAVE_SIGACTION@ HAVE_SIGDESCR_NP = @HAVE_SIGDESCR_NP@ HAVE_SIGHANDLER_T = @HAVE_SIGHANDLER_T@ HAVE_SIGINFO_T = @HAVE_SIGINFO_T@ 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_SIGSET_T = @HAVE_SIGSET_T@ HAVE_SLEEP = @HAVE_SLEEP@ HAVE_STDINT_H = @HAVE_STDINT_H@ HAVE_STPCPY = @HAVE_STPCPY@ HAVE_STPNCPY = @HAVE_STPNCPY@ HAVE_STRCASESTR = @HAVE_STRCASESTR@ HAVE_STRCHRNUL = @HAVE_STRCHRNUL@ HAVE_STRERRORNAME_NP = @HAVE_STRERRORNAME_NP@ HAVE_STRPBRK = @HAVE_STRPBRK@ HAVE_STRPTIME = @HAVE_STRPTIME@ HAVE_STRSEP = @HAVE_STRSEP@ HAVE_STRUCT_SIGACTION_SA_SIGACTION = @HAVE_STRUCT_SIGACTION_SA_SIGACTION@ HAVE_STRVERSCMP = @HAVE_STRVERSCMP@ HAVE_SYMLINK = @HAVE_SYMLINK@ HAVE_SYMLINKAT = @HAVE_SYMLINKAT@ HAVE_SYS_BITYPES_H = @HAVE_SYS_BITYPES_H@ HAVE_SYS_INTTYPES_H = @HAVE_SYS_INTTYPES_H@ HAVE_SYS_PARAM_H = @HAVE_SYS_PARAM_H@ HAVE_SYS_TYPES_H = @HAVE_SYS_TYPES_H@ HAVE_TIMEGM = @HAVE_TIMEGM@ HAVE_TIMESPEC_GET = @HAVE_TIMESPEC_GET@ HAVE_TIMEZONE_T = @HAVE_TIMEZONE_T@ HAVE_TYPE_VOLATILE_SIG_ATOMIC_T = @HAVE_TYPE_VOLATILE_SIG_ATOMIC_T@ HAVE_UNISTD_H = @HAVE_UNISTD_H@ HAVE_UNLINKAT = @HAVE_UNLINKAT@ HAVE_USLEEP = @HAVE_USLEEP@ HAVE_UTIMENSAT = @HAVE_UTIMENSAT@ HAVE_VASPRINTF = @HAVE_VASPRINTF@ HAVE_VDPRINTF = @HAVE_VDPRINTF@ HAVE_WCHAR_H = @HAVE_WCHAR_H@ HAVE_WCHAR_T = @HAVE_WCHAR_T@ HAVE_WINSOCK2_H = @HAVE_WINSOCK2_H@ HAVE__BOOL = @HAVE__BOOL@ 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@ LIBINTL = @LIBINTL@ LIBMULTITHREAD = @LIBMULTITHREAD@ LIBOBJS = @LIBOBJS@ LIBPMULTITHREAD = @LIBPMULTITHREAD@ LIBPTHREAD = @LIBPTHREAD@ LIBS = @LIBS@ LIBSTDTHREAD = @LIBSTDTHREAD@ LIBTHREAD = @LIBTHREAD@ LIBTOOL = @LIBTOOL@ LIB_SCHED_YIELD = @LIB_SCHED_YIELD@ LIMITS_H = @LIMITS_H@ LIPO = @LIPO@ LN = @LN@ LN_S = @LN_S@ LTLIBINTL = @LTLIBINTL@ 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_ERRNO_H = @NEXT_AS_FIRST_DIRECTIVE_ERRNO_H@ NEXT_AS_FIRST_DIRECTIVE_FCNTL_H = @NEXT_AS_FIRST_DIRECTIVE_FCNTL_H@ NEXT_AS_FIRST_DIRECTIVE_LIMITS_H = @NEXT_AS_FIRST_DIRECTIVE_LIMITS_H@ NEXT_AS_FIRST_DIRECTIVE_SIGNAL_H = @NEXT_AS_FIRST_DIRECTIVE_SIGNAL_H@ NEXT_AS_FIRST_DIRECTIVE_STDDEF_H = @NEXT_AS_FIRST_DIRECTIVE_STDDEF_H@ NEXT_AS_FIRST_DIRECTIVE_STDINT_H = @NEXT_AS_FIRST_DIRECTIVE_STDINT_H@ NEXT_AS_FIRST_DIRECTIVE_STDIO_H = @NEXT_AS_FIRST_DIRECTIVE_STDIO_H@ NEXT_AS_FIRST_DIRECTIVE_STRING_H = @NEXT_AS_FIRST_DIRECTIVE_STRING_H@ NEXT_AS_FIRST_DIRECTIVE_SYS_STAT_H = @NEXT_AS_FIRST_DIRECTIVE_SYS_STAT_H@ NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H = @NEXT_AS_FIRST_DIRECTIVE_SYS_TYPES_H@ NEXT_AS_FIRST_DIRECTIVE_TIME_H = @NEXT_AS_FIRST_DIRECTIVE_TIME_H@ NEXT_AS_FIRST_DIRECTIVE_UNISTD_H = @NEXT_AS_FIRST_DIRECTIVE_UNISTD_H@ NEXT_ERRNO_H = @NEXT_ERRNO_H@ NEXT_FCNTL_H = @NEXT_FCNTL_H@ NEXT_LIMITS_H = @NEXT_LIMITS_H@ NEXT_SIGNAL_H = @NEXT_SIGNAL_H@ NEXT_STDDEF_H = @NEXT_STDDEF_H@ NEXT_STDINT_H = @NEXT_STDINT_H@ NEXT_STDIO_H = @NEXT_STDIO_H@ NEXT_STRING_H = @NEXT_STRING_H@ NEXT_SYS_STAT_H = @NEXT_SYS_STAT_H@ NEXT_SYS_TYPES_H = @NEXT_SYS_TYPES_H@ NEXT_TIME_H = @NEXT_TIME_H@ NEXT_UNISTD_H = @NEXT_UNISTD_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@ PTHREAD_H_DEFINES_STRUCT_TIMESPEC = @PTHREAD_H_DEFINES_STRUCT_TIMESPEC@ PTRDIFF_T_SUFFIX = @PTRDIFF_T_SUFFIX@ RANLIB = @RANLIB@ REPLACE_ACCESS = @REPLACE_ACCESS@ REPLACE_CHOWN = @REPLACE_CHOWN@ REPLACE_CLOSE = @REPLACE_CLOSE@ REPLACE_CREAT = @REPLACE_CREAT@ REPLACE_CTIME = @REPLACE_CTIME@ REPLACE_DPRINTF = @REPLACE_DPRINTF@ REPLACE_DUP = @REPLACE_DUP@ REPLACE_DUP2 = @REPLACE_DUP2@ REPLACE_EXECL = @REPLACE_EXECL@ REPLACE_EXECLE = @REPLACE_EXECLE@ REPLACE_EXECLP = @REPLACE_EXECLP@ REPLACE_EXECV = @REPLACE_EXECV@ REPLACE_EXECVE = @REPLACE_EXECVE@ REPLACE_EXECVP = @REPLACE_EXECVP@ REPLACE_EXECVPE = @REPLACE_EXECVPE@ REPLACE_FACCESSAT = @REPLACE_FACCESSAT@ REPLACE_FCHMODAT = @REPLACE_FCHMODAT@ REPLACE_FCHOWNAT = @REPLACE_FCHOWNAT@ REPLACE_FCLOSE = @REPLACE_FCLOSE@ REPLACE_FCNTL = @REPLACE_FCNTL@ REPLACE_FDOPEN = @REPLACE_FDOPEN@ REPLACE_FFLUSH = @REPLACE_FFLUSH@ REPLACE_FFSLL = @REPLACE_FFSLL@ REPLACE_FOPEN = @REPLACE_FOPEN@ REPLACE_FPRINTF = @REPLACE_FPRINTF@ REPLACE_FPURGE = @REPLACE_FPURGE@ REPLACE_FREOPEN = @REPLACE_FREOPEN@ REPLACE_FSEEK = @REPLACE_FSEEK@ REPLACE_FSEEKO = @REPLACE_FSEEKO@ REPLACE_FSTAT = @REPLACE_FSTAT@ REPLACE_FSTATAT = @REPLACE_FSTATAT@ REPLACE_FTELL = @REPLACE_FTELL@ REPLACE_FTELLO = @REPLACE_FTELLO@ REPLACE_FTRUNCATE = @REPLACE_FTRUNCATE@ REPLACE_FUTIMENS = @REPLACE_FUTIMENS@ REPLACE_GETCWD = @REPLACE_GETCWD@ REPLACE_GETDELIM = @REPLACE_GETDELIM@ REPLACE_GETDOMAINNAME = @REPLACE_GETDOMAINNAME@ REPLACE_GETDTABLESIZE = @REPLACE_GETDTABLESIZE@ REPLACE_GETGROUPS = @REPLACE_GETGROUPS@ REPLACE_GETLINE = @REPLACE_GETLINE@ REPLACE_GETLOGIN_R = @REPLACE_GETLOGIN_R@ REPLACE_GETPAGESIZE = @REPLACE_GETPAGESIZE@ REPLACE_GETPASS = @REPLACE_GETPASS@ REPLACE_GMTIME = @REPLACE_GMTIME@ REPLACE_ISATTY = @REPLACE_ISATTY@ REPLACE_LCHOWN = @REPLACE_LCHOWN@ REPLACE_LINK = @REPLACE_LINK@ REPLACE_LINKAT = @REPLACE_LINKAT@ REPLACE_LOCALTIME = @REPLACE_LOCALTIME@ REPLACE_LOCALTIME_R = @REPLACE_LOCALTIME_R@ REPLACE_LSEEK = @REPLACE_LSEEK@ REPLACE_LSTAT = @REPLACE_LSTAT@ REPLACE_MEMCHR = @REPLACE_MEMCHR@ REPLACE_MEMMEM = @REPLACE_MEMMEM@ REPLACE_MKDIR = @REPLACE_MKDIR@ REPLACE_MKFIFO = @REPLACE_MKFIFO@ REPLACE_MKFIFOAT = @REPLACE_MKFIFOAT@ REPLACE_MKNOD = @REPLACE_MKNOD@ REPLACE_MKNODAT = @REPLACE_MKNODAT@ REPLACE_MKTIME = @REPLACE_MKTIME@ REPLACE_NANOSLEEP = @REPLACE_NANOSLEEP@ REPLACE_NULL = @REPLACE_NULL@ REPLACE_OBSTACK_PRINTF = @REPLACE_OBSTACK_PRINTF@ REPLACE_OPEN = @REPLACE_OPEN@ REPLACE_OPENAT = @REPLACE_OPENAT@ REPLACE_PERROR = @REPLACE_PERROR@ REPLACE_POPEN = @REPLACE_POPEN@ REPLACE_PREAD = @REPLACE_PREAD@ REPLACE_PRINTF = @REPLACE_PRINTF@ REPLACE_PTHREAD_SIGMASK = @REPLACE_PTHREAD_SIGMASK@ REPLACE_PWRITE = @REPLACE_PWRITE@ REPLACE_RAISE = @REPLACE_RAISE@ REPLACE_READ = @REPLACE_READ@ REPLACE_READLINK = @REPLACE_READLINK@ REPLACE_READLINKAT = @REPLACE_READLINKAT@ REPLACE_REMOVE = @REPLACE_REMOVE@ REPLACE_RENAME = @REPLACE_RENAME@ REPLACE_RENAMEAT = @REPLACE_RENAMEAT@ REPLACE_RMDIR = @REPLACE_RMDIR@ REPLACE_SLEEP = @REPLACE_SLEEP@ REPLACE_SNPRINTF = @REPLACE_SNPRINTF@ REPLACE_SPRINTF = @REPLACE_SPRINTF@ REPLACE_STAT = @REPLACE_STAT@ REPLACE_STDIO_READ_FUNCS = @REPLACE_STDIO_READ_FUNCS@ REPLACE_STDIO_WRITE_FUNCS = @REPLACE_STDIO_WRITE_FUNCS@ REPLACE_STPNCPY = @REPLACE_STPNCPY@ REPLACE_STRCASESTR = @REPLACE_STRCASESTR@ REPLACE_STRCHRNUL = @REPLACE_STRCHRNUL@ REPLACE_STRDUP = @REPLACE_STRDUP@ REPLACE_STRERROR = @REPLACE_STRERROR@ REPLACE_STRERRORNAME_NP = @REPLACE_STRERRORNAME_NP@ REPLACE_STRERROR_R = @REPLACE_STRERROR_R@ REPLACE_STRFTIME = @REPLACE_STRFTIME@ REPLACE_STRNCAT = @REPLACE_STRNCAT@ REPLACE_STRNDUP = @REPLACE_STRNDUP@ REPLACE_STRNLEN = @REPLACE_STRNLEN@ REPLACE_STRSIGNAL = @REPLACE_STRSIGNAL@ REPLACE_STRSTR = @REPLACE_STRSTR@ REPLACE_STRTOK_R = @REPLACE_STRTOK_R@ REPLACE_SYMLINK = @REPLACE_SYMLINK@ REPLACE_SYMLINKAT = @REPLACE_SYMLINKAT@ REPLACE_TIMEGM = @REPLACE_TIMEGM@ REPLACE_TMPFILE = @REPLACE_TMPFILE@ REPLACE_TRUNCATE = @REPLACE_TRUNCATE@ REPLACE_TTYNAME_R = @REPLACE_TTYNAME_R@ REPLACE_TZSET = @REPLACE_TZSET@ REPLACE_UNLINK = @REPLACE_UNLINK@ REPLACE_UNLINKAT = @REPLACE_UNLINKAT@ REPLACE_USLEEP = @REPLACE_USLEEP@ REPLACE_UTIMENSAT = @REPLACE_UTIMENSAT@ REPLACE_VASPRINTF = @REPLACE_VASPRINTF@ REPLACE_VDPRINTF = @REPLACE_VDPRINTF@ REPLACE_VFPRINTF = @REPLACE_VFPRINTF@ REPLACE_VPRINTF = @REPLACE_VPRINTF@ REPLACE_VSNPRINTF = @REPLACE_VSNPRINTF@ REPLACE_VSPRINTF = @REPLACE_VSPRINTF@ REPLACE_WRITE = @REPLACE_WRITE@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ SIG_ATOMIC_T_SUFFIX = @SIG_ATOMIC_T_SUFFIX@ SIZE_T_SUFFIX = @SIZE_T_SUFFIX@ STDBOOL_H = @STDBOOL_H@ STDDEF_H = @STDDEF_H@ STDINT_H = @STDINT_H@ STDNORETURN_H = @STDNORETURN_H@ STRIP = @STRIP@ SYS_TIME_H_DEFINES_STRUCT_TIMESPEC = @SYS_TIME_H_DEFINES_STRUCT_TIMESPEC@ TIME_H_DEFINES_STRUCT_TIMESPEC = @TIME_H_DEFINES_STRUCT_TIMESPEC@ TIME_H_DEFINES_TIME_UTC = @TIME_H_DEFINES_TIME_UTC@ UNDEFINE_STRTOK_R = @UNDEFINE_STRTOK_R@ UNISTD_H_DEFINES_STRUCT_TIMESPEC = @UNISTD_H_DEFINES_STRUCT_TIMESPEC@ UNISTD_H_HAVE_SYS_RANDOM_H = @UNISTD_H_HAVE_SYS_RANDOM_H@ UNISTD_H_HAVE_WINSOCK2_H = @UNISTD_H_HAVE_WINSOCK2_H@ UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS = @UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS@ VERSION = @VERSION@ WCHAR_T_SUFFIX = @WCHAR_T_SUFFIX@ WINDOWS_64_BIT_OFF_T = @WINDOWS_64_BIT_OFF_T@ WINDOWS_64_BIT_ST_SIZE = @WINDOWS_64_BIT_ST_SIZE@ WINDOWS_STAT_INODES = @WINDOWS_STAT_INODES@ WINDOWS_STAT_TIMESPEC = @WINDOWS_STAT_TIMESPEC@ 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@ runstatedir = @runstatedir@ 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 = alloca.in.h asyncsafe-spin.h attribute.h basename-lgpl.h \ clean-temp-private.h cloexec.h close.c dup2.c errno.in.h \ error.c error.h fcntl.c fcntl.in.h fd-hook.h filename.h \ fstat.c stat-w32.c stat-w32.h getdtablesize.c intprops.h \ limits.in.h malloca.h msvc-inval.c msvc-inval.h msvc-nothrow.c \ msvc-nothrow.h open.c pathmax.h raise.c rmdir.c sig-handler.h \ sigaction.c signal.in.h sigprocmask.c _Noreturn.h \ arg-nonnull.h c++defs.h warn-on-use.h stat-w32.c stat-w32.h \ stat.c stat-time.h stdbool.in.h stddef.in.h stdint.in.h \ stdio.in.h stdnoreturn.in.h strerror.c strerror-override.c \ strerror-override.h string.in.h sys_stat.in.h sys_types.in.h \ thread-optim.h time.in.h unistd.in.h verify.h \ 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 windows-spin.c \ windows-spin.h xalloc-oversized.h BUILT_SOURCES = $(ALLOCA_H) $(ERRNO_H) fcntl.h $(LIMITS_H) signal.h \ $(STDBOOL_H) $(STDDEF_H) $(STDINT_H) stdio.h $(STDNORETURN_H) \ string.h sys/stat.h sys/types.h time.h unistd.h SUFFIXES = MOSTLYCLEANFILES = core *.stackdump alloca.h alloca.h-t errno.h \ errno.h-t fcntl.h fcntl.h-t limits.h limits.h-t signal.h \ signal.h-t stdbool.h stdbool.h-t stddef.h stddef.h-t stdint.h \ stdint.h-t stdio.h stdio.h-t stdnoreturn.h stdnoreturn.h-t \ string.h string.h-t sys/stat.h sys/stat.h-t sys/types.h \ sys/types.h-t time.h time.h-t unistd.h unistd.h-t MOSTLYCLEANDIRS = sys CLEANFILES = DISTCLEANFILES = MAINTAINERCLEANFILES = # No GNU Make output. AM_CPPFLAGS = AM_CFLAGS = libgnu_la_SOURCES = asyncsafe-spin.c basename-lgpl.c \ clean-temp-simple.h clean-temp-simple.c cloexec.c \ fatal-signal.h fatal-signal.c fd-hook.c getprogname.h \ getprogname.c gettext.h idx.h gl_linkedhash_list.h \ gl_linkedhash_list.c gl_anyhash1.h gl_anyhash2.h \ gl_anyhash_primes.h gl_anylinked_list1.h gl_anylinked_list2.h \ gl_list.h gl_list.c glthread/lock.h glthread/lock.c malloca.c \ sig-handler.c size_max.h stat-time.c glthread/threadlib.c \ unistd.c xsize.h xsize.c libgnu_la_LIBADD = $(gl_LTLIBOBJS) libgnu_la_DEPENDENCIES = $(gl_LTLIBOBJS) EXTRA_libgnu_la_SOURCES = close.c dup2.c error.c fcntl.c fstat.c \ stat-w32.c getdtablesize.c msvc-inval.c msvc-nothrow.c open.c \ raise.c rmdir.c sigaction.c sigprocmask.c stat-w32.c stat.c \ strerror.c strerror-override.c windows-mutex.c windows-once.c \ windows-recmutex.c windows-rwlock.c windows-spin.c libgnu_la_LDFLAGS = $(AM_LDFLAGS) -no-undefined $(LIBTHREAD) \ $(LTLIBINTL) # 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__ || __clang__ || 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 # 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. ARG_NONNULL_H = $(srcdir)/arg-nonnull.h # 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. CXXDEFS_H = $(srcdir)/c++defs.h # 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. WARN_ON_USE_H = $(srcdir)/warn-on-use.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__maybe_remake_depfiles)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__maybe_remake_depfiles);; \ 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)/asyncsafe-spin.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/basename-lgpl.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/clean-temp-simple.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cloexec.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/close.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dup2.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/error.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fatal-signal.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fcntl.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fd-hook.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fstat.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/getdtablesize.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/getprogname.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gl_linkedhash_list.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/gl_list.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/malloca.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/msvc-inval.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/msvc-nothrow.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/open.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/raise.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rmdir.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sig-handler.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sigaction.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/sigprocmask.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stat-time.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stat-w32.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/stat.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/strerror-override.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/strerror.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/unistd.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-mutex.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-once.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-recmutex.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-rwlock.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/windows-spin.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xsize.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@glthread/$(DEPDIR)/lock.Plo@am__quote@ # am--include-marker @AMDEP_TRUE@@am__include@ @am__quote@glthread/$(DEPDIR)/threadlib.Plo@am__quote@ # am--include-marker $(am__depfiles_remade): @$(MKDIR_P) $(@D) @echo '# dummy' >$@-t && $(am__mv) $@-t $@ am--depfiles: $(am__depfiles_remade) .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: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) distdir-am distdir-am: $(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: $(BUILT_SOURCES) $(MAKE) $(AM_MAKEFLAGS) 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 -f ./$(DEPDIR)/asyncsafe-spin.Plo -rm -f ./$(DEPDIR)/basename-lgpl.Plo -rm -f ./$(DEPDIR)/clean-temp-simple.Plo -rm -f ./$(DEPDIR)/cloexec.Plo -rm -f ./$(DEPDIR)/close.Plo -rm -f ./$(DEPDIR)/dup2.Plo -rm -f ./$(DEPDIR)/error.Plo -rm -f ./$(DEPDIR)/fatal-signal.Plo -rm -f ./$(DEPDIR)/fcntl.Plo -rm -f ./$(DEPDIR)/fd-hook.Plo -rm -f ./$(DEPDIR)/fstat.Plo -rm -f ./$(DEPDIR)/getdtablesize.Plo -rm -f ./$(DEPDIR)/getprogname.Plo -rm -f ./$(DEPDIR)/gl_linkedhash_list.Plo -rm -f ./$(DEPDIR)/gl_list.Plo -rm -f ./$(DEPDIR)/malloca.Plo -rm -f ./$(DEPDIR)/msvc-inval.Plo -rm -f ./$(DEPDIR)/msvc-nothrow.Plo -rm -f ./$(DEPDIR)/open.Plo -rm -f ./$(DEPDIR)/raise.Plo -rm -f ./$(DEPDIR)/rmdir.Plo -rm -f ./$(DEPDIR)/sig-handler.Plo -rm -f ./$(DEPDIR)/sigaction.Plo -rm -f ./$(DEPDIR)/sigprocmask.Plo -rm -f ./$(DEPDIR)/stat-time.Plo -rm -f ./$(DEPDIR)/stat-w32.Plo -rm -f ./$(DEPDIR)/stat.Plo -rm -f ./$(DEPDIR)/strerror-override.Plo -rm -f ./$(DEPDIR)/strerror.Plo -rm -f ./$(DEPDIR)/unistd.Plo -rm -f ./$(DEPDIR)/windows-mutex.Plo -rm -f ./$(DEPDIR)/windows-once.Plo -rm -f ./$(DEPDIR)/windows-recmutex.Plo -rm -f ./$(DEPDIR)/windows-rwlock.Plo -rm -f ./$(DEPDIR)/windows-spin.Plo -rm -f ./$(DEPDIR)/xsize.Plo -rm -f glthread/$(DEPDIR)/lock.Plo -rm -f glthread/$(DEPDIR)/threadlib.Plo -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 -f ./$(DEPDIR)/asyncsafe-spin.Plo -rm -f ./$(DEPDIR)/basename-lgpl.Plo -rm -f ./$(DEPDIR)/clean-temp-simple.Plo -rm -f ./$(DEPDIR)/cloexec.Plo -rm -f ./$(DEPDIR)/close.Plo -rm -f ./$(DEPDIR)/dup2.Plo -rm -f ./$(DEPDIR)/error.Plo -rm -f ./$(DEPDIR)/fatal-signal.Plo -rm -f ./$(DEPDIR)/fcntl.Plo -rm -f ./$(DEPDIR)/fd-hook.Plo -rm -f ./$(DEPDIR)/fstat.Plo -rm -f ./$(DEPDIR)/getdtablesize.Plo -rm -f ./$(DEPDIR)/getprogname.Plo -rm -f ./$(DEPDIR)/gl_linkedhash_list.Plo -rm -f ./$(DEPDIR)/gl_list.Plo -rm -f ./$(DEPDIR)/malloca.Plo -rm -f ./$(DEPDIR)/msvc-inval.Plo -rm -f ./$(DEPDIR)/msvc-nothrow.Plo -rm -f ./$(DEPDIR)/open.Plo -rm -f ./$(DEPDIR)/raise.Plo -rm -f ./$(DEPDIR)/rmdir.Plo -rm -f ./$(DEPDIR)/sig-handler.Plo -rm -f ./$(DEPDIR)/sigaction.Plo -rm -f ./$(DEPDIR)/sigprocmask.Plo -rm -f ./$(DEPDIR)/stat-time.Plo -rm -f ./$(DEPDIR)/stat-w32.Plo -rm -f ./$(DEPDIR)/stat.Plo -rm -f ./$(DEPDIR)/strerror-override.Plo -rm -f ./$(DEPDIR)/strerror.Plo -rm -f ./$(DEPDIR)/unistd.Plo -rm -f ./$(DEPDIR)/windows-mutex.Plo -rm -f ./$(DEPDIR)/windows-once.Plo -rm -f ./$(DEPDIR)/windows-recmutex.Plo -rm -f ./$(DEPDIR)/windows-rwlock.Plo -rm -f ./$(DEPDIR)/windows-spin.Plo -rm -f ./$(DEPDIR)/xsize.Plo -rm -f glthread/$(DEPDIR)/lock.Plo -rm -f glthread/$(DEPDIR)/threadlib.Plo -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-exec install-strip .PHONY: $(am__recursive_targets) CTAGS GTAGS TAGS all all-am \ am--depfiles 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 works with the given compiler. @GL_GENERATE_ALLOCA_H_TRUE@alloca.h: alloca.in.h $(top_builddir)/config.status @GL_GENERATE_ALLOCA_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_ALLOCA_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ @GL_GENERATE_ALLOCA_H_TRUE@ sed -e 's|@''HAVE_ALLOCA_H''@|$(HAVE_ALLOCA_H)|g' < $(srcdir)/alloca.in.h; \ @GL_GENERATE_ALLOCA_H_TRUE@ } > $@-t && \ @GL_GENERATE_ALLOCA_H_TRUE@ mv -f $@-t $@ @GL_GENERATE_ALLOCA_H_FALSE@alloca.h: $(top_builddir)/config.status @GL_GENERATE_ALLOCA_H_FALSE@ rm -f $@ # We need the following in order to create when the system # doesn't have one that is POSIX compliant. @GL_GENERATE_ERRNO_H_TRUE@errno.h: errno.in.h $(top_builddir)/config.status @GL_GENERATE_ERRNO_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_ERRNO_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ @GL_GENERATE_ERRNO_H_TRUE@ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''NEXT_ERRNO_H''@|$(NEXT_ERRNO_H)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''EMULTIHOP_HIDDEN''@|$(EMULTIHOP_HIDDEN)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''EMULTIHOP_VALUE''@|$(EMULTIHOP_VALUE)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''ENOLINK_HIDDEN''@|$(ENOLINK_HIDDEN)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''ENOLINK_VALUE''@|$(ENOLINK_VALUE)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''EOVERFLOW_HIDDEN''@|$(EOVERFLOW_HIDDEN)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ -e 's|@''EOVERFLOW_VALUE''@|$(EOVERFLOW_VALUE)|g' \ @GL_GENERATE_ERRNO_H_TRUE@ < $(srcdir)/errno.in.h; \ @GL_GENERATE_ERRNO_H_TRUE@ } > $@-t && \ @GL_GENERATE_ERRNO_H_TRUE@ mv $@-t $@ @GL_GENERATE_ERRNO_H_FALSE@errno.h: $(top_builddir)/config.status @GL_GENERATE_ERRNO_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. fcntl.h: fcntl.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_FCNTL_H''@|$(NEXT_FCNTL_H)|g' \ -e 's/@''GNULIB_CREAT''@/$(GL_GNULIB_CREAT)/g' \ -e 's/@''GNULIB_FCNTL''@/$(GL_GNULIB_FCNTL)/g' \ -e 's/@''GNULIB_NONBLOCKING''@/$(GL_GNULIB_NONBLOCKING)/g' \ -e 's/@''GNULIB_OPEN''@/$(GL_GNULIB_OPEN)/g' \ -e 's/@''GNULIB_OPENAT''@/$(GL_GNULIB_OPENAT)/g' \ -e 's/@''GNULIB_MDA_CREAT''@/$(GL_GNULIB_MDA_CREAT)/g' \ -e 's/@''GNULIB_MDA_OPEN''@/$(GL_GNULIB_MDA_OPEN)/g' \ -e 's|@''HAVE_FCNTL''@|$(HAVE_FCNTL)|g' \ -e 's|@''HAVE_OPENAT''@|$(HAVE_OPENAT)|g' \ -e 's|@''REPLACE_CREAT''@|$(REPLACE_CREAT)|g' \ -e 's|@''REPLACE_FCNTL''@|$(REPLACE_FCNTL)|g' \ -e 's|@''REPLACE_OPEN''@|$(REPLACE_OPEN)|g' \ -e 's|@''REPLACE_OPENAT''@|$(REPLACE_OPENAT)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/fcntl.in.h; \ } > $@-t && \ mv $@-t $@ # 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 a complete one. signal.h: signal.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_SIGNAL_H''@|$(NEXT_SIGNAL_H)|g' \ -e 's/@''GNULIB_PTHREAD_SIGMASK''@/$(GL_GNULIB_PTHREAD_SIGMASK)/g' \ -e 's/@''GNULIB_RAISE''@/$(GL_GNULIB_RAISE)/g' \ -e 's/@''GNULIB_SIGNAL_H_SIGPIPE''@/$(GL_GNULIB_SIGNAL_H_SIGPIPE)/g' \ -e 's/@''GNULIB_SIGPROCMASK''@/$(GL_GNULIB_SIGPROCMASK)/g' \ -e 's/@''GNULIB_SIGACTION''@/$(GL_GNULIB_SIGACTION)/g' \ -e 's|@''HAVE_POSIX_SIGNALBLOCKING''@|$(HAVE_POSIX_SIGNALBLOCKING)|g' \ -e 's|@''HAVE_PTHREAD_SIGMASK''@|$(HAVE_PTHREAD_SIGMASK)|g' \ -e 's|@''HAVE_RAISE''@|$(HAVE_RAISE)|g' \ -e 's|@''HAVE_SIGSET_T''@|$(HAVE_SIGSET_T)|g' \ -e 's|@''HAVE_SIGINFO_T''@|$(HAVE_SIGINFO_T)|g' \ -e 's|@''HAVE_SIGACTION''@|$(HAVE_SIGACTION)|g' \ -e 's|@''HAVE_STRUCT_SIGACTION_SA_SIGACTION''@|$(HAVE_STRUCT_SIGACTION_SA_SIGACTION)|g' \ -e 's|@''HAVE_TYPE_VOLATILE_SIG_ATOMIC_T''@|$(HAVE_TYPE_VOLATILE_SIG_ATOMIC_T)|g' \ -e 's|@''HAVE_SIGHANDLER_T''@|$(HAVE_SIGHANDLER_T)|g' \ -e 's|@''REPLACE_PTHREAD_SIGMASK''@|$(REPLACE_PTHREAD_SIGMASK)|g' \ -e 's|@''REPLACE_RAISE''@|$(REPLACE_RAISE)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/signal.in.h; \ } > $@-t && \ mv $@-t $@ # We need the following in order to create when the system # doesn't have one that works. @GL_GENERATE_STDBOOL_H_TRUE@stdbool.h: stdbool.in.h $(top_builddir)/config.status @GL_GENERATE_STDBOOL_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_STDBOOL_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ @GL_GENERATE_STDBOOL_H_TRUE@ sed -e 's/@''HAVE__BOOL''@/$(HAVE__BOOL)/g' < $(srcdir)/stdbool.in.h; \ @GL_GENERATE_STDBOOL_H_TRUE@ } > $@-t && \ @GL_GENERATE_STDBOOL_H_TRUE@ mv $@-t $@ @GL_GENERATE_STDBOOL_H_FALSE@stdbool.h: $(top_builddir)/config.status @GL_GENERATE_STDBOOL_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_STDDEF_H_TRUE@stddef.h: stddef.in.h $(top_builddir)/config.status @GL_GENERATE_STDDEF_H_TRUE@ $(AM_V_GEN)rm -f $@-t $@ && \ @GL_GENERATE_STDDEF_H_TRUE@ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */' && \ @GL_GENERATE_STDDEF_H_TRUE@ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''INCLUDE_NEXT''@|$(INCLUDE_NEXT)|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''PRAGMA_SYSTEM_HEADER''@|@PRAGMA_SYSTEM_HEADER@|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''PRAGMA_COLUMNS''@|@PRAGMA_COLUMNS@|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''NEXT_STDDEF_H''@|$(NEXT_STDDEF_H)|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''HAVE_MAX_ALIGN_T''@|$(HAVE_MAX_ALIGN_T)|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''HAVE_WCHAR_T''@|$(HAVE_WCHAR_T)|g' \ @GL_GENERATE_STDDEF_H_TRUE@ -e 's|@''REPLACE_NULL''@|$(REPLACE_NULL)|g' \ @GL_GENERATE_STDDEF_H_TRUE@ < $(srcdir)/stddef.in.h; \ @GL_GENERATE_STDDEF_H_TRUE@ } > $@-t && \ @GL_GENERATE_STDDEF_H_TRUE@ mv $@-t $@ @GL_GENERATE_STDDEF_H_FALSE@stddef.h: $(top_builddir)/config.status @GL_GENERATE_STDDEF_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/@''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/@''GNULIBHEADERS_OVERRIDE_WINT_T''@/$(GNULIBHEADERS_OVERRIDE_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 with the given compiler. stdio.h: stdio.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_STDIO_H''@|$(NEXT_STDIO_H)|g' \ -e 's/@''GNULIB_DPRINTF''@/$(GL_GNULIB_DPRINTF)/g' \ -e 's/@''GNULIB_FCLOSE''@/$(GL_GNULIB_FCLOSE)/g' \ -e 's/@''GNULIB_FDOPEN''@/$(GL_GNULIB_FDOPEN)/g' \ -e 's/@''GNULIB_FFLUSH''@/$(GL_GNULIB_FFLUSH)/g' \ -e 's/@''GNULIB_FGETC''@/$(GL_GNULIB_FGETC)/g' \ -e 's/@''GNULIB_FGETS''@/$(GL_GNULIB_FGETS)/g' \ -e 's/@''GNULIB_FOPEN''@/$(GL_GNULIB_FOPEN)/g' \ -e 's/@''GNULIB_FPRINTF''@/$(GL_GNULIB_FPRINTF)/g' \ -e 's/@''GNULIB_FPRINTF_POSIX''@/$(GL_GNULIB_FPRINTF_POSIX)/g' \ -e 's/@''GNULIB_FPURGE''@/$(GL_GNULIB_FPURGE)/g' \ -e 's/@''GNULIB_FPUTC''@/$(GL_GNULIB_FPUTC)/g' \ -e 's/@''GNULIB_FPUTS''@/$(GL_GNULIB_FPUTS)/g' \ -e 's/@''GNULIB_FREAD''@/$(GL_GNULIB_FREAD)/g' \ -e 's/@''GNULIB_FREOPEN''@/$(GL_GNULIB_FREOPEN)/g' \ -e 's/@''GNULIB_FSCANF''@/$(GL_GNULIB_FSCANF)/g' \ -e 's/@''GNULIB_FSEEK''@/$(GL_GNULIB_FSEEK)/g' \ -e 's/@''GNULIB_FSEEKO''@/$(GL_GNULIB_FSEEKO)/g' \ -e 's/@''GNULIB_FTELL''@/$(GL_GNULIB_FTELL)/g' \ -e 's/@''GNULIB_FTELLO''@/$(GL_GNULIB_FTELLO)/g' \ -e 's/@''GNULIB_FWRITE''@/$(GL_GNULIB_FWRITE)/g' \ -e 's/@''GNULIB_GETC''@/$(GL_GNULIB_GETC)/g' \ -e 's/@''GNULIB_GETCHAR''@/$(GL_GNULIB_GETCHAR)/g' \ -e 's/@''GNULIB_GETDELIM''@/$(GL_GNULIB_GETDELIM)/g' \ -e 's/@''GNULIB_GETLINE''@/$(GL_GNULIB_GETLINE)/g' \ -e 's/@''GNULIB_OBSTACK_PRINTF''@/$(GL_GNULIB_OBSTACK_PRINTF)/g' \ -e 's/@''GNULIB_OBSTACK_PRINTF_POSIX''@/$(GL_GNULIB_OBSTACK_PRINTF_POSIX)/g' \ -e 's/@''GNULIB_PCLOSE''@/$(GL_GNULIB_PCLOSE)/g' \ -e 's/@''GNULIB_PERROR''@/$(GL_GNULIB_PERROR)/g' \ -e 's/@''GNULIB_POPEN''@/$(GL_GNULIB_POPEN)/g' \ -e 's/@''GNULIB_PRINTF''@/$(GL_GNULIB_PRINTF)/g' \ -e 's/@''GNULIB_PRINTF_POSIX''@/$(GL_GNULIB_PRINTF_POSIX)/g' \ -e 's/@''GNULIB_PUTC''@/$(GL_GNULIB_PUTC)/g' \ -e 's/@''GNULIB_PUTCHAR''@/$(GL_GNULIB_PUTCHAR)/g' \ -e 's/@''GNULIB_PUTS''@/$(GL_GNULIB_PUTS)/g' \ -e 's/@''GNULIB_REMOVE''@/$(GL_GNULIB_REMOVE)/g' \ -e 's/@''GNULIB_RENAME''@/$(GL_GNULIB_RENAME)/g' \ -e 's/@''GNULIB_RENAMEAT''@/$(GL_GNULIB_RENAMEAT)/g' \ -e 's/@''GNULIB_SCANF''@/$(GL_GNULIB_SCANF)/g' \ -e 's/@''GNULIB_SNPRINTF''@/$(GL_GNULIB_SNPRINTF)/g' \ -e 's/@''GNULIB_SPRINTF_POSIX''@/$(GL_GNULIB_SPRINTF_POSIX)/g' \ -e 's/@''GNULIB_STDIO_H_NONBLOCKING''@/$(GL_GNULIB_STDIO_H_NONBLOCKING)/g' \ -e 's/@''GNULIB_STDIO_H_SIGPIPE''@/$(GL_GNULIB_STDIO_H_SIGPIPE)/g' \ -e 's/@''GNULIB_TMPFILE''@/$(GL_GNULIB_TMPFILE)/g' \ -e 's/@''GNULIB_VASPRINTF''@/$(GL_GNULIB_VASPRINTF)/g' \ -e 's/@''GNULIB_VDPRINTF''@/$(GL_GNULIB_VDPRINTF)/g' \ -e 's/@''GNULIB_VFPRINTF''@/$(GL_GNULIB_VFPRINTF)/g' \ -e 's/@''GNULIB_VFPRINTF_POSIX''@/$(GL_GNULIB_VFPRINTF_POSIX)/g' \ -e 's/@''GNULIB_VFSCANF''@/$(GL_GNULIB_VFSCANF)/g' \ -e 's/@''GNULIB_VSCANF''@/$(GL_GNULIB_VSCANF)/g' \ -e 's/@''GNULIB_VPRINTF''@/$(GL_GNULIB_VPRINTF)/g' \ -e 's/@''GNULIB_VPRINTF_POSIX''@/$(GL_GNULIB_VPRINTF_POSIX)/g' \ -e 's/@''GNULIB_VSNPRINTF''@/$(GL_GNULIB_VSNPRINTF)/g' \ -e 's/@''GNULIB_VSPRINTF_POSIX''@/$(GL_GNULIB_VSPRINTF_POSIX)/g' \ -e 's/@''GNULIB_MDA_FCLOSEALL''@/$(GL_GNULIB_MDA_FCLOSEALL)/g' \ -e 's/@''GNULIB_MDA_FDOPEN''@/$(GL_GNULIB_MDA_FDOPEN)/g' \ -e 's/@''GNULIB_MDA_FILENO''@/$(GL_GNULIB_MDA_FILENO)/g' \ -e 's/@''GNULIB_MDA_GETW''@/$(GL_GNULIB_MDA_GETW)/g' \ -e 's/@''GNULIB_MDA_PUTW''@/$(GL_GNULIB_MDA_PUTW)/g' \ -e 's/@''GNULIB_MDA_TEMPNAM''@/$(GL_GNULIB_MDA_TEMPNAM)/g' \ < $(srcdir)/stdio.in.h | \ sed -e 's|@''HAVE_DECL_FCLOSEALL''@|$(HAVE_DECL_FCLOSEALL)|g' \ -e 's|@''HAVE_DECL_FPURGE''@|$(HAVE_DECL_FPURGE)|g' \ -e 's|@''HAVE_DECL_FSEEKO''@|$(HAVE_DECL_FSEEKO)|g' \ -e 's|@''HAVE_DECL_FTELLO''@|$(HAVE_DECL_FTELLO)|g' \ -e 's|@''HAVE_DECL_GETDELIM''@|$(HAVE_DECL_GETDELIM)|g' \ -e 's|@''HAVE_DECL_GETLINE''@|$(HAVE_DECL_GETLINE)|g' \ -e 's|@''HAVE_DECL_OBSTACK_PRINTF''@|$(HAVE_DECL_OBSTACK_PRINTF)|g' \ -e 's|@''HAVE_DECL_SNPRINTF''@|$(HAVE_DECL_SNPRINTF)|g' \ -e 's|@''HAVE_DECL_VSNPRINTF''@|$(HAVE_DECL_VSNPRINTF)|g' \ -e 's|@''HAVE_DPRINTF''@|$(HAVE_DPRINTF)|g' \ -e 's|@''HAVE_FSEEKO''@|$(HAVE_FSEEKO)|g' \ -e 's|@''HAVE_FTELLO''@|$(HAVE_FTELLO)|g' \ -e 's|@''HAVE_PCLOSE''@|$(HAVE_PCLOSE)|g' \ -e 's|@''HAVE_POPEN''@|$(HAVE_POPEN)|g' \ -e 's|@''HAVE_RENAMEAT''@|$(HAVE_RENAMEAT)|g' \ -e 's|@''HAVE_VASPRINTF''@|$(HAVE_VASPRINTF)|g' \ -e 's|@''HAVE_VDPRINTF''@|$(HAVE_VDPRINTF)|g' \ -e 's|@''REPLACE_DPRINTF''@|$(REPLACE_DPRINTF)|g' \ -e 's|@''REPLACE_FCLOSE''@|$(REPLACE_FCLOSE)|g' \ -e 's|@''REPLACE_FDOPEN''@|$(REPLACE_FDOPEN)|g' \ -e 's|@''REPLACE_FFLUSH''@|$(REPLACE_FFLUSH)|g' \ -e 's|@''REPLACE_FOPEN''@|$(REPLACE_FOPEN)|g' \ -e 's|@''REPLACE_FPRINTF''@|$(REPLACE_FPRINTF)|g' \ -e 's|@''REPLACE_FPURGE''@|$(REPLACE_FPURGE)|g' \ -e 's|@''REPLACE_FREOPEN''@|$(REPLACE_FREOPEN)|g' \ -e 's|@''REPLACE_FSEEK''@|$(REPLACE_FSEEK)|g' \ -e 's|@''REPLACE_FSEEKO''@|$(REPLACE_FSEEKO)|g' \ -e 's|@''REPLACE_FTELL''@|$(REPLACE_FTELL)|g' \ -e 's|@''REPLACE_FTELLO''@|$(REPLACE_FTELLO)|g' \ -e 's|@''REPLACE_GETDELIM''@|$(REPLACE_GETDELIM)|g' \ -e 's|@''REPLACE_GETLINE''@|$(REPLACE_GETLINE)|g' \ -e 's|@''REPLACE_OBSTACK_PRINTF''@|$(REPLACE_OBSTACK_PRINTF)|g' \ -e 's|@''REPLACE_PERROR''@|$(REPLACE_PERROR)|g' \ -e 's|@''REPLACE_POPEN''@|$(REPLACE_POPEN)|g' \ -e 's|@''REPLACE_PRINTF''@|$(REPLACE_PRINTF)|g' \ -e 's|@''REPLACE_REMOVE''@|$(REPLACE_REMOVE)|g' \ -e 's|@''REPLACE_RENAME''@|$(REPLACE_RENAME)|g' \ -e 's|@''REPLACE_RENAMEAT''@|$(REPLACE_RENAMEAT)|g' \ -e 's|@''REPLACE_SNPRINTF''@|$(REPLACE_SNPRINTF)|g' \ -e 's|@''REPLACE_SPRINTF''@|$(REPLACE_SPRINTF)|g' \ -e 's|@''REPLACE_STDIO_READ_FUNCS''@|$(REPLACE_STDIO_READ_FUNCS)|g' \ -e 's|@''REPLACE_STDIO_WRITE_FUNCS''@|$(REPLACE_STDIO_WRITE_FUNCS)|g' \ -e 's|@''REPLACE_TMPFILE''@|$(REPLACE_TMPFILE)|g' \ -e 's|@''REPLACE_VASPRINTF''@|$(REPLACE_VASPRINTF)|g' \ -e 's|@''REPLACE_VDPRINTF''@|$(REPLACE_VDPRINTF)|g' \ -e 's|@''REPLACE_VFPRINTF''@|$(REPLACE_VFPRINTF)|g' \ -e 's|@''REPLACE_VPRINTF''@|$(REPLACE_VPRINTF)|g' \ -e 's|@''REPLACE_VSNPRINTF''@|$(REPLACE_VSNPRINTF)|g' \ -e 's|@''REPLACE_VSPRINTF''@|$(REPLACE_VSPRINTF)|g' \ -e 's|@''ASM_SYMBOL_PREFIX''@|$(ASM_SYMBOL_PREFIX)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)'; \ } > $@-t && \ mv $@-t $@ # 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. string.h: string.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_STRING_H''@|$(NEXT_STRING_H)|g' \ -e 's/@''GNULIB_EXPLICIT_BZERO''@/$(GL_GNULIB_EXPLICIT_BZERO)/g' \ -e 's/@''GNULIB_FFSL''@/$(GL_GNULIB_FFSL)/g' \ -e 's/@''GNULIB_FFSLL''@/$(GL_GNULIB_FFSLL)/g' \ -e 's/@''GNULIB_MBSLEN''@/$(GL_GNULIB_MBSLEN)/g' \ -e 's/@''GNULIB_MBSNLEN''@/$(GL_GNULIB_MBSNLEN)/g' \ -e 's/@''GNULIB_MBSCHR''@/$(GL_GNULIB_MBSCHR)/g' \ -e 's/@''GNULIB_MBSRCHR''@/$(GL_GNULIB_MBSRCHR)/g' \ -e 's/@''GNULIB_MBSSTR''@/$(GL_GNULIB_MBSSTR)/g' \ -e 's/@''GNULIB_MBSCASECMP''@/$(GL_GNULIB_MBSCASECMP)/g' \ -e 's/@''GNULIB_MBSNCASECMP''@/$(GL_GNULIB_MBSNCASECMP)/g' \ -e 's/@''GNULIB_MBSPCASECMP''@/$(GL_GNULIB_MBSPCASECMP)/g' \ -e 's/@''GNULIB_MBSCASESTR''@/$(GL_GNULIB_MBSCASESTR)/g' \ -e 's/@''GNULIB_MBSCSPN''@/$(GL_GNULIB_MBSCSPN)/g' \ -e 's/@''GNULIB_MBSPBRK''@/$(GL_GNULIB_MBSPBRK)/g' \ -e 's/@''GNULIB_MBSSPN''@/$(GL_GNULIB_MBSSPN)/g' \ -e 's/@''GNULIB_MBSSEP''@/$(GL_GNULIB_MBSSEP)/g' \ -e 's/@''GNULIB_MBSTOK_R''@/$(GL_GNULIB_MBSTOK_R)/g' \ -e 's/@''GNULIB_MEMCHR''@/$(GL_GNULIB_MEMCHR)/g' \ -e 's/@''GNULIB_MEMMEM''@/$(GL_GNULIB_MEMMEM)/g' \ -e 's/@''GNULIB_MEMPCPY''@/$(GL_GNULIB_MEMPCPY)/g' \ -e 's/@''GNULIB_MEMRCHR''@/$(GL_GNULIB_MEMRCHR)/g' \ -e 's/@''GNULIB_RAWMEMCHR''@/$(GL_GNULIB_RAWMEMCHR)/g' \ -e 's/@''GNULIB_STPCPY''@/$(GL_GNULIB_STPCPY)/g' \ -e 's/@''GNULIB_STPNCPY''@/$(GL_GNULIB_STPNCPY)/g' \ -e 's/@''GNULIB_STRCHRNUL''@/$(GL_GNULIB_STRCHRNUL)/g' \ -e 's/@''GNULIB_STRDUP''@/$(GL_GNULIB_STRDUP)/g' \ -e 's/@''GNULIB_STRNCAT''@/$(GL_GNULIB_STRNCAT)/g' \ -e 's/@''GNULIB_STRNDUP''@/$(GL_GNULIB_STRNDUP)/g' \ -e 's/@''GNULIB_STRNLEN''@/$(GL_GNULIB_STRNLEN)/g' \ -e 's/@''GNULIB_STRPBRK''@/$(GL_GNULIB_STRPBRK)/g' \ -e 's/@''GNULIB_STRSEP''@/$(GL_GNULIB_STRSEP)/g' \ -e 's/@''GNULIB_STRSTR''@/$(GL_GNULIB_STRSTR)/g' \ -e 's/@''GNULIB_STRCASESTR''@/$(GL_GNULIB_STRCASESTR)/g' \ -e 's/@''GNULIB_STRTOK_R''@/$(GL_GNULIB_STRTOK_R)/g' \ -e 's/@''GNULIB_STRERROR''@/$(GL_GNULIB_STRERROR)/g' \ -e 's/@''GNULIB_STRERROR_R''@/$(GL_GNULIB_STRERROR_R)/g' \ -e 's/@''GNULIB_STRERRORNAME_NP''@/$(GL_GNULIB_STRERRORNAME_NP)/g' \ -e 's/@''GNULIB_SIGABBREV_NP''@/$(GL_GNULIB_SIGABBREV_NP)/g' \ -e 's/@''GNULIB_SIGDESCR_NP''@/$(GL_GNULIB_SIGDESCR_NP)/g' \ -e 's/@''GNULIB_STRSIGNAL''@/$(GL_GNULIB_STRSIGNAL)/g' \ -e 's/@''GNULIB_STRVERSCMP''@/$(GL_GNULIB_STRVERSCMP)/g' \ -e 's/@''GNULIB_MDA_MEMCCPY''@/$(GL_GNULIB_MDA_MEMCCPY)/g' \ -e 's/@''GNULIB_MDA_STRDUP''@/$(GL_GNULIB_MDA_STRDUP)/g' \ < $(srcdir)/string.in.h | \ sed -e 's|@''HAVE_EXPLICIT_BZERO''@|$(HAVE_EXPLICIT_BZERO)|g' \ -e 's|@''HAVE_FFSL''@|$(HAVE_FFSL)|g' \ -e 's|@''HAVE_FFSLL''@|$(HAVE_FFSLL)|g' \ -e 's|@''HAVE_MBSLEN''@|$(HAVE_MBSLEN)|g' \ -e 's|@''HAVE_DECL_MEMMEM''@|$(HAVE_DECL_MEMMEM)|g' \ -e 's|@''HAVE_MEMPCPY''@|$(HAVE_MEMPCPY)|g' \ -e 's|@''HAVE_DECL_MEMRCHR''@|$(HAVE_DECL_MEMRCHR)|g' \ -e 's|@''HAVE_RAWMEMCHR''@|$(HAVE_RAWMEMCHR)|g' \ -e 's|@''HAVE_STPCPY''@|$(HAVE_STPCPY)|g' \ -e 's|@''HAVE_STPNCPY''@|$(HAVE_STPNCPY)|g' \ -e 's|@''HAVE_STRCHRNUL''@|$(HAVE_STRCHRNUL)|g' \ -e 's|@''HAVE_DECL_STRDUP''@|$(HAVE_DECL_STRDUP)|g' \ -e 's|@''HAVE_DECL_STRNDUP''@|$(HAVE_DECL_STRNDUP)|g' \ -e 's|@''HAVE_DECL_STRNLEN''@|$(HAVE_DECL_STRNLEN)|g' \ -e 's|@''HAVE_STRPBRK''@|$(HAVE_STRPBRK)|g' \ -e 's|@''HAVE_STRSEP''@|$(HAVE_STRSEP)|g' \ -e 's|@''HAVE_STRCASESTR''@|$(HAVE_STRCASESTR)|g' \ -e 's|@''HAVE_DECL_STRTOK_R''@|$(HAVE_DECL_STRTOK_R)|g' \ -e 's|@''HAVE_DECL_STRERROR_R''@|$(HAVE_DECL_STRERROR_R)|g' \ -e 's|@''HAVE_STRERRORNAME_NP''@|$(HAVE_STRERRORNAME_NP)|g' \ -e 's|@''HAVE_SIGABBREV_NP''@|$(HAVE_SIGABBREV_NP)|g' \ -e 's|@''HAVE_SIGDESCR_NP''@|$(HAVE_SIGDESCR_NP)|g' \ -e 's|@''HAVE_DECL_STRSIGNAL''@|$(HAVE_DECL_STRSIGNAL)|g' \ -e 's|@''HAVE_STRVERSCMP''@|$(HAVE_STRVERSCMP)|g' \ -e 's|@''REPLACE_FFSLL''@|$(REPLACE_FFSLL)|g' \ -e 's|@''REPLACE_MEMCHR''@|$(REPLACE_MEMCHR)|g' \ -e 's|@''REPLACE_MEMMEM''@|$(REPLACE_MEMMEM)|g' \ -e 's|@''REPLACE_STPNCPY''@|$(REPLACE_STPNCPY)|g' \ -e 's|@''REPLACE_STRCHRNUL''@|$(REPLACE_STRCHRNUL)|g' \ -e 's|@''REPLACE_STRDUP''@|$(REPLACE_STRDUP)|g' \ -e 's|@''REPLACE_STRNCAT''@|$(REPLACE_STRNCAT)|g' \ -e 's|@''REPLACE_STRNDUP''@|$(REPLACE_STRNDUP)|g' \ -e 's|@''REPLACE_STRNLEN''@|$(REPLACE_STRNLEN)|g' \ -e 's|@''REPLACE_STRSTR''@|$(REPLACE_STRSTR)|g' \ -e 's|@''REPLACE_STRCASESTR''@|$(REPLACE_STRCASESTR)|g' \ -e 's|@''REPLACE_STRTOK_R''@|$(REPLACE_STRTOK_R)|g' \ -e 's|@''REPLACE_STRERROR''@|$(REPLACE_STRERROR)|g' \ -e 's|@''REPLACE_STRERROR_R''@|$(REPLACE_STRERROR_R)|g' \ -e 's|@''REPLACE_STRERRORNAME_NP''@|$(REPLACE_STRERRORNAME_NP)|g' \ -e 's|@''REPLACE_STRSIGNAL''@|$(REPLACE_STRSIGNAL)|g' \ -e 's|@''UNDEFINE_STRTOK_R''@|$(UNDEFINE_STRTOK_R)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)'; \ < $(srcdir)/string.in.h; \ } > $@-t && \ mv $@-t $@ # We need the following in order to create when the system # has one that is incomplete. sys/stat.h: sys_stat.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_STAT_H''@|$(NEXT_SYS_STAT_H)|g' \ -e 's|@''WINDOWS_64_BIT_ST_SIZE''@|$(WINDOWS_64_BIT_ST_SIZE)|g' \ -e 's|@''WINDOWS_STAT_TIMESPEC''@|$(WINDOWS_STAT_TIMESPEC)|g' \ -e 's/@''GNULIB_FCHMODAT''@/$(GL_GNULIB_FCHMODAT)/g' \ -e 's/@''GNULIB_FSTAT''@/$(GL_GNULIB_FSTAT)/g' \ -e 's/@''GNULIB_FSTATAT''@/$(GL_GNULIB_FSTATAT)/g' \ -e 's/@''GNULIB_FUTIMENS''@/$(GL_GNULIB_FUTIMENS)/g' \ -e 's/@''GNULIB_GETUMASK''@/$(GL_GNULIB_GETUMASK)/g' \ -e 's/@''GNULIB_LCHMOD''@/$(GL_GNULIB_LCHMOD)/g' \ -e 's/@''GNULIB_LSTAT''@/$(GL_GNULIB_LSTAT)/g' \ -e 's/@''GNULIB_MKDIR''@/$(GL_GNULIB_MKDIR)/g' \ -e 's/@''GNULIB_MKDIRAT''@/$(GL_GNULIB_MKDIRAT)/g' \ -e 's/@''GNULIB_MKFIFO''@/$(GL_GNULIB_MKFIFO)/g' \ -e 's/@''GNULIB_MKFIFOAT''@/$(GL_GNULIB_MKFIFOAT)/g' \ -e 's/@''GNULIB_MKNOD''@/$(GL_GNULIB_MKNOD)/g' \ -e 's/@''GNULIB_MKNODAT''@/$(GL_GNULIB_MKNODAT)/g' \ -e 's/@''GNULIB_STAT''@/$(GL_GNULIB_STAT)/g' \ -e 's/@''GNULIB_UTIMENSAT''@/$(GL_GNULIB_UTIMENSAT)/g' \ -e 's/@''GNULIB_OVERRIDES_STRUCT_STAT''@/$(GL_GNULIB_OVERRIDES_STRUCT_STAT)/g' \ -e 's/@''GNULIB_MDA_CHMOD''@/$(GL_GNULIB_MDA_CHMOD)/g' \ -e 's/@''GNULIB_MDA_MKDIR''@/$(GL_GNULIB_MDA_MKDIR)/g' \ -e 's/@''GNULIB_MDA_UMASK''@/$(GL_GNULIB_MDA_UMASK)/g' \ -e 's|@''HAVE_FCHMODAT''@|$(HAVE_FCHMODAT)|g' \ -e 's|@''HAVE_FSTATAT''@|$(HAVE_FSTATAT)|g' \ -e 's|@''HAVE_FUTIMENS''@|$(HAVE_FUTIMENS)|g' \ -e 's|@''HAVE_GETUMASK''@|$(HAVE_GETUMASK)|g' \ -e 's|@''HAVE_LCHMOD''@|$(HAVE_LCHMOD)|g' \ -e 's|@''HAVE_LSTAT''@|$(HAVE_LSTAT)|g' \ -e 's|@''HAVE_MKDIRAT''@|$(HAVE_MKDIRAT)|g' \ -e 's|@''HAVE_MKFIFO''@|$(HAVE_MKFIFO)|g' \ -e 's|@''HAVE_MKFIFOAT''@|$(HAVE_MKFIFOAT)|g' \ -e 's|@''HAVE_MKNOD''@|$(HAVE_MKNOD)|g' \ -e 's|@''HAVE_MKNODAT''@|$(HAVE_MKNODAT)|g' \ -e 's|@''HAVE_UTIMENSAT''@|$(HAVE_UTIMENSAT)|g' \ -e 's|@''REPLACE_FCHMODAT''@|$(REPLACE_FCHMODAT)|g' \ -e 's|@''REPLACE_FSTAT''@|$(REPLACE_FSTAT)|g' \ -e 's|@''REPLACE_FSTATAT''@|$(REPLACE_FSTATAT)|g' \ -e 's|@''REPLACE_FUTIMENS''@|$(REPLACE_FUTIMENS)|g' \ -e 's|@''REPLACE_LSTAT''@|$(REPLACE_LSTAT)|g' \ -e 's|@''REPLACE_MKDIR''@|$(REPLACE_MKDIR)|g' \ -e 's|@''REPLACE_MKFIFO''@|$(REPLACE_MKFIFO)|g' \ -e 's|@''REPLACE_MKFIFOAT''@|$(REPLACE_MKFIFOAT)|g' \ -e 's|@''REPLACE_MKNOD''@|$(REPLACE_MKNOD)|g' \ -e 's|@''REPLACE_MKNODAT''@|$(REPLACE_MKNODAT)|g' \ -e 's|@''REPLACE_STAT''@|$(REPLACE_STAT)|g' \ -e 's|@''REPLACE_UTIMENSAT''@|$(REPLACE_UTIMENSAT)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/sys_stat.in.h; \ } > $@-t && \ mv $@-t $@ # 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 $@ # We need the following in order to create when the system # doesn't have one that works with the given compiler. time.h: time.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(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_TIME_H''@|$(NEXT_TIME_H)|g' \ -e 's/@''GNULIB_CTIME''@/$(GL_GNULIB_CTIME)/g' \ -e 's/@''GNULIB_LOCALTIME''@/$(GL_GNULIB_LOCALTIME)/g' \ -e 's/@''GNULIB_MKTIME''@/$(GL_GNULIB_MKTIME)/g' \ -e 's/@''GNULIB_NANOSLEEP''@/$(GL_GNULIB_NANOSLEEP)/g' \ -e 's/@''GNULIB_STRFTIME''@/$(GL_GNULIB_STRFTIME)/g' \ -e 's/@''GNULIB_STRPTIME''@/$(GL_GNULIB_STRPTIME)/g' \ -e 's/@''GNULIB_TIMEGM''@/$(GL_GNULIB_TIMEGM)/g' \ -e 's/@''GNULIB_TIMESPEC_GET''@/$(GL_GNULIB_TIMESPEC_GET)/g' \ -e 's/@''GNULIB_TIME_R''@/$(GL_GNULIB_TIME_R)/g' \ -e 's/@''GNULIB_TIME_RZ''@/$(GL_GNULIB_TIME_RZ)/g' \ -e 's/@''GNULIB_TZSET''@/$(GL_GNULIB_TZSET)/g' \ -e 's/@''GNULIB_MDA_TZSET''@/$(GL_GNULIB_MDA_TZSET)/g' \ -e 's|@''HAVE_DECL_LOCALTIME_R''@|$(HAVE_DECL_LOCALTIME_R)|g' \ -e 's|@''HAVE_NANOSLEEP''@|$(HAVE_NANOSLEEP)|g' \ -e 's|@''HAVE_STRPTIME''@|$(HAVE_STRPTIME)|g' \ -e 's|@''HAVE_TIMEGM''@|$(HAVE_TIMEGM)|g' \ -e 's|@''HAVE_TIMESPEC_GET''@|$(HAVE_TIMESPEC_GET)|g' \ -e 's|@''HAVE_TIMEZONE_T''@|$(HAVE_TIMEZONE_T)|g' \ -e 's|@''REPLACE_CTIME''@|$(REPLACE_CTIME)|g' \ -e 's|@''REPLACE_GMTIME''@|$(REPLACE_GMTIME)|g' \ -e 's|@''REPLACE_LOCALTIME''@|$(REPLACE_LOCALTIME)|g' \ -e 's|@''REPLACE_LOCALTIME_R''@|$(REPLACE_LOCALTIME_R)|g' \ -e 's|@''REPLACE_MKTIME''@|$(REPLACE_MKTIME)|g' \ -e 's|@''REPLACE_NANOSLEEP''@|$(REPLACE_NANOSLEEP)|g' \ -e 's|@''REPLACE_STRFTIME''@|$(REPLACE_STRFTIME)|g' \ -e 's|@''REPLACE_TIMEGM''@|$(REPLACE_TIMEGM)|g' \ -e 's|@''REPLACE_TZSET''@|$(REPLACE_TZSET)|g' \ -e 's|@''PTHREAD_H_DEFINES_STRUCT_TIMESPEC''@|$(PTHREAD_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''SYS_TIME_H_DEFINES_STRUCT_TIMESPEC''@|$(SYS_TIME_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''TIME_H_DEFINES_STRUCT_TIMESPEC''@|$(TIME_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''UNISTD_H_DEFINES_STRUCT_TIMESPEC''@|$(UNISTD_H_DEFINES_STRUCT_TIMESPEC)|g' \ -e 's|@''TIME_H_DEFINES_TIME_UTC''@|$(TIME_H_DEFINES_TIME_UTC)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_H)' \ < $(srcdir)/time.in.h; \ } > $@-t && \ mv $@-t $@ # We need the following in order to create an empty placeholder for # when the system doesn't have one. unistd.h: unistd.in.h $(top_builddir)/config.status $(CXXDEFS_H) $(ARG_NONNULL_H) $(WARN_ON_USE_H) $(AM_V_GEN)rm -f $@-t $@ && \ { echo '/* DO NOT EDIT! GENERATED AUTOMATICALLY! */'; \ sed -e 's|@''GUARD_PREFIX''@|GL|g' \ -e 's|@''HAVE_UNISTD_H''@|$(HAVE_UNISTD_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_UNISTD_H''@|$(NEXT_UNISTD_H)|g' \ -e 's|@''WINDOWS_64_BIT_OFF_T''@|$(WINDOWS_64_BIT_OFF_T)|g' \ -e 's/@''GNULIB_ACCESS''@/$(GL_GNULIB_ACCESS)/g' \ -e 's/@''GNULIB_CHDIR''@/$(GL_GNULIB_CHDIR)/g' \ -e 's/@''GNULIB_CHOWN''@/$(GL_GNULIB_CHOWN)/g' \ -e 's/@''GNULIB_CLOSE''@/$(GL_GNULIB_CLOSE)/g' \ -e 's/@''GNULIB_COPY_FILE_RANGE''@/$(GL_GNULIB_COPY_FILE_RANGE)/g' \ -e 's/@''GNULIB_DUP''@/$(GL_GNULIB_DUP)/g' \ -e 's/@''GNULIB_DUP2''@/$(GL_GNULIB_DUP2)/g' \ -e 's/@''GNULIB_DUP3''@/$(GL_GNULIB_DUP3)/g' \ -e 's/@''GNULIB_ENVIRON''@/$(GL_GNULIB_ENVIRON)/g' \ -e 's/@''GNULIB_EUIDACCESS''@/$(GL_GNULIB_EUIDACCESS)/g' \ -e 's/@''GNULIB_EXECL''@/$(GL_GNULIB_EXECL)/g' \ -e 's/@''GNULIB_EXECLE''@/$(GL_GNULIB_EXECLE)/g' \ -e 's/@''GNULIB_EXECLP''@/$(GL_GNULIB_EXECLP)/g' \ -e 's/@''GNULIB_EXECV''@/$(GL_GNULIB_EXECV)/g' \ -e 's/@''GNULIB_EXECVE''@/$(GL_GNULIB_EXECVE)/g' \ -e 's/@''GNULIB_EXECVP''@/$(GL_GNULIB_EXECVP)/g' \ -e 's/@''GNULIB_EXECVPE''@/$(GL_GNULIB_EXECVPE)/g' \ -e 's/@''GNULIB_FACCESSAT''@/$(GL_GNULIB_FACCESSAT)/g' \ -e 's/@''GNULIB_FCHDIR''@/$(GL_GNULIB_FCHDIR)/g' \ -e 's/@''GNULIB_FCHOWNAT''@/$(GL_GNULIB_FCHOWNAT)/g' \ -e 's/@''GNULIB_FDATASYNC''@/$(GL_GNULIB_FDATASYNC)/g' \ -e 's/@''GNULIB_FSYNC''@/$(GL_GNULIB_FSYNC)/g' \ -e 's/@''GNULIB_FTRUNCATE''@/$(GL_GNULIB_FTRUNCATE)/g' \ -e 's/@''GNULIB_GETCWD''@/$(GL_GNULIB_GETCWD)/g' \ -e 's/@''GNULIB_GETDOMAINNAME''@/$(GL_GNULIB_GETDOMAINNAME)/g' \ -e 's/@''GNULIB_GETDTABLESIZE''@/$(GL_GNULIB_GETDTABLESIZE)/g' \ -e 's/@''GNULIB_GETENTROPY''@/$(GL_GNULIB_GETENTROPY)/g' \ -e 's/@''GNULIB_GETGROUPS''@/$(GL_GNULIB_GETGROUPS)/g' \ -e 's/@''GNULIB_GETHOSTNAME''@/$(GL_GNULIB_GETHOSTNAME)/g' \ -e 's/@''GNULIB_GETLOGIN''@/$(GL_GNULIB_GETLOGIN)/g' \ -e 's/@''GNULIB_GETLOGIN_R''@/$(GL_GNULIB_GETLOGIN_R)/g' \ -e 's/@''GNULIB_GETOPT_POSIX''@/$(GL_GNULIB_GETOPT_POSIX)/g' \ -e 's/@''GNULIB_GETPAGESIZE''@/$(GL_GNULIB_GETPAGESIZE)/g' \ -e 's/@''GNULIB_GETPASS''@/$(GL_GNULIB_GETPASS)/g' \ -e 's/@''GNULIB_GETUSERSHELL''@/$(GL_GNULIB_GETUSERSHELL)/g' \ -e 's/@''GNULIB_GROUP_MEMBER''@/$(GL_GNULIB_GROUP_MEMBER)/g' \ -e 's/@''GNULIB_ISATTY''@/$(GL_GNULIB_ISATTY)/g' \ -e 's/@''GNULIB_LCHOWN''@/$(GL_GNULIB_LCHOWN)/g' \ -e 's/@''GNULIB_LINK''@/$(GL_GNULIB_LINK)/g' \ -e 's/@''GNULIB_LINKAT''@/$(GL_GNULIB_LINKAT)/g' \ -e 's/@''GNULIB_LSEEK''@/$(GL_GNULIB_LSEEK)/g' \ -e 's/@''GNULIB_PIPE''@/$(GL_GNULIB_PIPE)/g' \ -e 's/@''GNULIB_PIPE2''@/$(GL_GNULIB_PIPE2)/g' \ -e 's/@''GNULIB_PREAD''@/$(GL_GNULIB_PREAD)/g' \ -e 's/@''GNULIB_PWRITE''@/$(GL_GNULIB_PWRITE)/g' \ -e 's/@''GNULIB_READ''@/$(GL_GNULIB_READ)/g' \ -e 's/@''GNULIB_READLINK''@/$(GL_GNULIB_READLINK)/g' \ -e 's/@''GNULIB_READLINKAT''@/$(GL_GNULIB_READLINKAT)/g' \ -e 's/@''GNULIB_RMDIR''@/$(GL_GNULIB_RMDIR)/g' \ -e 's/@''GNULIB_SETHOSTNAME''@/$(GL_GNULIB_SETHOSTNAME)/g' \ -e 's/@''GNULIB_SLEEP''@/$(GL_GNULIB_SLEEP)/g' \ -e 's/@''GNULIB_SYMLINK''@/$(GL_GNULIB_SYMLINK)/g' \ -e 's/@''GNULIB_SYMLINKAT''@/$(GL_GNULIB_SYMLINKAT)/g' \ -e 's/@''GNULIB_TRUNCATE''@/$(GL_GNULIB_TRUNCATE)/g' \ -e 's/@''GNULIB_TTYNAME_R''@/$(GL_GNULIB_TTYNAME_R)/g' \ -e 's/@''GNULIB_UNISTD_H_GETOPT''@/0$(GL_GNULIB_GL_UNISTD_H_GETOPT)/g' \ -e 's/@''GNULIB_UNISTD_H_NONBLOCKING''@/$(GL_GNULIB_UNISTD_H_NONBLOCKING)/g' \ -e 's/@''GNULIB_UNISTD_H_SIGPIPE''@/$(GL_GNULIB_UNISTD_H_SIGPIPE)/g' \ -e 's/@''GNULIB_UNLINK''@/$(GL_GNULIB_UNLINK)/g' \ -e 's/@''GNULIB_UNLINKAT''@/$(GL_GNULIB_UNLINKAT)/g' \ -e 's/@''GNULIB_USLEEP''@/$(GL_GNULIB_USLEEP)/g' \ -e 's/@''GNULIB_WRITE''@/$(GL_GNULIB_WRITE)/g' \ -e 's/@''GNULIB_MDA_ACCESS''@/$(GL_GNULIB_MDA_ACCESS)/g' \ -e 's/@''GNULIB_MDA_CHDIR''@/$(GL_GNULIB_MDA_CHDIR)/g' \ -e 's/@''GNULIB_MDA_CLOSE''@/$(GL_GNULIB_MDA_CLOSE)/g' \ -e 's/@''GNULIB_MDA_DUP''@/$(GL_GNULIB_MDA_DUP)/g' \ -e 's/@''GNULIB_MDA_DUP2''@/$(GL_GNULIB_MDA_DUP2)/g' \ -e 's/@''GNULIB_MDA_EXECL''@/$(GL_GNULIB_MDA_EXECL)/g' \ -e 's/@''GNULIB_MDA_EXECLE''@/$(GL_GNULIB_MDA_EXECLE)/g' \ -e 's/@''GNULIB_MDA_EXECLP''@/$(GL_GNULIB_MDA_EXECLP)/g' \ -e 's/@''GNULIB_MDA_EXECV''@/$(GL_GNULIB_MDA_EXECV)/g' \ -e 's/@''GNULIB_MDA_EXECVE''@/$(GL_GNULIB_MDA_EXECVE)/g' \ -e 's/@''GNULIB_MDA_EXECVP''@/$(GL_GNULIB_MDA_EXECVP)/g' \ -e 's/@''GNULIB_MDA_EXECVPE''@/$(GL_GNULIB_MDA_EXECVPE)/g' \ -e 's/@''GNULIB_MDA_GETCWD''@/$(GL_GNULIB_MDA_GETCWD)/g' \ -e 's/@''GNULIB_MDA_GETPID''@/$(GL_GNULIB_MDA_GETPID)/g' \ -e 's/@''GNULIB_MDA_ISATTY''@/$(GL_GNULIB_MDA_ISATTY)/g' \ -e 's/@''GNULIB_MDA_LSEEK''@/$(GL_GNULIB_MDA_LSEEK)/g' \ -e 's/@''GNULIB_MDA_READ''@/$(GL_GNULIB_MDA_READ)/g' \ -e 's/@''GNULIB_MDA_RMDIR''@/$(GL_GNULIB_MDA_RMDIR)/g' \ -e 's/@''GNULIB_MDA_SWAB''@/$(GL_GNULIB_MDA_SWAB)/g' \ -e 's/@''GNULIB_MDA_UNLINK''@/$(GL_GNULIB_MDA_UNLINK)/g' \ -e 's/@''GNULIB_MDA_WRITE''@/$(GL_GNULIB_MDA_WRITE)/g' \ < $(srcdir)/unistd.in.h | \ sed -e 's|@''HAVE_CHOWN''@|$(HAVE_CHOWN)|g' \ -e 's|@''HAVE_COPY_FILE_RANGE''@|$(HAVE_COPY_FILE_RANGE)|g' \ -e 's|@''HAVE_DUP3''@|$(HAVE_DUP3)|g' \ -e 's|@''HAVE_EUIDACCESS''@|$(HAVE_EUIDACCESS)|g' \ -e 's|@''HAVE_EXECVPE''@|$(HAVE_EXECVPE)|g' \ -e 's|@''HAVE_FACCESSAT''@|$(HAVE_FACCESSAT)|g' \ -e 's|@''HAVE_FCHDIR''@|$(HAVE_FCHDIR)|g' \ -e 's|@''HAVE_FCHOWNAT''@|$(HAVE_FCHOWNAT)|g' \ -e 's|@''HAVE_FDATASYNC''@|$(HAVE_FDATASYNC)|g' \ -e 's|@''HAVE_FSYNC''@|$(HAVE_FSYNC)|g' \ -e 's|@''HAVE_FTRUNCATE''@|$(HAVE_FTRUNCATE)|g' \ -e 's|@''HAVE_GETDTABLESIZE''@|$(HAVE_GETDTABLESIZE)|g' \ -e 's|@''HAVE_GETENTROPY''@|$(HAVE_GETENTROPY)|g' \ -e 's|@''HAVE_GETGROUPS''@|$(HAVE_GETGROUPS)|g' \ -e 's|@''HAVE_GETHOSTNAME''@|$(HAVE_GETHOSTNAME)|g' \ -e 's|@''HAVE_GETPAGESIZE''@|$(HAVE_GETPAGESIZE)|g' \ -e 's|@''HAVE_GETPASS''@|$(HAVE_GETPASS)|g' \ -e 's|@''HAVE_GROUP_MEMBER''@|$(HAVE_GROUP_MEMBER)|g' \ -e 's|@''HAVE_LCHOWN''@|$(HAVE_LCHOWN)|g' \ -e 's|@''HAVE_LINK''@|$(HAVE_LINK)|g' \ -e 's|@''HAVE_LINKAT''@|$(HAVE_LINKAT)|g' \ -e 's|@''HAVE_PIPE''@|$(HAVE_PIPE)|g' \ -e 's|@''HAVE_PIPE2''@|$(HAVE_PIPE2)|g' \ -e 's|@''HAVE_PREAD''@|$(HAVE_PREAD)|g' \ -e 's|@''HAVE_PWRITE''@|$(HAVE_PWRITE)|g' \ -e 's|@''HAVE_READLINK''@|$(HAVE_READLINK)|g' \ -e 's|@''HAVE_READLINKAT''@|$(HAVE_READLINKAT)|g' \ -e 's|@''HAVE_SETHOSTNAME''@|$(HAVE_SETHOSTNAME)|g' \ -e 's|@''HAVE_SLEEP''@|$(HAVE_SLEEP)|g' \ -e 's|@''HAVE_SYMLINK''@|$(HAVE_SYMLINK)|g' \ -e 's|@''HAVE_SYMLINKAT''@|$(HAVE_SYMLINKAT)|g' \ -e 's|@''HAVE_UNLINKAT''@|$(HAVE_UNLINKAT)|g' \ -e 's|@''HAVE_USLEEP''@|$(HAVE_USLEEP)|g' \ -e 's|@''HAVE_DECL_ENVIRON''@|$(HAVE_DECL_ENVIRON)|g' \ -e 's|@''HAVE_DECL_EXECVPE''@|$(HAVE_DECL_EXECVPE)|g' \ -e 's|@''HAVE_DECL_FCHDIR''@|$(HAVE_DECL_FCHDIR)|g' \ -e 's|@''HAVE_DECL_FDATASYNC''@|$(HAVE_DECL_FDATASYNC)|g' \ -e 's|@''HAVE_DECL_GETDOMAINNAME''@|$(HAVE_DECL_GETDOMAINNAME)|g' \ -e 's|@''HAVE_DECL_GETLOGIN''@|$(HAVE_DECL_GETLOGIN)|g' \ -e 's|@''HAVE_DECL_GETLOGIN_R''@|$(HAVE_DECL_GETLOGIN_R)|g' \ -e 's|@''HAVE_DECL_GETPAGESIZE''@|$(HAVE_DECL_GETPAGESIZE)|g' \ -e 's|@''HAVE_DECL_GETUSERSHELL''@|$(HAVE_DECL_GETUSERSHELL)|g' \ -e 's|@''HAVE_DECL_SETHOSTNAME''@|$(HAVE_DECL_SETHOSTNAME)|g' \ -e 's|@''HAVE_DECL_TRUNCATE''@|$(HAVE_DECL_TRUNCATE)|g' \ -e 's|@''HAVE_DECL_TTYNAME_R''@|$(HAVE_DECL_TTYNAME_R)|g' \ -e 's|@''HAVE_OS_H''@|$(HAVE_OS_H)|g' \ -e 's|@''HAVE_SYS_PARAM_H''@|$(HAVE_SYS_PARAM_H)|g' \ | \ sed -e 's|@''REPLACE_ACCESS''@|$(REPLACE_ACCESS)|g' \ -e 's|@''REPLACE_CHOWN''@|$(REPLACE_CHOWN)|g' \ -e 's|@''REPLACE_CLOSE''@|$(REPLACE_CLOSE)|g' \ -e 's|@''REPLACE_DUP''@|$(REPLACE_DUP)|g' \ -e 's|@''REPLACE_DUP2''@|$(REPLACE_DUP2)|g' \ -e 's|@''REPLACE_EXECL''@|$(REPLACE_EXECL)|g' \ -e 's|@''REPLACE_EXECLE''@|$(REPLACE_EXECLE)|g' \ -e 's|@''REPLACE_EXECLP''@|$(REPLACE_EXECLP)|g' \ -e 's|@''REPLACE_EXECV''@|$(REPLACE_EXECV)|g' \ -e 's|@''REPLACE_EXECVE''@|$(REPLACE_EXECVE)|g' \ -e 's|@''REPLACE_EXECVP''@|$(REPLACE_EXECVP)|g' \ -e 's|@''REPLACE_EXECVPE''@|$(REPLACE_EXECVPE)|g' \ -e 's|@''REPLACE_FACCESSAT''@|$(REPLACE_FACCESSAT)|g' \ -e 's|@''REPLACE_FCHOWNAT''@|$(REPLACE_FCHOWNAT)|g' \ -e 's|@''REPLACE_FTRUNCATE''@|$(REPLACE_FTRUNCATE)|g' \ -e 's|@''REPLACE_GETCWD''@|$(REPLACE_GETCWD)|g' \ -e 's|@''REPLACE_GETDOMAINNAME''@|$(REPLACE_GETDOMAINNAME)|g' \ -e 's|@''REPLACE_GETDTABLESIZE''@|$(REPLACE_GETDTABLESIZE)|g' \ -e 's|@''REPLACE_GETLOGIN_R''@|$(REPLACE_GETLOGIN_R)|g' \ -e 's|@''REPLACE_GETGROUPS''@|$(REPLACE_GETGROUPS)|g' \ -e 's|@''REPLACE_GETPAGESIZE''@|$(REPLACE_GETPAGESIZE)|g' \ -e 's|@''REPLACE_GETPASS''@|$(REPLACE_GETPASS)|g' \ -e 's|@''REPLACE_ISATTY''@|$(REPLACE_ISATTY)|g' \ -e 's|@''REPLACE_LCHOWN''@|$(REPLACE_LCHOWN)|g' \ -e 's|@''REPLACE_LINK''@|$(REPLACE_LINK)|g' \ -e 's|@''REPLACE_LINKAT''@|$(REPLACE_LINKAT)|g' \ -e 's|@''REPLACE_LSEEK''@|$(REPLACE_LSEEK)|g' \ -e 's|@''REPLACE_PREAD''@|$(REPLACE_PREAD)|g' \ -e 's|@''REPLACE_PWRITE''@|$(REPLACE_PWRITE)|g' \ -e 's|@''REPLACE_READ''@|$(REPLACE_READ)|g' \ -e 's|@''REPLACE_READLINK''@|$(REPLACE_READLINK)|g' \ -e 's|@''REPLACE_READLINKAT''@|$(REPLACE_READLINKAT)|g' \ -e 's|@''REPLACE_RMDIR''@|$(REPLACE_RMDIR)|g' \ -e 's|@''REPLACE_SLEEP''@|$(REPLACE_SLEEP)|g' \ -e 's|@''REPLACE_SYMLINK''@|$(REPLACE_SYMLINK)|g' \ -e 's|@''REPLACE_SYMLINKAT''@|$(REPLACE_SYMLINKAT)|g' \ -e 's|@''REPLACE_TRUNCATE''@|$(REPLACE_TRUNCATE)|g' \ -e 's|@''REPLACE_TTYNAME_R''@|$(REPLACE_TTYNAME_R)|g' \ -e 's|@''REPLACE_UNLINK''@|$(REPLACE_UNLINK)|g' \ -e 's|@''REPLACE_UNLINKAT''@|$(REPLACE_UNLINKAT)|g' \ -e 's|@''REPLACE_USLEEP''@|$(REPLACE_USLEEP)|g' \ -e 's|@''REPLACE_WRITE''@|$(REPLACE_WRITE)|g' \ -e 's|@''UNISTD_H_HAVE_SYS_RANDOM_H''@|$(UNISTD_H_HAVE_SYS_RANDOM_H)|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H''@|$(UNISTD_H_HAVE_WINSOCK2_H)|g' \ -e 's|@''UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS''@|$(UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS)|g' \ -e '/definitions of _GL_FUNCDECL_RPL/r $(CXXDEFS_H)' \ -e '/definition of _GL_ARG_NONNULL/r $(ARG_NONNULL_H)' \ -e '/definition of _GL_WARN_ON_USE/r $(WARN_ON_USE_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.4/gnulib-lib/stdio.in.h0000664000000000000000000016451514057155505014135 00000000000000/* A GNU-like . Copyright (C) 2004, 2007-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined __need_FILE || defined __need___FILE || defined _GL_ALREADY_INCLUDING_STDIO_H /* Special invocation convention: - Inside glibc header files. - On OSF/1 5.1 we have a sequence of nested includes -> -> -> -> -> -> -> . In this situation, the functions are not yet declared, therefore we cannot provide the C++ aliases. */ #@INCLUDE_NEXT@ @NEXT_STDIO_H@ #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_STDIO_H #define _GL_ALREADY_INCLUDING_STDIO_H /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_STDIO_H@ #undef _GL_ALREADY_INCLUDING_STDIO_H #ifndef _@GUARD_PREFIX@_STDIO_H #define _@GUARD_PREFIX@_STDIO_H /* Get va_list. Needed on many systems, including glibc 2.8. */ #include #include /* Get off_t and ssize_t. Needed on many systems, including glibc 2.8 and eglibc 2.11.2. May also define off_t to a 64-bit type on native Windows. */ #include /* The __attribute__ feature is available in gcc versions 2.5 and later. The __-protected variants of the attributes 'format' and 'printf' are accepted by gcc versions 2.6.4 (effectively 2.7) and later. We enable _GL_ATTRIBUTE_FORMAT only if these are supported too, because gnulib and libintl do '#define printf __printf__' when they override the 'printf' function. */ #ifndef _GL_ATTRIBUTE_FORMAT # if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) || defined __clang__ # define _GL_ATTRIBUTE_FORMAT(spec) __attribute__ ((__format__ spec)) # else # define _GL_ATTRIBUTE_FORMAT(spec) /* empty */ # endif #endif /* An __attribute__ __format__ specifier for a function that takes a format string and arguments, where the format string directives are the ones standardized by ISO C99 and POSIX. _GL_ATTRIBUTE_SPEC_PRINTF_STANDARD */ /* __gnu_printf__ is supported in GCC >= 4.4. */ #if __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4) # define _GL_ATTRIBUTE_SPEC_PRINTF_STANDARD __gnu_printf__ #else # define _GL_ATTRIBUTE_SPEC_PRINTF_STANDARD __printf__ #endif /* An __attribute__ __format__ specifier for a function that takes a format string and arguments, where the format string directives are the ones of the system printf(), rather than the ones standardized by ISO C99 and POSIX. _GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM */ /* On mingw, Gnulib sets __USE_MINGW_ANSI_STDIO in order to get closer to the standards. The macro GNULIB_PRINTF_ATTRIBUTE_FLAVOR_GNU indicates whether this change is effective. On older mingw, it is not. */ #if GNULIB_PRINTF_ATTRIBUTE_FLAVOR_GNU # define _GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM _GL_ATTRIBUTE_SPEC_PRINTF_STANDARD #else # define _GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM __printf__ #endif /* _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD indicates to GCC that the function takes a format string and arguments, where the format string directives are the ones standardized by ISO C99 and POSIX. */ #define _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD(formatstring_parameter, first_argument) \ _GL_ATTRIBUTE_FORMAT ((_GL_ATTRIBUTE_SPEC_PRINTF_STANDARD, formatstring_parameter, first_argument)) /* _GL_ATTRIBUTE_FORMAT_PRINTF_SYSTEM is like _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD, except that it indicates to GCC that the supported format string directives are the ones of the system printf(), rather than the ones standardized by ISO C99 and POSIX. */ #define _GL_ATTRIBUTE_FORMAT_PRINTF_SYSTEM(formatstring_parameter, first_argument) \ _GL_ATTRIBUTE_FORMAT ((_GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM, formatstring_parameter, first_argument)) /* _GL_ATTRIBUTE_FORMAT_SCANF indicates to GCC that the function takes a format string and arguments, where the format string directives are the ones standardized by ISO C99 and POSIX. */ #if __GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4) # define _GL_ATTRIBUTE_FORMAT_SCANF(formatstring_parameter, first_argument) \ _GL_ATTRIBUTE_FORMAT ((__gnu_scanf__, formatstring_parameter, first_argument)) #else # define _GL_ATTRIBUTE_FORMAT_SCANF(formatstring_parameter, first_argument) \ _GL_ATTRIBUTE_FORMAT ((__scanf__, formatstring_parameter, first_argument)) #endif /* _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM is like _GL_ATTRIBUTE_FORMAT_SCANF, except that it indicates to GCC that the supported format string directives are the ones of the system scanf(), rather than the ones standardized by ISO C99 and POSIX. */ #define _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM(formatstring_parameter, first_argument) \ _GL_ATTRIBUTE_FORMAT ((__scanf__, formatstring_parameter, first_argument)) /* Solaris 10 and NetBSD 7.0 declare renameat in , not in . */ /* But in any case avoid namespace pollution on glibc systems. */ #if (@GNULIB_RENAMEAT@ || defined GNULIB_POSIXCHECK) && (defined __sun || defined __NetBSD__) \ && ! defined __GLIBC__ # include #endif /* Android 4.3 declares renameat in , not in . */ /* But in any case avoid namespace pollution on glibc systems. */ #if (@GNULIB_RENAMEAT@ || defined GNULIB_POSIXCHECK) && defined __ANDROID__ \ && ! defined __GLIBC__ # include #endif /* MSVC declares 'perror' in , not in . We must include it before we #define perror rpl_perror. */ /* But in any case avoid namespace pollution on glibc systems. */ #if (@GNULIB_PERROR@ || defined GNULIB_POSIXCHECK) \ && (defined _WIN32 && ! defined __CYGWIN__) \ && ! defined __GLIBC__ # include #endif /* MSVC declares 'remove' in , not in . We must include it before we #define remove rpl_remove. */ /* MSVC declares 'rename' in , not in . We must include it before we #define rename rpl_rename. */ /* But in any case avoid namespace pollution on glibc systems. */ #if (@GNULIB_REMOVE@ || @GNULIB_RENAME@ || defined GNULIB_POSIXCHECK) \ && (defined _WIN32 && ! defined __CYGWIN__) \ && ! defined __GLIBC__ # include #endif /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* Macros for stringification. */ #define _GL_STDIO_STRINGIZE(token) #token #define _GL_STDIO_MACROEXPAND_AND_STRINGIZE(token) _GL_STDIO_STRINGIZE(token) /* When also using extern inline, suppress the use of static inline in standard headers of problematic Apple configurations, as Libc at least through Libc-825.26 (2013-04-09) mishandles it; see, e.g., . Perhaps Apple will fix this some day. */ #if (defined _GL_EXTERN_INLINE_IN_USE && defined __APPLE__ \ && defined __GNUC__ && defined __STDC__) # undef putc_unlocked #endif #if @GNULIB_DPRINTF@ # if @REPLACE_DPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define dprintf rpl_dprintf # endif _GL_FUNCDECL_RPL (dprintf, int, (int fd, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (dprintf, int, (int fd, const char *restrict format, ...)); # else # if !@HAVE_DPRINTF@ _GL_FUNCDECL_SYS (dprintf, int, (int fd, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (dprintf, int, (int fd, const char *restrict format, ...)); # endif _GL_CXXALIASWARN (dprintf); #elif defined GNULIB_POSIXCHECK # undef dprintf # if HAVE_RAW_DECL_DPRINTF _GL_WARN_ON_USE (dprintf, "dprintf is unportable - " "use gnulib module dprintf for portability"); # endif #endif #if @GNULIB_FCLOSE@ /* Close STREAM and its underlying file descriptor. */ # if @REPLACE_FCLOSE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define fclose rpl_fclose # endif _GL_FUNCDECL_RPL (fclose, int, (FILE *stream) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (fclose, int, (FILE *stream)); # else _GL_CXXALIAS_SYS (fclose, int, (FILE *stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fclose); # endif #elif defined GNULIB_POSIXCHECK # undef fclose /* Assume fclose is always declared. */ _GL_WARN_ON_USE (fclose, "fclose is not always POSIX compliant - " "use gnulib module fclose for portable POSIX compliance"); #endif #if @GNULIB_MDA_FCLOSEALL@ /* On native Windows, map 'fcloseall' to '_fcloseall', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::fcloseall on all platforms that have it. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fcloseall # define fcloseall _fcloseall # endif _GL_CXXALIAS_MDA (fcloseall, int, (void)); # else # if @HAVE_DECL_FCLOSEALL@ # if defined __FreeBSD__ || defined __DragonFly__ _GL_CXXALIAS_SYS (fcloseall, void, (void)); # else _GL_CXXALIAS_SYS (fcloseall, int, (void)); # endif # endif # endif # if (defined _WIN32 && !defined __CYGWIN__) || @HAVE_DECL_FCLOSEALL@ _GL_CXXALIASWARN (fcloseall); # endif #endif #if @GNULIB_FDOPEN@ # if @REPLACE_FDOPEN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fdopen # define fdopen rpl_fdopen # endif _GL_FUNCDECL_RPL (fdopen, FILE *, (int fd, const char *mode) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (fdopen, FILE *, (int fd, const char *mode)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fdopen # define fdopen _fdopen # endif _GL_CXXALIAS_MDA (fdopen, FILE *, (int fd, const char *mode)); # else _GL_CXXALIAS_SYS (fdopen, FILE *, (int fd, const char *mode)); # endif _GL_CXXALIASWARN (fdopen); #elif defined GNULIB_POSIXCHECK # undef fdopen /* Assume fdopen is always declared. */ _GL_WARN_ON_USE (fdopen, "fdopen on native Windows platforms is not POSIX compliant - " "use gnulib module fdopen for portability"); #elif @GNULIB_MDA_FDOPEN@ /* On native Windows, map 'fdopen' to '_fdopen', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::fdopen always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fdopen # define fdopen _fdopen # endif _GL_CXXALIAS_MDA (fdopen, FILE *, (int fd, const char *mode)); # else _GL_CXXALIAS_SYS (fdopen, FILE *, (int fd, const char *mode)); # endif _GL_CXXALIASWARN (fdopen); #endif #if @GNULIB_FFLUSH@ /* Flush all pending data on STREAM according to POSIX rules. Both output and seekable input streams are supported. Note! LOSS OF DATA can occur if fflush is applied on an input stream that is _not_seekable_ or on an update stream that is _not_seekable_ and in which the most recent operation was input. Seekability can be tested with lseek(fileno(fp),0,SEEK_CUR). */ # if @REPLACE_FFLUSH@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define fflush rpl_fflush # endif _GL_FUNCDECL_RPL (fflush, int, (FILE *gl_stream)); _GL_CXXALIAS_RPL (fflush, int, (FILE *gl_stream)); # else _GL_CXXALIAS_SYS (fflush, int, (FILE *gl_stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fflush); # endif #elif defined GNULIB_POSIXCHECK # undef fflush /* Assume fflush is always declared. */ _GL_WARN_ON_USE (fflush, "fflush is not always POSIX compliant - " "use gnulib module fflush for portable POSIX compliance"); #endif #if @GNULIB_FGETC@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fgetc # define fgetc rpl_fgetc # endif _GL_FUNCDECL_RPL (fgetc, int, (FILE *stream) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (fgetc, int, (FILE *stream)); # else _GL_CXXALIAS_SYS (fgetc, int, (FILE *stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fgetc); # endif #endif #if @GNULIB_FGETS@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fgets # define fgets rpl_fgets # endif _GL_FUNCDECL_RPL (fgets, char *, (char *restrict s, int n, FILE *restrict stream) _GL_ARG_NONNULL ((1, 3))); _GL_CXXALIAS_RPL (fgets, char *, (char *restrict s, int n, FILE *restrict stream)); # else _GL_CXXALIAS_SYS (fgets, char *, (char *restrict s, int n, FILE *restrict stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fgets); # endif #endif #if @GNULIB_MDA_FILENO@ /* On native Windows, map 'fileno' to '_fileno', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::fileno always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fileno # define fileno _fileno # endif _GL_CXXALIAS_MDA (fileno, int, (FILE *restrict stream)); # else _GL_CXXALIAS_SYS (fileno, int, (FILE *restrict stream)); # endif _GL_CXXALIASWARN (fileno); #endif #if @GNULIB_FOPEN@ # if @REPLACE_FOPEN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fopen # define fopen rpl_fopen # endif _GL_FUNCDECL_RPL (fopen, FILE *, (const char *restrict filename, const char *restrict mode) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (fopen, FILE *, (const char *restrict filename, const char *restrict mode)); # else _GL_CXXALIAS_SYS (fopen, FILE *, (const char *restrict filename, const char *restrict mode)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fopen); # endif #elif defined GNULIB_POSIXCHECK # undef fopen /* Assume fopen is always declared. */ _GL_WARN_ON_USE (fopen, "fopen on native Windows platforms is not POSIX compliant - " "use gnulib module fopen for portability"); #endif #if @GNULIB_FPRINTF_POSIX@ || @GNULIB_FPRINTF@ # if (@GNULIB_FPRINTF_POSIX@ && @REPLACE_FPRINTF@) \ || (@GNULIB_FPRINTF@ && @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@)) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define fprintf rpl_fprintf # endif # define GNULIB_overrides_fprintf 1 # if @GNULIB_FPRINTF_POSIX@ || @GNULIB_VFPRINTF_POSIX@ _GL_FUNCDECL_RPL (fprintf, int, (FILE *restrict fp, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((1, 2))); # else _GL_FUNCDECL_RPL (fprintf, int, (FILE *restrict fp, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_SYSTEM (2, 3) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_RPL (fprintf, int, (FILE *restrict fp, const char *restrict format, ...)); # else _GL_CXXALIAS_SYS (fprintf, int, (FILE *restrict fp, const char *restrict format, ...)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fprintf); # endif #endif #if !@GNULIB_FPRINTF_POSIX@ && defined GNULIB_POSIXCHECK # if !GNULIB_overrides_fprintf # undef fprintf # endif /* Assume fprintf is always declared. */ _GL_WARN_ON_USE (fprintf, "fprintf is not always POSIX compliant - " "use gnulib module fprintf-posix for portable " "POSIX compliance"); #endif #if @GNULIB_FPURGE@ /* Discard all pending buffered I/O data on STREAM. STREAM must not be wide-character oriented. When discarding pending output, the file position is set back to where it was before the write calls. When discarding pending input, the file position is advanced to match the end of the previously read input. Return 0 if successful. Upon error, return -1 and set errno. */ # if @REPLACE_FPURGE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define fpurge rpl_fpurge # endif _GL_FUNCDECL_RPL (fpurge, int, (FILE *gl_stream) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (fpurge, int, (FILE *gl_stream)); # else # if !@HAVE_DECL_FPURGE@ _GL_FUNCDECL_SYS (fpurge, int, (FILE *gl_stream) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (fpurge, int, (FILE *gl_stream)); # endif _GL_CXXALIASWARN (fpurge); #elif defined GNULIB_POSIXCHECK # undef fpurge # if HAVE_RAW_DECL_FPURGE _GL_WARN_ON_USE (fpurge, "fpurge is not always present - " "use gnulib module fpurge for portability"); # endif #endif #if @GNULIB_FPUTC@ # if @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fputc # define fputc rpl_fputc # endif _GL_FUNCDECL_RPL (fputc, int, (int c, FILE *stream) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (fputc, int, (int c, FILE *stream)); # else _GL_CXXALIAS_SYS (fputc, int, (int c, FILE *stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fputc); # endif #endif #if @GNULIB_FPUTS@ # if @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fputs # define fputs rpl_fputs # endif _GL_FUNCDECL_RPL (fputs, int, (const char *restrict string, FILE *restrict stream) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (fputs, int, (const char *restrict string, FILE *restrict stream)); # else _GL_CXXALIAS_SYS (fputs, int, (const char *restrict string, FILE *restrict stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fputs); # endif #endif #if @GNULIB_FREAD@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fread # define fread rpl_fread # endif _GL_FUNCDECL_RPL (fread, size_t, (void *restrict ptr, size_t s, size_t n, FILE *restrict stream) _GL_ARG_NONNULL ((4))); _GL_CXXALIAS_RPL (fread, size_t, (void *restrict ptr, size_t s, size_t n, FILE *restrict stream)); # else _GL_CXXALIAS_SYS (fread, size_t, (void *restrict ptr, size_t s, size_t n, FILE *restrict stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fread); # endif #endif #if @GNULIB_FREOPEN@ # if @REPLACE_FREOPEN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef freopen # define freopen rpl_freopen # endif _GL_FUNCDECL_RPL (freopen, FILE *, (const char *restrict filename, const char *restrict mode, FILE *restrict stream) _GL_ARG_NONNULL ((2, 3))); _GL_CXXALIAS_RPL (freopen, FILE *, (const char *restrict filename, const char *restrict mode, FILE *restrict stream)); # else _GL_CXXALIAS_SYS (freopen, FILE *, (const char *restrict filename, const char *restrict mode, FILE *restrict stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (freopen); # endif #elif defined GNULIB_POSIXCHECK # undef freopen /* Assume freopen is always declared. */ _GL_WARN_ON_USE (freopen, "freopen on native Windows platforms is not POSIX compliant - " "use gnulib module freopen for portability"); #endif #if @GNULIB_FSCANF@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fscanf # define fscanf rpl_fscanf # endif _GL_FUNCDECL_RPL (fscanf, int, (FILE *restrict stream, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM (2, 3) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (fscanf, int, (FILE *restrict stream, const char *restrict format, ...)); # else _GL_CXXALIAS_SYS (fscanf, int, (FILE *restrict stream, const char *restrict format, ...)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fscanf); # endif #endif /* Set up the following warnings, based on which modules are in use. GNU Coding Standards discourage the use of fseek, since it imposes an arbitrary limitation on some 32-bit hosts. Remember that the fseek module depends on the fseeko module, so we only have three cases to consider: 1. The developer is not using either module. Issue a warning under GNULIB_POSIXCHECK for both functions, to remind them that both functions have bugs on some systems. _GL_NO_LARGE_FILES has no impact on this warning. 2. The developer is using both modules. They may be unaware of the arbitrary limitations of fseek, so issue a warning under GNULIB_POSIXCHECK. On the other hand, they may be using both modules intentionally, so the developer can define _GL_NO_LARGE_FILES in the compilation units where the use of fseek is safe, to silence the warning. 3. The developer is using the fseeko module, but not fseek. Gnulib guarantees that fseek will still work around platform bugs in that case, but we presume that the developer is aware of the pitfalls of fseek and was trying to avoid it, so issue a warning even when GNULIB_POSIXCHECK is undefined. Again, _GL_NO_LARGE_FILES can be defined to silence the warning in particular compilation units. In C++ compilations with GNULIB_NAMESPACE, in order to avoid that fseek gets defined as a macro, it is recommended that the developer uses the fseek module, even if he is not calling the fseek function. Most gnulib clients that perform stream operations should fall into category 3. */ #if @GNULIB_FSEEK@ # if defined GNULIB_POSIXCHECK && !defined _GL_NO_LARGE_FILES # define _GL_FSEEK_WARN /* Category 2, above. */ # undef fseek # endif # if @REPLACE_FSEEK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fseek # define fseek rpl_fseek # endif _GL_FUNCDECL_RPL (fseek, int, (FILE *fp, long offset, int whence) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (fseek, int, (FILE *fp, long offset, int whence)); # else _GL_CXXALIAS_SYS (fseek, int, (FILE *fp, long offset, int whence)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fseek); # endif #endif #if @GNULIB_FSEEKO@ # if !@GNULIB_FSEEK@ && !defined _GL_NO_LARGE_FILES # define _GL_FSEEK_WARN /* Category 3, above. */ # undef fseek # endif # if @REPLACE_FSEEKO@ /* Provide an fseeko function that is aware of a preceding fflush(), and which detects pipes. */ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fseeko # define fseeko rpl_fseeko # endif _GL_FUNCDECL_RPL (fseeko, int, (FILE *fp, off_t offset, int whence) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (fseeko, int, (FILE *fp, off_t offset, int whence)); # else # if ! @HAVE_DECL_FSEEKO@ _GL_FUNCDECL_SYS (fseeko, int, (FILE *fp, off_t offset, int whence) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (fseeko, int, (FILE *fp, off_t offset, int whence)); # endif _GL_CXXALIASWARN (fseeko); #elif defined GNULIB_POSIXCHECK # define _GL_FSEEK_WARN /* Category 1, above. */ # undef fseek # undef fseeko # if HAVE_RAW_DECL_FSEEKO _GL_WARN_ON_USE (fseeko, "fseeko is unportable - " "use gnulib module fseeko for portability"); # endif #endif #ifdef _GL_FSEEK_WARN # undef _GL_FSEEK_WARN /* Here, either fseek is undefined (but C89 guarantees that it is declared), or it is defined as rpl_fseek (declared above). */ _GL_WARN_ON_USE (fseek, "fseek cannot handle files larger than 4 GB " "on 32-bit platforms - " "use fseeko function for handling of large files"); #endif /* ftell, ftello. See the comments on fseek/fseeko. */ #if @GNULIB_FTELL@ # if defined GNULIB_POSIXCHECK && !defined _GL_NO_LARGE_FILES # define _GL_FTELL_WARN /* Category 2, above. */ # undef ftell # endif # if @REPLACE_FTELL@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef ftell # define ftell rpl_ftell # endif _GL_FUNCDECL_RPL (ftell, long, (FILE *fp) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (ftell, long, (FILE *fp)); # else _GL_CXXALIAS_SYS (ftell, long, (FILE *fp)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (ftell); # endif #endif #if @GNULIB_FTELLO@ # if !@GNULIB_FTELL@ && !defined _GL_NO_LARGE_FILES # define _GL_FTELL_WARN /* Category 3, above. */ # undef ftell # endif # if @REPLACE_FTELLO@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef ftello # define ftello rpl_ftello # endif _GL_FUNCDECL_RPL (ftello, off_t, (FILE *fp) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (ftello, off_t, (FILE *fp)); # else # if ! @HAVE_DECL_FTELLO@ _GL_FUNCDECL_SYS (ftello, off_t, (FILE *fp) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (ftello, off_t, (FILE *fp)); # endif _GL_CXXALIASWARN (ftello); #elif defined GNULIB_POSIXCHECK # define _GL_FTELL_WARN /* Category 1, above. */ # undef ftell # undef ftello # if HAVE_RAW_DECL_FTELLO _GL_WARN_ON_USE (ftello, "ftello is unportable - " "use gnulib module ftello for portability"); # endif #endif #ifdef _GL_FTELL_WARN # undef _GL_FTELL_WARN /* Here, either ftell is undefined (but C89 guarantees that it is declared), or it is defined as rpl_ftell (declared above). */ _GL_WARN_ON_USE (ftell, "ftell cannot handle files larger than 4 GB " "on 32-bit platforms - " "use ftello function for handling of large files"); #endif #if @GNULIB_FWRITE@ # if @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fwrite # define fwrite rpl_fwrite # endif _GL_FUNCDECL_RPL (fwrite, size_t, (const void *restrict ptr, size_t s, size_t n, FILE *restrict stream) _GL_ARG_NONNULL ((1, 4))); _GL_CXXALIAS_RPL (fwrite, size_t, (const void *restrict ptr, size_t s, size_t n, FILE *restrict stream)); # else _GL_CXXALIAS_SYS (fwrite, size_t, (const void *restrict ptr, size_t s, size_t n, FILE *restrict stream)); /* Work around bug 11959 when fortifying glibc 2.4 through 2.15 , which sometimes causes an unwanted diagnostic for fwrite calls. This affects only function declaration attributes under certain versions of gcc and clang, and is not needed for C++. */ # if (0 < __USE_FORTIFY_LEVEL \ && __GLIBC__ == 2 && 4 <= __GLIBC_MINOR__ && __GLIBC_MINOR__ <= 15 \ && 3 < __GNUC__ + (4 <= __GNUC_MINOR__) \ && !defined __cplusplus) # undef fwrite # undef fwrite_unlocked extern size_t __REDIRECT (rpl_fwrite, (const void *__restrict, size_t, size_t, FILE *__restrict), fwrite); extern size_t __REDIRECT (rpl_fwrite_unlocked, (const void *__restrict, size_t, size_t, FILE *__restrict), fwrite_unlocked); # define fwrite rpl_fwrite # define fwrite_unlocked rpl_fwrite_unlocked # endif # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fwrite); # endif #endif #if @GNULIB_GETC@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getc # define getc rpl_fgetc # endif _GL_FUNCDECL_RPL (fgetc, int, (FILE *stream) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL_1 (getc, rpl_fgetc, int, (FILE *stream)); # else _GL_CXXALIAS_SYS (getc, int, (FILE *stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (getc); # endif #endif #if @GNULIB_GETCHAR@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getchar # define getchar rpl_getchar # endif _GL_FUNCDECL_RPL (getchar, int, (void)); _GL_CXXALIAS_RPL (getchar, int, (void)); # else _GL_CXXALIAS_SYS (getchar, int, (void)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (getchar); # endif #endif #if @GNULIB_GETDELIM@ /* Read input, up to (and including) the next occurrence of DELIMITER, from STREAM, store it in *LINEPTR (and NUL-terminate it). *LINEPTR is a pointer returned from malloc (or NULL), pointing to *LINESIZE bytes of space. It is realloc'd as necessary. Return the number of bytes read and stored at *LINEPTR (not including the NUL terminator), or -1 on error or EOF. */ # if @REPLACE_GETDELIM@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getdelim # define getdelim rpl_getdelim # endif _GL_FUNCDECL_RPL (getdelim, ssize_t, (char **restrict lineptr, size_t *restrict linesize, int delimiter, FILE *restrict stream) _GL_ARG_NONNULL ((1, 2, 4))); _GL_CXXALIAS_RPL (getdelim, ssize_t, (char **restrict lineptr, size_t *restrict linesize, int delimiter, FILE *restrict stream)); # else # if !@HAVE_DECL_GETDELIM@ _GL_FUNCDECL_SYS (getdelim, ssize_t, (char **restrict lineptr, size_t *restrict linesize, int delimiter, FILE *restrict stream) _GL_ARG_NONNULL ((1, 2, 4))); # endif _GL_CXXALIAS_SYS (getdelim, ssize_t, (char **restrict lineptr, size_t *restrict linesize, int delimiter, FILE *restrict stream)); # endif _GL_CXXALIASWARN (getdelim); #elif defined GNULIB_POSIXCHECK # undef getdelim # if HAVE_RAW_DECL_GETDELIM _GL_WARN_ON_USE (getdelim, "getdelim is unportable - " "use gnulib module getdelim for portability"); # endif #endif #if @GNULIB_GETLINE@ /* Read a line, up to (and including) the next newline, from STREAM, store it in *LINEPTR (and NUL-terminate it). *LINEPTR is a pointer returned from malloc (or NULL), pointing to *LINESIZE bytes of space. It is realloc'd as necessary. Return the number of bytes read and stored at *LINEPTR (not including the NUL terminator), or -1 on error or EOF. */ # if @REPLACE_GETLINE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getline # define getline rpl_getline # endif _GL_FUNCDECL_RPL (getline, ssize_t, (char **restrict lineptr, size_t *restrict linesize, FILE *restrict stream) _GL_ARG_NONNULL ((1, 2, 3))); _GL_CXXALIAS_RPL (getline, ssize_t, (char **restrict lineptr, size_t *restrict linesize, FILE *restrict stream)); # else # if !@HAVE_DECL_GETLINE@ _GL_FUNCDECL_SYS (getline, ssize_t, (char **restrict lineptr, size_t *restrict linesize, FILE *restrict stream) _GL_ARG_NONNULL ((1, 2, 3))); # endif _GL_CXXALIAS_SYS (getline, ssize_t, (char **restrict lineptr, size_t *restrict linesize, FILE *restrict stream)); # endif # if @HAVE_DECL_GETLINE@ _GL_CXXALIASWARN (getline); # endif #elif defined GNULIB_POSIXCHECK # undef getline # if HAVE_RAW_DECL_GETLINE _GL_WARN_ON_USE (getline, "getline is unportable - " "use gnulib module getline for portability"); # endif #endif /* It is very rare that the developer ever has full control of stdin, so any use of gets warrants an unconditional warning; besides, C11 removed it. */ #undef gets #if HAVE_RAW_DECL_GETS && !defined __cplusplus _GL_WARN_ON_USE (gets, "gets is a security hole - use fgets instead"); #endif #if @GNULIB_MDA_GETW@ /* On native Windows, map 'getw' to '_getw', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::getw always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getw # define getw _getw # endif _GL_CXXALIAS_MDA (getw, int, (FILE *restrict stream)); # else _GL_CXXALIAS_SYS (getw, int, (FILE *restrict stream)); # endif _GL_CXXALIASWARN (getw); #endif #if @GNULIB_OBSTACK_PRINTF@ || @GNULIB_OBSTACK_PRINTF_POSIX@ struct obstack; /* Grow an obstack with formatted output. Return the number of bytes added to OBS. No trailing nul byte is added, and the object should be closed with obstack_finish before use. Upon memory allocation error, call obstack_alloc_failed_handler. Upon other error, return -1. */ # if @REPLACE_OBSTACK_PRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define obstack_printf rpl_obstack_printf # endif _GL_FUNCDECL_RPL (obstack_printf, int, (struct obstack *obs, const char *format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (obstack_printf, int, (struct obstack *obs, const char *format, ...)); # else # if !@HAVE_DECL_OBSTACK_PRINTF@ _GL_FUNCDECL_SYS (obstack_printf, int, (struct obstack *obs, const char *format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (obstack_printf, int, (struct obstack *obs, const char *format, ...)); # endif _GL_CXXALIASWARN (obstack_printf); # if @REPLACE_OBSTACK_PRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define obstack_vprintf rpl_obstack_vprintf # endif _GL_FUNCDECL_RPL (obstack_vprintf, int, (struct obstack *obs, const char *format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (obstack_vprintf, int, (struct obstack *obs, const char *format, va_list args)); # else # if !@HAVE_DECL_OBSTACK_PRINTF@ _GL_FUNCDECL_SYS (obstack_vprintf, int, (struct obstack *obs, const char *format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (obstack_vprintf, int, (struct obstack *obs, const char *format, va_list args)); # endif _GL_CXXALIASWARN (obstack_vprintf); #endif #if @GNULIB_PCLOSE@ # if !@HAVE_PCLOSE@ _GL_FUNCDECL_SYS (pclose, int, (FILE *stream) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (pclose, int, (FILE *stream)); _GL_CXXALIASWARN (pclose); #elif defined GNULIB_POSIXCHECK # undef pclose # if HAVE_RAW_DECL_PCLOSE _GL_WARN_ON_USE (pclose, "pclose is unportable - " "use gnulib module pclose for more portability"); # endif #endif #if @GNULIB_PERROR@ /* Print a message to standard error, describing the value of ERRNO, (if STRING is not NULL and not empty) prefixed with STRING and ": ", and terminated with a newline. */ # if @REPLACE_PERROR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define perror rpl_perror # endif _GL_FUNCDECL_RPL (perror, void, (const char *string)); _GL_CXXALIAS_RPL (perror, void, (const char *string)); # else _GL_CXXALIAS_SYS (perror, void, (const char *string)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (perror); # endif #elif defined GNULIB_POSIXCHECK # undef perror /* Assume perror is always declared. */ _GL_WARN_ON_USE (perror, "perror is not always POSIX compliant - " "use gnulib module perror for portability"); #endif #if @GNULIB_POPEN@ # if @REPLACE_POPEN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef popen # define popen rpl_popen # endif _GL_FUNCDECL_RPL (popen, FILE *, (const char *cmd, const char *mode) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (popen, FILE *, (const char *cmd, const char *mode)); # else # if !@HAVE_POPEN@ _GL_FUNCDECL_SYS (popen, FILE *, (const char *cmd, const char *mode) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (popen, FILE *, (const char *cmd, const char *mode)); # endif _GL_CXXALIASWARN (popen); #elif defined GNULIB_POSIXCHECK # undef popen # if HAVE_RAW_DECL_POPEN _GL_WARN_ON_USE (popen, "popen is buggy on some platforms - " "use gnulib module popen or pipe for more portability"); # endif #endif #if @GNULIB_PRINTF_POSIX@ || @GNULIB_PRINTF@ # if (@GNULIB_PRINTF_POSIX@ && @REPLACE_PRINTF@) \ || (@GNULIB_PRINTF@ && @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@)) # if defined __GNUC__ || defined __clang__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) /* Don't break __attribute__((format(printf,M,N))). */ # define printf __printf__ # endif # if @GNULIB_PRINTF_POSIX@ || @GNULIB_VFPRINTF_POSIX@ _GL_FUNCDECL_RPL_1 (__printf__, int, (const char *restrict format, ...) __asm__ (@ASM_SYMBOL_PREFIX@ _GL_STDIO_MACROEXPAND_AND_STRINGIZE(rpl_printf)) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (1, 2) _GL_ARG_NONNULL ((1))); # else _GL_FUNCDECL_RPL_1 (__printf__, int, (const char *restrict format, ...) __asm__ (@ASM_SYMBOL_PREFIX@ _GL_STDIO_MACROEXPAND_AND_STRINGIZE(rpl_printf)) _GL_ATTRIBUTE_FORMAT_PRINTF_SYSTEM (1, 2) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_RPL_1 (printf, __printf__, int, (const char *format, ...)); # else # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define printf rpl_printf # endif _GL_FUNCDECL_RPL (printf, int, (const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (1, 2) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (printf, int, (const char *restrict format, ...)); # endif # define GNULIB_overrides_printf 1 # else _GL_CXXALIAS_SYS (printf, int, (const char *restrict format, ...)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (printf); # endif #endif #if !@GNULIB_PRINTF_POSIX@ && defined GNULIB_POSIXCHECK # if !GNULIB_overrides_printf # undef printf # endif /* Assume printf is always declared. */ _GL_WARN_ON_USE (printf, "printf is not always POSIX compliant - " "use gnulib module printf-posix for portable " "POSIX compliance"); #endif #if @GNULIB_PUTC@ # if @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef putc # define putc rpl_fputc # endif _GL_FUNCDECL_RPL (fputc, int, (int c, FILE *stream) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL_1 (putc, rpl_fputc, int, (int c, FILE *stream)); # else _GL_CXXALIAS_SYS (putc, int, (int c, FILE *stream)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (putc); # endif #endif #if @GNULIB_PUTCHAR@ # if @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef putchar # define putchar rpl_putchar # endif _GL_FUNCDECL_RPL (putchar, int, (int c)); _GL_CXXALIAS_RPL (putchar, int, (int c)); # else _GL_CXXALIAS_SYS (putchar, int, (int c)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (putchar); # endif #endif #if @GNULIB_PUTS@ # if @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef puts # define puts rpl_puts # endif _GL_FUNCDECL_RPL (puts, int, (const char *string) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (puts, int, (const char *string)); # else _GL_CXXALIAS_SYS (puts, int, (const char *string)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (puts); # endif #endif #if @GNULIB_MDA_PUTW@ /* On native Windows, map 'putw' to '_putw', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::putw always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef putw # define putw _putw # endif _GL_CXXALIAS_MDA (putw, int, (int w, FILE *restrict stream)); # else _GL_CXXALIAS_SYS (putw, int, (int w, FILE *restrict stream)); # endif _GL_CXXALIASWARN (putw); #endif #if @GNULIB_REMOVE@ # if @REPLACE_REMOVE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef remove # define remove rpl_remove # endif _GL_FUNCDECL_RPL (remove, int, (const char *name) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (remove, int, (const char *name)); # else _GL_CXXALIAS_SYS (remove, int, (const char *name)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (remove); # endif #elif defined GNULIB_POSIXCHECK # undef remove /* Assume remove is always declared. */ _GL_WARN_ON_USE (remove, "remove cannot handle directories on some platforms - " "use gnulib module remove for more portability"); #endif #if @GNULIB_RENAME@ # if @REPLACE_RENAME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef rename # define rename rpl_rename # endif _GL_FUNCDECL_RPL (rename, int, (const char *old_filename, const char *new_filename) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (rename, int, (const char *old_filename, const char *new_filename)); # else _GL_CXXALIAS_SYS (rename, int, (const char *old_filename, const char *new_filename)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (rename); # endif #elif defined GNULIB_POSIXCHECK # undef rename /* Assume rename is always declared. */ _GL_WARN_ON_USE (rename, "rename is buggy on some platforms - " "use gnulib module rename for more portability"); #endif #if @GNULIB_RENAMEAT@ # if @REPLACE_RENAMEAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef renameat # define renameat rpl_renameat # endif _GL_FUNCDECL_RPL (renameat, int, (int fd1, char const *file1, int fd2, char const *file2) _GL_ARG_NONNULL ((2, 4))); _GL_CXXALIAS_RPL (renameat, int, (int fd1, char const *file1, int fd2, char const *file2)); # else # if !@HAVE_RENAMEAT@ _GL_FUNCDECL_SYS (renameat, int, (int fd1, char const *file1, int fd2, char const *file2) _GL_ARG_NONNULL ((2, 4))); # endif _GL_CXXALIAS_SYS (renameat, int, (int fd1, char const *file1, int fd2, char const *file2)); # endif _GL_CXXALIASWARN (renameat); #elif defined GNULIB_POSIXCHECK # undef renameat # if HAVE_RAW_DECL_RENAMEAT _GL_WARN_ON_USE (renameat, "renameat is not portable - " "use gnulib module renameat for portability"); # endif #endif #if @GNULIB_SCANF@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if defined __GNUC__ || defined __clang__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef scanf /* Don't break __attribute__((format(scanf,M,N))). */ # define scanf __scanf__ # endif _GL_FUNCDECL_RPL_1 (__scanf__, int, (const char *restrict format, ...) __asm__ (@ASM_SYMBOL_PREFIX@ _GL_STDIO_MACROEXPAND_AND_STRINGIZE(rpl_scanf)) _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM (1, 2) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL_1 (scanf, __scanf__, int, (const char *restrict format, ...)); # else # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef scanf # define scanf rpl_scanf # endif _GL_FUNCDECL_RPL (scanf, int, (const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM (1, 2) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (scanf, int, (const char *restrict format, ...)); # endif # else _GL_CXXALIAS_SYS (scanf, int, (const char *restrict format, ...)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (scanf); # endif #endif #if @GNULIB_SNPRINTF@ # if @REPLACE_SNPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define snprintf rpl_snprintf # endif _GL_FUNCDECL_RPL (snprintf, int, (char *restrict str, size_t size, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (3, 4) _GL_ARG_NONNULL ((3))); _GL_CXXALIAS_RPL (snprintf, int, (char *restrict str, size_t size, const char *restrict format, ...)); # else # if !@HAVE_DECL_SNPRINTF@ _GL_FUNCDECL_SYS (snprintf, int, (char *restrict str, size_t size, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (3, 4) _GL_ARG_NONNULL ((3))); # endif _GL_CXXALIAS_SYS (snprintf, int, (char *restrict str, size_t size, const char *restrict format, ...)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (snprintf); # endif #elif defined GNULIB_POSIXCHECK # undef snprintf # if HAVE_RAW_DECL_SNPRINTF _GL_WARN_ON_USE (snprintf, "snprintf is unportable - " "use gnulib module snprintf for portability"); # endif #endif /* Some people would argue that all sprintf uses should be warned about (for example, OpenBSD issues a link warning for it), since it can cause security holes due to buffer overruns. However, we believe that sprintf can be used safely, and is more efficient than snprintf in those safe cases; and as proof of our belief, we use sprintf in several gnulib modules. So this header intentionally avoids adding a warning to sprintf except when GNULIB_POSIXCHECK is defined. */ #if @GNULIB_SPRINTF_POSIX@ # if @REPLACE_SPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define sprintf rpl_sprintf # endif _GL_FUNCDECL_RPL (sprintf, int, (char *restrict str, const char *restrict format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (sprintf, int, (char *restrict str, const char *restrict format, ...)); # else _GL_CXXALIAS_SYS (sprintf, int, (char *restrict str, const char *restrict format, ...)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (sprintf); # endif #elif defined GNULIB_POSIXCHECK # undef sprintf /* Assume sprintf is always declared. */ _GL_WARN_ON_USE (sprintf, "sprintf is not always POSIX compliant - " "use gnulib module sprintf-posix for portable " "POSIX compliance"); #endif #if @GNULIB_MDA_TEMPNAM@ /* On native Windows, map 'tempnam' to '_tempnam', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::tempnam always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef tempnam # define tempnam _tempnam # endif _GL_CXXALIAS_MDA (tempnam, char *, (const char *dir, const char *prefix)); # else _GL_CXXALIAS_SYS (tempnam, char *, (const char *dir, const char *prefix)); # endif _GL_CXXALIASWARN (tempnam); #endif #if @GNULIB_TMPFILE@ # if @REPLACE_TMPFILE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define tmpfile rpl_tmpfile # endif _GL_FUNCDECL_RPL (tmpfile, FILE *, (void)); _GL_CXXALIAS_RPL (tmpfile, FILE *, (void)); # else _GL_CXXALIAS_SYS (tmpfile, FILE *, (void)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (tmpfile); # endif #elif defined GNULIB_POSIXCHECK # undef tmpfile # if HAVE_RAW_DECL_TMPFILE _GL_WARN_ON_USE (tmpfile, "tmpfile is not usable on mingw - " "use gnulib module tmpfile for portability"); # endif #endif #if @GNULIB_VASPRINTF@ /* Write formatted output to a string dynamically allocated with malloc(). If the memory allocation succeeds, store the address of the string in *RESULT and return the number of resulting bytes, excluding the trailing NUL. Upon memory allocation error, or some other error, return -1. */ # if @REPLACE_VASPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define asprintf rpl_asprintf # endif _GL_FUNCDECL_RPL (asprintf, int, (char **result, const char *format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (asprintf, int, (char **result, const char *format, ...)); # else # if !@HAVE_VASPRINTF@ _GL_FUNCDECL_SYS (asprintf, int, (char **result, const char *format, ...) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 3) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (asprintf, int, (char **result, const char *format, ...)); # endif _GL_CXXALIASWARN (asprintf); # if @REPLACE_VASPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define vasprintf rpl_vasprintf # endif _GL_FUNCDECL_RPL (vasprintf, int, (char **result, const char *format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (vasprintf, int, (char **result, const char *format, va_list args)); # else # if !@HAVE_VASPRINTF@ _GL_FUNCDECL_SYS (vasprintf, int, (char **result, const char *format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (vasprintf, int, (char **result, const char *format, va_list args)); # endif _GL_CXXALIASWARN (vasprintf); #endif #if @GNULIB_VDPRINTF@ # if @REPLACE_VDPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define vdprintf rpl_vdprintf # endif _GL_FUNCDECL_RPL (vdprintf, int, (int fd, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (vdprintf, int, (int fd, const char *restrict format, va_list args)); # else # if !@HAVE_VDPRINTF@ _GL_FUNCDECL_SYS (vdprintf, int, (int fd, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((2))); # endif /* Need to cast, because on Solaris, the third parameter will likely be __va_list args. */ _GL_CXXALIAS_SYS_CAST (vdprintf, int, (int fd, const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vdprintf); # endif #elif defined GNULIB_POSIXCHECK # undef vdprintf # if HAVE_RAW_DECL_VDPRINTF _GL_WARN_ON_USE (vdprintf, "vdprintf is unportable - " "use gnulib module vdprintf for portability"); # endif #endif #if @GNULIB_VFPRINTF_POSIX@ || @GNULIB_VFPRINTF@ # if (@GNULIB_VFPRINTF_POSIX@ && @REPLACE_VFPRINTF@) \ || (@GNULIB_VFPRINTF@ && @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@)) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define vfprintf rpl_vfprintf # endif # define GNULIB_overrides_vfprintf 1 # if @GNULIB_VFPRINTF_POSIX@ _GL_FUNCDECL_RPL (vfprintf, int, (FILE *restrict fp, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((1, 2))); # else _GL_FUNCDECL_RPL (vfprintf, int, (FILE *restrict fp, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_SYSTEM (2, 0) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_RPL (vfprintf, int, (FILE *restrict fp, const char *restrict format, va_list args)); # else /* Need to cast, because on Solaris, the third parameter is __va_list args and GCC's fixincludes did not change this to __gnuc_va_list. */ _GL_CXXALIAS_SYS_CAST (vfprintf, int, (FILE *restrict fp, const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vfprintf); # endif #endif #if !@GNULIB_VFPRINTF_POSIX@ && defined GNULIB_POSIXCHECK # if !GNULIB_overrides_vfprintf # undef vfprintf # endif /* Assume vfprintf is always declared. */ _GL_WARN_ON_USE (vfprintf, "vfprintf is not always POSIX compliant - " "use gnulib module vfprintf-posix for portable " "POSIX compliance"); #endif #if @GNULIB_VFSCANF@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef vfscanf # define vfscanf rpl_vfscanf # endif _GL_FUNCDECL_RPL (vfscanf, int, (FILE *restrict stream, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM (2, 0) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (vfscanf, int, (FILE *restrict stream, const char *restrict format, va_list args)); # else _GL_CXXALIAS_SYS (vfscanf, int, (FILE *restrict stream, const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vfscanf); # endif #endif #if @GNULIB_VPRINTF_POSIX@ || @GNULIB_VPRINTF@ # if (@GNULIB_VPRINTF_POSIX@ && @REPLACE_VPRINTF@) \ || (@GNULIB_VPRINTF@ && @REPLACE_STDIO_WRITE_FUNCS@ && (@GNULIB_STDIO_H_NONBLOCKING@ || @GNULIB_STDIO_H_SIGPIPE@)) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define vprintf rpl_vprintf # endif # define GNULIB_overrides_vprintf 1 # if @GNULIB_VPRINTF_POSIX@ || @GNULIB_VFPRINTF_POSIX@ _GL_FUNCDECL_RPL (vprintf, int, (const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (1, 0) _GL_ARG_NONNULL ((1))); # else _GL_FUNCDECL_RPL (vprintf, int, (const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_SYSTEM (1, 0) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_RPL (vprintf, int, (const char *restrict format, va_list args)); # else /* Need to cast, because on Solaris, the second parameter is __va_list args and GCC's fixincludes did not change this to __gnuc_va_list. */ _GL_CXXALIAS_SYS_CAST (vprintf, int, (const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vprintf); # endif #endif #if !@GNULIB_VPRINTF_POSIX@ && defined GNULIB_POSIXCHECK # if !GNULIB_overrides_vprintf # undef vprintf # endif /* Assume vprintf is always declared. */ _GL_WARN_ON_USE (vprintf, "vprintf is not always POSIX compliant - " "use gnulib module vprintf-posix for portable " "POSIX compliance"); #endif #if @GNULIB_VSCANF@ # if @REPLACE_STDIO_READ_FUNCS@ && @GNULIB_STDIO_H_NONBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef vscanf # define vscanf rpl_vscanf # endif _GL_FUNCDECL_RPL (vscanf, int, (const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_SCANF_SYSTEM (1, 0) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (vscanf, int, (const char *restrict format, va_list args)); # else _GL_CXXALIAS_SYS (vscanf, int, (const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vscanf); # endif #endif #if @GNULIB_VSNPRINTF@ # if @REPLACE_VSNPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define vsnprintf rpl_vsnprintf # endif _GL_FUNCDECL_RPL (vsnprintf, int, (char *restrict str, size_t size, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (3, 0) _GL_ARG_NONNULL ((3))); _GL_CXXALIAS_RPL (vsnprintf, int, (char *restrict str, size_t size, const char *restrict format, va_list args)); # else # if !@HAVE_DECL_VSNPRINTF@ _GL_FUNCDECL_SYS (vsnprintf, int, (char *restrict str, size_t size, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (3, 0) _GL_ARG_NONNULL ((3))); # endif _GL_CXXALIAS_SYS (vsnprintf, int, (char *restrict str, size_t size, const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vsnprintf); # endif #elif defined GNULIB_POSIXCHECK # undef vsnprintf # if HAVE_RAW_DECL_VSNPRINTF _GL_WARN_ON_USE (vsnprintf, "vsnprintf is unportable - " "use gnulib module vsnprintf for portability"); # endif #endif #if @GNULIB_VSPRINTF_POSIX@ # if @REPLACE_VSPRINTF@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define vsprintf rpl_vsprintf # endif _GL_FUNCDECL_RPL (vsprintf, int, (char *restrict str, const char *restrict format, va_list args) _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (2, 0) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (vsprintf, int, (char *restrict str, const char *restrict format, va_list args)); # else /* Need to cast, because on Solaris, the third parameter is __va_list args and GCC's fixincludes did not change this to __gnuc_va_list. */ _GL_CXXALIAS_SYS_CAST (vsprintf, int, (char *restrict str, const char *restrict format, va_list args)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (vsprintf); # endif #elif defined GNULIB_POSIXCHECK # undef vsprintf /* Assume vsprintf is always declared. */ _GL_WARN_ON_USE (vsprintf, "vsprintf is not always POSIX compliant - " "use gnulib module vsprintf-posix for portable " "POSIX compliance"); #endif #endif /* _@GUARD_PREFIX@_STDIO_H */ #endif /* _@GUARD_PREFIX@_STDIO_H */ #endif libffcall-2.4/gnulib-lib/rmdir.c0000664000000000000000000000316614057155505013510 00000000000000/* Work around rmdir bugs. Copyright (C) 1988, 1990, 1999, 2003-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include #include #include #include #include "filename.h" #undef rmdir #if defined _WIN32 && !defined __CYGWIN__ # define rmdir _rmdir #endif /* Remove directory DIR. Return 0 if successful, -1 if not. */ int rpl_rmdir (char const *dir) { /* Work around cygwin 1.5.x bug where rmdir("dir/./") succeeds. */ size_t len = strlen (dir); int result; while (len && ISSLASH (dir[len - 1])) len--; if (len && dir[len - 1] == '.' && (1 == len || ISSLASH (dir[len - 2]))) { errno = EINVAL; return -1; } result = rmdir (dir); /* Work around mingw bug, where rmdir("file/") fails with EINVAL instead of ENOTDIR. We've already filtered out trailing ., the only reason allowed by POSIX for EINVAL. */ if (result == -1 && errno == EINVAL) errno = ENOTDIR; return result; } libffcall-2.4/gnulib-lib/windows-recmutex.c0000664000000000000000000000654214057155505015720 00000000000000/* Plain recursive mutexes (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/sigaction.c0000664000000000000000000001613614057155505014354 00000000000000/* POSIX compatible signal blocking. Copyright (C) 2008-2021 Free Software Foundation, Inc. Written by Eric Blake , 2008. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include #include #include #include /* This implementation of sigaction is tailored to native Windows behavior: signal() has SysV semantics (ie. the handler is uninstalled before it is invoked). This is an inherent data race if an asynchronous signal is sent twice in a row before we can reinstall our handler, but there's nothing we can do about it. Meanwhile, sigprocmask() is not present, and while we can use the gnulib replacement to provide critical sections, it too suffers from potential data races in the face of an ill-timed asynchronous signal. And we compound the situation by reading static storage in a signal handler, which POSIX warns is not generically async-signal-safe. Oh well. Additionally: - We don't implement SA_NOCLDSTOP or SA_NOCLDWAIT, because SIGCHLD is not defined. - We don't implement SA_ONSTACK, because sigaltstack() is not present. - We ignore SA_RESTART, because blocking native Windows API calls are not interrupted anyway when an asynchronous signal occurs, and the MSVCRT runtime never sets errno to EINTR. - We don't implement SA_SIGINFO because it is impossible to do so portably. POSIX states that an application should not mix signal() and sigaction(). We support the use of signal() within the gnulib sigprocmask() substitute, but all other application code linked with this module should stick with only sigaction(). */ /* Check some of our assumptions. */ #if defined SIGCHLD || defined HAVE_SIGALTSTACK || defined HAVE_SIGINTERRUPT # error "Revisit the assumptions made in the sigaction module" #endif /* Out-of-range substitutes make a good fallback for uncatchable signals. */ #ifndef SIGKILL # define SIGKILL (-1) #endif #ifndef SIGSTOP # define SIGSTOP (-1) #endif /* On native Windows, as of 2008, the signal SIGABRT_COMPAT is an alias for the signal SIGABRT. Only one signal handler is stored for both SIGABRT and SIGABRT_COMPAT. SIGABRT_COMPAT is not a signal of its own. */ #if defined _WIN32 && ! defined __CYGWIN__ # undef SIGABRT_COMPAT # define SIGABRT_COMPAT 6 #endif /* A signal handler. */ typedef void (*handler_t) (int signal); /* Set of current actions. If sa_handler for an entry is NULL, then that signal is not currently handled by the sigaction handler. */ static struct sigaction volatile action_array[NSIG] /* = 0 */; /* Signal handler that is installed for signals. */ static void sigaction_handler (int sig) { handler_t handler; sigset_t mask; sigset_t oldmask; int saved_errno = errno; if (sig < 0 || NSIG <= sig || !action_array[sig].sa_handler) { /* Unexpected situation; be careful to avoid recursive abort. */ if (sig == SIGABRT) signal (SIGABRT, SIG_DFL); abort (); } /* Reinstall the signal handler when required; otherwise update the bookkeeping so that the user's handler may call sigaction and get accurate results. We know the signal isn't currently blocked, or we wouldn't be in its handler, therefore we know that we are not interrupting a sigaction() call. There is a race where any asynchronous instance of the same signal occurring before we reinstall the handler will trigger the default handler; oh well. */ handler = action_array[sig].sa_handler; if ((action_array[sig].sa_flags & SA_RESETHAND) == 0) signal (sig, sigaction_handler); else action_array[sig].sa_handler = NULL; /* Block appropriate signals. */ mask = action_array[sig].sa_mask; if ((action_array[sig].sa_flags & SA_NODEFER) == 0) sigaddset (&mask, sig); sigprocmask (SIG_BLOCK, &mask, &oldmask); /* Invoke the user's handler, then restore prior mask. */ errno = saved_errno; handler (sig); saved_errno = errno; sigprocmask (SIG_SETMASK, &oldmask, NULL); errno = saved_errno; } /* Change and/or query the action that will be taken on delivery of signal SIG. If not NULL, ACT describes the new behavior. If not NULL, OACT is set to the prior behavior. Return 0 on success, or set errno and return -1 on failure. */ int sigaction (int sig, const struct sigaction *restrict act, struct sigaction *restrict oact) { sigset_t mask; sigset_t oldmask; int saved_errno; if (sig < 0 || NSIG <= sig || sig == SIGKILL || sig == SIGSTOP || (act && act->sa_handler == SIG_ERR)) { errno = EINVAL; return -1; } #ifdef SIGABRT_COMPAT if (sig == SIGABRT_COMPAT) sig = SIGABRT; #endif /* POSIX requires sigaction() to be async-signal-safe. In other words, if an asynchronous signal can occur while we are anywhere inside this function, the user's handler could then call sigaction() recursively and expect consistent results. We meet this rule by using sigprocmask to block all signals before modifying any data structure that could be read from a signal handler; this works since we know that the gnulib sigprocmask replacement does not try to use sigaction() from its handler. */ if (!act && !oact) return 0; sigfillset (&mask); sigprocmask (SIG_BLOCK, &mask, &oldmask); if (oact) { if (action_array[sig].sa_handler) *oact = action_array[sig]; else { /* Safe to change the handler at will here, since all signals are currently blocked. */ oact->sa_handler = signal (sig, SIG_DFL); if (oact->sa_handler == SIG_ERR) goto failure; signal (sig, oact->sa_handler); oact->sa_flags = SA_RESETHAND | SA_NODEFER; sigemptyset (&oact->sa_mask); } } if (act) { /* Safe to install the handler before updating action_array, since all signals are currently blocked. */ if (act->sa_handler == SIG_DFL || act->sa_handler == SIG_IGN) { if (signal (sig, act->sa_handler) == SIG_ERR) goto failure; action_array[sig].sa_handler = NULL; } else { if (signal (sig, sigaction_handler) == SIG_ERR) goto failure; action_array[sig] = *act; } } sigprocmask (SIG_SETMASK, &oldmask, NULL); return 0; failure: saved_errno = errno; sigprocmask (SIG_SETMASK, &oldmask, NULL); errno = saved_errno; return -1; } libffcall-2.4/gnulib-lib/stdint.in.h0000664000000000000000000005475414057155505014323 00000000000000/* Copyright (C) 2001-2002, 2004-2021 Free Software Foundation, Inc. Written by Paul Eggert, Bruno Haible, Sam Steingold, Peter Burwood. This file is part of gnulib. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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 @GNULIBHEADERS_OVERRIDE_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 # else # 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 # else # 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 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. Similarly, MinGW WSL-5.4.1 needs its own intptr_t and uintptr_t to avoid conflicting declarations of system functions like _findclose in . */ # if !((defined __KLIBC__ && defined _INTPTR_T_DECLARED) \ || defined __MINGW32__) # undef intptr_t # undef uintptr_t # ifdef _WIN64 typedef long long int gl_intptr_t; typedef unsigned long long int gl_uintptr_t; # else typedef long int gl_intptr_t; typedef unsigned long int gl_uintptr_t; # endif # 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 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 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 # ifdef _WIN64 # define INTPTR_MIN LLONG_MIN # define INTPTR_MAX LLONG_MAX # define UINTPTR_MAX ULLONG_MAX # else # define INTPTR_MIN LONG_MIN # define INTPTR_MAX LONG_MAX # define UINTPTR_MAX ULONG_MAX # endif /* 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) # 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 */ /* If gnulib's or overrides wint_t, @WINT_T_SUFFIX@ is not accurate, therefore use the definitions from above. */ # if !@GNULIBHEADERS_OVERRIDE_WINT_T@ # 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@) # endif /* 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 # else # 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 # else # define UINT64_C(x) x##ULL # endif /* 7.18.4.2. Macros for greatest-width integer constants */ # ifndef INTMAX_C # if 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 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.4/gnulib-lib/windows-spin.c0000664000000000000000000000405014057155505015025 00000000000000/* Spin locks (native Windows implementation). Copyright (C) 2019-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2019. */ #include /* Specification. */ #include "windows-spin.h" #include void glwthread_spin_init (glwthread_spinlock_t *lock) { lock->word = 0; MemoryBarrier (); } int glwthread_spin_lock (glwthread_spinlock_t *lock) { /* Wait until lock->word becomes 0, then replace it with 1. */ /* InterlockedCompareExchange */ while (InterlockedCompareExchange (&lock->word, 1, 0)) ; return 0; } int glwthread_spin_trylock (glwthread_spinlock_t *lock) { /* If lock->word is 0, then replace it with 1. */ /* InterlockedCompareExchange */ if (InterlockedCompareExchange (&lock->word, 1, 0)) return EBUSY; return 0; } int glwthread_spin_unlock (glwthread_spinlock_t *lock) { /* If lock->word is 1, then replace it with 0. */ /* InterlockedCompareExchange */ if (!InterlockedCompareExchange (&lock->word, 0, 1)) return EINVAL; return 0; } int glwthread_spin_destroy (glwthread_spinlock_t *lock) { return 0; } libffcall-2.4/gnulib-lib/fatal-signal.c0000664000000000000000000002367714057155505014746 00000000000000/* Emergency actions in case of a fatal signal. Copyright (C) 2003-2004, 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2003. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "fatal-signal.h" #include #include #include #include #include "glthread/lock.h" #include "thread-optim.h" #include "sig-handler.h" #define SIZEOF(a) (sizeof(a) / sizeof(a[0])) /* ========================================================================= */ /* The list of fatal signals. These are those signals whose default action is to terminate the process without a core dump, except SIGKILL - because it cannot be caught, SIGALRM SIGUSR1 SIGUSR2 SIGPOLL SIGIO SIGLOST - because applications often use them for their own purpose, SIGPROF SIGVTALRM - because they are used for profiling, SIGSTKFLT - because it is more similar to SIGFPE, SIGSEGV, SIGBUS, SIGSYS - because it is more similar to SIGABRT, SIGSEGV, SIGPWR - because it of too special use, SIGRTMIN...SIGRTMAX - because they are reserved for application use. plus SIGXCPU, SIGXFSZ - because they are quite similar to SIGTERM. */ static int fatal_signals[] = { /* ISO C 99 signals. */ #ifdef SIGINT SIGINT, #endif #ifdef SIGTERM SIGTERM, #endif /* POSIX:2001 signals. */ #ifdef SIGHUP SIGHUP, #endif #ifdef SIGPIPE SIGPIPE, #endif /* BSD signals. */ #ifdef SIGXCPU SIGXCPU, #endif #ifdef SIGXFSZ SIGXFSZ, #endif /* Native Windows signals. */ #ifdef SIGBREAK SIGBREAK, #endif 0 }; #define num_fatal_signals (SIZEOF (fatal_signals) - 1) /* Eliminate signals whose signal handler is SIG_IGN. */ static void init_fatal_signals (void) { /* This function is multithread-safe even without synchronization, because if two threads execute it simultaneously, the fatal_signals[] array will not change any more after the first of the threads has completed this function. */ static bool fatal_signals_initialized = false; if (!fatal_signals_initialized) { size_t i; for (i = 0; i < num_fatal_signals; i++) { struct sigaction action; if (sigaction (fatal_signals[i], NULL, &action) >= 0 && get_handler (&action) == SIG_IGN) fatal_signals[i] = -1; } fatal_signals_initialized = true; } } /* ========================================================================= */ typedef _GL_ASYNC_SAFE void (*action_t) (int sig); /* Type of an entry in the actions array. The 'action' field is accessed from within the fatal_signal_handler(), therefore we mark it as 'volatile'. */ typedef struct { volatile action_t action; } actions_entry_t; /* The registered cleanup actions. */ static actions_entry_t static_actions[32]; static actions_entry_t * volatile actions = static_actions; static sig_atomic_t volatile actions_count = 0; static size_t actions_allocated = SIZEOF (static_actions); /* The saved signal handlers. Size 32 would not be sufficient: On HP-UX, SIGXCPU = 33, SIGXFSZ = 34. */ static struct sigaction saved_sigactions[64]; /* Uninstall the handlers. */ static _GL_ASYNC_SAFE void uninstall_handlers (void) { size_t i; for (i = 0; i < num_fatal_signals; i++) if (fatal_signals[i] >= 0) { int sig = fatal_signals[i]; if (saved_sigactions[sig].sa_handler == SIG_IGN) saved_sigactions[sig].sa_handler = SIG_DFL; sigaction (sig, &saved_sigactions[sig], NULL); } } /* The signal handler. It gets called asynchronously. */ static _GL_ASYNC_SAFE void fatal_signal_handler (int sig) { for (;;) { /* Get the last registered cleanup action, in a reentrant way. */ action_t action; size_t n = actions_count; if (n == 0) break; n--; actions_count = n; action = actions[n].action; /* Execute the action. */ action (sig); } /* Now execute the signal's default action. If the signal being delivered was blocked, the re-raised signal would be delivered when this handler returns. But the way we install this handler, no signal is blocked, and the re-raised signal is delivered already during raise(). */ uninstall_handlers (); raise (sig); } /* Install the handlers. */ static void install_handlers (void) { size_t i; struct sigaction action; action.sa_handler = &fatal_signal_handler; /* If we get a fatal signal while executing fatal_signal_handler, enter fatal_signal_handler recursively, since it is reentrant. Hence no SA_RESETHAND. */ action.sa_flags = SA_NODEFER; sigemptyset (&action.sa_mask); for (i = 0; i < num_fatal_signals; i++) if (fatal_signals[i] >= 0) { int sig = fatal_signals[i]; if (!(sig < sizeof (saved_sigactions) / sizeof (saved_sigactions[0]))) abort (); sigaction (sig, &action, &saved_sigactions[sig]); } } /* Lock that makes at_fatal_signal multi-thread safe. */ gl_lock_define_initialized (static, at_fatal_signal_lock) /* Register a cleanup function to be executed when a catchable fatal signal occurs. */ int at_fatal_signal (action_t action) { bool mt = gl_multithreaded (); if (mt) gl_lock_lock (at_fatal_signal_lock); static bool cleanup_initialized = false; if (!cleanup_initialized) { init_fatal_signals (); install_handlers (); cleanup_initialized = true; } int ret = 0; if (actions_count == actions_allocated) { /* Extend the actions array. Note that we cannot use xrealloc(), because then the cleanup() function could access an already deallocated array. */ actions_entry_t *old_actions = actions; size_t old_actions_allocated = actions_allocated; size_t new_actions_allocated = 2 * actions_allocated; actions_entry_t *new_actions = (actions_entry_t *) malloc (new_actions_allocated * sizeof (actions_entry_t)); if (new_actions == NULL) { ret = -1; goto done; } size_t k; /* Don't use memcpy() here, because memcpy takes non-volatile arguments and is therefore not guaranteed to complete all memory stores before the next statement. */ for (k = 0; k < old_actions_allocated; k++) new_actions[k] = old_actions[k]; actions = new_actions; actions_allocated = new_actions_allocated; /* Now we can free the old actions array. */ /* No, we can't do that. If fatal_signal_handler is running in a different thread and has already fetched the actions pointer (getting old_actions) but not yet accessed its n-th element, that thread may crash when accessing an element of the already freed old_actions array. */ #if 0 if (old_actions != static_actions) free (old_actions); #endif } /* The two uses of 'volatile' in the types above (and ISO C 99 section 5.1.2.3.(5)) ensure that we increment the actions_count only after the new action has been written to the memory location actions[actions_count]. */ actions[actions_count].action = action; actions_count++; done: if (mt) gl_lock_unlock (at_fatal_signal_lock); return ret; } /* ========================================================================= */ static sigset_t fatal_signal_set; static void do_init_fatal_signal_set (void) { size_t i; init_fatal_signals (); sigemptyset (&fatal_signal_set); for (i = 0; i < num_fatal_signals; i++) if (fatal_signals[i] >= 0) sigaddset (&fatal_signal_set, fatal_signals[i]); } /* Ensure that do_init_fatal_signal_set is called once only. */ gl_once_define(static, fatal_signal_set_once) static void init_fatal_signal_set (void) { gl_once (fatal_signal_set_once, do_init_fatal_signal_set); } /* Lock and counter that allow block_fatal_signals/unblock_fatal_signals pairs to occur in different threads and even overlap in time. */ gl_lock_define_initialized (static, fatal_signals_block_lock) static unsigned int fatal_signals_block_counter = 0; /* Temporarily delay the catchable fatal signals. */ void block_fatal_signals (void) { bool mt = gl_multithreaded (); if (mt) gl_lock_lock (fatal_signals_block_lock); if (fatal_signals_block_counter++ == 0) { init_fatal_signal_set (); sigprocmask (SIG_BLOCK, &fatal_signal_set, NULL); } if (mt) gl_lock_unlock (fatal_signals_block_lock); } /* Stop delaying the catchable fatal signals. */ void unblock_fatal_signals (void) { bool mt = gl_multithreaded (); if (mt) gl_lock_lock (fatal_signals_block_lock); if (fatal_signals_block_counter == 0) /* There are more calls to unblock_fatal_signals() than to block_fatal_signals(). */ abort (); if (--fatal_signals_block_counter == 0) { init_fatal_signal_set (); sigprocmask (SIG_UNBLOCK, &fatal_signal_set, NULL); } if (mt) gl_lock_unlock (fatal_signals_block_lock); } unsigned int get_fatal_signals (int signals[64]) { init_fatal_signal_set (); { int *p = signals; size_t i; for (i = 0; i < num_fatal_signals; i++) if (fatal_signals[i] >= 0) *p++ = fatal_signals[i]; return p - signals; } } const sigset_t * get_fatal_signal_set (void) { init_fatal_signal_set (); return &fatal_signal_set; } libffcall-2.4/gnulib-lib/fstat.c0000664000000000000000000000515314057155505013512 00000000000000/* fstat() replacement. Copyright (C) 2011-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* If the user's config.h happens to include , let it include only the system's here, so that orig_fstat doesn't recurse to rpl_fstat. */ #define __need_system_sys_stat_h #include /* Get the original definition of fstat. It might be defined as a macro. */ #include #include #undef __need_system_sys_stat_h #if defined _WIN32 && ! defined __CYGWIN__ # define WINDOWS_NATIVE #endif #if !defined WINDOWS_NATIVE static int orig_fstat (int fd, struct stat *buf) { return fstat (fd, buf); } #endif /* Specification. */ #ifdef __osf__ /* Write "sys/stat.h" here, not , otherwise OSF/1 5.1 DTK cc eliminates this include because of the preliminary #include above. */ # include "sys/stat.h" #else # include #endif #include "stat-time.h" #include #include #ifdef WINDOWS_NATIVE # define WIN32_LEAN_AND_MEAN # include # if GNULIB_MSVC_NOTHROW # include "msvc-nothrow.h" # else # include # endif # include "stat-w32.h" #endif int rpl_fstat (int fd, struct stat *buf) { #if REPLACE_FCHDIR && REPLACE_OPEN_DIRECTORY /* Handle the case when rpl_open() used a dummy file descriptor to work around an open() that can't normally visit directories. */ const char *name = _gl_directory_name (fd); if (name != NULL) return stat (name, buf); #endif #ifdef WINDOWS_NATIVE /* Fill the fields ourselves, because the original fstat function returns values for st_atime, st_mtime, st_ctime that depend on the current time zone. See */ HANDLE h = (HANDLE) _get_osfhandle (fd); if (h == INVALID_HANDLE_VALUE) { errno = EBADF; return -1; } return _gl_fstat_by_handle (h, NULL, buf); #else return stat_time_normalize (orig_fstat (fd, buf), buf); #endif } libffcall-2.4/gnulib-lib/gl_list.c0000664000000000000000000000151714057155505014026 00000000000000/* Abstract sequential list data type. Copyright (C) 2006-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include #define GL_LIST_INLINE _GL_EXTERN_INLINE #include "gl_list.h" libffcall-2.4/gnulib-lib/stat.c0000664000000000000000000003276514057155505013355 00000000000000/* Work around platform bugs in stat. Copyright (C) 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Eric Blake and Bruno Haible. */ /* If the user's config.h happens to include , let it include only the system's here, so that orig_stat doesn't recurse to rpl_stat. */ #define __need_system_sys_stat_h #include /* Get the original definition of stat. It might be defined as a macro. */ #include #include #undef __need_system_sys_stat_h #if defined _WIN32 && ! defined __CYGWIN__ # define WINDOWS_NATIVE #endif #if !defined WINDOWS_NATIVE static int orig_stat (const char *filename, struct stat *buf) { return stat (filename, buf); } #endif /* Specification. */ #ifdef __osf__ /* Write "sys/stat.h" here, not , otherwise OSF/1 5.1 DTK cc eliminates this include because of the preliminary #include above. */ # include "sys/stat.h" #else # include #endif #include "stat-time.h" #include #include #include #include #include "filename.h" #include "malloca.h" #include "verify.h" #ifdef WINDOWS_NATIVE # define WIN32_LEAN_AND_MEAN # include # include "stat-w32.h" /* Don't assume that UNICODE is not defined. */ # undef WIN32_FIND_DATA # define WIN32_FIND_DATA WIN32_FIND_DATAA # undef CreateFile # define CreateFile CreateFileA # undef FindFirstFile # define FindFirstFile FindFirstFileA #endif #ifdef WINDOWS_NATIVE /* Return TRUE if the given file name denotes an UNC root. */ static BOOL is_unc_root (const char *rname) { /* Test whether it has the syntax '\\server\share'. */ if (ISSLASH (rname[0]) && ISSLASH (rname[1])) { /* It starts with two slashes. Find the next slash. */ const char *p = rname + 2; const char *q = p; while (*q != '\0' && !ISSLASH (*q)) q++; if (q > p && *q != '\0') { /* Found the next slash at q. */ q++; const char *r = q; while (*r != '\0' && !ISSLASH (*r)) r++; if (r > q && *r == '\0') return TRUE; } } return FALSE; } #endif /* Store information about NAME into ST. Work around bugs with trailing slashes. Mingw has other bugs (such as st_ino always being 0 on success) which this wrapper does not work around. But at least this implementation provides the ability to emulate fchdir correctly. */ int rpl_stat (char const *name, struct stat *buf) { #ifdef WINDOWS_NATIVE /* Fill the fields ourselves, because the original stat function returns values for st_atime, st_mtime, st_ctime that depend on the current time zone. See */ /* XXX Should we convert to wchar_t* and prepend '\\?\', in order to work around length limitations ? */ /* POSIX specifies: "More than two leading characters shall be treated as a single character." */ if (ISSLASH (name[0]) && ISSLASH (name[1]) && ISSLASH (name[2])) { name += 2; while (ISSLASH (name[1])) name++; } size_t len = strlen (name); size_t drive_prefix_len = (HAS_DEVICE (name) ? 2 : 0); /* Remove trailing slashes (except the very first one, at position drive_prefix_len), but remember their presence. */ size_t rlen; bool check_dir = false; rlen = len; while (rlen > drive_prefix_len && ISSLASH (name[rlen-1])) { check_dir = true; if (rlen == drive_prefix_len + 1) break; rlen--; } /* Handle '' and 'C:'. */ if (!check_dir && rlen == drive_prefix_len) { errno = ENOENT; return -1; } /* Handle '\\'. */ if (rlen == 1 && ISSLASH (name[0]) && len >= 2) { errno = ENOENT; return -1; } const char *rname; char *malloca_rname; if (rlen == len) { rname = name; malloca_rname = NULL; } else { malloca_rname = malloca (rlen + 1); if (malloca_rname == NULL) { errno = ENOMEM; return -1; } memcpy (malloca_rname, name, rlen); malloca_rname[rlen] = '\0'; rname = malloca_rname; } /* There are two ways to get at the requested information: - by scanning the parent directory and examining the relevant directory entry, - by opening the file directly. The first approach fails for root directories (e.g. 'C:\') and UNC root directories (e.g. '\\server\share'). The second approach fails for some system files (e.g. 'C:\pagefile.sys' and 'C:\hiberfil.sys'): ERROR_SHARING_VIOLATION. The second approach gives more information (in particular, correct st_dev, st_ino, st_nlink fields). So we use the second approach and, as a fallback except for root and UNC root directories, also the first approach. */ { int ret; { /* Approach based on the file. */ /* Open a handle to the file. CreateFile */ HANDLE h = CreateFile (rname, FILE_READ_ATTRIBUTES, FILE_SHARE_READ | FILE_SHARE_WRITE | FILE_SHARE_DELETE, NULL, OPEN_EXISTING, /* FILE_FLAG_POSIX_SEMANTICS (treat file names that differ only in case as different) makes sense only when applied to *all* filesystem operations. */ FILE_FLAG_BACKUP_SEMANTICS /* | FILE_FLAG_POSIX_SEMANTICS */, NULL); if (h != INVALID_HANDLE_VALUE) { ret = _gl_fstat_by_handle (h, rname, buf); CloseHandle (h); goto done; } } /* Test for root and UNC root directories. */ if ((rlen == drive_prefix_len + 1 && ISSLASH (rname[drive_prefix_len])) || is_unc_root (rname)) goto failed; /* Fallback. */ { /* Approach based on the directory entry. */ if (strchr (rname, '?') != NULL || strchr (rname, '*') != NULL) { /* Other Windows API functions would fail with error ERROR_INVALID_NAME. */ if (malloca_rname != NULL) freea (malloca_rname); errno = ENOENT; return -1; } /* Get the details about the directory entry. This can be done through FindFirstFile or through FindFirstFileEx with argument FindExInfoBasic */ WIN32_FIND_DATA info; HANDLE h = FindFirstFile (rname, &info); if (h == INVALID_HANDLE_VALUE) goto failed; /* Test for error conditions before starting to fill *buf. */ if (sizeof (buf->st_size) <= 4 && info.nFileSizeHigh > 0) { FindClose (h); if (malloca_rname != NULL) freea (malloca_rname); errno = EOVERFLOW; return -1; } # if _GL_WINDOWS_STAT_INODES buf->st_dev = 0; # if _GL_WINDOWS_STAT_INODES == 2 buf->st_ino._gl_ino[0] = buf->st_ino._gl_ino[1] = 0; # else /* _GL_WINDOWS_STAT_INODES == 1 */ buf->st_ino = 0; # endif # else /* st_ino is not wide enough for identifying a file on a device. Without st_ino, st_dev is pointless. */ buf->st_dev = 0; buf->st_ino = 0; # endif /* st_mode. */ unsigned int mode = /* XXX How to handle FILE_ATTRIBUTE_REPARSE_POINT ? */ ((info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ? _S_IFDIR | S_IEXEC_UGO : _S_IFREG) | S_IREAD_UGO | ((info.dwFileAttributes & FILE_ATTRIBUTE_READONLY) ? 0 : S_IWRITE_UGO); if (!(info.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) { /* Determine whether the file is executable by looking at the file name suffix. */ if (info.nFileSizeHigh > 0 || info.nFileSizeLow > 0) { const char *last_dot = NULL; const char *p; for (p = info.cFileName; *p != '\0'; p++) if (*p == '.') last_dot = p; if (last_dot != NULL) { const char *suffix = last_dot + 1; if (_stricmp (suffix, "exe") == 0 || _stricmp (suffix, "bat") == 0 || _stricmp (suffix, "cmd") == 0 || _stricmp (suffix, "com") == 0) mode |= S_IEXEC_UGO; } } } buf->st_mode = mode; /* st_nlink. Ignore hard links here. */ buf->st_nlink = 1; /* There's no easy way to map the Windows SID concept to an integer. */ buf->st_uid = 0; buf->st_gid = 0; /* st_rdev is irrelevant for normal files and directories. */ buf->st_rdev = 0; /* st_size. */ if (sizeof (buf->st_size) <= 4) /* Range check already done above. */ buf->st_size = info.nFileSizeLow; else buf->st_size = ((long long) info.nFileSizeHigh << 32) | (long long) info.nFileSizeLow; /* st_atime, st_mtime, st_ctime. */ # if _GL_WINDOWS_STAT_TIMESPEC buf->st_atim = _gl_convert_FILETIME_to_timespec (&info.ftLastAccessTime); buf->st_mtim = _gl_convert_FILETIME_to_timespec (&info.ftLastWriteTime); buf->st_ctim = _gl_convert_FILETIME_to_timespec (&info.ftCreationTime); # else buf->st_atime = _gl_convert_FILETIME_to_POSIX (&info.ftLastAccessTime); buf->st_mtime = _gl_convert_FILETIME_to_POSIX (&info.ftLastWriteTime); buf->st_ctime = _gl_convert_FILETIME_to_POSIX (&info.ftCreationTime); # endif FindClose (h); ret = 0; } done: if (ret >= 0 && check_dir && !S_ISDIR (buf->st_mode)) { errno = ENOTDIR; ret = -1; } if (malloca_rname != NULL) { int saved_errno = errno; freea (malloca_rname); errno = saved_errno; } return ret; } failed: { DWORD error = GetLastError (); #if 0 fprintf (stderr, "rpl_stat error 0x%x\n", (unsigned int) error); #endif if (malloca_rname != NULL) freea (malloca_rname); switch (error) { /* Some of these errors probably cannot happen with the specific flags that we pass to CreateFile. But who knows... */ case ERROR_FILE_NOT_FOUND: /* The last component of rname does not exist. */ case ERROR_PATH_NOT_FOUND: /* Some directory component in rname does not exist. */ case ERROR_BAD_PATHNAME: /* rname is such as '\\server'. */ case ERROR_BAD_NET_NAME: /* rname is such as '\\server\nonexistentshare'. */ case ERROR_INVALID_NAME: /* rname contains wildcards, misplaced colon, etc. */ case ERROR_DIRECTORY: errno = ENOENT; break; case ERROR_ACCESS_DENIED: /* rname is such as 'C:\System Volume Information\foo'. */ case ERROR_SHARING_VIOLATION: /* rname is such as 'C:\pagefile.sys' (second approach only). */ /* XXX map to EACCES or EPERM? */ errno = EACCES; break; case ERROR_OUTOFMEMORY: errno = ENOMEM; break; case ERROR_WRITE_PROTECT: errno = EROFS; break; case ERROR_WRITE_FAULT: case ERROR_READ_FAULT: case ERROR_GEN_FAILURE: errno = EIO; break; case ERROR_BUFFER_OVERFLOW: case ERROR_FILENAME_EXCED_RANGE: errno = ENAMETOOLONG; break; case ERROR_DELETE_PENDING: /* XXX map to EACCES or EPERM? */ errno = EPERM; break; default: errno = EINVAL; break; } return -1; } #else int result = orig_stat (name, buf); if (result == 0) { # if REPLACE_FUNC_STAT_FILE /* Solaris 9 mistakenly succeeds when given a non-directory with a trailing slash. */ if (!S_ISDIR (buf->st_mode)) { size_t len = strlen (name); if (ISSLASH (name[len - 1])) { errno = ENOTDIR; return -1; } } # endif /* REPLACE_FUNC_STAT_FILE */ result = stat_time_normalize (result, buf); } return result; #endif } libffcall-2.4/gnulib-lib/sys_types.in.h0000664000000000000000000000617114057155505015046 00000000000000/* Provide a more complete sys/types.h. Copyright (C) 2011-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/error.h0000664000000000000000000000446014057155505013527 00000000000000/* Declaration for error-reporting function Copyright (C) 1995-1997, 2003, 2006, 2008-2021 Free Software Foundation, Inc. This file is part of the GNU C Library. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _ERROR_H #define _ERROR_H 1 /* Get _GL_ATTRIBUTE_SPEC_PRINTF_STANDARD, _GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM. */ #include #ifdef __cplusplus extern "C" { #endif /* Print a message with 'fprintf (stderr, FORMAT, ...)'; if ERRNUM is nonzero, follow it with ": " and strerror (ERRNUM). If STATUS is nonzero, terminate the program with 'exit (STATUS)'. */ extern void error (int __status, int __errnum, const char *__format, ...) #if GNULIB_VFPRINTF_POSIX _GL_ATTRIBUTE_FORMAT ((_GL_ATTRIBUTE_SPEC_PRINTF_STANDARD, 3, 4)) #else _GL_ATTRIBUTE_FORMAT ((_GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM, 3, 4)) #endif ; extern void error_at_line (int __status, int __errnum, const char *__fname, unsigned int __lineno, const char *__format, ...) #if GNULIB_VFPRINTF_POSIX _GL_ATTRIBUTE_FORMAT ((_GL_ATTRIBUTE_SPEC_PRINTF_STANDARD, 5, 6)) #else _GL_ATTRIBUTE_FORMAT ((_GL_ATTRIBUTE_SPEC_PRINTF_SYSTEM, 5, 6)) #endif ; /* If NULL, error will flush stdout, then print on stderr the program name, a colon and a space. Otherwise, error will call this function without parameters instead. */ extern void (*error_print_progname) (void); /* This variable is incremented each time 'error' is called. */ extern unsigned int error_message_count; /* Sometimes we want to have at most one error per line. This variable controls whether this mode is selected or not. */ extern int error_one_per_line; #ifdef __cplusplus } #endif #endif /* error.h */ libffcall-2.4/gnulib-lib/gl_anyhash_primes.h0000664000000000000000000001136614057155505016075 00000000000000/* Table of primes, for use by hash tables. Copyright (C) 2006, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Array of primes, approximately in steps of factor 1.2. This table was computed by executing the Common Lisp expression (dotimes (i 244) (format t "nextprime(~D)~%" (ceiling (expt 1.2d0 i)))) and feeding the result to PARI/gp. */ static const size_t primes[] = { 11, 13, 17, 19, 23, 29, 37, 41, 47, 59, 67, 83, 97, 127, 139, 167, 199, 239, 293, 347, 419, 499, 593, 709, 853, 1021, 1229, 1471, 1777, 2129, 2543, 3049, 3659, 4391, 5273, 6323, 7589, 9103, 10937, 13109, 15727, 18899, 22651, 27179, 32609, 39133, 46957, 56359, 67619, 81157, 97369, 116849, 140221, 168253, 201907, 242309, 290761, 348889, 418667, 502409, 602887, 723467, 868151, 1041779, 1250141, 1500181, 1800191, 2160233, 2592277, 3110741, 3732887, 4479463, 5375371, 6450413, 7740517, 9288589, 11146307, 13375573, 16050689, 19260817, 23112977, 27735583, 33282701, 39939233, 47927081, 57512503, 69014987, 82818011, 99381577, 119257891, 143109469, 171731387, 206077643, 247293161, 296751781, 356102141, 427322587, 512787097, 615344489, 738413383, 886096061, 1063315271, 1275978331, 1531174013, 1837408799, 2204890543UL, 2645868653UL, 3175042391UL, 3810050851UL, #if SIZE_MAX > 4294967295UL 4572061027UL, 5486473229UL, 6583767889UL, 7900521449UL, 9480625733UL, 11376750877UL, 13652101063UL, 16382521261UL, 19659025513UL, 23590830631UL, 28308996763UL, 33970796089UL, 40764955463UL, 48917946377UL, 58701535657UL, 70441842749UL, 84530211301UL, 101436253561UL, 121723504277UL, 146068205131UL, 175281846149UL, 210338215379UL, 252405858521UL, 302887030151UL, 363464436191UL, 436157323417UL, 523388788231UL, 628066545713UL, 753679854847UL, 904415825857UL, 1085298991109UL, 1302358789181UL, 1562830547009UL, 1875396656429UL, 2250475987709UL, 2700571185239UL, 3240685422287UL, 3888822506759UL, 4666587008147UL, 5599904409713UL, 6719885291641UL, 8063862349969UL, 9676634819959UL, 11611961783951UL, 13934354140769UL, 16721224968907UL, 20065469962669UL, 24078563955191UL, 28894276746229UL, 34673132095507UL, 41607758514593UL, 49929310217531UL, 59915172260971UL, 71898206713183UL, 86277848055823UL, 103533417666967UL, 124240101200359UL, 149088121440451UL, 178905745728529UL, 214686894874223UL, 257624273849081UL, 309149128618903UL, 370978954342639UL, 445174745211143UL, 534209694253381UL, 641051633104063UL, 769261959724877UL, 923114351670013UL, 1107737222003791UL, 1329284666404567UL, 1595141599685509UL, 1914169919622551UL, 2297003903547091UL, 2756404684256459UL, 3307685621107757UL, 3969222745329323UL, 4763067294395177UL, 5715680753274209UL, 6858816903929113UL, 8230580284714831UL, 9876696341657791UL, 11852035609989371UL, 14222442731987227UL, 17066931278384657UL, 20480317534061597UL, 24576381040873903UL, 29491657249048679UL, 35389988698858471UL, 42467986438630267UL, 50961583726356109UL, 61153900471627387UL, 73384680565952851UL, 88061616679143347UL, 105673940014972061UL, 126808728017966413UL, 152170473621559703UL, 182604568345871671UL, 219125482015045997UL, 262950578418055169UL, 315540694101666193UL, 378648832921999397UL, 454378599506399233UL, 545254319407679131UL, 654305183289214771UL, 785166219947057701UL, 942199463936469157UL, 1130639356723763129UL, 1356767228068515623UL, 1628120673682218619UL, 1953744808418662409UL, 2344493770102394881UL, 2813392524122873857UL, 3376071028947448339UL, 4051285234736937517UL, 4861542281684325481UL, 5833850738021191727UL, 7000620885625427969UL, 8400745062750513217UL, 10080894075300616261UL, 12097072890360739951UL, 14516487468432885797UL, 17419784962119465179UL, #endif SIZE_MAX /* sentinel, to ensure the search terminates */ }; /* Returns a suitable prime >= ESTIMATE. */ static size_t next_prime (size_t estimate) { size_t i; for (i = 0; i < sizeof (primes) / sizeof (primes[0]); i++) if (primes[i] >= estimate) return primes[i]; return SIZE_MAX; /* not a prime, but better than nothing */ } libffcall-2.4/gnulib-lib/arg-nonnull.h0000664000000000000000000000235314057155505014631 00000000000000/* A C macro for declaring that specific arguments must not be NULL. Copyright (C) 2009-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* _GL_ARG_NONNULL((n,...,m)) tells the compiler and static analyzer tools that the values passed as arguments n, ..., m must be non-NULL pointers. n = 1 stands for the first argument, n = 2 for the second argument etc. */ #ifndef _GL_ARG_NONNULL # if __GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 3) || defined __clang__ # define _GL_ARG_NONNULL(params) __attribute__ ((__nonnull__ params)) # else # define _GL_ARG_NONNULL(params) # endif #endif libffcall-2.4/gnulib-lib/xalloc-oversized.h0000664000000000000000000000512014057155505015662 00000000000000/* xalloc-oversized.h -- memory allocation size checking Copyright (C) 1990-2000, 2003-2004, 2006-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef XALLOC_OVERSIZED_H_ #define XALLOC_OVERSIZED_H_ #include #include /* True if N * S does not fit into both ptrdiff_t and size_t. N and S should be nonnegative and free of side effects. This expands to a constant expression if N and S are both constants. By gnulib convention, SIZE_MAX represents overflow in size_t calculations, so the conservative size_t-based dividend to use here is SIZE_MAX - 1. */ #define __xalloc_oversized(n, s) \ ((s) != 0 \ && ((size_t) (PTRDIFF_MAX < SIZE_MAX ? PTRDIFF_MAX : SIZE_MAX - 1) / (s) \ < (n))) /* Return 1 if and only if an array of N objects, each of size S, cannot exist reliably because its total size in bytes would exceed MIN (PTRDIFF_MAX, SIZE_MAX - 1). N and S should be nonnegative and free of side effects. Warning: (xalloc_oversized (N, S) ? NULL : malloc (N * S)) can misbehave if N and S are both narrower than ptrdiff_t and size_t, and can be rewritten as (xalloc_oversized (N, S) ? NULL : malloc (N * (size_t) S)). This is a macro, not a function, so that it works even if an argument exceeds MAX (PTRDIFF_MAX, SIZE_MAX). */ #if 7 <= __GNUC__ && !defined __clang__ && PTRDIFF_MAX < SIZE_MAX # define xalloc_oversized(n, s) \ __builtin_mul_overflow_p (n, s, (ptrdiff_t) 1) #elif (5 <= __GNUC__ && !defined __ICC && !__STRICT_ANSI__ \ && PTRDIFF_MAX < SIZE_MAX) # define xalloc_oversized(n, s) \ (__builtin_constant_p (n) && __builtin_constant_p (s) \ ? __xalloc_oversized (n, s) \ : ({ ptrdiff_t __xalloc_count; \ __builtin_mul_overflow (n, s, &__xalloc_count); })) /* Other compilers use integer division; this may be slower but is more portable. */ #else # define xalloc_oversized(n, s) __xalloc_oversized (n, s) #endif #endif /* !XALLOC_OVERSIZED_H_ */ libffcall-2.4/gnulib-lib/windows-mutex.h0000664000000000000000000000317514057155505015232 00000000000000/* Plain mutexes (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/stdbool.in.h0000664000000000000000000001201114057155505014440 00000000000000/* Copyright (C) 2001-2003, 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2001. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_STDBOOL_H #define _GL_STDBOOL_H /* ISO C 99 for platforms that lack it. */ /* Usage suggestions: Programs that use should be aware of some limitations and standards compliance issues. Standards compliance: - must be #included before 'bool', 'false', 'true' can be used. - You cannot assume that sizeof (bool) == 1. - Programs should not undefine the macros bool, true, and false, as C99 lists that as an "obsolescent feature". Limitations of this substitute, when used in a C89 environment: - must be #included before the '_Bool' type can be used. - You cannot assume that _Bool is a typedef; it might be a macro. - Bit-fields of type 'bool' are not supported. Portable code should use 'unsigned int foo : 1;' rather than 'bool foo : 1;'. - In C99, casts and automatic conversions to '_Bool' or 'bool' are performed in such a way that every nonzero value gets converted to 'true', and zero gets converted to 'false'. This doesn't work with this substitute. With this substitute, only the values 0 and 1 give the expected result when converted to _Bool' or 'bool'. - C99 allows the use of (_Bool)0.0 in constant expressions, but this substitute cannot always provide this property. Also, it is suggested that programs use 'bool' rather than '_Bool'; this isn't required, but 'bool' is more common. */ /* 7.16. Boolean type and values */ /* BeOS already #defines false 0, true 1. We use the same definitions below, but temporarily we have to #undef them. */ #if defined __BEOS__ && !defined __HAIKU__ # include /* defines bool but not _Bool */ # undef false # undef true #endif #ifdef __cplusplus # define _Bool bool # define bool bool #else # if defined __BEOS__ && !defined __HAIKU__ /* A compiler known to have 'bool'. */ /* If the compiler already has both 'bool' and '_Bool', we can assume they are the same types. */ # if !@HAVE__BOOL@ typedef bool _Bool; # endif # else # if !defined __GNUC__ /* If @HAVE__BOOL@: Some HP-UX cc and AIX IBM C compiler versions have compiler bugs when the built-in _Bool type is used. See https://gcc.gnu.org/ml/gcc-patches/2003-12/msg02303.html https://lists.gnu.org/r/bug-coreutils/2005-11/msg00161.html https://lists.gnu.org/r/bug-coreutils/2005-10/msg00086.html Similar bugs are likely with other compilers as well; this file wouldn't be used if was working. So we override the _Bool type. If !@HAVE__BOOL@: Need to define _Bool ourselves. As 'signed char' or as an enum type? Use of a typedef, with SunPRO C, leads to a stupid "warning: _Bool is a keyword in ISO C99". Use of an enum type, with IRIX cc, leads to a stupid "warning(1185): enumerated type mixed with another type". Even the existence of an enum type, without a typedef, "Invalid enumerator. (badenum)" with HP-UX cc on Tru64. The only benefit of the enum, debuggability, is not important with these compilers. So use 'signed char' and no enum. */ # define _Bool signed char # else /* With this compiler, trust the _Bool type if the compiler has it. */ # if !@HAVE__BOOL@ /* For the sake of symbolic names in gdb, define true and false as enum constants, not only as macros. It is tempting to write typedef enum { false = 0, true = 1 } _Bool; so that gdb prints values of type 'bool' symbolically. But then values of type '_Bool' might promote to 'int' or 'unsigned int' (see ISO C 99 6.7.2.2.(4)); however, '_Bool' must promote to 'int' (see ISO C 99 6.3.1.1.(2)). So add a negative value to the enum; this ensures that '_Bool' promotes to 'int'. */ typedef enum { _Bool_must_promote_to_int = -1, false = 0, true = 1 } _Bool; # endif # endif # endif # define bool _Bool #endif /* The other macros must be usable in preprocessor directives. */ #ifdef __cplusplus # define false false # define true true #else # define false 0 # define true 1 #endif #define __bool_true_false_are_defined 1 #endif /* _GL_STDBOOL_H */ libffcall-2.4/gnulib-lib/asyncsafe-spin.h0000664000000000000000000000507614057155505015325 00000000000000/* Spin locks for communication between threads and signal handlers. Copyright (C) 2020-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2020. */ #ifndef _ASYNCSAFE_SPIN_H #define _ASYNCSAFE_SPIN_H /* Usual spin locks are not allowed for communication between threads and signal handlers, because the pthread_spin_* functions are not async-safe; see section 2.4.3 Signal Actions. This module provides spin locks with a similar API. It can be used like this, both in regular multithreaded code and in signal handlers: sigset_t saved_mask; asyncsafe_spin_lock (&lock, &mask, &saved_mask); do_something_contentious (); asyncsafe_spin_unlock (&lock, &saved_mask); The mask you specify here is the set of signals whose handlers might want to take the same lock. asyncsafe_spin_lock/unlock use pthread_sigmask, to ensure that while a thread is executing such code, no signal handler will start such code for the same lock *in the same thread* (because if this happened, the signal handler would hang!). */ #include #if defined _WIN32 && ! defined __CYGWIN__ # include "windows-spin.h" typedef glwthread_spinlock_t asyncsafe_spinlock_t; # define ASYNCSAFE_SPIN_INIT GLWTHREAD_SPIN_INIT #else typedef unsigned int asyncsafe_spinlock_t; # define ASYNCSAFE_SPIN_INIT 0 #endif #ifdef __cplusplus extern "C" { #endif extern void asyncsafe_spin_init (asyncsafe_spinlock_t *lock); extern void asyncsafe_spin_lock (asyncsafe_spinlock_t *lock, const sigset_t *mask, sigset_t *saved_mask); extern void asyncsafe_spin_unlock (asyncsafe_spinlock_t *lock, const sigset_t *saved_mask); extern void asyncsafe_spin_destroy (asyncsafe_spinlock_t *lock); #ifdef __cplusplus } #endif #endif /* _ASYNCSAFE_SPIN_H */ libffcall-2.4/gnulib-lib/windows-mutex.c0000664000000000000000000000524014057155505015220 00000000000000/* Plain mutexes (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/limits.in.h0000664000000000000000000001037014057155505014301 00000000000000/* A GNU-like . Copyright 2016-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined _GL_ALREADY_INCLUDING_LIMITS_H /* Special invocation convention: On Haiku/x86_64, we have a sequence of nested includes -> -> . In this situation, LONG_MAX and INT_MAX are not yet defined, therefore we should not attempt to define LONG_BIT. */ #@INCLUDE_NEXT@ @NEXT_LIMITS_H@ #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_LIMITS_H # define _GL_ALREADY_INCLUDING_LIMITS_H /* The include_next requires a split double-inclusion guard. */ # @INCLUDE_NEXT@ @NEXT_LIMITS_H@ # undef _GL_ALREADY_INCLUDING_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 */ #endif libffcall-2.4/gnulib-lib/glthread/0000775000000000000000000000000014061422457014071 500000000000000libffcall-2.4/gnulib-lib/glthread/threadlib.c0000664000000000000000000000512014057155505016113 00000000000000/* Multithreading primitives. Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2005. */ #include /* ========================================================================= */ #if USE_POSIX_THREADS || USE_ISOC_AND_POSIX_THREADS /* Use the POSIX threads library. */ # include # include # include # if PTHREAD_IN_USE_DETECTION_HARD # if defined __FreeBSD__ || defined __DragonFly__ /* FreeBSD */ /* Test using pthread_key_create. */ int glthread_in_use (void) { static int tested; static int result; /* 1: linked with -lpthread, 0: only with libc */ if (!tested) { pthread_key_t key; int err = pthread_key_create (&key, NULL); if (err == ENOSYS) result = 0; else { result = 1; if (err == 0) pthread_key_delete (key); } tested = 1; } return result; } # else /* Solaris, HP-UX */ /* Test using pthread_create. */ /* 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 #endif /* ========================================================================= */ /* This declaration is solely to ensure that after preprocessing this file is never empty. */ typedef int dummy; libffcall-2.4/gnulib-lib/glthread/lock.c0000664000000000000000000004421114057155505015111 00000000000000/* Locking in multithreaded situations. Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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_ISOC_THREADS || USE_ISOC_AND_POSIX_THREADS /* -------------------------- gl_lock_t datatype -------------------------- */ int glthread_lock_init (gl_lock_t *lock) { if (mtx_init (&lock->mutex, mtx_plain) != thrd_success) return ENOMEM; lock->init_needed = 0; return 0; } int glthread_lock_lock (gl_lock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_lock (&lock->mutex) != thrd_success) return EAGAIN; return 0; } int glthread_lock_unlock (gl_lock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_unlock (&lock->mutex) != thrd_success) return EINVAL; return 0; } int glthread_lock_destroy (gl_lock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); mtx_destroy (&lock->mutex); return 0; } /* ------------------------- gl_rwlock_t datatype ------------------------- */ int glthread_rwlock_init (gl_rwlock_t *lock) { if (mtx_init (&lock->lock, mtx_plain) != thrd_success || cnd_init (&lock->waiting_readers) != thrd_success || cnd_init (&lock->waiting_writers) != thrd_success) return ENOMEM; lock->waiting_writers_count = 0; lock->runcount = 0; lock->init_needed = 0; return 0; } int glthread_rwlock_rdlock (gl_rwlock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_lock (&lock->lock) != thrd_success) return EAGAIN; /* 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. */ if (cnd_wait (&lock->waiting_readers, &lock->lock) != thrd_success) { mtx_unlock (&lock->lock); return EINVAL; } } lock->runcount++; if (mtx_unlock (&lock->lock) != thrd_success) return EINVAL; return 0; } int glthread_rwlock_wrlock (gl_rwlock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_lock (&lock->lock) != thrd_success) return EAGAIN; /* 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++; if (cnd_wait (&lock->waiting_writers, &lock->lock) != thrd_success) { lock->waiting_writers_count--; mtx_unlock (&lock->lock); return EINVAL; } lock->waiting_writers_count--; } lock->runcount--; /* runcount becomes -1 */ if (mtx_unlock (&lock->lock) != thrd_success) return EINVAL; return 0; } int glthread_rwlock_unlock (gl_rwlock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_lock (&lock->lock) != thrd_success) return EAGAIN; if (lock->runcount < 0) { /* Drop a writer lock. */ if (!(lock->runcount == -1)) { mtx_unlock (&lock->lock); return EINVAL; } lock->runcount = 0; } else { /* Drop a reader lock. */ if (!(lock->runcount > 0)) { mtx_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. */ if (cnd_signal (&lock->waiting_writers) != thrd_success) { mtx_unlock (&lock->lock); return EINVAL; } } else { /* Wake up all waiting readers. */ if (cnd_broadcast (&lock->waiting_readers) != thrd_success) { mtx_unlock (&lock->lock); return EINVAL; } } } if (mtx_unlock (&lock->lock) != thrd_success) return EINVAL; return 0; } int glthread_rwlock_destroy (gl_rwlock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); mtx_destroy (&lock->lock); cnd_destroy (&lock->waiting_readers); cnd_destroy (&lock->waiting_writers); return 0; } /* --------------------- gl_recursive_lock_t datatype --------------------- */ int glthread_recursive_lock_init (gl_recursive_lock_t *lock) { if (mtx_init (&lock->mutex, mtx_plain | mtx_recursive) != thrd_success) return ENOMEM; lock->init_needed = 0; return 0; } int glthread_recursive_lock_lock (gl_recursive_lock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_lock (&lock->mutex) != thrd_success) return EAGAIN; return 0; } int glthread_recursive_lock_unlock (gl_recursive_lock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); if (mtx_unlock (&lock->mutex) != thrd_success) return EINVAL; return 0; } int glthread_recursive_lock_destroy (gl_recursive_lock_t *lock) { if (lock->init_needed) call_once (&lock->init_once, lock->init_func); mtx_destroy (&lock->mutex); return 0; } /* -------------------------- gl_once_t datatype -------------------------- */ #endif /* ========================================================================= */ #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))) # if defined PTHREAD_RWLOCK_INITIALIZER || defined PTHREAD_RWLOCK_INITIALIZER_NP # 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; } # if !(PTHREAD_IN_USE_DETECTION_HARD || USE_POSIX_THREADS_WEAK) int glthread_once_multithreaded (pthread_once_t *once_control, void (*init_function) (void)) { int err = pthread_once (once_control, init_function); if (err == ENOSYS) { /* This happens on FreeBSD 11: The pthread_once function in libc returns ENOSYS. */ if (glthread_once_singlethreaded (once_control)) init_function (); return 0; } return err; } # endif #endif /* ========================================================================= */ #if USE_WINDOWS_THREADS #endif /* ========================================================================= */ libffcall-2.4/gnulib-lib/glthread/lock.h0000664000000000000000000007534014057155505015125 00000000000000/* Locking in multithreaded situations. Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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_ISOC_THREADS || USE_ISOC_AND_POSIX_THREADS /* Use the ISO C threads library. */ # include # ifdef __cplusplus extern "C" { # endif /* -------------------------- gl_lock_t datatype -------------------------- */ typedef struct { int volatile init_needed; once_flag init_once; void (*init_func) (void); mtx_t mutex; } gl_lock_t; # define gl_lock_define(STORAGECLASS, NAME) \ STORAGECLASS gl_lock_t NAME; # define gl_lock_define_initialized(STORAGECLASS, NAME) \ static void _atomic_init_##NAME (void); \ STORAGECLASS gl_lock_t NAME = \ { 1, ONCE_FLAG_INIT, _atomic_init_##NAME }; \ static void _atomic_init_##NAME (void) \ { \ if (glthread_lock_init (&(NAME))) \ abort (); \ } extern int glthread_lock_init (gl_lock_t *lock); extern int glthread_lock_lock (gl_lock_t *lock); extern int glthread_lock_unlock (gl_lock_t *lock); extern int glthread_lock_destroy (gl_lock_t *lock); /* ------------------------- gl_rwlock_t datatype ------------------------- */ typedef struct { int volatile init_needed; once_flag init_once; void (*init_func) (void); mtx_t lock; /* protects the remaining fields */ cnd_t waiting_readers; /* waiting readers */ cnd_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) \ static void _atomic_init_##NAME (void); \ STORAGECLASS gl_rwlock_t NAME = \ { 1, ONCE_FLAG_INIT, _atomic_init_##NAME }; \ static void _atomic_init_##NAME (void) \ { \ if (glthread_rwlock_init (&(NAME))) \ abort (); \ } extern int glthread_rwlock_init (gl_rwlock_t *lock); extern int glthread_rwlock_rdlock (gl_rwlock_t *lock); extern int glthread_rwlock_wrlock (gl_rwlock_t *lock); extern int glthread_rwlock_unlock (gl_rwlock_t *lock); extern int glthread_rwlock_destroy (gl_rwlock_t *lock); /* --------------------- gl_recursive_lock_t datatype --------------------- */ typedef struct { int volatile init_needed; once_flag init_once; void (*init_func) (void); mtx_t mutex; } 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) \ static void _atomic_init_##NAME (void); \ STORAGECLASS gl_recursive_lock_t NAME = \ { 1, ONCE_FLAG_INIT, _atomic_init_##NAME }; \ static void _atomic_init_##NAME (void) \ { \ if (glthread_recursive_lock_init (&(NAME))) \ abort (); \ } extern int glthread_recursive_lock_init (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_lock (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_unlock (gl_recursive_lock_t *lock); extern int glthread_recursive_lock_destroy (gl_recursive_lock_t *lock); /* -------------------------- gl_once_t datatype -------------------------- */ typedef once_flag gl_once_t; # define gl_once_define(STORAGECLASS, NAME) \ STORAGECLASS once_flag NAME = ONCE_FLAG_INIT; # define glthread_once(ONCE_CONTROL, INITFUNCTION) \ (call_once (ONCE_CONTROL, INITFUNCTION), 0) # ifdef __cplusplus } # 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))) # if defined PTHREAD_RWLOCK_INITIALIZER || defined PTHREAD_RWLOCK_INITIALIZER_NP 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 # if defined PTHREAD_RWLOCK_INITIALIZER # define gl_rwlock_initializer \ PTHREAD_RWLOCK_INITIALIZER # else # define gl_rwlock_initializer \ PTHREAD_RWLOCK_INITIALIZER_NP # endif # 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; # if PTHREAD_IN_USE_DETECTION_HARD || USE_POSIX_THREADS_WEAK # define glthread_once(ONCE_CONTROL, INITFUNCTION) \ (pthread_in_use () \ ? pthread_once (ONCE_CONTROL, INITFUNCTION) \ : (glthread_once_singlethreaded (ONCE_CONTROL) ? (INITFUNCTION (), 0) : 0)) # else # define glthread_once(ONCE_CONTROL, INITFUNCTION) \ (pthread_in_use () \ ? glthread_once_multithreaded (ONCE_CONTROL, INITFUNCTION) \ : (glthread_once_singlethreaded (ONCE_CONTROL) ? (INITFUNCTION (), 0) : 0)) extern int glthread_once_multithreaded (pthread_once_t *once_control, void (*init_function) (void)); # endif 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_ISOC_THREADS || USE_POSIX_THREADS || USE_ISOC_AND_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.4/gnulib-lib/gl_anylinked_list2.h0000664000000000000000000007660014057155505016160 00000000000000/* Sequential list data type implemented by a linked list. Copyright (C) 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Common code of gl_linked_list.c and gl_linkedhash_list.c. */ /* If the symbol SIGNAL_SAFE_LIST is defined, the code is compiled in such a way that a gl_list_t data structure may be used from within a signal handler. The operations allowed in the signal handler are: gl_list_iterator, gl_list_iterator_next, gl_list_iterator_free. The list and node fields that are therefore accessed from the signal handler are: list->root, node->next, node->value. We are careful to make modifications to these fields only in an order that maintains the consistency of the list data structure at any moment, and we use 'volatile' assignments to prevent the compiler from reordering such assignments. */ #ifdef SIGNAL_SAFE_LIST # define ASYNCSAFE(type) *(type volatile *)& #else # define ASYNCSAFE(type) #endif /* -------------------------- gl_list_t Data Type -------------------------- */ static gl_list_t gl_linked_nx_create_empty (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates) { struct gl_list_impl *list = (struct gl_list_impl *) malloc (sizeof (struct gl_list_impl)); if (list == NULL) return NULL; list->base.vtable = implementation; list->base.equals_fn = equals_fn; list->base.hashcode_fn = hashcode_fn; list->base.dispose_fn = dispose_fn; list->base.allow_duplicates = allow_duplicates; #if WITH_HASHTABLE list->table_size = 11; list->table = (gl_hash_entry_t *) calloc (list->table_size, sizeof (gl_hash_entry_t)); if (list->table == NULL) goto fail; #endif list->root.next = &list->root; list->root.prev = &list->root; list->count = 0; return list; #if WITH_HASHTABLE fail: free (list); return NULL; #endif } static gl_list_t gl_linked_nx_create (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates, size_t count, const void **contents) { struct gl_list_impl *list = (struct gl_list_impl *) malloc (sizeof (struct gl_list_impl)); gl_list_node_t tail; if (list == NULL) return NULL; list->base.vtable = implementation; list->base.equals_fn = equals_fn; list->base.hashcode_fn = hashcode_fn; list->base.dispose_fn = dispose_fn; list->base.allow_duplicates = allow_duplicates; #if WITH_HASHTABLE { size_t estimate = xsum (count, count / 2); /* 1.5 * count */ if (estimate < 10) estimate = 10; list->table_size = next_prime (estimate); if (size_overflow_p (xtimes (list->table_size, sizeof (gl_hash_entry_t)))) goto fail1; list->table = (gl_hash_entry_t *) calloc (list->table_size, sizeof (gl_hash_entry_t)); if (list->table == NULL) goto fail1; } #endif list->count = count; tail = &list->root; for (; count > 0; contents++, count--) { gl_list_node_t node = (struct gl_list_node_impl *) malloc (sizeof (struct gl_list_node_impl)); if (node == NULL) goto fail2; node->value = *contents; #if WITH_HASHTABLE node->h.hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (node->value) : (size_t)(uintptr_t) node->value); /* Add node to the hash table. */ if (add_to_bucket (list, node) < 0) { free (node); goto fail2; } #endif /* Add node to the list. */ node->prev = tail; tail->next = node; tail = node; } tail->next = &list->root; list->root.prev = tail; return list; fail2: { gl_list_node_t node; for (node = tail; node != &list->root; ) { gl_list_node_t prev = node->prev; free (node); node = prev; } } #if WITH_HASHTABLE free (list->table); fail1: #endif free (list); return NULL; } static size_t _GL_ATTRIBUTE_PURE gl_linked_size (gl_list_t list) { return list->count; } static const void * _GL_ATTRIBUTE_PURE gl_linked_node_value (gl_list_t list _GL_ATTRIBUTE_MAYBE_UNUSED, gl_list_node_t node) { return node->value; } static int gl_linked_node_nx_set_value (gl_list_t list _GL_ATTRIBUTE_MAYBE_UNUSED, gl_list_node_t node, const void *elt) { #if WITH_HASHTABLE if (elt != node->value) { size_t new_hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (elt) : (size_t)(uintptr_t) elt); if (new_hashcode != node->h.hashcode) { remove_from_bucket (list, node); node->value = elt; node->h.hashcode = new_hashcode; if (add_to_bucket (list, node) < 0) { /* Out of memory. We removed node from a bucket but cannot add it to another bucket. In order to avoid inconsistencies, we must remove node entirely from the list. */ gl_list_node_t before_removed = node->prev; gl_list_node_t after_removed = node->next; ASYNCSAFE(gl_list_node_t) before_removed->next = after_removed; after_removed->prev = before_removed; list->count--; free (node); return -1; } } else node->value = elt; } #else node->value = elt; #endif return 0; } static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_next_node (gl_list_t list, gl_list_node_t node) { return (node->next != &list->root ? node->next : NULL); } static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_previous_node (gl_list_t list, gl_list_node_t node) { return (node->prev != &list->root ? node->prev : NULL); } static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_first_node (gl_list_t list) { if (list->count > 0) return list->root.next; else return NULL; } static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_last_node (gl_list_t list) { if (list->count > 0) return list->root.prev; else return NULL; } static const void * _GL_ATTRIBUTE_PURE gl_linked_get_at (gl_list_t list, size_t position) { size_t count = list->count; gl_list_node_t node; if (!(position < count)) /* Invalid argument. */ abort (); /* Here we know count > 0. */ if (position <= ((count - 1) / 2)) { node = list->root.next; for (; position > 0; position--) node = node->next; } else { position = count - 1 - position; node = list->root.prev; for (; position > 0; position--) node = node->prev; } return node->value; } static gl_list_node_t gl_linked_nx_set_at (gl_list_t list, size_t position, const void *elt) { size_t count = list->count; gl_list_node_t node; if (!(position < count)) /* Invalid argument. */ abort (); /* Here we know count > 0. */ if (position <= ((count - 1) / 2)) { node = list->root.next; for (; position > 0; position--) node = node->next; } else { position = count - 1 - position; node = list->root.prev; for (; position > 0; position--) node = node->prev; } #if WITH_HASHTABLE if (elt != node->value) { size_t new_hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (elt) : (size_t)(uintptr_t) elt); if (new_hashcode != node->h.hashcode) { remove_from_bucket (list, node); node->value = elt; node->h.hashcode = new_hashcode; if (add_to_bucket (list, node) < 0) { /* Out of memory. We removed node from a bucket but cannot add it to another bucket. In order to avoid inconsistencies, we must remove node entirely from the list. */ gl_list_node_t before_removed = node->prev; gl_list_node_t after_removed = node->next; ASYNCSAFE(gl_list_node_t) before_removed->next = after_removed; after_removed->prev = before_removed; list->count--; free (node); return NULL; } } else node->value = elt; } #else node->value = elt; #endif return node; } static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_search_from_to (gl_list_t list, size_t start_index, size_t end_index, const void *elt) { size_t count = list->count; if (!(start_index <= end_index && end_index <= count)) /* Invalid arguments. */ abort (); { #if WITH_HASHTABLE size_t hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (elt) : (size_t)(uintptr_t) elt); size_t bucket = hashcode % list->table_size; gl_listelement_equals_fn equals = list->base.equals_fn; if (!list->base.allow_duplicates) { /* Look for the first match in the hash bucket. */ gl_list_node_t found = NULL; gl_list_node_t node; for (node = (gl_list_node_t) list->table[bucket]; node != NULL; node = (gl_list_node_t) node->h.hash_next) if (node->h.hashcode == hashcode && (equals != NULL ? equals (elt, node->value) : elt == node->value)) { found = node; break; } if (start_index > 0) /* Look whether found's index is < start_index. */ for (node = list->root.next; ; node = node->next) { if (node == found) return NULL; if (--start_index == 0) break; } if (end_index < count) /* Look whether found's index is >= end_index. */ { end_index = count - end_index; for (node = list->root.prev; ; node = node->prev) { if (node == found) return NULL; if (--end_index == 0) break; } } return found; } else { /* Look whether there is more than one match in the hash bucket. */ bool multiple_matches = false; gl_list_node_t first_match = NULL; gl_list_node_t node; for (node = (gl_list_node_t) list->table[bucket]; node != NULL; node = (gl_list_node_t) node->h.hash_next) if (node->h.hashcode == hashcode && (equals != NULL ? equals (elt, node->value) : elt == node->value)) { if (first_match == NULL) first_match = node; else { multiple_matches = true; break; } } if (multiple_matches) { /* We need the match with the smallest index. But we don't have a fast mapping node -> index. So we have to walk the list. */ end_index -= start_index; node = list->root.next; for (; start_index > 0; start_index--) node = node->next; for (; end_index > 0; node = node->next, end_index--) if (node->h.hashcode == hashcode && (equals != NULL ? equals (elt, node->value) : elt == node->value)) return node; /* The matches must have all been at indices < start_index or >= end_index. */ return NULL; } else { if (start_index > 0) /* Look whether first_match's index is < start_index. */ for (node = list->root.next; node != &list->root; node = node->next) { if (node == first_match) return NULL; if (--start_index == 0) break; } if (end_index < list->count) /* Look whether first_match's index is >= end_index. */ { end_index = list->count - end_index; for (node = list->root.prev; ; node = node->prev) { if (node == first_match) return NULL; if (--end_index == 0) break; } } return first_match; } } #else gl_listelement_equals_fn equals = list->base.equals_fn; gl_list_node_t node = list->root.next; end_index -= start_index; for (; start_index > 0; start_index--) node = node->next; if (equals != NULL) { for (; end_index > 0; node = node->next, end_index--) if (equals (elt, node->value)) return node; } else { for (; end_index > 0; node = node->next, end_index--) if (elt == node->value) return node; } return NULL; #endif } } static size_t _GL_ATTRIBUTE_PURE gl_linked_indexof_from_to (gl_list_t list, size_t start_index, size_t end_index, const void *elt) { size_t count = list->count; if (!(start_index <= end_index && end_index <= count)) /* Invalid arguments. */ abort (); { #if WITH_HASHTABLE /* Here the hash table doesn't help much. It only allows us to minimize the number of equals() calls, by looking up first the node and then its index. */ size_t hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (elt) : (size_t)(uintptr_t) elt); size_t bucket = hashcode % list->table_size; gl_listelement_equals_fn equals = list->base.equals_fn; gl_list_node_t node; /* First step: Look up the node. */ if (!list->base.allow_duplicates) { /* Look for the first match in the hash bucket. */ for (node = (gl_list_node_t) list->table[bucket]; node != NULL; node = (gl_list_node_t) node->h.hash_next) if (node->h.hashcode == hashcode && (equals != NULL ? equals (elt, node->value) : elt == node->value)) break; } else { /* Look whether there is more than one match in the hash bucket. */ bool multiple_matches = false; gl_list_node_t first_match = NULL; for (node = (gl_list_node_t) list->table[bucket]; node != NULL; node = (gl_list_node_t) node->h.hash_next) if (node->h.hashcode == hashcode && (equals != NULL ? equals (elt, node->value) : elt == node->value)) { if (first_match == NULL) first_match = node; else { multiple_matches = true; break; } } if (multiple_matches) { /* We need the match with the smallest index. But we don't have a fast mapping node -> index. So we have to walk the list. */ size_t index; index = start_index; node = list->root.next; for (; start_index > 0; start_index--) node = node->next; for (; index < end_index; node = node->next, index++) if (node->h.hashcode == hashcode && (equals != NULL ? equals (elt, node->value) : elt == node->value)) return index; /* The matches must have all been at indices < start_index or >= end_index. */ return (size_t)(-1); } node = first_match; } /* Second step: Look up the index of the node. */ if (node == NULL) return (size_t)(-1); else { size_t index = 0; for (; node->prev != &list->root; node = node->prev) index++; if (index >= start_index && index < end_index) return index; else return (size_t)(-1); } #else gl_listelement_equals_fn equals = list->base.equals_fn; size_t index = start_index; gl_list_node_t node = list->root.next; for (; start_index > 0; start_index--) node = node->next; if (equals != NULL) { for (; index < end_index; node = node->next, index++) if (equals (elt, node->value)) return index; } else { for (; index < end_index; node = node->next, index++) if (elt == node->value) return index; } return (size_t)(-1); #endif } } static gl_list_node_t gl_linked_nx_add_first (gl_list_t list, const void *elt) { gl_list_node_t node = (struct gl_list_node_impl *) malloc (sizeof (struct gl_list_node_impl)); if (node == NULL) return NULL; ASYNCSAFE(const void *) node->value = elt; #if WITH_HASHTABLE node->h.hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (node->value) : (size_t)(uintptr_t) node->value); /* Add node to the hash table. */ if (add_to_bucket (list, node) < 0) { free (node); return NULL; } #endif /* Add node to the list. */ node->prev = &list->root; ASYNCSAFE(gl_list_node_t) node->next = list->root.next; node->next->prev = node; ASYNCSAFE(gl_list_node_t) list->root.next = node; list->count++; #if WITH_HASHTABLE hash_resize_after_add (list); #endif return node; } static gl_list_node_t gl_linked_nx_add_last (gl_list_t list, const void *elt) { gl_list_node_t node = (struct gl_list_node_impl *) malloc (sizeof (struct gl_list_node_impl)); if (node == NULL) return NULL; ASYNCSAFE(const void *) node->value = elt; #if WITH_HASHTABLE node->h.hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (node->value) : (size_t)(uintptr_t) node->value); /* Add node to the hash table. */ if (add_to_bucket (list, node) < 0) { free (node); return NULL; } #endif /* Add node to the list. */ ASYNCSAFE(gl_list_node_t) node->next = &list->root; node->prev = list->root.prev; ASYNCSAFE(gl_list_node_t) node->prev->next = node; list->root.prev = node; list->count++; #if WITH_HASHTABLE hash_resize_after_add (list); #endif return node; } static gl_list_node_t gl_linked_nx_add_before (gl_list_t list, gl_list_node_t node, const void *elt) { gl_list_node_t new_node = (struct gl_list_node_impl *) malloc (sizeof (struct gl_list_node_impl)); if (new_node == NULL) return NULL; ASYNCSAFE(const void *) new_node->value = elt; #if WITH_HASHTABLE new_node->h.hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (new_node->value) : (size_t)(uintptr_t) new_node->value); /* Add new_node to the hash table. */ if (add_to_bucket (list, new_node) < 0) { free (new_node); return NULL; } #endif /* Add new_node to the list. */ ASYNCSAFE(gl_list_node_t) new_node->next = node; new_node->prev = node->prev; ASYNCSAFE(gl_list_node_t) new_node->prev->next = new_node; node->prev = new_node; list->count++; #if WITH_HASHTABLE hash_resize_after_add (list); #endif return new_node; } static gl_list_node_t gl_linked_nx_add_after (gl_list_t list, gl_list_node_t node, const void *elt) { gl_list_node_t new_node = (struct gl_list_node_impl *) malloc (sizeof (struct gl_list_node_impl)); if (new_node == NULL) return NULL; ASYNCSAFE(const void *) new_node->value = elt; #if WITH_HASHTABLE new_node->h.hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (new_node->value) : (size_t)(uintptr_t) new_node->value); /* Add new_node to the hash table. */ if (add_to_bucket (list, new_node) < 0) { free (new_node); return NULL; } #endif /* Add new_node to the list. */ new_node->prev = node; ASYNCSAFE(gl_list_node_t) new_node->next = node->next; new_node->next->prev = new_node; ASYNCSAFE(gl_list_node_t) node->next = new_node; list->count++; #if WITH_HASHTABLE hash_resize_after_add (list); #endif return new_node; } static gl_list_node_t gl_linked_nx_add_at (gl_list_t list, size_t position, const void *elt) { size_t count = list->count; gl_list_node_t new_node; if (!(position <= count)) /* Invalid argument. */ abort (); new_node = (struct gl_list_node_impl *) malloc (sizeof (struct gl_list_node_impl)); if (new_node == NULL) return NULL; ASYNCSAFE(const void *) new_node->value = elt; #if WITH_HASHTABLE new_node->h.hashcode = (list->base.hashcode_fn != NULL ? list->base.hashcode_fn (new_node->value) : (size_t)(uintptr_t) new_node->value); /* Add new_node to the hash table. */ if (add_to_bucket (list, new_node) < 0) { free (new_node); return NULL; } #endif /* Add new_node to the list. */ if (position <= (count / 2)) { gl_list_node_t node; node = &list->root; for (; position > 0; position--) node = node->next; new_node->prev = node; ASYNCSAFE(gl_list_node_t) new_node->next = node->next; new_node->next->prev = new_node; ASYNCSAFE(gl_list_node_t) node->next = new_node; } else { gl_list_node_t node; position = count - position; node = &list->root; for (; position > 0; position--) node = node->prev; ASYNCSAFE(gl_list_node_t) new_node->next = node; new_node->prev = node->prev; ASYNCSAFE(gl_list_node_t) new_node->prev->next = new_node; node->prev = new_node; } list->count++; #if WITH_HASHTABLE hash_resize_after_add (list); #endif return new_node; } static bool gl_linked_remove_node (gl_list_t list, gl_list_node_t node) { gl_list_node_t prev; gl_list_node_t next; #if WITH_HASHTABLE /* Remove node from the hash table. */ remove_from_bucket (list, node); #endif /* Remove node from the list. */ prev = node->prev; next = node->next; ASYNCSAFE(gl_list_node_t) prev->next = next; next->prev = prev; list->count--; if (list->base.dispose_fn != NULL) list->base.dispose_fn (node->value); free (node); return true; } static bool gl_linked_remove_at (gl_list_t list, size_t position) { size_t count = list->count; gl_list_node_t removed_node; if (!(position < count)) /* Invalid argument. */ abort (); /* Here we know count > 0. */ if (position <= ((count - 1) / 2)) { gl_list_node_t node; gl_list_node_t after_removed; node = &list->root; for (; position > 0; position--) node = node->next; removed_node = node->next; after_removed = node->next->next; ASYNCSAFE(gl_list_node_t) node->next = after_removed; after_removed->prev = node; } else { gl_list_node_t node; gl_list_node_t before_removed; position = count - 1 - position; node = &list->root; for (; position > 0; position--) node = node->prev; removed_node = node->prev; before_removed = node->prev->prev; node->prev = before_removed; ASYNCSAFE(gl_list_node_t) before_removed->next = node; } #if WITH_HASHTABLE remove_from_bucket (list, removed_node); #endif list->count--; if (list->base.dispose_fn != NULL) list->base.dispose_fn (removed_node->value); free (removed_node); return true; } static bool gl_linked_remove (gl_list_t list, const void *elt) { gl_list_node_t node = gl_linked_search_from_to (list, 0, list->count, elt); if (node != NULL) return gl_linked_remove_node (list, node); else return false; } static void gl_linked_list_free (gl_list_t list) { gl_listelement_dispose_fn dispose = list->base.dispose_fn; gl_list_node_t node; for (node = list->root.next; node != &list->root; ) { gl_list_node_t next = node->next; if (dispose != NULL) dispose (node->value); free (node); node = next; } #if WITH_HASHTABLE free (list->table); #endif free (list); } /* --------------------- gl_list_iterator_t Data Type --------------------- */ static gl_list_iterator_t _GL_ATTRIBUTE_PURE gl_linked_iterator (gl_list_t list) { gl_list_iterator_t result; result.vtable = list->base.vtable; result.list = list; result.p = list->root.next; result.q = &list->root; #if defined GCC_LINT || defined lint result.i = 0; result.j = 0; result.count = 0; #endif return result; } static gl_list_iterator_t _GL_ATTRIBUTE_PURE gl_linked_iterator_from_to (gl_list_t list, size_t start_index, size_t end_index) { gl_list_iterator_t result; size_t n1, n2, n3; if (!(start_index <= end_index && end_index <= list->count)) /* Invalid arguments. */ abort (); result.vtable = list->base.vtable; result.list = list; n1 = start_index; n2 = end_index - start_index; n3 = list->count - end_index; /* Find the maximum among n1, n2, n3, so as to reduce the number of loop iterations to n1 + n2 + n3 - max(n1,n2,n3). */ if (n1 > n2 && n1 > n3) { /* n1 is the maximum, use n2 and n3. */ gl_list_node_t node; size_t i; node = &list->root; for (i = n3; i > 0; i--) node = node->prev; result.q = node; for (i = n2; i > 0; i--) node = node->prev; result.p = node; } else if (n2 > n3) { /* n2 is the maximum, use n1 and n3. */ gl_list_node_t node; size_t i; node = list->root.next; for (i = n1; i > 0; i--) node = node->next; result.p = node; node = &list->root; for (i = n3; i > 0; i--) node = node->prev; result.q = node; } else { /* n3 is the maximum, use n1 and n2. */ gl_list_node_t node; size_t i; node = list->root.next; for (i = n1; i > 0; i--) node = node->next; result.p = node; for (i = n2; i > 0; i--) node = node->next; result.q = node; } #if defined GCC_LINT || defined lint result.i = 0; result.j = 0; result.count = 0; #endif return result; } static bool gl_linked_iterator_next (gl_list_iterator_t *iterator, const void **eltp, gl_list_node_t *nodep) { if (iterator->p != iterator->q) { gl_list_node_t node = (gl_list_node_t) iterator->p; *eltp = node->value; if (nodep != NULL) *nodep = node; iterator->p = node->next; return true; } else return false; } static void gl_linked_iterator_free (gl_list_iterator_t *iterator _GL_ATTRIBUTE_MAYBE_UNUSED) { } /* ---------------------- Sorted gl_list_t Data Type ---------------------- */ static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_sortedlist_search (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { gl_list_node_t node; for (node = list->root.next; node != &list->root; node = node->next) { int cmp = compar (node->value, elt); if (cmp > 0) break; if (cmp == 0) return node; } return NULL; } static gl_list_node_t _GL_ATTRIBUTE_PURE gl_linked_sortedlist_search_from_to (gl_list_t list, gl_listelement_compar_fn compar, size_t low, size_t high, const void *elt) { size_t count = list->count; if (!(low <= high && high <= list->count)) /* Invalid arguments. */ abort (); high -= low; if (high > 0) { /* Here we know low < count. */ size_t position = low; gl_list_node_t node; if (position <= ((count - 1) / 2)) { node = list->root.next; for (; position > 0; position--) node = node->next; } else { position = count - 1 - position; node = list->root.prev; for (; position > 0; position--) node = node->prev; } do { int cmp = compar (node->value, elt); if (cmp > 0) break; if (cmp == 0) return node; node = node->next; } while (--high > 0); } return NULL; } static size_t _GL_ATTRIBUTE_PURE gl_linked_sortedlist_indexof (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { gl_list_node_t node; size_t index; for (node = list->root.next, index = 0; node != &list->root; node = node->next, index++) { int cmp = compar (node->value, elt); if (cmp > 0) break; if (cmp == 0) return index; } return (size_t)(-1); } static size_t _GL_ATTRIBUTE_PURE gl_linked_sortedlist_indexof_from_to (gl_list_t list, gl_listelement_compar_fn compar, size_t low, size_t high, const void *elt) { size_t count = list->count; if (!(low <= high && high <= list->count)) /* Invalid arguments. */ abort (); high -= low; if (high > 0) { /* Here we know low < count. */ size_t index = low; size_t position = low; gl_list_node_t node; if (position <= ((count - 1) / 2)) { node = list->root.next; for (; position > 0; position--) node = node->next; } else { position = count - 1 - position; node = list->root.prev; for (; position > 0; position--) node = node->prev; } do { int cmp = compar (node->value, elt); if (cmp > 0) break; if (cmp == 0) return index; node = node->next; index++; } while (--high > 0); } return (size_t)(-1); } static gl_list_node_t gl_linked_sortedlist_nx_add (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { gl_list_node_t node; for (node = list->root.next; node != &list->root; node = node->next) if (compar (node->value, elt) >= 0) return gl_linked_nx_add_before (list, node, elt); return gl_linked_nx_add_last (list, elt); } static bool gl_linked_sortedlist_remove (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { gl_list_node_t node; for (node = list->root.next; node != &list->root; node = node->next) { int cmp = compar (node->value, elt); if (cmp > 0) break; if (cmp == 0) return gl_linked_remove_node (list, node); } return false; } libffcall-2.4/gnulib-lib/xsize.h0000664000000000000000000000675714057155505013553 00000000000000/* xsize.h -- Checked size_t computations. Copyright (C) 2003, 2008-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _XSIZE_H #define _XSIZE_H /* Get size_t. */ #include /* Get SIZE_MAX. */ #include #if HAVE_STDINT_H # include #endif /* Get ATTRIBUTE_PURE. */ #include "attribute.h" #ifndef _GL_INLINE_HEADER_BEGIN #error "Please include config.h first." #endif _GL_INLINE_HEADER_BEGIN #ifndef XSIZE_INLINE # define XSIZE_INLINE _GL_INLINE #endif /* The size of memory objects is often computed through expressions of type size_t. Example: void* p = malloc (header_size + n * element_size). These computations can lead to overflow. When this happens, malloc() returns a piece of memory that is way too small, and the program then crashes while attempting to fill the memory. To avoid this, the functions and macros in this file check for overflow. The convention is that SIZE_MAX represents overflow. malloc (SIZE_MAX) is not guaranteed to fail -- think of a malloc implementation that uses mmap --, it's recommended to use size_overflow_p() or size_in_bounds_p() before invoking malloc(). The example thus becomes: size_t size = xsum (header_size, xtimes (n, element_size)); void *p = (size_in_bounds_p (size) ? malloc (size) : NULL); */ /* Convert an arbitrary value >= 0 to type size_t. */ #define xcast_size_t(N) \ ((N) <= SIZE_MAX ? (size_t) (N) : SIZE_MAX) /* Sum of two sizes, with overflow check. */ XSIZE_INLINE size_t ATTRIBUTE_PURE xsum (size_t size1, size_t size2) { size_t sum = size1 + size2; return (sum >= size1 ? sum : SIZE_MAX); } /* Sum of three sizes, with overflow check. */ XSIZE_INLINE size_t ATTRIBUTE_PURE xsum3 (size_t size1, size_t size2, size_t size3) { return xsum (xsum (size1, size2), size3); } /* Sum of four sizes, with overflow check. */ XSIZE_INLINE size_t ATTRIBUTE_PURE xsum4 (size_t size1, size_t size2, size_t size3, size_t size4) { return xsum (xsum (xsum (size1, size2), size3), size4); } /* Maximum of two sizes, with overflow check. */ XSIZE_INLINE size_t ATTRIBUTE_PURE xmax (size_t size1, size_t size2) { /* No explicit check is needed here, because for any n: max (SIZE_MAX, n) == SIZE_MAX and max (n, SIZE_MAX) == SIZE_MAX. */ return (size1 >= size2 ? size1 : size2); } /* Multiplication of a count with an element size, with overflow check. The count must be >= 0 and the element size must be > 0. This is a macro, not a function, so that it works correctly even when N is of a wider type and N > SIZE_MAX. */ #define xtimes(N, ELSIZE) \ ((N) <= SIZE_MAX / (ELSIZE) ? (size_t) (N) * (ELSIZE) : SIZE_MAX) /* Check for overflow. */ #define size_overflow_p(SIZE) \ ((SIZE) == SIZE_MAX) /* Check against overflow. */ #define size_in_bounds_p(SIZE) \ ((SIZE) != SIZE_MAX) _GL_INLINE_HEADER_END #endif /* _XSIZE_H */ libffcall-2.4/gnulib-lib/verify.h0000664000000000000000000003053314057155505013702 00000000000000/* Compile-time assert-like macros. Copyright (C) 2005-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Paul Eggert, Bruno Haible, and Jim Meyering. */ #ifndef _GL_VERIFY_H #define _GL_VERIFY_H /* Define _GL_HAVE__STATIC_ASSERT to 1 if _Static_assert (R, DIAGNOSTIC) works as per C11. This is supported by GCC 4.6.0+ and by clang 4+. Define _GL_HAVE__STATIC_ASSERT1 to 1 if _Static_assert (R) works as per C2X. This is supported by GCC 9.1+. Support compilers claiming conformance to the relevant standard, and also support GCC when not pedantic. If we were willing to slow 'configure' down we could also use it with other compilers, but since this affects only the quality of diagnostics, why bother? */ #ifndef __cplusplus # if (201112L <= __STDC_VERSION__ \ || (!defined __STRICT_ANSI__ \ && (4 < __GNUC__ + (6 <= __GNUC_MINOR__) || 4 <= __clang_major__))) # define _GL_HAVE__STATIC_ASSERT 1 # endif # if (202000L <= __STDC_VERSION__ \ || (!defined __STRICT_ANSI__ && 9 <= __GNUC__)) # define _GL_HAVE__STATIC_ASSERT1 1 # endif #endif /* FreeBSD 9.1 , included by and lots of other system headers, defines a conflicting _Static_assert that is no better than ours; override it. */ #ifndef _GL_HAVE__STATIC_ASSERT # include # undef _Static_assert #endif /* Each of these macros verifies that its argument R is nonzero. To be portable, R should be an integer constant expression. Unlike assert (R), there is no run-time overhead. If _Static_assert works, verify (R) uses it directly. Similarly, _GL_VERIFY_TRUE works by packaging a _Static_assert inside a struct that is an operand of sizeof. The code below uses several ideas for C++ compilers, and for C compilers that do not support _Static_assert: * The first step is ((R) ? 1 : -1). Given an expression R, of integral or boolean or floating-point type, this yields an expression of integral type, whose value is later verified to be constant and nonnegative. * Next this expression W is wrapped in a type struct _gl_verify_type { unsigned int _gl_verify_error_if_negative: W; }. If W is negative, this yields a compile-time error. No compiler can deal with a bit-field of negative size. One might think that an array size check would have the same effect, that is, that the type struct { unsigned int dummy[W]; } would work as well. However, inside a function, some compilers (such as C++ compilers and GNU C) allow local parameters and variables inside array size expressions. With these compilers, an array size check would not properly diagnose this misuse of the verify macro: void function (int n) { verify (n < 0); } * For the verify macro, the struct _gl_verify_type will need to somehow be embedded into a declaration. To be portable, this declaration must declare an object, a constant, a function, or a typedef name. If the declared entity uses the type directly, such as in struct dummy {...}; typedef struct {...} dummy; extern struct {...} *dummy; extern void dummy (struct {...} *); extern struct {...} *dummy (void); two uses of the verify macro would yield colliding declarations if the entity names are not disambiguated. A workaround is to attach the current line number to the entity name: #define _GL_CONCAT0(x, y) x##y #define _GL_CONCAT(x, y) _GL_CONCAT0 (x, y) extern struct {...} * _GL_CONCAT (dummy, __LINE__); But this has the problem that two invocations of verify from within the same macro would collide, since the __LINE__ value would be the same for both invocations. (The GCC __COUNTER__ macro solves this problem, but is not portable.) A solution is to use the sizeof operator. It yields a number, getting rid of the identity of the type. Declarations like extern int dummy [sizeof (struct {...})]; extern void dummy (int [sizeof (struct {...})]); extern int (*dummy (void)) [sizeof (struct {...})]; can be repeated. * Should the implementation use a named struct or an unnamed struct? Which of the following alternatives can be used? extern int dummy [sizeof (struct {...})]; extern int dummy [sizeof (struct _gl_verify_type {...})]; extern void dummy (int [sizeof (struct {...})]); extern void dummy (int [sizeof (struct _gl_verify_type {...})]); extern int (*dummy (void)) [sizeof (struct {...})]; extern int (*dummy (void)) [sizeof (struct _gl_verify_type {...})]; In the second and sixth case, the struct type is exported to the outer scope; two such declarations therefore collide. GCC warns about the first, third, and fourth cases. So the only remaining possibility is the fifth case: extern int (*dummy (void)) [sizeof (struct {...})]; * GCC warns about duplicate declarations of the dummy function if -Wredundant-decls is used. GCC 4.3 and later have a builtin __COUNTER__ macro that can let us generate unique identifiers for each dummy function, to suppress this warning. * This implementation exploits the fact that older versions of GCC, which do not support _Static_assert, also do not warn about the last declaration mentioned above. * GCC warns if -Wnested-externs is enabled and 'verify' is used within a function body; but inside a function, you can always arrange to use verify_expr instead. * In C++, any struct definition inside sizeof is invalid. Use a template type to work around the problem. */ /* Concatenate two preprocessor tokens. */ #define _GL_CONCAT(x, y) _GL_CONCAT0 (x, y) #define _GL_CONCAT0(x, y) x##y /* _GL_COUNTER is an integer, preferably one that changes each time we use it. Use __COUNTER__ if it works, falling back on __LINE__ otherwise. __LINE__ isn't perfect, but it's better than a constant. */ #if defined __COUNTER__ && __COUNTER__ != __COUNTER__ # define _GL_COUNTER __COUNTER__ #else # define _GL_COUNTER __LINE__ #endif /* Generate a symbol with the given prefix, making it unique if possible. */ #define _GL_GENSYM(prefix) _GL_CONCAT (prefix, _GL_COUNTER) /* Verify requirement R at compile-time, as an integer constant expression that returns 1. If R is false, fail at compile-time, preferably with a diagnostic that includes the string-literal DIAGNOSTIC. */ #define _GL_VERIFY_TRUE(R, DIAGNOSTIC) \ (!!sizeof (_GL_VERIFY_TYPE (R, DIAGNOSTIC))) #ifdef __cplusplus # if !GNULIB_defined_struct__gl_verify_type template struct _gl_verify_type { unsigned int _gl_verify_error_if_negative: w; }; # define GNULIB_defined_struct__gl_verify_type 1 # endif # define _GL_VERIFY_TYPE(R, DIAGNOSTIC) \ _gl_verify_type<(R) ? 1 : -1> #elif defined _GL_HAVE__STATIC_ASSERT # define _GL_VERIFY_TYPE(R, DIAGNOSTIC) \ struct { \ _Static_assert (R, DIAGNOSTIC); \ int _gl_dummy; \ } #else # define _GL_VERIFY_TYPE(R, DIAGNOSTIC) \ struct { unsigned int _gl_verify_error_if_negative: (R) ? 1 : -1; } #endif /* Verify requirement R at compile-time, as a declaration without a trailing ';'. If R is false, fail at compile-time. This macro requires three or more arguments but uses at most the first two, so that the _Static_assert macro optionally defined below supports both the C11 two-argument syntax and the C2X one-argument syntax. Unfortunately, unlike C11, this implementation must appear as an ordinary declaration, and cannot appear inside struct { ... }. */ #if 200410 <= __cpp_static_assert # define _GL_VERIFY(R, DIAGNOSTIC, ...) static_assert (R, DIAGNOSTIC) #elif defined _GL_HAVE__STATIC_ASSERT # define _GL_VERIFY(R, DIAGNOSTIC, ...) _Static_assert (R, DIAGNOSTIC) #else # define _GL_VERIFY(R, DIAGNOSTIC, ...) \ extern int (*_GL_GENSYM (_gl_verify_function) (void)) \ [_GL_VERIFY_TRUE (R, DIAGNOSTIC)] #endif /* _GL_STATIC_ASSERT_H is defined if this code is copied into assert.h. */ #ifdef _GL_STATIC_ASSERT_H # if !defined _GL_HAVE__STATIC_ASSERT1 && !defined _Static_assert # define _Static_assert(...) \ _GL_VERIFY (__VA_ARGS__, "static assertion failed", -) # endif # if __cpp_static_assert < 201411 && !defined static_assert # define static_assert _Static_assert /* C11 requires this #define. */ # endif #endif /* @assert.h omit start@ */ #if 3 < __GNUC__ + (3 < __GNUC_MINOR__ + (4 <= __GNUC_PATCHLEVEL__)) # define _GL_HAS_BUILTIN_TRAP 1 #elif defined __has_builtin # define _GL_HAS_BUILTIN_TRAP __has_builtin (__builtin_trap) #else # define _GL_HAS_BUILTIN_TRAP 0 #endif #if 4 < __GNUC__ + (5 <= __GNUC_MINOR__) # define _GL_HAS_BUILTIN_UNREACHABLE 1 #elif defined __has_builtin # define _GL_HAS_BUILTIN_UNREACHABLE __has_builtin (__builtin_unreachable) #else # define _GL_HAS_BUILTIN_UNREACHABLE 0 #endif /* Each of these macros verifies that its argument R is nonzero. To be portable, R should be an integer constant expression. Unlike assert (R), there is no run-time overhead. There are two macros, since no single macro can be used in all contexts in C. verify_expr (R, E) is for scalar contexts, including integer constant expression contexts. verify (R) is for declaration contexts, e.g., the top level. */ /* Verify requirement R at compile-time. Return the value of the expression E. */ #define verify_expr(R, E) \ (_GL_VERIFY_TRUE (R, "verify_expr (" #R ", " #E ")") ? (E) : (E)) /* Verify requirement R at compile-time, as a declaration without a trailing ';'. verify (R) acts like static_assert (R) except that it is portable to C11/C++14 and earlier, it can issue better diagnostics, and its name is shorter and may be more convenient. */ #ifdef __PGI /* PGI barfs if R is long. */ # define verify(R) _GL_VERIFY (R, "verify (...)", -) #else # define verify(R) _GL_VERIFY (R, "verify (" #R ")", -) #endif /* Assume that R always holds. Behavior is undefined if R is false, fails to evaluate, or has side effects. 'assume (R)' is a directive from the programmer telling the compiler that R is true so the compiler needn't generate code to test R. This is why 'assume' is in verify.h: it's related to static checking (in this case, static checking done by the programmer), not dynamic checking. 'assume (R)' can affect compilation of all the code, not just code that happens to be executed after the assume (R) is "executed". For example, if the code mistakenly does 'assert (R); assume (R);' the compiler is entitled to optimize away the 'assert (R)'. Although assuming R can help a compiler generate better code or diagnostics, performance can suffer if R uses hard-to-optimize features such as function calls not inlined by the compiler. Avoid Clang's __builtin_assume, as it breaks GNU Emacs master as of 2020-08-23T21:09:49Z!eggert@cs.ucla.edu; see . It's not known whether this breakage is a Clang bug or an Emacs bug; play it safe for now. */ #if _GL_HAS_BUILTIN_UNREACHABLE # define assume(R) ((R) ? (void) 0 : __builtin_unreachable ()) #elif 1200 <= _MSC_VER # define assume(R) __assume (R) #elif (defined GCC_LINT || defined lint) && _GL_HAS_BUILTIN_TRAP /* Doing it this way helps various packages when configured with --enable-gcc-warnings, which compiles with -Dlint. It's nicer when 'assume' silences warnings even with older GCCs. */ # define assume(R) ((R) ? (void) 0 : __builtin_trap ()) #else /* Some tools grok NOTREACHED, e.g., Oracle Studio 12.6. */ # define assume(R) ((R) ? (void) 0 : /*NOTREACHED*/ (void) 0) #endif /* @assert.h omit end@ */ #endif libffcall-2.4/gnulib-lib/gl_linkedhash_list.c0000664000000000000000000000640414057155505016220 00000000000000/* Sequential list data type implemented by a hash table with a linked list. Copyright (C) 2006, 2008-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "gl_linkedhash_list.h" #include /* for uintptr_t, SIZE_MAX */ #include #include "xsize.h" #define WITH_HASHTABLE 1 /* -------------------------- gl_list_t Data Type -------------------------- */ /* Generic hash-table code. */ #include "gl_anyhash1.h" /* Generic linked list code. */ #include "gl_anylinked_list1.h" /* Generic hash-table code. */ #define CONTAINER_T gl_list_t #define CONTAINER_COUNT(list) (list)->count #include "gl_anyhash2.h" /* Add a node to the hash table structure. */ static void add_to_bucket (gl_list_t list, gl_list_node_t node) { size_t bucket = node->h.hashcode % list->table_size; node->h.hash_next = list->table[bucket]; list->table[bucket] = &node->h; } /* Tell all compilers that the return value is 0. */ #define add_to_bucket(list,node) ((add_to_bucket) (list, node), 0) /* Remove a node from the hash table structure. */ static void remove_from_bucket (gl_list_t list, gl_list_node_t node) { size_t bucket = node->h.hashcode % list->table_size; gl_hash_entry_t *p; for (p = &list->table[bucket]; ; p = &(*p)->hash_next) { if (*p == &node->h) { *p = node->h.hash_next; break; } if (*p == NULL) /* node is not in the right bucket. Did the hash codes change inadvertently? */ abort (); } } /* Generic linked list code. */ #include "gl_anylinked_list2.h" const struct gl_list_implementation gl_linkedhash_list_implementation = { gl_linked_nx_create_empty, gl_linked_nx_create, gl_linked_size, gl_linked_node_value, gl_linked_node_nx_set_value, gl_linked_next_node, gl_linked_previous_node, gl_linked_first_node, gl_linked_last_node, gl_linked_get_at, gl_linked_nx_set_at, gl_linked_search_from_to, gl_linked_indexof_from_to, gl_linked_nx_add_first, gl_linked_nx_add_last, gl_linked_nx_add_before, gl_linked_nx_add_after, gl_linked_nx_add_at, gl_linked_remove_node, gl_linked_remove_at, gl_linked_remove, gl_linked_list_free, gl_linked_iterator, gl_linked_iterator_from_to, gl_linked_iterator_next, gl_linked_iterator_free, gl_linked_sortedlist_search, gl_linked_sortedlist_search_from_to, gl_linked_sortedlist_indexof, gl_linked_sortedlist_indexof_from_to, gl_linked_sortedlist_nx_add, gl_linked_sortedlist_remove }; libffcall-2.4/gnulib-lib/strerror.c0000664000000000000000000000407414057155505014254 00000000000000/* strerror.c --- POSIX compatible system error routine Copyright (C) 2007-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include #include #include #include #include #include "intprops.h" #include "strerror-override.h" #include "verify.h" /* Use the system functions, not the gnulib overrides in this file. */ #undef sprintf char * strerror (int n) #undef strerror { static char buf[STACKBUF_LEN]; size_t len; /* Cast away const, due to the historical signature of strerror; callers should not be modifying the string. */ const char *msg = strerror_override (n); if (msg) return (char *) msg; msg = strerror (n); /* Our strerror_r implementation might use the system's strerror buffer, so all other clients of strerror have to see the error copied into a buffer that we manage. This is not thread-safe, even if the system strerror is, but portable programs shouldn't be using strerror if they care about thread-safety. */ if (!msg || !*msg) { static char const fmt[] = "Unknown error %d"; verify (sizeof buf >= sizeof (fmt) + INT_STRLEN_BOUND (n)); sprintf (buf, fmt, n); errno = EINVAL; return buf; } /* Fix STACKBUF_LEN if this ever aborts. */ len = strlen (msg); if (sizeof buf <= len) abort (); memcpy (buf, msg, len + 1); return buf; } libffcall-2.4/gnulib-lib/windows-spin.h0000664000000000000000000000273314057155505015040 00000000000000/* Spin locks (native Windows implementation). Copyright (C) 2019-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2019. */ #ifndef _WINDOWS_SPIN_H #define _WINDOWS_SPIN_H #define WIN32_LEAN_AND_MEAN /* avoid including junk */ #include typedef struct { LONG volatile word; } glwthread_spinlock_t; #define GLWTHREAD_SPIN_INIT { 0 } #ifdef __cplusplus extern "C" { #endif extern void glwthread_spin_init (glwthread_spinlock_t *lock); extern int glwthread_spin_lock (glwthread_spinlock_t *lock); extern int glwthread_spin_trylock (glwthread_spinlock_t *lock); extern int glwthread_spin_unlock (glwthread_spinlock_t *lock); extern int glwthread_spin_destroy (glwthread_spinlock_t *lock); #ifdef __cplusplus } #endif #endif /* _WINDOWS_SPIN_H */ libffcall-2.4/gnulib-lib/clean-temp-private.h0000664000000000000000000000612514057155505016073 00000000000000/* Private interface between modules 'clean-temp-simple' and 'clean-temp'. Copyright (C) 2006-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _CLEAN_TEMP_PRIVATE_H #define _CLEAN_TEMP_PRIVATE_H #include #include #include "gl_list.h" #include "asyncsafe-spin.h" /* The use of 'volatile' in the types below (and ISO C 99 section 5.1.2.3.(5)) ensure that while constructing or modifying the data structures, the field values are written to memory in the order of the C statements. So the signal handler can rely on these field values to be up to date. */ /* Registry for a single temporary directory. 'struct temp_dir' from the public header file overlaps with this. */ struct tempdir { /* The absolute pathname of the directory. */ char * volatile dirname; /* Whether errors during explicit cleanup are reported to standard error. */ bool cleanup_verbose; /* Absolute pathnames of subdirectories. */ gl_list_t /* */ volatile subdirs; /* Absolute pathnames of files. */ gl_list_t /* */ volatile files; }; /* List of all temporary directories. */ struct all_tempdirs { struct tempdir * volatile * volatile tempdir_list; size_t volatile tempdir_count; size_t tempdir_allocated; }; #define dir_cleanup_list clean_temp_dir_cleanup_list extern struct all_tempdirs dir_cleanup_list; /* A file descriptor to be closed. In multithreaded programs, it is forbidden to close the same fd twice, because you never know what unrelated open() calls are being executed in other threads. So, the 'close (fd)' must be guarded by a once-only guard. */ struct closeable_fd { /* The file descriptor to close. */ int volatile fd; /* Set to true when it has been closed. */ bool volatile closed; /* Lock that protects the fd from being closed twice. */ asyncsafe_spinlock_t lock; /* Tells whether this list element has been done and can be freed. */ bool volatile done; }; #define descriptors clean_temp_descriptors extern gl_list_t /* */ volatile descriptors; extern bool clean_temp_string_equals (const void *x1, const void *x2); extern size_t clean_temp_string_hash (const void *x); extern _GL_ASYNC_SAFE int clean_temp_asyncsafe_close (struct closeable_fd *element); extern void clean_temp_init_asyncsafe_close (void); extern int clean_temp_init (void); extern int clean_temp_unlink (const char *absolute_file_name, bool cleanup_verbose); #endif /* _CLEAN_TEMP_PRIVATE_H */ libffcall-2.4/gnulib-lib/sigprocmask.c0000664000000000000000000002062214057155505014711 00000000000000/* POSIX compatible signal blocking. Copyright (C) 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include #include #include #include #if HAVE_MSVC_INVALID_PARAMETER_HANDLER # include "msvc-inval.h" #endif /* We assume that a platform without POSIX signal blocking functions also does not have the POSIX sigaction() function, only the signal() function. We also assume signal() has SysV semantics, where any handler is uninstalled prior to being invoked. This is true for native Windows platforms. */ /* We use raw signal(), but also provide a wrapper rpl_signal() so that applications can query or change a blocked signal. */ #undef signal /* Provide invalid signal numbers as fallbacks if the uncatchable signals are not defined. */ #ifndef SIGKILL # define SIGKILL (-1) #endif #ifndef SIGSTOP # define SIGSTOP (-1) #endif /* On native Windows, as of 2008, the signal SIGABRT_COMPAT is an alias for the signal SIGABRT. Only one signal handler is stored for both SIGABRT and SIGABRT_COMPAT. SIGABRT_COMPAT is not a signal of its own. */ #if defined _WIN32 && ! defined __CYGWIN__ # undef SIGABRT_COMPAT # define SIGABRT_COMPAT 6 #endif #ifdef SIGABRT_COMPAT # define SIGABRT_COMPAT_MASK (1U << SIGABRT_COMPAT) #else # define SIGABRT_COMPAT_MASK 0 #endif typedef void (*handler_t) (int); #if HAVE_MSVC_INVALID_PARAMETER_HANDLER static handler_t signal_nothrow (int sig, handler_t handler) { handler_t result; TRY_MSVC_INVAL { result = signal (sig, handler); } CATCH_MSVC_INVAL { result = SIG_ERR; errno = EINVAL; } DONE_MSVC_INVAL; return result; } # define signal signal_nothrow #endif /* Handling of gnulib defined signals. */ #if GNULIB_defined_SIGPIPE static handler_t SIGPIPE_handler = SIG_DFL; #endif #if GNULIB_defined_SIGPIPE static handler_t ext_signal (int sig, handler_t handler) { switch (sig) { case SIGPIPE: { handler_t old_handler = SIGPIPE_handler; SIGPIPE_handler = handler; return old_handler; } default: /* System defined signal */ return signal (sig, handler); } } # undef signal # define signal ext_signal #endif int sigismember (const sigset_t *set, int sig) { if (sig >= 0 && sig < NSIG) { #ifdef SIGABRT_COMPAT if (sig == SIGABRT_COMPAT) sig = SIGABRT; #endif return (*set >> sig) & 1; } else return 0; } int sigemptyset (sigset_t *set) { *set = 0; return 0; } int sigaddset (sigset_t *set, int sig) { if (sig >= 0 && sig < NSIG) { #ifdef SIGABRT_COMPAT if (sig == SIGABRT_COMPAT) sig = SIGABRT; #endif *set |= 1U << sig; return 0; } else { errno = EINVAL; return -1; } } int sigdelset (sigset_t *set, int sig) { if (sig >= 0 && sig < NSIG) { #ifdef SIGABRT_COMPAT if (sig == SIGABRT_COMPAT) sig = SIGABRT; #endif *set &= ~(1U << sig); return 0; } else { errno = EINVAL; return -1; } } int sigfillset (sigset_t *set) { *set = ((2U << (NSIG - 1)) - 1) & ~ SIGABRT_COMPAT_MASK; return 0; } /* Set of currently blocked signals. */ static volatile sigset_t blocked_set /* = 0 */; /* Set of currently blocked and pending signals. */ static volatile sig_atomic_t pending_array[NSIG] /* = { 0 } */; /* Signal handler that is installed for blocked signals. */ static void blocked_handler (int sig) { /* Reinstall the handler, in case the signal occurs multiple times while blocked. There is an inherent race where an asynchronous signal in between when the kernel uninstalled the handler and when we reinstall it will trigger the default handler; oh well. */ signal (sig, blocked_handler); if (sig >= 0 && sig < NSIG) pending_array[sig] = 1; } int sigpending (sigset_t *set) { sigset_t pending = 0; int sig; for (sig = 0; sig < NSIG; sig++) if (pending_array[sig]) pending |= 1U << sig; *set = pending; return 0; } /* The previous signal handlers. Only the array elements corresponding to blocked signals are relevant. */ static volatile handler_t old_handlers[NSIG]; int sigprocmask (int operation, const sigset_t *set, sigset_t *old_set) { if (old_set != NULL) *old_set = blocked_set; if (set != NULL) { sigset_t new_blocked_set; sigset_t to_unblock; sigset_t to_block; switch (operation) { case SIG_BLOCK: new_blocked_set = blocked_set | *set; break; case SIG_SETMASK: new_blocked_set = *set; break; case SIG_UNBLOCK: new_blocked_set = blocked_set & ~*set; break; default: errno = EINVAL; return -1; } to_unblock = blocked_set & ~new_blocked_set; to_block = new_blocked_set & ~blocked_set; if (to_block != 0) { int sig; for (sig = 0; sig < NSIG; sig++) if ((to_block >> sig) & 1) { pending_array[sig] = 0; if ((old_handlers[sig] = signal (sig, blocked_handler)) != SIG_ERR) blocked_set |= 1U << sig; } } if (to_unblock != 0) { sig_atomic_t received[NSIG]; int sig; for (sig = 0; sig < NSIG; sig++) if ((to_unblock >> sig) & 1) { if (signal (sig, old_handlers[sig]) != blocked_handler) /* The application changed a signal handler while the signal was blocked, bypassing our rpl_signal replacement. We don't support this. */ abort (); received[sig] = pending_array[sig]; blocked_set &= ~(1U << sig); pending_array[sig] = 0; } else received[sig] = 0; for (sig = 0; sig < NSIG; sig++) if (received[sig]) raise (sig); } } return 0; } /* Install the handler FUNC for signal SIG, and return the previous handler. */ handler_t rpl_signal (int sig, handler_t handler) { /* We must provide a wrapper, so that a user can query what handler they installed even if that signal is currently blocked. */ if (sig >= 0 && sig < NSIG && sig != SIGKILL && sig != SIGSTOP && handler != SIG_ERR) { #ifdef SIGABRT_COMPAT if (sig == SIGABRT_COMPAT) sig = SIGABRT; #endif if (blocked_set & (1U << sig)) { /* POSIX states that sigprocmask and signal are both async-signal-safe. This is not true of our implementation - there is a slight data race where an asynchronous interrupt on signal A can occur after we install blocked_handler but before we have updated old_handlers for signal B, such that handler A can see stale information if it calls signal(B). Oh well - signal handlers really shouldn't try to manipulate the installed handlers of unrelated signals. */ handler_t result = old_handlers[sig]; old_handlers[sig] = handler; return result; } else return signal (sig, handler); } else { errno = EINVAL; return SIG_ERR; } } #if GNULIB_defined_SIGPIPE /* Raise the signal SIGPIPE. */ int _gl_raise_SIGPIPE (void) { if (blocked_set & (1U << SIGPIPE)) pending_array[SIGPIPE] = 1; else { handler_t handler = SIGPIPE_handler; if (handler == SIG_DFL) exit (128 + SIGPIPE); else if (handler != SIG_IGN) (*handler) (SIGPIPE); } return 0; } #endif libffcall-2.4/gnulib-lib/alloca.in.h0000664000000000000000000000467414057155505014245 00000000000000/* Memory allocation on the stack. Copyright (C) 1995, 1999, 2001-2004, 2006-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Avoid using the symbol _ALLOCA_H here, as Bison assumes _ALLOCA_H means there is a real alloca function. */ #ifndef _GL_ALLOCA_H #define _GL_ALLOCA_H /* alloca (N) returns a pointer to N bytes of memory allocated on the stack, which will last until the function returns. Use of alloca should be avoided: - inside arguments of function calls - undefined behaviour, - in inline functions - the allocation may actually last until the calling function returns, - for huge N (say, N >= 65536) - you never know how large (or small) the stack is, and when the stack cannot fulfill the memory allocation request, the program just crashes. */ #ifndef alloca /* Some version of mingw have an that causes trouble when included after 'alloca' gets defined as a macro. As a workaround, include this first and define 'alloca' as a macro afterwards if needed. */ # if defined __GNUC__ && (defined _WIN32 && ! defined __CYGWIN__) && @HAVE_ALLOCA_H@ # include_next # endif #endif #ifndef alloca # if defined __GNUC__ || (__clang_major__ >= 4) # define alloca __builtin_alloca # elif defined _AIX # define alloca __alloca # elif defined _MSC_VER # include # define alloca _alloca # elif defined __DECC && defined __VMS # define alloca __ALLOCA # elif defined __TANDEM && defined _TNS_E_TARGET # ifdef __cplusplus extern "C" # endif void *_alloca (unsigned short); # pragma intrinsic (_alloca) # define alloca _alloca # elif defined __MVS__ # include # else # include # ifdef __cplusplus extern "C" # endif void *alloca (size_t); # endif #endif #endif /* _GL_ALLOCA_H */ libffcall-2.4/gnulib-lib/warn-on-use.h0000664000000000000000000001547114057155505014555 00000000000000/* A C macro for emitting warnings if a function is used. Copyright (C) 2010-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* _GL_WARN_ON_USE (function, "literal string") issues a declaration for FUNCTION which will then trigger a compiler warning containing the text of "literal string" anywhere that function is called, if supported by the compiler. If the compiler does not support this feature, the macro expands to an unused extern declaration. _GL_WARN_ON_USE_ATTRIBUTE ("literal string") expands to the attribute used in _GL_WARN_ON_USE. If the compiler does not support this feature, it expands to empty. These macros are useful for marking a function as a potential portability trap, with the intent that "literal string" include instructions on the replacement function that should be used instead. _GL_WARN_ON_USE is for functions with 'extern' linkage. _GL_WARN_ON_USE_ATTRIBUTE is for functions with 'static' or 'inline' linkage. However, one of the reasons that a function is a portability trap is if it has the wrong signature. Declaring FUNCTION with a different signature in C is a compilation error, so this macro must use the same type as any existing declaration so that programs that avoid the problematic FUNCTION do not fail to compile merely because they included a header that poisoned the function. But this implies that _GL_WARN_ON_USE is only safe to use if FUNCTION is known to already have a declaration. Use of this macro implies that there must not be any other macro hiding the declaration of FUNCTION; but undefining FUNCTION first is part of the poisoning process anyway (although for symbols that are provided only via a macro, the result is a compilation error rather than a warning containing "literal string"). Also note that in C++, it is only safe to use if FUNCTION has no overloads. For an example, it is possible to poison 'getline' by: - adding a call to gl_WARN_ON_USE_PREPARE([[#include ]], [getline]) in configure.ac, which potentially defines HAVE_RAW_DECL_GETLINE - adding this code to a header that wraps the system : #undef getline #if HAVE_RAW_DECL_GETLINE _GL_WARN_ON_USE (getline, "getline is required by POSIX 2008, but" "not universally present; use the gnulib module getline"); #endif It is not possible to directly poison global variables. But it is possible to write a wrapper accessor function, and poison that (less common usage, like &environ, will cause a compilation error rather than issue the nice warning, but the end result of informing the developer about their portability problem is still achieved): #if HAVE_RAW_DECL_ENVIRON static char *** rpl_environ (void) { return &environ; } _GL_WARN_ON_USE (rpl_environ, "environ is not always properly declared"); # undef environ # define environ (*rpl_environ ()) #endif or better (avoiding contradictory use of 'static' and 'extern'): #if HAVE_RAW_DECL_ENVIRON static char *** _GL_WARN_ON_USE_ATTRIBUTE ("environ is not always properly declared") rpl_environ (void) { return &environ; } # undef environ # define environ (*rpl_environ ()) #endif */ #ifndef _GL_WARN_ON_USE # if 4 < __GNUC__ || (__GNUC__ == 4 && 3 <= __GNUC_MINOR__) /* A compiler attribute is available in gcc versions 4.3.0 and later. */ # define _GL_WARN_ON_USE(function, message) \ extern __typeof__ (function) function __attribute__ ((__warning__ (message))) # define _GL_WARN_ON_USE_ATTRIBUTE(message) \ __attribute__ ((__warning__ (message))) # elif __clang_major__ >= 4 /* Another compiler attribute is available in clang. */ # define _GL_WARN_ON_USE(function, message) \ extern __typeof__ (function) function \ __attribute__ ((__diagnose_if__ (1, message, "warning"))) # define _GL_WARN_ON_USE_ATTRIBUTE(message) \ __attribute__ ((__diagnose_if__ (1, message, "warning"))) # elif __GNUC__ >= 3 && GNULIB_STRICT_CHECKING /* Verify the existence of the function. */ # define _GL_WARN_ON_USE(function, message) \ extern __typeof__ (function) function # define _GL_WARN_ON_USE_ATTRIBUTE(message) # else /* Unsupported. */ # define _GL_WARN_ON_USE(function, message) \ _GL_WARN_EXTERN_C int _gl_warn_on_use # define _GL_WARN_ON_USE_ATTRIBUTE(message) # endif #endif /* _GL_WARN_ON_USE_CXX (function, rettype_gcc, rettype_clang, parameters_and_attributes, "message") is like _GL_WARN_ON_USE (function, "message"), except that in C++ mode the function is declared with the given prototype, consisting of return type, parameters, and attributes. This variant is useful for overloaded functions in C++. _GL_WARN_ON_USE does not work in this case. */ #ifndef _GL_WARN_ON_USE_CXX # if !defined __cplusplus # define _GL_WARN_ON_USE_CXX(function,rettype_gcc,rettype_clang,parameters_and_attributes,msg) \ _GL_WARN_ON_USE (function, msg) # else # if 4 < __GNUC__ || (__GNUC__ == 4 && 3 <= __GNUC_MINOR__) /* A compiler attribute is available in gcc versions 4.3.0 and later. */ # define _GL_WARN_ON_USE_CXX(function,rettype_gcc,rettype_clang,parameters_and_attributes,msg) \ extern rettype_gcc function parameters_and_attributes \ __attribute__ ((__warning__ (msg))) # elif __clang_major__ >= 4 /* Another compiler attribute is available in clang. */ # define _GL_WARN_ON_USE_CXX(function,rettype_gcc,rettype_clang,parameters_and_attributes,msg) \ extern rettype_clang function parameters_and_attributes \ __attribute__ ((__diagnose_if__ (1, msg, "warning"))) # elif __GNUC__ >= 3 && GNULIB_STRICT_CHECKING /* Verify the existence of the function. */ # define _GL_WARN_ON_USE_CXX(function,rettype_gcc,rettype_clang,parameters_and_attributes,msg) \ extern rettype_gcc function parameters_and_attributes # else /* Unsupported. */ # define _GL_WARN_ON_USE_CXX(function,rettype_gcc,rettype_clang,parameters_and_attributes,msg) \ _GL_WARN_EXTERN_C int _gl_warn_on_use # endif # endif #endif /* _GL_WARN_EXTERN_C declaration; performs the declaration with C linkage. */ #ifndef _GL_WARN_EXTERN_C # if defined __cplusplus # define _GL_WARN_EXTERN_C extern "C" # else # define _GL_WARN_EXTERN_C extern # endif #endif libffcall-2.4/gnulib-lib/stat-time.c0000664000000000000000000000152014057155505014272 00000000000000/* stat-related time functions. Copyright (C) 2012-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include #define _GL_STAT_TIME_INLINE _GL_EXTERN_INLINE #include "stat-time.h" libffcall-2.4/gnulib-lib/fd-hook.h0000664000000000000000000001136414057155505013726 00000000000000/* Hook for making file descriptor functions close(), ioctl() extensible. Copyright (C) 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef FD_HOOK_H #define FD_HOOK_H #ifdef __cplusplus extern "C" { #endif /* Currently, this entire code is only needed for the handling of sockets on native Windows platforms. */ #if WINDOWS_SOCKETS /* Type of function that closes FD. */ typedef int (*gl_close_fn) (int fd); /* Type of function that applies a control request to FD. */ typedef int (*gl_ioctl_fn) (int fd, int request, void *arg); /* An element of the list of file descriptor hooks. In CLOS (Common Lisp Object System) speak, it consists of an "around" method for the close() function and an "around" method for the ioctl() function. The fields of this structure are considered private. */ struct fd_hook { /* Doubly linked list. */ struct fd_hook *private_next; struct fd_hook *private_prev; /* Function that treats the types of FD that it knows about and calls execute_close_hooks (REMAINING_LIST, PRIMARY, FD) as a fallback. */ int (*private_close_fn) (const struct fd_hook *remaining_list, gl_close_fn primary, int fd); /* Function that treats the types of FD that it knows about and calls execute_ioctl_hooks (REMAINING_LIST, PRIMARY, FD, REQUEST, ARG) as a fallback. */ int (*private_ioctl_fn) (const struct fd_hook *remaining_list, gl_ioctl_fn primary, int fd, int request, void *arg); }; /* This type of function closes FD, applying special knowledge for the FD types it knows about, and calls execute_close_hooks (REMAINING_LIST, PRIMARY, FD) for the other FD types. In CLOS speak, REMAINING_LIST is the remaining list of "around" methods, and PRIMARY is the "primary" method for close(). */ typedef int (*close_hook_fn) (const struct fd_hook *remaining_list, gl_close_fn primary, int fd); /* Execute the close hooks in REMAINING_LIST, with PRIMARY as "primary" method. Return 0 or -1, like close() would do. */ extern int execute_close_hooks (const struct fd_hook *remaining_list, gl_close_fn primary, int fd); /* Execute all close hooks, with PRIMARY as "primary" method. Return 0 or -1, like close() would do. */ extern int execute_all_close_hooks (gl_close_fn primary, int fd); /* This type of function applies a control request to FD, applying special knowledge for the FD types it knows about, and calls execute_ioctl_hooks (REMAINING_LIST, PRIMARY, FD, REQUEST, ARG) for the other FD types. In CLOS speak, REMAINING_LIST is the remaining list of "around" methods, and PRIMARY is the "primary" method for ioctl(). */ typedef int (*ioctl_hook_fn) (const struct fd_hook *remaining_list, gl_ioctl_fn primary, int fd, int request, void *arg); /* Execute the ioctl hooks in REMAINING_LIST, with PRIMARY as "primary" method. Return 0 or -1, like ioctl() would do. */ extern int execute_ioctl_hooks (const struct fd_hook *remaining_list, gl_ioctl_fn primary, int fd, int request, void *arg); /* Execute all ioctl hooks, with PRIMARY as "primary" method. Return 0 or -1, like ioctl() would do. */ extern int execute_all_ioctl_hooks (gl_ioctl_fn primary, int fd, int request, void *arg); /* Add a function pair to the list of file descriptor hooks. CLOSE_HOOK and IOCTL_HOOK may be NULL, indicating no change. The LINK variable points to a piece of memory which is guaranteed to be accessible until the corresponding call to unregister_fd_hook. */ extern void register_fd_hook (close_hook_fn close_hook, ioctl_hook_fn ioctl_hook, struct fd_hook *link); /* Removes a hook from the list of file descriptor hooks. */ extern void unregister_fd_hook (struct fd_hook *link); #endif #ifdef __cplusplus } #endif #endif /* FD_HOOK_H */ libffcall-2.4/gnulib-lib/time.in.h0000664000000000000000000004002014057155505013731 00000000000000/* A more-standard . Copyright (C) 2007-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ /* Don't get in the way of glibc when it includes time.h merely to declare a few standard symbols, rather than to declare all the symbols. (However, skip this for MinGW as it treats __need_time_t incompatibly.) Also, Solaris 8 eventually includes itself recursively; if that is happening, just include the system without adding our own declarations. */ #if (((defined __need_time_t || defined __need_clock_t \ || defined __need_timespec) \ && !defined __MINGW32__) \ || defined _@GUARD_PREFIX@_TIME_H) # @INCLUDE_NEXT@ @NEXT_TIME_H@ #else # define _@GUARD_PREFIX@_TIME_H /* mingw's provides the functions asctime_r, ctime_r, gmtime_r, localtime_r only if or has been included before. */ # if defined __MINGW32__ # include # endif # @INCLUDE_NEXT@ @NEXT_TIME_H@ /* NetBSD 5.0 mis-defines NULL. */ # include /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* Some systems don't define struct timespec (e.g., AIX 4.1). Or they define it with the wrong member names or define it in (e.g., FreeBSD circa 1997). Stock Mingw prior to 3.0 does not define it, but the pthreads-win32 library defines it in . */ # if ! @TIME_H_DEFINES_STRUCT_TIMESPEC@ # if @SYS_TIME_H_DEFINES_STRUCT_TIMESPEC@ # include # elif @PTHREAD_H_DEFINES_STRUCT_TIMESPEC@ # include # elif @UNISTD_H_DEFINES_STRUCT_TIMESPEC@ # include # else # ifdef __cplusplus extern "C" { # endif # if !GNULIB_defined_struct_timespec # undef timespec # define timespec rpl_timespec struct timespec { time_t tv_sec; long int tv_nsec; }; # define GNULIB_defined_struct_timespec 1 # endif # ifdef __cplusplus } # endif # endif # endif # if !GNULIB_defined_struct_time_t_must_be_integral /* https://pubs.opengroup.org/onlinepubs/9699919799/basedefs/sys_types.h.html requires time_t to be an integer type, even though C99 permits floating point. We don't know of any implementation that uses floating point, and it is much easier to write code that doesn't have to worry about that corner case, so we force the issue. */ struct __time_t_must_be_integral { unsigned int __floating_time_t_unsupported : (time_t) 1; }; # define GNULIB_defined_struct_time_t_must_be_integral 1 # endif /* Define TIME_UTC, a positive integer constant used for timespec_get(). */ # if ! @TIME_H_DEFINES_TIME_UTC@ # if !GNULIB_defined_TIME_UTC # define TIME_UTC 1 # define GNULIB_defined_TIME_UTC 1 # endif # endif /* Set *TS to the current time, and return BASE. Upon failure, return 0. */ # if @GNULIB_TIMESPEC_GET@ # if ! @HAVE_TIMESPEC_GET@ _GL_FUNCDECL_SYS (timespec_get, int, (struct timespec *ts, int base) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (timespec_get, int, (struct timespec *ts, int base)); _GL_CXXALIASWARN (timespec_get); # endif /* Sleep for at least RQTP seconds unless interrupted, If interrupted, return -1 and store the remaining time into RMTP. See . */ # if @GNULIB_NANOSLEEP@ # if @REPLACE_NANOSLEEP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define nanosleep rpl_nanosleep # endif _GL_FUNCDECL_RPL (nanosleep, int, (struct timespec const *__rqtp, struct timespec *__rmtp) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (nanosleep, int, (struct timespec const *__rqtp, struct timespec *__rmtp)); # else # if ! @HAVE_NANOSLEEP@ _GL_FUNCDECL_SYS (nanosleep, int, (struct timespec const *__rqtp, struct timespec *__rmtp) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (nanosleep, int, (struct timespec const *__rqtp, struct timespec *__rmtp)); # endif _GL_CXXALIASWARN (nanosleep); # endif /* Initialize time conversion information. */ # if @GNULIB_TZSET@ # if @REPLACE_TZSET@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef tzset # define tzset rpl_tzset # endif _GL_FUNCDECL_RPL (tzset, void, (void)); _GL_CXXALIAS_RPL (tzset, void, (void)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef tzset # define tzset _tzset # endif _GL_CXXALIAS_MDA (tzset, void, (void)); # else _GL_CXXALIAS_SYS (tzset, void, (void)); # endif _GL_CXXALIASWARN (tzset); # elif @GNULIB_MDA_TZSET@ /* On native Windows, map 'tzset' to '_tzset', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::tzset always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef tzset # define tzset _tzset # endif _GL_CXXALIAS_MDA (tzset, void, (void)); # else _GL_CXXALIAS_SYS (tzset, void, (void)); # endif _GL_CXXALIASWARN (tzset); # endif /* Return the 'time_t' representation of TP and normalize TP. */ # if @GNULIB_MKTIME@ # if @REPLACE_MKTIME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define mktime rpl_mktime # endif _GL_FUNCDECL_RPL (mktime, time_t, (struct tm *__tp) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mktime, time_t, (struct tm *__tp)); # else _GL_CXXALIAS_SYS (mktime, time_t, (struct tm *__tp)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (mktime); # endif # endif /* Convert TIMER to RESULT, assuming local time and UTC respectively. See and . */ # if @GNULIB_TIME_R@ # if @REPLACE_LOCALTIME_R@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef localtime_r # define localtime_r rpl_localtime_r # endif _GL_FUNCDECL_RPL (localtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (localtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result)); # else # if ! @HAVE_DECL_LOCALTIME_R@ _GL_FUNCDECL_SYS (localtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (localtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result)); # endif # if @HAVE_DECL_LOCALTIME_R@ _GL_CXXALIASWARN (localtime_r); # endif # if @REPLACE_LOCALTIME_R@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef gmtime_r # define gmtime_r rpl_gmtime_r # endif _GL_FUNCDECL_RPL (gmtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (gmtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result)); # else # if ! @HAVE_DECL_LOCALTIME_R@ _GL_FUNCDECL_SYS (gmtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (gmtime_r, struct tm *, (time_t const *restrict __timer, struct tm *restrict __result)); # endif # if @HAVE_DECL_LOCALTIME_R@ _GL_CXXALIASWARN (gmtime_r); # endif # endif /* Convert TIMER to RESULT, assuming local time and UTC respectively. See and . */ # if @GNULIB_LOCALTIME@ || @REPLACE_LOCALTIME@ # if @REPLACE_LOCALTIME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef localtime # define localtime rpl_localtime # endif _GL_FUNCDECL_RPL (localtime, struct tm *, (time_t const *__timer) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (localtime, struct tm *, (time_t const *__timer)); # else _GL_CXXALIAS_SYS (localtime, struct tm *, (time_t const *__timer)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (localtime); # endif # endif # if 0 || @REPLACE_GMTIME@ # if @REPLACE_GMTIME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef gmtime # define gmtime rpl_gmtime # endif _GL_FUNCDECL_RPL (gmtime, struct tm *, (time_t const *__timer) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (gmtime, struct tm *, (time_t const *__timer)); # else _GL_CXXALIAS_SYS (gmtime, struct tm *, (time_t const *__timer)); # endif _GL_CXXALIASWARN (gmtime); # endif /* Parse BUF as a timestamp, assuming FORMAT specifies its layout, and store the resulting broken-down time into TM. See . */ # if @GNULIB_STRPTIME@ # if ! @HAVE_STRPTIME@ _GL_FUNCDECL_SYS (strptime, char *, (char const *restrict __buf, char const *restrict __format, struct tm *restrict __tm) _GL_ARG_NONNULL ((1, 2, 3))); # endif _GL_CXXALIAS_SYS (strptime, char *, (char const *restrict __buf, char const *restrict __format, struct tm *restrict __tm)); _GL_CXXALIASWARN (strptime); # endif /* Convert *TP to a date and time string. See . */ # if @GNULIB_CTIME@ # if @REPLACE_CTIME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define ctime rpl_ctime # endif _GL_FUNCDECL_RPL (ctime, char *, (time_t const *__tp) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (ctime, char *, (time_t const *__tp)); # else _GL_CXXALIAS_SYS (ctime, char *, (time_t const *__tp)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (ctime); # endif # endif /* Convert *TP to a date and time string. See . */ # if @GNULIB_STRFTIME@ # if @REPLACE_STRFTIME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define strftime rpl_strftime # endif _GL_FUNCDECL_RPL (strftime, size_t, (char *restrict __buf, size_t __bufsize, const char *restrict __fmt, const struct tm *restrict __tp) _GL_ARG_NONNULL ((1, 3, 4))); _GL_CXXALIAS_RPL (strftime, size_t, (char *restrict __buf, size_t __bufsize, const char *restrict __fmt, const struct tm *restrict __tp)); # else _GL_CXXALIAS_SYS (strftime, size_t, (char *restrict __buf, size_t __bufsize, const char *restrict __fmt, const struct tm *restrict __tp)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (strftime); # endif # endif # if defined _GNU_SOURCE && @GNULIB_TIME_RZ@ && ! @HAVE_TIMEZONE_T@ /* Functions that use a first-class time zone data type, instead of relying on an implicit global time zone. Inspired by NetBSD. */ /* Represents a time zone. (timezone_t) NULL stands for UTC. */ typedef struct tm_zone *timezone_t; /* tzalloc (name) Returns a time zone object for the given time zone NAME. This object represents the time zone that other functions would use it the TZ environment variable was set to NAME. If NAME is NULL, the result represents the time zone that other functions would use it the TZ environment variable was unset. May return NULL if NAME is invalid (this is platform dependent) or upon memory allocation failure. */ _GL_FUNCDECL_SYS (tzalloc, timezone_t, (char const *__name)); _GL_CXXALIAS_SYS (tzalloc, timezone_t, (char const *__name)); /* tzfree (tz) Frees a time zone object. The argument must have been returned by tzalloc(). */ _GL_FUNCDECL_SYS (tzfree, void, (timezone_t __tz)); _GL_CXXALIAS_SYS (tzfree, void, (timezone_t __tz)); /* localtime_rz (tz, &t, &result) Converts an absolute time T to a broken-down time RESULT, assuming the time zone TZ. This function is like 'localtime_r', but relies on the argument TZ instead of an implicit global time zone. */ _GL_FUNCDECL_SYS (localtime_rz, struct tm *, (timezone_t __tz, time_t const *restrict __timer, struct tm *restrict __result) _GL_ARG_NONNULL ((2, 3))); _GL_CXXALIAS_SYS (localtime_rz, struct tm *, (timezone_t __tz, time_t const *restrict __timer, struct tm *restrict __result)); /* mktime_z (tz, &tm) Normalizes the broken-down time TM and converts it to an absolute time, assuming the time zone TZ. Returns the absolute time. This function is like 'mktime', but relies on the argument TZ instead of an implicit global time zone. */ _GL_FUNCDECL_SYS (mktime_z, time_t, (timezone_t __tz, struct tm *restrict __tm) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_SYS (mktime_z, time_t, (timezone_t __tz, struct tm *restrict __tm)); /* Time zone abbreviation strings (returned by 'localtime_rz' or 'mktime_z' in the 'tm_zone' member of 'struct tm') are valid as long as - the 'struct tm' argument is not destroyed or overwritten, and - the 'timezone_t' argument is not freed through tzfree(). */ # endif /* Convert TM to a time_t value, assuming UTC. */ # if @GNULIB_TIMEGM@ # if @REPLACE_TIMEGM@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef timegm # define timegm rpl_timegm # endif _GL_FUNCDECL_RPL (timegm, time_t, (struct tm *__tm) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (timegm, time_t, (struct tm *__tm)); # else # if ! @HAVE_TIMEGM@ _GL_FUNCDECL_SYS (timegm, time_t, (struct tm *__tm) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (timegm, time_t, (struct tm *__tm)); # endif _GL_CXXALIASWARN (timegm); # endif /* Encourage applications to avoid unsafe functions that can overrun buffers when given outlandish struct tm values. Portable applications should use strftime (or even sprintf) instead. */ # if defined GNULIB_POSIXCHECK # undef asctime _GL_WARN_ON_USE (asctime, "asctime can overrun buffers in some cases - " "better use strftime (or even sprintf) instead"); # endif # if defined GNULIB_POSIXCHECK # undef asctime_r _GL_WARN_ON_USE (asctime_r, "asctime_r can overrun buffers in some cases - " "better use strftime (or even sprintf) instead"); # endif # if defined GNULIB_POSIXCHECK # undef ctime _GL_WARN_ON_USE (ctime, "ctime can overrun buffers in some cases - " "better use strftime (or even sprintf) instead"); # endif # if defined GNULIB_POSIXCHECK # undef ctime_r _GL_WARN_ON_USE (ctime_r, "ctime_r can overrun buffers in some cases - " "better use strftime (or even sprintf) instead"); # endif #endif libffcall-2.4/gnulib-lib/_Noreturn.h0000664000000000000000000000415014057155505014345 00000000000000/* A C macro for declaring that a function does not return. Copyright (C) 2011-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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)) \ && 0) /* [[noreturn]] is not practically usable, because with it the syntax extern _Noreturn void func (...); would not be valid; such a declaration would only be valid with 'extern' and '_Noreturn' swapped, or without the 'extern' keyword. However, some AIX system header files and several gnulib header files use precisely this syntax with 'extern'. */ # define _Noreturn [[noreturn]] # elif ((!defined __cplusplus || defined __clang__) \ && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ || (!defined __STRICT_ANSI__ \ && (__4 < __GNUC__ + (7 <= __GNUC_MINOR__) \ || (defined __apple_build_version__ \ ? 6000000 <= __apple_build_version__ \ : 3 < __clang_major__ + (5 <= __clang_minor__)))))) /* _Noreturn works as-is. */ # elif (2 < __GNUC__ + (8 <= __GNUC_MINOR__) || defined __clang__ \ || 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.4/gnulib-lib/getdtablesize.c0000664000000000000000000000656514057155505015227 00000000000000/* getdtablesize() function: Return maximum possible file descriptor value + 1. Copyright (C) 2008-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2008. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include #if defined _WIN32 && ! defined __CYGWIN__ # include # if HAVE_MSVC_INVALID_PARAMETER_HANDLER # include "msvc-inval.h" # endif # if HAVE_MSVC_INVALID_PARAMETER_HANDLER static int _setmaxstdio_nothrow (int newmax) { int result; TRY_MSVC_INVAL { result = _setmaxstdio (newmax); } CATCH_MSVC_INVAL { result = -1; } DONE_MSVC_INVAL; return result; } # else # define _setmaxstdio_nothrow _setmaxstdio # endif /* Cache for the previous getdtablesize () result. Safe to cache because Windows also lacks setrlimit. */ static int dtablesize; int getdtablesize (void) { if (dtablesize == 0) { /* We are looking for the number N such that the valid file descriptors are 0..N-1. It can be obtained through a loop as follows: { int fd; for (fd = 3; fd < 65536; fd++) if (dup2 (0, fd) == -1) break; return fd; } On Windows XP, the result is 2048. The drawback of this loop is that it allocates memory for a libc internal array that is never freed. The number N can also be obtained as the upper bound for _getmaxstdio (). _getmaxstdio () returns the maximum number of open FILE objects. The sanity check in _setmaxstdio reveals the maximum number of file descriptors. This too allocates memory, but it is freed when we call _setmaxstdio with the original value. */ int orig_max_stdio = _getmaxstdio (); unsigned int bound; for (bound = 0x10000; _setmaxstdio_nothrow (bound) < 0; bound = bound / 2) ; _setmaxstdio_nothrow (orig_max_stdio); dtablesize = bound; } return dtablesize; } #else # include # include # ifndef RLIM_SAVED_CUR # define RLIM_SAVED_CUR RLIM_INFINITY # endif # ifndef RLIM_SAVED_MAX # define RLIM_SAVED_MAX RLIM_INFINITY # endif # ifdef __CYGWIN__ /* Cygwin 1.7.25 auto-increases the RLIMIT_NOFILE soft limit until it hits the compile-time constant hard limit of 3200. We might as well just report the hard limit. */ # define rlim_cur rlim_max # endif int getdtablesize (void) { struct rlimit lim; if (getrlimit (RLIMIT_NOFILE, &lim) == 0 && 0 <= lim.rlim_cur && lim.rlim_cur <= INT_MAX && lim.rlim_cur != RLIM_INFINITY && lim.rlim_cur != RLIM_SAVED_CUR && lim.rlim_cur != RLIM_SAVED_MAX) return lim.rlim_cur; return INT_MAX; } #endif libffcall-2.4/gnulib-lib/stat-w32.h0000664000000000000000000000310714057155505013757 00000000000000/* Core of implementation of fstat and stat for native Windows. Copyright (C) 2017-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _STAT_W32_H #define _STAT_W32_H 1 /* Converts a FILETIME to GMT time since 1970-01-01 00:00:00. */ #if _GL_WINDOWS_STAT_TIMESPEC extern struct timespec _gl_convert_FILETIME_to_timespec (const FILETIME *ft); #else extern time_t _gl_convert_FILETIME_to_POSIX (const FILETIME *ft); #endif /* Fill *BUF with information about the file designated by H. PATH is the file name, if known, otherwise NULL. Return 0 if successful, or -1 with errno set upon failure. */ extern int _gl_fstat_by_handle (HANDLE h, const char *path, struct stat *buf); /* Bitmasks for st_mode. */ #define S_IREAD_UGO (_S_IREAD | (_S_IREAD >> 3) | (_S_IREAD >> 6)) #define S_IWRITE_UGO (_S_IWRITE | (_S_IWRITE >> 3) | (_S_IWRITE >> 6)) #define S_IEXEC_UGO (_S_IEXEC | (_S_IEXEC >> 3) | (_S_IEXEC >> 6)) #endif /* _STAT_W32_H */ libffcall-2.4/gnulib-lib/sys_stat.in.h0000664000000000000000000006265314057155505014664 00000000000000/* Provide a more complete sys/stat.h header file. Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Eric Blake, Paul Eggert, and Jim Meyering. */ /* This file is supposed to be used on platforms where is incomplete. It is intended to provide definitions and prototypes needed by an application. Start with what the system provides. */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined __need_system_sys_stat_h /* Special invocation convention. */ #@INCLUDE_NEXT@ @NEXT_SYS_STAT_H@ #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_SYS_STAT_H /* Get nlink_t. May also define off_t to a 64-bit type on native Windows. */ #include /* Get struct timespec. */ #include /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_SYS_STAT_H@ #ifndef _@GUARD_PREFIX@_SYS_STAT_H #define _@GUARD_PREFIX@_SYS_STAT_H /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* Before doing "#define mknod rpl_mknod" below, we need to include all headers that may declare mknod(). OS/2 kLIBC declares mknod() in , not in . */ #ifdef __KLIBC__ # include #endif /* Before doing "#define mkdir rpl_mkdir" below, we need to include all headers that may declare mkdir(). Native Windows platforms declare mkdir in and/or , not in . */ #if defined _WIN32 && ! defined __CYGWIN__ # include /* mingw32, mingw64 */ # include /* mingw64, MSVC 9 */ #endif /* Native Windows platforms declare umask() in . */ #if 0 && (defined _WIN32 && ! defined __CYGWIN__) # include #endif /* Large File Support on native Windows. */ #if @WINDOWS_64_BIT_ST_SIZE@ # define stat _stati64 #endif /* Optionally, override 'struct stat' on native Windows. */ #if @GNULIB_OVERRIDES_STRUCT_STAT@ # undef stat # if @GNULIB_STAT@ # define stat rpl_stat # else /* Provoke a clear link error if stat() is used as a function and module 'stat' is not in use. */ # define stat stat_used_without_requesting_gnulib_module_stat # endif # if !GNULIB_defined_struct_stat struct stat { dev_t st_dev; ino_t st_ino; mode_t st_mode; nlink_t st_nlink; # if 0 uid_t st_uid; # else /* uid_t is not defined by default on native Windows. */ short st_uid; # endif # if 0 gid_t st_gid; # else /* gid_t is not defined by default on native Windows. */ short st_gid; # endif dev_t st_rdev; off_t st_size; # if 0 blksize_t st_blksize; blkcnt_t st_blocks; # endif # if @WINDOWS_STAT_TIMESPEC@ struct timespec st_atim; struct timespec st_mtim; struct timespec st_ctim; # else time_t st_atime; time_t st_mtime; time_t st_ctime; # endif }; # if @WINDOWS_STAT_TIMESPEC@ # define st_atime st_atim.tv_sec # define st_mtime st_mtim.tv_sec # define st_ctime st_ctim.tv_sec /* Indicator, for gnulib internal purposes. */ # define _GL_WINDOWS_STAT_TIMESPEC 1 # endif # define GNULIB_defined_struct_stat 1 # endif /* Other possible values of st_mode. */ # if 0 # define _S_IFBLK 0x6000 # endif # if 0 # define _S_IFLNK 0xA000 # endif # if 0 # define _S_IFSOCK 0xC000 # endif #endif #ifndef S_IFIFO # ifdef _S_IFIFO # define S_IFIFO _S_IFIFO # endif #endif #ifndef S_IFMT # define S_IFMT 0170000 #endif #if STAT_MACROS_BROKEN # undef S_ISBLK # undef S_ISCHR # undef S_ISDIR # undef S_ISFIFO # undef S_ISLNK # undef S_ISNAM # undef S_ISMPB # undef S_ISMPC # undef S_ISNWK # undef S_ISREG # undef S_ISSOCK #endif #ifndef S_ISBLK # ifdef S_IFBLK # define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) # else # define S_ISBLK(m) 0 # endif #endif #ifndef S_ISCHR # ifdef S_IFCHR # define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) # else # define S_ISCHR(m) 0 # endif #endif #ifndef S_ISDIR # ifdef S_IFDIR # define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) # else # define S_ISDIR(m) 0 # endif #endif #ifndef S_ISDOOR /* Solaris 2.5 and up */ # define S_ISDOOR(m) 0 #endif #ifndef S_ISFIFO # ifdef S_IFIFO # define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) # else # define S_ISFIFO(m) 0 # endif #endif #ifndef S_ISLNK # ifdef S_IFLNK # define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK) # else # define S_ISLNK(m) 0 # endif #endif #ifndef S_ISMPB /* V7 */ # ifdef S_IFMPB # define S_ISMPB(m) (((m) & S_IFMT) == S_IFMPB) # define S_ISMPC(m) (((m) & S_IFMT) == S_IFMPC) # else # define S_ISMPB(m) 0 # define S_ISMPC(m) 0 # endif #endif #ifndef S_ISMPX /* AIX */ # define S_ISMPX(m) 0 #endif #ifndef S_ISNAM /* Xenix */ # ifdef S_IFNAM # define S_ISNAM(m) (((m) & S_IFMT) == S_IFNAM) # else # define S_ISNAM(m) 0 # endif #endif #ifndef S_ISNWK /* HP/UX */ # ifdef S_IFNWK # define S_ISNWK(m) (((m) & S_IFMT) == S_IFNWK) # else # define S_ISNWK(m) 0 # endif #endif #ifndef S_ISPORT /* Solaris 10 and up */ # define S_ISPORT(m) 0 #endif #ifndef S_ISREG # ifdef S_IFREG # define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) # else # define S_ISREG(m) 0 # endif #endif #ifndef S_ISSOCK # ifdef S_IFSOCK # define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK) # else # define S_ISSOCK(m) 0 # endif #endif #ifndef S_TYPEISMQ # define S_TYPEISMQ(p) 0 #endif #ifndef S_TYPEISTMO # define S_TYPEISTMO(p) 0 #endif #ifndef S_TYPEISSEM # ifdef S_INSEM # define S_TYPEISSEM(p) (S_ISNAM ((p)->st_mode) && (p)->st_rdev == S_INSEM) # else # define S_TYPEISSEM(p) 0 # endif #endif #ifndef S_TYPEISSHM # ifdef S_INSHD # define S_TYPEISSHM(p) (S_ISNAM ((p)->st_mode) && (p)->st_rdev == S_INSHD) # else # define S_TYPEISSHM(p) 0 # endif #endif /* high performance ("contiguous data") */ #ifndef S_ISCTG # define S_ISCTG(p) 0 #endif /* Cray DMF (data migration facility): off line, with data */ #ifndef S_ISOFD # define S_ISOFD(p) 0 #endif /* Cray DMF (data migration facility): off line, with no data */ #ifndef S_ISOFL # define S_ISOFL(p) 0 #endif /* 4.4BSD whiteout */ #ifndef S_ISWHT # define S_ISWHT(m) 0 #endif /* If any of the following are undefined, define them to their de facto standard values. */ #if !S_ISUID # define S_ISUID 04000 #endif #if !S_ISGID # define S_ISGID 02000 #endif /* S_ISVTX is a common extension to POSIX. */ #ifndef S_ISVTX # define S_ISVTX 01000 #endif #if !S_IRUSR && S_IREAD # define S_IRUSR S_IREAD #endif #if !S_IRUSR # define S_IRUSR 00400 #endif #if !S_IRGRP # define S_IRGRP (S_IRUSR >> 3) #endif #if !S_IROTH # define S_IROTH (S_IRUSR >> 6) #endif #if !S_IWUSR && S_IWRITE # define S_IWUSR S_IWRITE #endif #if !S_IWUSR # define S_IWUSR 00200 #endif #if !S_IWGRP # define S_IWGRP (S_IWUSR >> 3) #endif #if !S_IWOTH # define S_IWOTH (S_IWUSR >> 6) #endif #if !S_IXUSR && S_IEXEC # define S_IXUSR S_IEXEC #endif #if !S_IXUSR # define S_IXUSR 00100 #endif #if !S_IXGRP # define S_IXGRP (S_IXUSR >> 3) #endif #if !S_IXOTH # define S_IXOTH (S_IXUSR >> 6) #endif #if !S_IRWXU # define S_IRWXU (S_IRUSR | S_IWUSR | S_IXUSR) #endif #if !S_IRWXG # define S_IRWXG (S_IRGRP | S_IWGRP | S_IXGRP) #endif #if !S_IRWXO # define S_IRWXO (S_IROTH | S_IWOTH | S_IXOTH) #endif /* Although S_IXUGO and S_IRWXUGO are not specified by POSIX and are not implemented in GNU/Linux, some Gnulib-using apps use the macros. */ #if !S_IXUGO # define S_IXUGO (S_IXUSR | S_IXGRP | S_IXOTH) #endif #ifndef S_IRWXUGO # define S_IRWXUGO (S_IRWXU | S_IRWXG | S_IRWXO) #endif /* Macros for futimens and utimensat. */ #ifndef UTIME_NOW # define UTIME_NOW (-1) # define UTIME_OMIT (-2) #endif #if @GNULIB_MDA_CHMOD@ /* On native Windows, map 'chmod' to '_chmod', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::chmod always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef chmod # define chmod _chmod # endif /* Need to cast, because in mingw the last argument is 'int mode'. */ _GL_CXXALIAS_MDA_CAST (chmod, int, (const char *filename, mode_t mode)); # else _GL_CXXALIAS_SYS (chmod, int, (const char *filename, mode_t mode)); # endif _GL_CXXALIASWARN (chmod); #endif #if @GNULIB_FCHMODAT@ # if @REPLACE_FCHMODAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fchmodat # define fchmodat rpl_fchmodat # endif _GL_FUNCDECL_RPL (fchmodat, int, (int fd, char const *file, mode_t mode, int flag) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (fchmodat, int, (int fd, char const *file, mode_t mode, int flag)); # else # if !@HAVE_FCHMODAT@ _GL_FUNCDECL_SYS (fchmodat, int, (int fd, char const *file, mode_t mode, int flag) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (fchmodat, int, (int fd, char const *file, mode_t mode, int flag)); # endif _GL_CXXALIASWARN (fchmodat); #elif defined GNULIB_POSIXCHECK # undef fchmodat # if HAVE_RAW_DECL_FCHMODAT _GL_WARN_ON_USE (fchmodat, "fchmodat is not portable - " "use gnulib module openat for portability"); # endif #endif #if @GNULIB_FSTAT@ # if @REPLACE_FSTAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fstat # define fstat rpl_fstat # endif _GL_FUNCDECL_RPL (fstat, int, (int fd, struct stat *buf) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (fstat, int, (int fd, struct stat *buf)); # else _GL_CXXALIAS_SYS (fstat, int, (int fd, struct stat *buf)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (fstat); # endif #elif @GNULIB_OVERRIDES_STRUCT_STAT@ # undef fstat # define fstat fstat_used_without_requesting_gnulib_module_fstat #elif @WINDOWS_64_BIT_ST_SIZE@ /* Above, we define stat to _stati64. */ # define fstat _fstati64 #elif defined GNULIB_POSIXCHECK # undef fstat # if HAVE_RAW_DECL_FSTAT _GL_WARN_ON_USE (fstat, "fstat has portability problems - " "use gnulib module fstat for portability"); # endif #endif #if @GNULIB_FSTATAT@ # if @REPLACE_FSTATAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fstatat # define fstatat rpl_fstatat # endif _GL_FUNCDECL_RPL (fstatat, int, (int fd, char const *restrict name, struct stat *restrict st, int flags) _GL_ARG_NONNULL ((2, 3))); _GL_CXXALIAS_RPL (fstatat, int, (int fd, char const *restrict name, struct stat *restrict st, int flags)); # else # if !@HAVE_FSTATAT@ _GL_FUNCDECL_SYS (fstatat, int, (int fd, char const *restrict name, struct stat *restrict st, int flags) _GL_ARG_NONNULL ((2, 3))); # endif _GL_CXXALIAS_SYS (fstatat, int, (int fd, char const *restrict name, struct stat *restrict st, int flags)); # endif _GL_CXXALIASWARN (fstatat); #elif @GNULIB_OVERRIDES_STRUCT_STAT@ # undef fstatat # define fstatat fstatat_used_without_requesting_gnulib_module_fstatat #elif defined GNULIB_POSIXCHECK # undef fstatat # if HAVE_RAW_DECL_FSTATAT _GL_WARN_ON_USE (fstatat, "fstatat is not portable - " "use gnulib module openat for portability"); # endif #endif #if @GNULIB_FUTIMENS@ /* Use the rpl_ prefix also on Solaris <= 9, because on Solaris 9 our futimens implementation relies on futimesat, which on Solaris 10 makes an invocation to futimens that is meant to invoke the libc's futimens(), not gnulib's futimens(). */ # if @REPLACE_FUTIMENS@ || (!@HAVE_FUTIMENS@ && defined __sun) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef futimens # define futimens rpl_futimens # endif _GL_FUNCDECL_RPL (futimens, int, (int fd, struct timespec const times[2])); _GL_CXXALIAS_RPL (futimens, int, (int fd, struct timespec const times[2])); # else # if !@HAVE_FUTIMENS@ _GL_FUNCDECL_SYS (futimens, int, (int fd, struct timespec const times[2])); # endif _GL_CXXALIAS_SYS (futimens, int, (int fd, struct timespec const times[2])); # endif # if @HAVE_FUTIMENS@ _GL_CXXALIASWARN (futimens); # endif #elif defined GNULIB_POSIXCHECK # undef futimens # if HAVE_RAW_DECL_FUTIMENS _GL_WARN_ON_USE (futimens, "futimens is not portable - " "use gnulib module futimens for portability"); # endif #endif #if @GNULIB_GETUMASK@ # if !@HAVE_GETUMASK@ _GL_FUNCDECL_SYS (getumask, mode_t, (void)); # endif _GL_CXXALIAS_SYS (getumask, mode_t, (void)); # if @HAVE_GETUMASK@ _GL_CXXALIASWARN (getumask); # endif #elif defined GNULIB_POSIXCHECK # undef getumask # if HAVE_RAW_DECL_GETUMASK _GL_WARN_ON_USE (getumask, "getumask is not portable - " "use gnulib module getumask for portability"); # endif #endif #if @GNULIB_LCHMOD@ /* Change the mode of FILENAME to MODE, without dereferencing it if FILENAME denotes a symbolic link. */ # if !@HAVE_LCHMOD@ || defined __hpux _GL_FUNCDECL_SYS (lchmod, int, (const char *filename, mode_t mode) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (lchmod, int, (const char *filename, mode_t mode)); _GL_CXXALIASWARN (lchmod); #elif defined GNULIB_POSIXCHECK # undef lchmod # if HAVE_RAW_DECL_LCHMOD _GL_WARN_ON_USE (lchmod, "lchmod is unportable - " "use gnulib module lchmod for portability"); # endif #endif #if @GNULIB_LSTAT@ # if ! @HAVE_LSTAT@ /* mingw does not support symlinks, therefore it does not have lstat. But without links, stat does just fine. */ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define lstat stat # endif _GL_CXXALIAS_RPL_1 (lstat, stat, int, (const char *restrict name, struct stat *restrict buf)); # elif @REPLACE_LSTAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef lstat # define lstat rpl_lstat # endif _GL_FUNCDECL_RPL (lstat, int, (const char *restrict name, struct stat *restrict buf) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (lstat, int, (const char *restrict name, struct stat *restrict buf)); # else _GL_CXXALIAS_SYS (lstat, int, (const char *restrict name, struct stat *restrict buf)); # endif # if @HAVE_LSTAT@ _GL_CXXALIASWARN (lstat); # endif #elif @GNULIB_OVERRIDES_STRUCT_STAT@ # undef lstat # define lstat lstat_used_without_requesting_gnulib_module_lstat #elif defined GNULIB_POSIXCHECK # undef lstat # if HAVE_RAW_DECL_LSTAT _GL_WARN_ON_USE (lstat, "lstat is unportable - " "use gnulib module lstat for portability"); # endif #endif #if @GNULIB_MKDIR@ # if @REPLACE_MKDIR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mkdir # define mkdir rpl_mkdir # endif _GL_FUNCDECL_RPL (mkdir, int, (char const *name, mode_t mode) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mkdir, int, (char const *name, mode_t mode)); # elif defined _WIN32 && !defined __CYGWIN__ /* mingw's _mkdir() function has 1 argument, but we pass 2 arguments. Additionally, it declares _mkdir (and depending on compile flags, an alias mkdir), only in the nonstandard includes and , which are included above. */ # if !GNULIB_defined_rpl_mkdir static int rpl_mkdir (char const *name, mode_t mode) { return _mkdir (name); } # define GNULIB_defined_rpl_mkdir 1 # endif # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mkdir # define mkdir rpl_mkdir # endif _GL_CXXALIAS_RPL (mkdir, int, (char const *name, mode_t mode)); # else _GL_CXXALIAS_SYS (mkdir, int, (char const *name, mode_t mode)); # endif _GL_CXXALIASWARN (mkdir); #elif defined GNULIB_POSIXCHECK # undef mkdir # if HAVE_RAW_DECL_MKDIR _GL_WARN_ON_USE (mkdir, "mkdir does not always support two parameters - " "use gnulib module mkdir for portability"); # endif #elif @GNULIB_MDA_MKDIR@ /* On native Windows, map 'mkdir' to '_mkdir', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::mkdir always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !GNULIB_defined_rpl_mkdir static int rpl_mkdir (char const *name, mode_t mode) { return _mkdir (name); } # define GNULIB_defined_rpl_mkdir 1 # endif # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mkdir # define mkdir rpl_mkdir # endif _GL_CXXALIAS_RPL (mkdir, int, (char const *name, mode_t mode)); # else _GL_CXXALIAS_SYS (mkdir, int, (char const *name, mode_t mode)); # endif _GL_CXXALIASWARN (mkdir); #endif #if @GNULIB_MKDIRAT@ # if !@HAVE_MKDIRAT@ _GL_FUNCDECL_SYS (mkdirat, int, (int fd, char const *file, mode_t mode) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (mkdirat, int, (int fd, char const *file, mode_t mode)); _GL_CXXALIASWARN (mkdirat); #elif defined GNULIB_POSIXCHECK # undef mkdirat # if HAVE_RAW_DECL_MKDIRAT _GL_WARN_ON_USE (mkdirat, "mkdirat is not portable - " "use gnulib module openat for portability"); # endif #endif #if @GNULIB_MKFIFO@ # if @REPLACE_MKFIFO@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mkfifo # define mkfifo rpl_mkfifo # endif _GL_FUNCDECL_RPL (mkfifo, int, (char const *file, mode_t mode) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mkfifo, int, (char const *file, mode_t mode)); # else # if !@HAVE_MKFIFO@ _GL_FUNCDECL_SYS (mkfifo, int, (char const *file, mode_t mode) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (mkfifo, int, (char const *file, mode_t mode)); # endif _GL_CXXALIASWARN (mkfifo); #elif defined GNULIB_POSIXCHECK # undef mkfifo # if HAVE_RAW_DECL_MKFIFO _GL_WARN_ON_USE (mkfifo, "mkfifo is not portable - " "use gnulib module mkfifo for portability"); # endif #endif #if @GNULIB_MKFIFOAT@ # if @REPLACE_MKFIFOAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mkfifoat # define mkfifoat rpl_mkfifoat # endif _GL_FUNCDECL_RPL (mkfifoat, int, (int fd, char const *file, mode_t mode) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (mkfifoat, int, (int fd, char const *file, mode_t mode)); # else # if !@HAVE_MKFIFOAT@ _GL_FUNCDECL_SYS (mkfifoat, int, (int fd, char const *file, mode_t mode) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (mkfifoat, int, (int fd, char const *file, mode_t mode)); # endif _GL_CXXALIASWARN (mkfifoat); #elif defined GNULIB_POSIXCHECK # undef mkfifoat # if HAVE_RAW_DECL_MKFIFOAT _GL_WARN_ON_USE (mkfifoat, "mkfifoat is not portable - " "use gnulib module mkfifoat for portability"); # endif #endif #if @GNULIB_MKNOD@ # if @REPLACE_MKNOD@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mknod # define mknod rpl_mknod # endif _GL_FUNCDECL_RPL (mknod, int, (char const *file, mode_t mode, dev_t dev) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mknod, int, (char const *file, mode_t mode, dev_t dev)); # else # if !@HAVE_MKNOD@ _GL_FUNCDECL_SYS (mknod, int, (char const *file, mode_t mode, dev_t dev) _GL_ARG_NONNULL ((1))); # endif /* Need to cast, because on OSF/1 5.1, the third parameter is '...'. */ _GL_CXXALIAS_SYS_CAST (mknod, int, (char const *file, mode_t mode, dev_t dev)); # endif _GL_CXXALIASWARN (mknod); #elif defined GNULIB_POSIXCHECK # undef mknod # if HAVE_RAW_DECL_MKNOD _GL_WARN_ON_USE (mknod, "mknod is not portable - " "use gnulib module mknod for portability"); # endif #endif #if @GNULIB_MKNODAT@ # if @REPLACE_MKNODAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef mknodat # define mknodat rpl_mknodat # endif _GL_FUNCDECL_RPL (mknodat, int, (int fd, char const *file, mode_t mode, dev_t dev) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (mknodat, int, (int fd, char const *file, mode_t mode, dev_t dev)); # else # if !@HAVE_MKNODAT@ _GL_FUNCDECL_SYS (mknodat, int, (int fd, char const *file, mode_t mode, dev_t dev) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (mknodat, int, (int fd, char const *file, mode_t mode, dev_t dev)); # endif _GL_CXXALIASWARN (mknodat); #elif defined GNULIB_POSIXCHECK # undef mknodat # if HAVE_RAW_DECL_MKNODAT _GL_WARN_ON_USE (mknodat, "mknodat is not portable - " "use gnulib module mkfifoat for portability"); # endif #endif #if @GNULIB_STAT@ # if @REPLACE_STAT@ # if !@GNULIB_OVERRIDES_STRUCT_STAT@ /* We can't use the object-like #define stat rpl_stat, because of struct stat. This means that rpl_stat will not be used if the user does (stat)(a,b). Oh well. */ # if defined _AIX && defined stat && defined _LARGE_FILES /* With _LARGE_FILES defined, AIX (only) defines stat to stat64, so we have to replace stat64() instead of stat(). */ # undef stat64 # define stat64(name, st) rpl_stat (name, st) # elif @WINDOWS_64_BIT_ST_SIZE@ /* Above, we define stat to _stati64. */ # if defined __MINGW32__ && defined _stati64 # ifndef _USE_32BIT_TIME_T /* The system headers define _stati64 to _stat64. */ # undef _stat64 # define _stat64(name, st) rpl_stat (name, st) # endif # elif defined _MSC_VER && defined _stati64 # ifdef _USE_32BIT_TIME_T /* The system headers define _stati64 to _stat32i64. */ # undef _stat32i64 # define _stat32i64(name, st) rpl_stat (name, st) # else /* The system headers define _stati64 to _stat64. */ # undef _stat64 # define _stat64(name, st) rpl_stat (name, st) # endif # else # undef _stati64 # define _stati64(name, st) rpl_stat (name, st) # endif # elif defined __MINGW32__ && defined stat # ifdef _USE_32BIT_TIME_T /* The system headers define stat to _stat32i64. */ # undef _stat32i64 # define _stat32i64(name, st) rpl_stat (name, st) # else /* The system headers define stat to _stat64. */ # undef _stat64 # define _stat64(name, st) rpl_stat (name, st) # endif # elif defined _MSC_VER && defined stat # ifdef _USE_32BIT_TIME_T /* The system headers define stat to _stat32. */ # undef _stat32 # define _stat32(name, st) rpl_stat (name, st) # else /* The system headers define stat to _stat64i32. */ # undef _stat64i32 # define _stat64i32(name, st) rpl_stat (name, st) # endif # else /* !(_AIX || __MINGW32__ || _MSC_VER) */ # undef stat # define stat(name, st) rpl_stat (name, st) # endif /* !_LARGE_FILES */ # endif /* !@GNULIB_OVERRIDES_STRUCT_STAT@ */ _GL_EXTERN_C int stat (const char *restrict name, struct stat *restrict buf) _GL_ARG_NONNULL ((1, 2)); # endif #elif @GNULIB_OVERRIDES_STRUCT_STAT@ /* see above: #define stat stat_used_without_requesting_gnulib_module_stat */ #elif defined GNULIB_POSIXCHECK # undef stat # if HAVE_RAW_DECL_STAT _GL_WARN_ON_USE (stat, "stat is unportable - " "use gnulib module stat for portability"); # endif #endif #if @GNULIB_MDA_UMASK@ /* On native Windows, map 'umask' to '_umask', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::umask always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef umask # define umask _umask # endif /* Need to cast, because in mingw the last argument is 'int mode'. */ _GL_CXXALIAS_MDA_CAST (umask, mode_t, (mode_t mask)); # else _GL_CXXALIAS_SYS (umask, mode_t, (mode_t mask)); # endif _GL_CXXALIASWARN (umask); #endif #if @GNULIB_UTIMENSAT@ /* Use the rpl_ prefix also on Solaris <= 9, because on Solaris 9 our utimensat implementation relies on futimesat, which on Solaris 10 makes an invocation to utimensat that is meant to invoke the libc's utimensat(), not gnulib's utimensat(). */ # if @REPLACE_UTIMENSAT@ || (!@HAVE_UTIMENSAT@ && defined __sun) # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef utimensat # define utimensat rpl_utimensat # endif _GL_FUNCDECL_RPL (utimensat, int, (int fd, char const *name, struct timespec const times[2], int flag) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (utimensat, int, (int fd, char const *name, struct timespec const times[2], int flag)); # else # if !@HAVE_UTIMENSAT@ _GL_FUNCDECL_SYS (utimensat, int, (int fd, char const *name, struct timespec const times[2], int flag) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (utimensat, int, (int fd, char const *name, struct timespec const times[2], int flag)); # endif # if @HAVE_UTIMENSAT@ _GL_CXXALIASWARN (utimensat); # endif #elif defined GNULIB_POSIXCHECK # undef utimensat # if HAVE_RAW_DECL_UTIMENSAT _GL_WARN_ON_USE (utimensat, "utimensat is not portable - " "use gnulib module utimensat for portability"); # endif #endif #endif /* _@GUARD_PREFIX@_SYS_STAT_H */ #endif /* _@GUARD_PREFIX@_SYS_STAT_H */ #endif libffcall-2.4/gnulib-lib/windows-rwlock.h0000664000000000000000000000513414057155505015366 00000000000000/* Read-write locks (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/error.c0000664000000000000000000002475114057155505013527 00000000000000/* Error handler for noninteractive utilities Copyright (C) 1990-1998, 2000-2007, 2009-2021 Free Software Foundation, Inc. This file is part of the GNU C Library. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by David MacKenzie . */ #if !_LIBC # include #endif #include "error.h" #include #include #include #include #if !_LIBC && ENABLE_NLS # include "gettext.h" # define _(msgid) gettext (msgid) #endif #ifdef _LIBC # include # include # include # include # define mbsrtowcs __mbsrtowcs # define USE_UNLOCKED_IO 0 # define _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD(a, b) # define _GL_ARG_NONNULL(a) #else # include "getprogname.h" #endif #if USE_UNLOCKED_IO # include "unlocked-io.h" #endif #ifndef _ # define _(String) String #endif /* If NULL, error will flush stdout, then print on stderr the program name, a colon and a space. Otherwise, error will call this function without parameters instead. */ void (*error_print_progname) (void); /* This variable is incremented each time 'error' is called. */ unsigned int error_message_count; #ifdef _LIBC /* In the GNU C library, there is a predefined variable for this. */ # define program_name program_invocation_name # include # include # include /* In GNU libc we want do not want to use the common name 'error' directly. Instead make it a weak alias. */ extern void __error (int status, int errnum, const char *message, ...) __attribute__ ((__format__ (__printf__, 3, 4))); extern void __error_at_line (int status, int errnum, const char *file_name, unsigned int line_number, const char *message, ...) __attribute__ ((__format__ (__printf__, 5, 6))); # define error __error # define error_at_line __error_at_line # include # define fflush(s) _IO_fflush (s) # undef putc # define putc(c, fp) _IO_putc (c, fp) # include #else /* not _LIBC */ # include # include # if defined _WIN32 && ! defined __CYGWIN__ /* Get declarations of the native Windows API functions. */ # define WIN32_LEAN_AND_MEAN # include /* Get _get_osfhandle. */ # if GNULIB_MSVC_NOTHROW # include "msvc-nothrow.h" # else # include # endif # endif /* The gnulib override of fcntl is not needed in this file. */ # undef fcntl # if !(GNULIB_STRERROR_R_POSIX || HAVE_DECL_STRERROR_R) # ifndef HAVE_DECL_STRERROR_R "this configure-time declaration test was not run" # endif # if STRERROR_R_CHAR_P char *strerror_r (int errnum, char *buf, size_t buflen); # else int strerror_r (int errnum, char *buf, size_t buflen); # endif # endif # define program_name getprogname () # if GNULIB_STRERROR_R_POSIX || HAVE_STRERROR_R || defined strerror_r # define __strerror_r strerror_r # endif /* GNULIB_STRERROR_R_POSIX || HAVE_STRERROR_R || defined strerror_r */ #endif /* not _LIBC */ #if !_LIBC /* Return non-zero if FD is open. */ static int is_open (int fd) { # if defined _WIN32 && ! defined __CYGWIN__ /* On native Windows: The initial state of unassigned standard file descriptors is that they are open but point to an INVALID_HANDLE_VALUE. There is no fcntl, and the gnulib replacement fcntl does not support F_GETFL. */ return (HANDLE) _get_osfhandle (fd) != INVALID_HANDLE_VALUE; # else # ifndef F_GETFL # error Please port fcntl to your platform # endif return 0 <= fcntl (fd, F_GETFL); # endif } #endif static void flush_stdout (void) { #if !_LIBC int stdout_fd; # if GNULIB_FREOPEN_SAFER /* Use of gnulib's freopen-safer module normally ensures that fileno (stdout) == 1 whenever stdout is open. */ stdout_fd = STDOUT_FILENO; # else /* POSIX states that fileno (stdout) after fclose is unspecified. But in practice it is not a problem, because stdout is statically allocated and the fd of a FILE stream is stored as a field in its allocated memory. */ stdout_fd = fileno (stdout); # endif /* POSIX states that fflush (stdout) after fclose is unspecified; it is safe in glibc, but not on all other platforms. fflush (NULL) is always defined, but too draconian. */ if (0 <= stdout_fd && is_open (stdout_fd)) #endif fflush (stdout); } static void print_errno_message (int errnum) { char const *s; #if _LIBC || GNULIB_STRERROR_R_POSIX || defined HAVE_STRERROR_R char errbuf[1024]; # if _LIBC || (!GNULIB_STRERROR_R_POSIX && STRERROR_R_CHAR_P) s = __strerror_r (errnum, errbuf, sizeof errbuf); # else if (__strerror_r (errnum, errbuf, sizeof errbuf) == 0) s = errbuf; else s = 0; # endif #else s = strerror (errnum); #endif #if !_LIBC if (! s) s = _("Unknown system error"); #endif #if _LIBC __fxprintf (NULL, ": %s", s); #else fprintf (stderr, ": %s", s); #endif } static void _GL_ATTRIBUTE_FORMAT_PRINTF_STANDARD (3, 0) _GL_ARG_NONNULL ((3)) error_tail (int status, int errnum, const char *message, va_list args) { #if _LIBC if (_IO_fwide (stderr, 0) > 0) { size_t len = strlen (message) + 1; wchar_t *wmessage = NULL; mbstate_t st; size_t res; const char *tmp; bool use_malloc = false; while (1) { if (__libc_use_alloca (len * sizeof (wchar_t))) wmessage = (wchar_t *) alloca (len * sizeof (wchar_t)); else { if (!use_malloc) wmessage = NULL; wchar_t *p = (wchar_t *) realloc (wmessage, len * sizeof (wchar_t)); if (p == NULL) { free (wmessage); fputws_unlocked (L"out of memory\n", stderr); return; } wmessage = p; use_malloc = true; } memset (&st, '\0', sizeof (st)); tmp = message; res = mbsrtowcs (wmessage, &tmp, len, &st); if (res != len) break; if (__builtin_expect (len >= SIZE_MAX / sizeof (wchar_t) / 2, 0)) { /* This really should not happen if everything is fine. */ res = (size_t) -1; break; } len *= 2; } if (res == (size_t) -1) { /* The string cannot be converted. */ if (use_malloc) { free (wmessage); use_malloc = false; } wmessage = (wchar_t *) L"???"; } __vfwprintf (stderr, wmessage, args); if (use_malloc) free (wmessage); } else #endif vfprintf (stderr, message, args); ++error_message_count; if (errnum) print_errno_message (errnum); #if _LIBC __fxprintf (NULL, "\n"); #else putc ('\n', stderr); #endif fflush (stderr); if (status) exit (status); } /* Print the program name and error message MESSAGE, which is a printf-style format string with optional args. If ERRNUM is nonzero, print its corresponding system error message. Exit with status STATUS if it is nonzero. */ void error (int status, int errnum, const char *message, ...) { va_list args; #if defined _LIBC && defined __libc_ptf_call /* We do not want this call to be cut short by a thread cancellation. Therefore disable cancellation for now. */ int state = PTHREAD_CANCEL_ENABLE; __libc_ptf_call (pthread_setcancelstate, (PTHREAD_CANCEL_DISABLE, &state), 0); #endif flush_stdout (); #ifdef _LIBC _IO_flockfile (stderr); #endif if (error_print_progname) (*error_print_progname) (); else { #if _LIBC __fxprintf (NULL, "%s: ", program_name); #else fprintf (stderr, "%s: ", program_name); #endif } va_start (args, message); error_tail (status, errnum, message, args); va_end (args); #ifdef _LIBC _IO_funlockfile (stderr); # ifdef __libc_ptf_call __libc_ptf_call (pthread_setcancelstate, (state, NULL), 0); # endif #endif } /* Sometimes we want to have at most one error per line. This variable controls whether this mode is selected or not. */ int error_one_per_line; void error_at_line (int status, int errnum, const char *file_name, unsigned int line_number, const char *message, ...) { va_list args; if (error_one_per_line) { static const char *old_file_name; static unsigned int old_line_number; if (old_line_number == line_number && (file_name == old_file_name || (old_file_name != NULL && file_name != NULL && strcmp (old_file_name, file_name) == 0))) /* Simply return and print nothing. */ return; old_file_name = file_name; old_line_number = line_number; } #if defined _LIBC && defined __libc_ptf_call /* We do not want this call to be cut short by a thread cancellation. Therefore disable cancellation for now. */ int state = PTHREAD_CANCEL_ENABLE; __libc_ptf_call (pthread_setcancelstate, (PTHREAD_CANCEL_DISABLE, &state), 0); #endif flush_stdout (); #ifdef _LIBC _IO_flockfile (stderr); #endif if (error_print_progname) (*error_print_progname) (); else { #if _LIBC __fxprintf (NULL, "%s:", program_name); #else fprintf (stderr, "%s:", program_name); #endif } #if _LIBC __fxprintf (NULL, file_name != NULL ? "%s:%u: " : " ", file_name, line_number); #else fprintf (stderr, file_name != NULL ? "%s:%u: " : " ", file_name, line_number); #endif va_start (args, message); error_tail (status, errnum, message, args); va_end (args); #ifdef _LIBC _IO_funlockfile (stderr); # ifdef __libc_ptf_call __libc_ptf_call (pthread_setcancelstate, (state, NULL), 0); # endif #endif } #ifdef _LIBC /* Make the weak alias. */ # undef error # undef error_at_line weak_alias (__error, error) weak_alias (__error_at_line, error_at_line) #endif libffcall-2.4/gnulib-lib/gettext.h0000664000000000000000000002502514057155505014062 00000000000000/* Convenience header for conditional use of GNU . Copyright (C) 1995-1998, 2000-2002, 2004-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _LIBGETTEXT_H #define _LIBGETTEXT_H 1 /* NLS can be disabled through the configure --disable-nls option or through "#define ENABLE NLS 0" before including this file. */ #if defined ENABLE_NLS && ENABLE_NLS /* Get declarations of GNU message catalog functions. */ # include /* You can set the DEFAULT_TEXT_DOMAIN macro to specify the domain used by the gettext() and ngettext() macros. This is an alternative to calling textdomain(), and is useful for libraries. */ # ifdef DEFAULT_TEXT_DOMAIN # undef gettext # define gettext(Msgid) \ dgettext (DEFAULT_TEXT_DOMAIN, Msgid) # undef ngettext # define ngettext(Msgid1, Msgid2, N) \ dngettext (DEFAULT_TEXT_DOMAIN, Msgid1, Msgid2, N) # endif #else /* Solaris /usr/include/locale.h includes /usr/include/libintl.h, which chokes if dcgettext is defined as a macro. So include it now, to make later inclusions of a NOP. We don't include as well because people using "gettext.h" will not include , and also including would fail on SunOS 4, whereas is OK. */ #if defined(__sun) # include #endif /* Many header files from the libstdc++ coming with g++ 3.3 or newer include , which chokes if dcgettext is defined as a macro. So include it now, to make later inclusions of a NOP. */ #if defined(__cplusplus) && defined(__GNUG__) && (__GNUC__ >= 3) # include # if (__GLIBC__ >= 2 && !defined __UCLIBC__) || _GLIBCXX_HAVE_LIBINTL_H # include # endif #endif /* Disabled NLS. The casts to 'const char *' serve the purpose of producing warnings for invalid uses of the value returned from these functions. On pre-ANSI systems without 'const', the config.h file is supposed to contain "#define const". */ # undef gettext # define gettext(Msgid) ((const char *) (Msgid)) # undef dgettext # define dgettext(Domainname, Msgid) ((void) (Domainname), gettext (Msgid)) # undef dcgettext # define dcgettext(Domainname, Msgid, Category) \ ((void) (Category), dgettext (Domainname, Msgid)) # undef ngettext # define ngettext(Msgid1, Msgid2, N) \ ((N) == 1 \ ? ((void) (Msgid2), (const char *) (Msgid1)) \ : ((void) (Msgid1), (const char *) (Msgid2))) # undef dngettext # define dngettext(Domainname, Msgid1, Msgid2, N) \ ((void) (Domainname), ngettext (Msgid1, Msgid2, N)) # undef dcngettext # define dcngettext(Domainname, Msgid1, Msgid2, N, Category) \ ((void) (Category), dngettext (Domainname, Msgid1, Msgid2, N)) # undef textdomain # define textdomain(Domainname) ((const char *) (Domainname)) # undef bindtextdomain # define bindtextdomain(Domainname, Dirname) \ ((void) (Domainname), (const char *) (Dirname)) # undef bind_textdomain_codeset # define bind_textdomain_codeset(Domainname, Codeset) \ ((void) (Domainname), (const char *) (Codeset)) #endif /* Prefer gnulib's setlocale override over libintl's setlocale override. */ #ifdef GNULIB_defined_setlocale # undef setlocale # define setlocale rpl_setlocale #endif /* A pseudo function call that serves as a marker for the automated extraction of messages, but does not call gettext(). The run-time translation is done at a different place in the code. The argument, String, should be a literal string. Concatenated strings and other string expressions won't work. The macro's expansion is not parenthesized, so that it is suitable as initializer for static 'char[]' or 'const char[]' variables. */ #define gettext_noop(String) String /* The separator between msgctxt and msgid in a .mo file. */ #define GETTEXT_CONTEXT_GLUE "\004" /* Pseudo function calls, taking a MSGCTXT and a MSGID instead of just a MSGID. MSGCTXT and MSGID must be string literals. MSGCTXT should be short and rarely need to change. The letter 'p' stands for 'particular' or 'special'. */ #ifdef DEFAULT_TEXT_DOMAIN # define pgettext(Msgctxt, Msgid) \ pgettext_aux (DEFAULT_TEXT_DOMAIN, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, LC_MESSAGES) #else # define pgettext(Msgctxt, Msgid) \ pgettext_aux (NULL, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, LC_MESSAGES) #endif #define dpgettext(Domainname, Msgctxt, Msgid) \ pgettext_aux (Domainname, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, LC_MESSAGES) #define dcpgettext(Domainname, Msgctxt, Msgid, Category) \ pgettext_aux (Domainname, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, Category) #ifdef DEFAULT_TEXT_DOMAIN # define npgettext(Msgctxt, Msgid, MsgidPlural, N) \ npgettext_aux (DEFAULT_TEXT_DOMAIN, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, MsgidPlural, N, LC_MESSAGES) #else # define npgettext(Msgctxt, Msgid, MsgidPlural, N) \ npgettext_aux (NULL, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, MsgidPlural, N, LC_MESSAGES) #endif #define dnpgettext(Domainname, Msgctxt, Msgid, MsgidPlural, N) \ npgettext_aux (Domainname, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, MsgidPlural, N, LC_MESSAGES) #define dcnpgettext(Domainname, Msgctxt, Msgid, MsgidPlural, N, Category) \ npgettext_aux (Domainname, Msgctxt GETTEXT_CONTEXT_GLUE Msgid, Msgid, MsgidPlural, N, Category) #ifdef __GNUC__ __inline #else #ifdef __cplusplus inline #endif #endif static const char * pgettext_aux (const char *domain, const char *msg_ctxt_id, const char *msgid, int category) { const char *translation = dcgettext (domain, msg_ctxt_id, category); if (translation == msg_ctxt_id) return msgid; else return translation; } #ifdef __GNUC__ __inline #else #ifdef __cplusplus inline #endif #endif static const char * npgettext_aux (const char *domain, const char *msg_ctxt_id, const char *msgid, const char *msgid_plural, unsigned long int n, int category) { const char *translation = dcngettext (domain, msg_ctxt_id, msgid_plural, n, category); if (translation == msg_ctxt_id || translation == msgid_plural) return (n == 1 ? msgid : msgid_plural); else return translation; } /* The same thing extended for non-constant arguments. Here MSGCTXT and MSGID can be arbitrary expressions. But for string literals these macros are less efficient than those above. */ #include /* GNULIB_NO_VLA can be defined to disable use of VLAs even if supported. This relates to the -Wvla and -Wvla-larger-than warnings, enabled in the default GCC many warnings set. This allows programs to disable use of VLAs, which may be unintended, or may be awkward to support portably, or may have security implications due to non-deterministic stack usage. */ #if (!defined GNULIB_NO_VLA \ && (((__GNUC__ >= 3 || __GNUG__ >= 2) && !defined __STRICT_ANSI__) \ /* || (__STDC_VERSION__ == 199901L && !defined __HP_cc) || (__STDC_VERSION__ >= 201112L && !defined __STDC_NO_VLA__) */ )) # define _LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS 1 #else # define _LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS 0 #endif #if !_LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS #include #endif #define pgettext_expr(Msgctxt, Msgid) \ dcpgettext_expr (NULL, Msgctxt, Msgid, LC_MESSAGES) #define dpgettext_expr(Domainname, Msgctxt, Msgid) \ dcpgettext_expr (Domainname, Msgctxt, Msgid, LC_MESSAGES) #ifdef __GNUC__ __inline #else #ifdef __cplusplus inline #endif #endif static const char * dcpgettext_expr (const char *domain, const char *msgctxt, const char *msgid, int category) { size_t msgctxt_len = strlen (msgctxt) + 1; size_t msgid_len = strlen (msgid) + 1; const char *translation; #if _LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS char msg_ctxt_id[msgctxt_len + msgid_len]; #else char buf[1024]; char *msg_ctxt_id = (msgctxt_len + msgid_len <= sizeof (buf) ? buf : (char *) malloc (msgctxt_len + msgid_len)); if (msg_ctxt_id != NULL) #endif { int found_translation; memcpy (msg_ctxt_id, msgctxt, msgctxt_len - 1); msg_ctxt_id[msgctxt_len - 1] = '\004'; memcpy (msg_ctxt_id + msgctxt_len, msgid, msgid_len); translation = dcgettext (domain, msg_ctxt_id, category); found_translation = (translation != msg_ctxt_id); #if !_LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS if (msg_ctxt_id != buf) free (msg_ctxt_id); #endif if (found_translation) return translation; } return msgid; } #define npgettext_expr(Msgctxt, Msgid, MsgidPlural, N) \ dcnpgettext_expr (NULL, Msgctxt, Msgid, MsgidPlural, N, LC_MESSAGES) #define dnpgettext_expr(Domainname, Msgctxt, Msgid, MsgidPlural, N) \ dcnpgettext_expr (Domainname, Msgctxt, Msgid, MsgidPlural, N, LC_MESSAGES) #ifdef __GNUC__ __inline #else #ifdef __cplusplus inline #endif #endif static const char * dcnpgettext_expr (const char *domain, const char *msgctxt, const char *msgid, const char *msgid_plural, unsigned long int n, int category) { size_t msgctxt_len = strlen (msgctxt) + 1; size_t msgid_len = strlen (msgid) + 1; const char *translation; #if _LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS char msg_ctxt_id[msgctxt_len + msgid_len]; #else char buf[1024]; char *msg_ctxt_id = (msgctxt_len + msgid_len <= sizeof (buf) ? buf : (char *) malloc (msgctxt_len + msgid_len)); if (msg_ctxt_id != NULL) #endif { int found_translation; memcpy (msg_ctxt_id, msgctxt, msgctxt_len - 1); msg_ctxt_id[msgctxt_len - 1] = '\004'; memcpy (msg_ctxt_id + msgctxt_len, msgid, msgid_len); translation = dcngettext (domain, msg_ctxt_id, msgid_plural, n, category); found_translation = !(translation == msg_ctxt_id || translation == msgid_plural); #if !_LIBGETTEXT_HAVE_VARIABLE_SIZE_ARRAYS if (msg_ctxt_id != buf) free (msg_ctxt_id); #endif if (found_translation) return translation; } return (n == 1 ? msgid : msgid_plural); } #endif /* _LIBGETTEXT_H */ libffcall-2.4/gnulib-lib/open.c0000664000000000000000000001537714057155505013343 00000000000000/* Open a descriptor to a file. Copyright (C) 2007-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2007. */ /* If the user's config.h happens to include , let it include only the system's here, so that orig_open doesn't recurse to rpl_open. */ #define __need_system_fcntl_h #include /* Get the original definition of open. It might be defined as a macro. */ #include #include #undef __need_system_fcntl_h static int orig_open (const char *filename, int flags, mode_t mode) { #if defined _WIN32 && !defined __CYGWIN__ return _open (filename, flags, mode); #else return open (filename, flags, mode); #endif } /* Specification. */ /* Write "fcntl.h" here, not , otherwise OSF/1 5.1 DTK cc eliminates this include because of the preliminary #include above. */ #include "fcntl.h" #include "cloexec.h" #include #include #include #include #include #include #ifndef REPLACE_OPEN_DIRECTORY # define REPLACE_OPEN_DIRECTORY 0 #endif int open (const char *filename, int flags, ...) { /* 0 = unknown, 1 = yes, -1 = no. */ #if GNULIB_defined_O_CLOEXEC int have_cloexec = -1; #else static int have_cloexec; #endif mode_t mode; int fd; mode = 0; if (flags & O_CREAT) { va_list arg; va_start (arg, flags); /* We have to use PROMOTED_MODE_T instead of mode_t, otherwise GCC 4 creates crashing code when 'mode_t' is smaller than 'int'. */ mode = va_arg (arg, PROMOTED_MODE_T); va_end (arg); } #if GNULIB_defined_O_NONBLOCK /* The only known platform that lacks O_NONBLOCK is mingw, but it also lacks named pipes and Unix sockets, which are the only two file types that require non-blocking handling in open(). Therefore, it is safe to ignore O_NONBLOCK here. It is handy that mingw also lacks openat(), so that is also covered here. */ flags &= ~O_NONBLOCK; #endif #if defined _WIN32 && ! defined __CYGWIN__ if (strcmp (filename, "/dev/null") == 0) filename = "NUL"; #endif #if OPEN_TRAILING_SLASH_BUG /* Fail if one of O_CREAT, O_WRONLY, O_RDWR is specified and the filename ends in a slash, as POSIX says such a filename must name a directory : "A pathname that contains at least one non- character and that ends with one or more trailing characters shall not be resolved successfully unless the last pathname component before the trailing characters names an existing directory" If the named file already exists as a directory, then - if O_CREAT is specified, open() must fail because of the semantics of O_CREAT, - if O_WRONLY or O_RDWR is specified, open() must fail because POSIX says that it fails with errno = EISDIR in this case. If the named file does not exist or does not name a directory, then - if O_CREAT is specified, open() must fail since open() cannot create directories, - if O_WRONLY or O_RDWR is specified, open() must fail because the file does not contain a '.' directory. */ if ((flags & O_CREAT) || (flags & O_ACCMODE) == O_RDWR || (flags & O_ACCMODE) == O_WRONLY) { size_t len = strlen (filename); if (len > 0 && filename[len - 1] == '/') { errno = EISDIR; return -1; } } #endif fd = orig_open (filename, flags & ~(have_cloexec < 0 ? O_CLOEXEC : 0), mode); if (flags & O_CLOEXEC) { if (! have_cloexec) { if (0 <= fd) have_cloexec = 1; else if (errno == EINVAL) { fd = orig_open (filename, flags & ~O_CLOEXEC, mode); have_cloexec = -1; } } if (have_cloexec < 0 && 0 <= fd) set_cloexec_flag (fd, true); } #if REPLACE_FCHDIR /* Implementing fchdir and fdopendir requires the ability to open a directory file descriptor. If open doesn't support that (as on mingw), we use a dummy file that behaves the same as directories on Linux (ie. always reports EOF on attempts to read()), and override fstat() in fchdir.c to hide the fact that we have a dummy. */ if (REPLACE_OPEN_DIRECTORY && fd < 0 && errno == EACCES && ((flags & O_ACCMODE) == O_RDONLY || (O_SEARCH != O_RDONLY && (flags & O_ACCMODE) == O_SEARCH))) { struct stat statbuf; if (stat (filename, &statbuf) == 0 && S_ISDIR (statbuf.st_mode)) { /* Maximum recursion depth of 1. */ fd = open ("/dev/null", flags, mode); if (0 <= fd) fd = _gl_register_fd (fd, filename); } else errno = EACCES; } #endif #if OPEN_TRAILING_SLASH_BUG /* If the filename ends in a slash and fd does not refer to a directory, then fail. Rationale: POSIX says such a filename must name a directory : "A pathname that contains at least one non- character and that ends with one or more trailing characters shall not be resolved successfully unless the last pathname component before the trailing characters names an existing directory" If the named file without the slash is not a directory, open() must fail with ENOTDIR. */ if (fd >= 0) { /* We know len is positive, since open did not fail with ENOENT. */ size_t len = strlen (filename); if (filename[len - 1] == '/') { struct stat statbuf; if (fstat (fd, &statbuf) >= 0 && !S_ISDIR (statbuf.st_mode)) { close (fd); errno = ENOTDIR; return -1; } } } #endif #if REPLACE_FCHDIR if (!REPLACE_OPEN_DIRECTORY && 0 <= fd) fd = _gl_register_fd (fd, filename); #endif return fd; } libffcall-2.4/gnulib-lib/windows-rwlock.c0000664000000000000000000002727314057155505015371 00000000000000/* Read-write locks (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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 /* Don't assume that UNICODE is not defined. */ #undef CreateEvent #define CreateEvent CreateEventA /* 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.4/gnulib-lib/clean-temp-simple.c0000664000000000000000000002720614057155505015710 00000000000000/* Temporary files with automatic cleanup. Copyright (C) 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "clean-temp-simple.h" #include "clean-temp-private.h" #include #include #include #include #include #include #include #include "error.h" #include "fatal-signal.h" #include "asyncsafe-spin.h" #include "glthread/lock.h" #include "thread-optim.h" #include "gl_list.h" #include "gl_linkedhash_list.h" #include "gettext.h" #define _(str) gettext (str) /* Lock that protects the file_cleanup_list from concurrent modification in different threads. */ gl_lock_define_initialized (static, file_cleanup_list_lock) /* List of all temporary files without temporary directories. */ static gl_list_t /* */ volatile file_cleanup_list; /* List of all temporary directories. */ struct all_tempdirs dir_cleanup_list /* = { NULL, 0, 0 } */; /* List of all open file descriptors to temporary files. */ gl_list_t /* */ volatile descriptors; /* For the subdirs and for the files, we use a gl_list_t of type LINKEDHASH. Why? We need a data structure that 1) Can contain an arbitrary number of 'char *' values. The strings are compared via strcmp, not pointer comparison. 2) Has insertion and deletion operations that are fast: ideally O(1), or possibly O(log n). This is important for GNU sort, which may create a large number of temporary files. 3) Allows iteration through all elements from within a signal handler. 4) May or may not allow duplicates. It doesn't matter here, since any file or subdir can only be removed once. Criterion 1) would allow any gl_list_t or gl_oset_t implementation. Criterion 2) leaves only GL_LINKEDHASH_LIST, GL_TREEHASH_LIST, or GL_TREE_OSET. Criterion 3) puts at disadvantage GL_TREEHASH_LIST and GL_TREE_OSET. Namely, iteration through the elements of a binary tree requires access to many ->left, ->right, ->parent pointers. However, the rebalancing code for insertion and deletion in an AVL or red-black tree is so complicated that we cannot assume that >left, ->right, ->parent pointers are in a consistent state throughout these operations. Therefore, to avoid a crash in the signal handler, all destructive operations to the lists would have to be protected by a block_fatal_signals (); ... unblock_fatal_signals (); pair. Which causes extra system calls. Criterion 3) would also discourage GL_ARRAY_LIST and GL_CARRAY_LIST, if they were not already excluded. Namely, these implementations use xrealloc(), leaving a time window in which in the list->elements pointer points to already deallocated memory. To avoid a crash in the signal handler at such a moment, all destructive operations would have to protected by block/unblock_fatal_signals (), in this case too. A list of type GL_LINKEDHASH_LIST without duplicates fulfills all requirements: 2) Insertion and deletion are O(1) on average. 3) The gl_list_iterator, gl_list_iterator_next implementations do not trigger memory allocations, nor other system calls, and are therefore safe to be called from a signal handler. Furthermore, since SIGNAL_SAFE_LIST is defined, the implementation of the destructive functions ensures that the list structure is safe to be traversed at any moment, even when interrupted by an asynchronous signal. */ /* String equality and hash code functions used by the lists. */ bool clean_temp_string_equals (const void *x1, const void *x2) { const char *s1 = (const char *) x1; const char *s2 = (const char *) x2; return strcmp (s1, s2) == 0; } #define SIZE_BITS (sizeof (size_t) * CHAR_BIT) /* A hash function for NUL-terminated char* strings using the method described by Bruno Haible. See https://www.haible.de/bruno/hashfunc.html. */ size_t clean_temp_string_hash (const void *x) { const char *s = (const char *) x; size_t h = 0; for (; *s; s++) h = *s + ((h << 9) | (h >> (SIZE_BITS - 9))); return h; } /* The set of fatal signal handlers. Cached here because we are not allowed to call get_fatal_signal_set () from a signal handler. */ static const sigset_t *fatal_signal_set /* = NULL */; static void init_fatal_signal_set (void) { if (fatal_signal_set == NULL) fatal_signal_set = get_fatal_signal_set (); } /* Close a file descriptor. Avoids race conditions with normal thread code or signal-handler code that might want to close the same file descriptor. */ _GL_ASYNC_SAFE int clean_temp_asyncsafe_close (struct closeable_fd *element) { sigset_t saved_mask; int ret; int saved_errno; asyncsafe_spin_lock (&element->lock, fatal_signal_set, &saved_mask); if (!element->closed) { ret = close (element->fd); saved_errno = errno; element->closed = true; } else { ret = 0; saved_errno = 0; } asyncsafe_spin_unlock (&element->lock, &saved_mask); element->done = true; errno = saved_errno; return ret; } /* Initializations for use of this function. */ void clean_temp_init_asyncsafe_close (void) { init_fatal_signal_set (); } /* The signal handler. It gets called asynchronously. */ static _GL_ASYNC_SAFE void cleanup_action (int sig _GL_UNUSED) { size_t i; /* First close all file descriptors to temporary files. */ { gl_list_t fds = descriptors; if (fds != NULL) { gl_list_iterator_t iter; const void *element; iter = gl_list_iterator (fds); while (gl_list_iterator_next (&iter, &element, NULL)) { clean_temp_asyncsafe_close ((struct closeable_fd *) element); } gl_list_iterator_free (&iter); } } { gl_list_t files = file_cleanup_list; if (files != NULL) { gl_list_iterator_t iter; const void *element; iter = gl_list_iterator (files); while (gl_list_iterator_next (&iter, &element, NULL)) { const char *file = (const char *) element; unlink (file); } gl_list_iterator_free (&iter); } } for (i = 0; i < dir_cleanup_list.tempdir_count; i++) { struct tempdir *dir = dir_cleanup_list.tempdir_list[i]; if (dir != NULL) { gl_list_iterator_t iter; const void *element; /* First cleanup the files in the subdirectories. */ iter = gl_list_iterator (dir->files); while (gl_list_iterator_next (&iter, &element, NULL)) { const char *file = (const char *) element; unlink (file); } gl_list_iterator_free (&iter); /* Then cleanup the subdirectories. */ iter = gl_list_iterator (dir->subdirs); while (gl_list_iterator_next (&iter, &element, NULL)) { const char *subdir = (const char *) element; rmdir (subdir); } gl_list_iterator_free (&iter); /* Then cleanup the temporary directory itself. */ rmdir (dir->dirname); } } } /* Set to -1 if initialization of this facility failed. */ static int volatile init_failed /* = 0 */; /* Initializes this facility. */ static void do_clean_temp_init (void) { /* Initialize the data used by the cleanup handler. */ init_fatal_signal_set (); /* Register the cleanup handler. */ if (at_fatal_signal (&cleanup_action) < 0) init_failed = -1; } /* Ensure that do_clean_temp_init is called once only. */ gl_once_define(static, clean_temp_once) /* Initializes this facility upon first use. Return 0 upon success, or -1 if there was a memory allocation problem. */ int clean_temp_init (void) { gl_once (clean_temp_once, do_clean_temp_init); return init_failed; } /* Remove a file, with optional error message. Return 0 upon success, or -1 if there was some problem. */ int clean_temp_unlink (const char *absolute_file_name, bool cleanup_verbose) { if (unlink (absolute_file_name) < 0 && cleanup_verbose && errno != ENOENT) { error (0, errno, _("cannot remove temporary file %s"), absolute_file_name); return -1; } return 0; } /* ============= Temporary files without temporary directories ============= */ /* Register the given ABSOLUTE_FILE_NAME as being a file that needs to be removed. Should be called before the file ABSOLUTE_FILE_NAME is created. Return 0 upon success, or -1 if there was a memory allocation problem. */ int register_temporary_file (const char *absolute_file_name) { bool mt = gl_multithreaded (); if (mt) gl_lock_lock (file_cleanup_list_lock); int ret = 0; /* Make sure that this facility and the file_cleanup_list are initialized. */ if (file_cleanup_list == NULL) { if (clean_temp_init () < 0) { ret = -1; goto done; } file_cleanup_list = gl_list_nx_create_empty (GL_LINKEDHASH_LIST, clean_temp_string_equals, clean_temp_string_hash, NULL, false); if (file_cleanup_list == NULL) { ret = -1; goto done; } } /* Add absolute_file_name to file_cleanup_list, without duplicates. */ if (gl_list_search (file_cleanup_list, absolute_file_name) == NULL) { char *absolute_file_name_copy = strdup (absolute_file_name); if (absolute_file_name_copy == NULL) { ret = -1; goto done; } if (gl_list_nx_add_first (file_cleanup_list, absolute_file_name_copy) == NULL) { free (absolute_file_name_copy); ret = -1; goto done; } } done: if (mt) gl_lock_unlock (file_cleanup_list_lock); return ret; } /* Unregister the given ABSOLUTE_FILE_NAME as being a file that needs to be removed. Should be called when the file ABSOLUTE_FILE_NAME could not be created. */ void unregister_temporary_file (const char *absolute_file_name) { bool mt = gl_multithreaded (); if (mt) gl_lock_lock (file_cleanup_list_lock); gl_list_t list = file_cleanup_list; if (list != NULL) { gl_list_node_t node = gl_list_search (list, absolute_file_name); if (node != NULL) { char *old_string = (char *) gl_list_node_value (list, node); gl_list_remove_node (list, node); free (old_string); } } if (mt) gl_lock_unlock (file_cleanup_list_lock); } /* Remove the given ABSOLUTE_FILE_NAME and unregister it. CLEANUP_VERBOSE determines whether errors are reported to standard error. Return 0 upon success, or -1 if there was some problem. */ int cleanup_temporary_file (const char *absolute_file_name, bool cleanup_verbose) { int err; err = clean_temp_unlink (absolute_file_name, cleanup_verbose); unregister_temporary_file (absolute_file_name); return err; } libffcall-2.4/gnulib-lib/intprops.h0000664000000000000000000007071714057155505014264 00000000000000/* intprops.h -- properties of integer types Copyright (C) 2001-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Paul Eggert. */ #ifndef _GL_INTPROPS_H #define _GL_INTPROPS_H #include /* Return a value with the common real type of E and V and the value of V. Do not evaluate E. */ #define _GL_INT_CONVERT(e, v) ((1 ? 0 : (e)) + (v)) /* Act like _GL_INT_CONVERT (E, -V) but work around a bug in IRIX 6.5 cc; see . */ #define _GL_INT_NEGATE_CONVERT(e, v) ((1 ? 0 : (e)) - (v)) /* The extra casts in the following macros work around compiler bugs, e.g., in Cray C 5.0.3.0. */ /* True if the arithmetic type T is an integer type. bool counts as an integer. */ #define TYPE_IS_INTEGER(t) ((t) 1.5 == 1) /* True if the real type T is signed. */ #define TYPE_SIGNED(t) (! ((t) 0 < (t) -1)) /* Return 1 if the real expression E, after promotion, has a signed or floating type. Do not evaluate E. */ #define EXPR_SIGNED(e) (_GL_INT_NEGATE_CONVERT (e, 1) < 0) /* Minimum and maximum values for integer types and expressions. */ /* The width in bits of the integer type or expression T. Do not evaluate T. T must not be a bit-field expression. Padding bits are not supported; this is checked at compile-time below. */ #define TYPE_WIDTH(t) (sizeof (t) * CHAR_BIT) /* The maximum and minimum values for the integer type T. */ #define TYPE_MINIMUM(t) ((t) ~ TYPE_MAXIMUM (t)) #define TYPE_MAXIMUM(t) \ ((t) (! TYPE_SIGNED (t) \ ? (t) -1 \ : ((((t) 1 << (TYPE_WIDTH (t) - 2)) - 1) * 2 + 1))) /* The maximum and minimum values for the type of the expression E, after integer promotion. E is not evaluated. */ #define _GL_INT_MINIMUM(e) \ (EXPR_SIGNED (e) \ ? ~ _GL_SIGNED_INT_MAXIMUM (e) \ : _GL_INT_CONVERT (e, 0)) #define _GL_INT_MAXIMUM(e) \ (EXPR_SIGNED (e) \ ? _GL_SIGNED_INT_MAXIMUM (e) \ : _GL_INT_NEGATE_CONVERT (e, 1)) #define _GL_SIGNED_INT_MAXIMUM(e) \ (((_GL_INT_CONVERT (e, 1) << (TYPE_WIDTH (+ (e)) - 2)) - 1) * 2 + 1) /* Work around OpenVMS incompatibility with C99. */ #if !defined LLONG_MAX && defined __INT64_MAX # define LLONG_MAX __INT64_MAX # define LLONG_MIN __INT64_MIN #endif /* This include file assumes that signed types are two's complement without padding bits; the above macros have undefined behavior otherwise. If this is a problem for you, please let us know how to fix it for your host. This assumption is tested by the intprops-tests module. */ /* Does the __typeof__ keyword work? This could be done by 'configure', but for now it's easier to do it by hand. */ #if (2 <= __GNUC__ \ || (4 <= __clang_major__) \ || (1210 <= __IBMC__ && defined __IBM__TYPEOF__) \ || (0x5110 <= __SUNPRO_C && !__STDC__)) # define _GL_HAVE___TYPEOF__ 1 #else # define _GL_HAVE___TYPEOF__ 0 #endif /* Return 1 if the integer type or expression T might be signed. Return 0 if it is definitely unsigned. T must not be a bit-field expression. This macro does not evaluate its argument, and expands to an integer constant expression. */ #if _GL_HAVE___TYPEOF__ # define _GL_SIGNED_TYPE_OR_EXPR(t) TYPE_SIGNED (__typeof__ (t)) #else # define _GL_SIGNED_TYPE_OR_EXPR(t) 1 #endif /* Bound on length of the string representing an unsigned integer value representable in B bits. log10 (2.0) < 146/485. The smallest value of B where this bound is not tight is 2621. */ #define INT_BITS_STRLEN_BOUND(b) (((b) * 146 + 484) / 485) /* Bound on length of the string representing an integer type or expression T. T must not be a bit-field expression. Subtract 1 for the sign bit if T is signed, and then add 1 more for a minus sign if needed. Because _GL_SIGNED_TYPE_OR_EXPR sometimes returns 1 when its argument is unsigned, this macro may overestimate the true bound by one byte when applied to unsigned types of size 2, 4, 16, ... bytes. */ #define INT_STRLEN_BOUND(t) \ (INT_BITS_STRLEN_BOUND (TYPE_WIDTH (t) - _GL_SIGNED_TYPE_OR_EXPR (t)) \ + _GL_SIGNED_TYPE_OR_EXPR (t)) /* Bound on buffer size needed to represent an integer type or expression T, including the terminating null. T must not be a bit-field expression. */ #define INT_BUFSIZE_BOUND(t) (INT_STRLEN_BOUND (t) + 1) /* Range overflow checks. The INT__RANGE_OVERFLOW macros return 1 if the corresponding C operators might not yield numerically correct answers due to arithmetic overflow. They do not rely on undefined or implementation-defined behavior. Their implementations are simple and straightforward, but they are harder to use and may be less efficient than the INT__WRAPV, INT__OK, and INT__OVERFLOW macros described below. Example usage: long int i = ...; long int j = ...; if (INT_MULTIPLY_RANGE_OVERFLOW (i, j, LONG_MIN, LONG_MAX)) printf ("multiply would overflow"); else printf ("product is %ld", i * j); Restrictions on *_RANGE_OVERFLOW macros: These macros do not check for all possible numerical problems or undefined or unspecified behavior: they do not check for division by zero, for bad shift counts, or for shifting negative numbers. These macros may evaluate their arguments zero or multiple times, so the arguments should not have side effects. The arithmetic arguments (including the MIN and MAX arguments) must be of the same integer type after the usual arithmetic conversions, and the type must have minimum value MIN and maximum MAX. Unsigned types should use a zero MIN of the proper type. Because all arguments are subject to integer promotions, these macros typically do not work on types narrower than 'int'. These macros are tuned for constant MIN and MAX. For commutative operations such as A + B, they are also tuned for constant B. */ /* Return 1 if A + B would overflow in [MIN,MAX] arithmetic. See above for restrictions. */ #define INT_ADD_RANGE_OVERFLOW(a, b, min, max) \ ((b) < 0 \ ? (a) < (min) - (b) \ : (max) - (b) < (a)) /* Return 1 if A - B would overflow in [MIN,MAX] arithmetic. See above for restrictions. */ #define INT_SUBTRACT_RANGE_OVERFLOW(a, b, min, max) \ ((b) < 0 \ ? (max) + (b) < (a) \ : (a) < (min) + (b)) /* Return 1 if - A would overflow in [MIN,MAX] arithmetic. See above for restrictions. */ #define INT_NEGATE_RANGE_OVERFLOW(a, min, max) \ ((min) < 0 \ ? (a) < - (max) \ : 0 < (a)) /* Return 1 if A * B would overflow in [MIN,MAX] arithmetic. See above for restrictions. Avoid && and || as they tickle bugs in Sun C 5.11 2010/08/13 and other compilers; see . */ #define INT_MULTIPLY_RANGE_OVERFLOW(a, b, min, max) \ ((b) < 0 \ ? ((a) < 0 \ ? (a) < (max) / (b) \ : (b) == -1 \ ? 0 \ : (min) / (b) < (a)) \ : (b) == 0 \ ? 0 \ : ((a) < 0 \ ? (a) < (min) / (b) \ : (max) / (b) < (a))) /* Return 1 if A / B would overflow in [MIN,MAX] arithmetic. See above for restrictions. Do not check for division by zero. */ #define INT_DIVIDE_RANGE_OVERFLOW(a, b, min, max) \ ((min) < 0 && (b) == -1 && (a) < - (max)) /* Return 1 if A % B would overflow in [MIN,MAX] arithmetic. See above for restrictions. Do not check for division by zero. Mathematically, % should never overflow, but on x86-like hosts INT_MIN % -1 traps, and the C standard permits this, so treat this as an overflow too. */ #define INT_REMAINDER_RANGE_OVERFLOW(a, b, min, max) \ INT_DIVIDE_RANGE_OVERFLOW (a, b, min, max) /* Return 1 if A << B would overflow in [MIN,MAX] arithmetic. See above for restrictions. Here, MIN and MAX are for A only, and B need not be of the same type as the other arguments. The C standard says that behavior is undefined for shifts unless 0 <= B < wordwidth, and that when A is negative then A << B has undefined behavior and A >> B has implementation-defined behavior, but do not check these other restrictions. */ #define INT_LEFT_SHIFT_RANGE_OVERFLOW(a, b, min, max) \ ((a) < 0 \ ? (a) < (min) >> (b) \ : (max) >> (b) < (a)) /* True if __builtin_add_overflow (A, B, P) and __builtin_sub_overflow (A, B, P) work when P is non-null. */ /* __builtin_{add,sub}_overflow exists but is not reliable in GCC 5.x and 6.x, see . */ #if 7 <= __GNUC__ && !defined __ICC # define _GL_HAS_BUILTIN_ADD_OVERFLOW 1 #elif defined __has_builtin # define _GL_HAS_BUILTIN_ADD_OVERFLOW __has_builtin (__builtin_add_overflow) #else # define _GL_HAS_BUILTIN_ADD_OVERFLOW 0 #endif /* True if __builtin_mul_overflow (A, B, P) works when P is non-null. */ #ifdef __clang__ /* Work around Clang bug . */ # define _GL_HAS_BUILTIN_MUL_OVERFLOW 0 #else # define _GL_HAS_BUILTIN_MUL_OVERFLOW _GL_HAS_BUILTIN_ADD_OVERFLOW #endif /* True if __builtin_add_overflow_p (A, B, C) works, and similarly for __builtin_sub_overflow_p and __builtin_mul_overflow_p. */ #if defined __clang__ || defined __ICC /* Clang 11 lacks __builtin_mul_overflow_p, and even if it did it would presumably run afoul of Clang bug 16404. ICC 2021.1's __builtin_add_overflow_p etc. are not treated as integral constant expressions even when all arguments are. */ # define _GL_HAS_BUILTIN_OVERFLOW_P 0 #elif defined __has_builtin # define _GL_HAS_BUILTIN_OVERFLOW_P __has_builtin (__builtin_mul_overflow_p) #else # define _GL_HAS_BUILTIN_OVERFLOW_P (7 <= __GNUC__) #endif /* The _GL*_OVERFLOW macros have the same restrictions as the *_RANGE_OVERFLOW macros, except that they do not assume that operands (e.g., A and B) have the same type as MIN and MAX. Instead, they assume that the result (e.g., A + B) has that type. */ #if _GL_HAS_BUILTIN_OVERFLOW_P # define _GL_ADD_OVERFLOW(a, b, min, max) \ __builtin_add_overflow_p (a, b, (__typeof__ ((a) + (b))) 0) # define _GL_SUBTRACT_OVERFLOW(a, b, min, max) \ __builtin_sub_overflow_p (a, b, (__typeof__ ((a) - (b))) 0) # define _GL_MULTIPLY_OVERFLOW(a, b, min, max) \ __builtin_mul_overflow_p (a, b, (__typeof__ ((a) * (b))) 0) #else # define _GL_ADD_OVERFLOW(a, b, min, max) \ ((min) < 0 ? INT_ADD_RANGE_OVERFLOW (a, b, min, max) \ : (a) < 0 ? (b) <= (a) + (b) \ : (b) < 0 ? (a) <= (a) + (b) \ : (a) + (b) < (b)) # define _GL_SUBTRACT_OVERFLOW(a, b, min, max) \ ((min) < 0 ? INT_SUBTRACT_RANGE_OVERFLOW (a, b, min, max) \ : (a) < 0 ? 1 \ : (b) < 0 ? (a) - (b) <= (a) \ : (a) < (b)) # define _GL_MULTIPLY_OVERFLOW(a, b, min, max) \ (((min) == 0 && (((a) < 0 && 0 < (b)) || ((b) < 0 && 0 < (a)))) \ || INT_MULTIPLY_RANGE_OVERFLOW (a, b, min, max)) #endif #define _GL_DIVIDE_OVERFLOW(a, b, min, max) \ ((min) < 0 ? (b) == _GL_INT_NEGATE_CONVERT (min, 1) && (a) < - (max) \ : (a) < 0 ? (b) <= (a) + (b) - 1 \ : (b) < 0 && (a) + (b) <= (a)) #define _GL_REMAINDER_OVERFLOW(a, b, min, max) \ ((min) < 0 ? (b) == _GL_INT_NEGATE_CONVERT (min, 1) && (a) < - (max) \ : (a) < 0 ? (a) % (b) != ((max) - (b) + 1) % (b) \ : (b) < 0 && ! _GL_UNSIGNED_NEG_MULTIPLE (a, b, max)) /* Return a nonzero value if A is a mathematical multiple of B, where A is unsigned, B is negative, and MAX is the maximum value of A's type. A's type must be the same as (A % B)'s type. Normally (A % -B == 0) suffices, but things get tricky if -B would overflow. */ #define _GL_UNSIGNED_NEG_MULTIPLE(a, b, max) \ (((b) < -_GL_SIGNED_INT_MAXIMUM (b) \ ? (_GL_SIGNED_INT_MAXIMUM (b) == (max) \ ? (a) \ : (a) % (_GL_INT_CONVERT (a, _GL_SIGNED_INT_MAXIMUM (b)) + 1)) \ : (a) % - (b)) \ == 0) /* Check for integer overflow, and report low order bits of answer. The INT__OVERFLOW macros return 1 if the corresponding C operators might not yield numerically correct answers due to arithmetic overflow. The INT__WRAPV macros compute the low-order bits of the sum, difference, and product of two C integers, and return 1 if these low-order bits are not numerically correct. These macros work correctly on all known practical hosts, and do not rely on undefined behavior due to signed arithmetic overflow. Example usage, assuming A and B are long int: if (INT_MULTIPLY_OVERFLOW (a, b)) printf ("result would overflow\n"); else printf ("result is %ld (no overflow)\n", a * b); Example usage with WRAPV flavor: long int result; bool overflow = INT_MULTIPLY_WRAPV (a, b, &result); printf ("result is %ld (%s)\n", result, overflow ? "after overflow" : "no overflow"); Restrictions on these macros: These macros do not check for all possible numerical problems or undefined or unspecified behavior: they do not check for division by zero, for bad shift counts, or for shifting negative numbers. These macros may evaluate their arguments zero or multiple times, so the arguments should not have side effects. The WRAPV macros are not constant expressions. They support only +, binary -, and *. Because the WRAPV macros convert the result, they report overflow in different circumstances than the OVERFLOW macros do. For example, in the typical case with 16-bit 'short' and 32-bit 'int', if A, B and R are all of type 'short' then INT_ADD_OVERFLOW (A, B) returns false because the addition cannot overflow after A and B are converted to 'int', whereas INT_ADD_WRAPV (A, B, &R) returns true or false depending on whether the sum fits into 'short'. These macros are tuned for their last input argument being a constant. Return 1 if the integer expressions A * B, A - B, -A, A * B, A / B, A % B, and A << B would overflow, respectively. */ #define INT_ADD_OVERFLOW(a, b) \ _GL_BINARY_OP_OVERFLOW (a, b, _GL_ADD_OVERFLOW) #define INT_SUBTRACT_OVERFLOW(a, b) \ _GL_BINARY_OP_OVERFLOW (a, b, _GL_SUBTRACT_OVERFLOW) #if _GL_HAS_BUILTIN_OVERFLOW_P # define INT_NEGATE_OVERFLOW(a) INT_SUBTRACT_OVERFLOW (0, a) #else # define INT_NEGATE_OVERFLOW(a) \ INT_NEGATE_RANGE_OVERFLOW (a, _GL_INT_MINIMUM (a), _GL_INT_MAXIMUM (a)) #endif #define INT_MULTIPLY_OVERFLOW(a, b) \ _GL_BINARY_OP_OVERFLOW (a, b, _GL_MULTIPLY_OVERFLOW) #define INT_DIVIDE_OVERFLOW(a, b) \ _GL_BINARY_OP_OVERFLOW (a, b, _GL_DIVIDE_OVERFLOW) #define INT_REMAINDER_OVERFLOW(a, b) \ _GL_BINARY_OP_OVERFLOW (a, b, _GL_REMAINDER_OVERFLOW) #define INT_LEFT_SHIFT_OVERFLOW(a, b) \ INT_LEFT_SHIFT_RANGE_OVERFLOW (a, b, \ _GL_INT_MINIMUM (a), _GL_INT_MAXIMUM (a)) /* Return 1 if the expression A B would overflow, where OP_RESULT_OVERFLOW (A, B, MIN, MAX) does the actual test, assuming MIN and MAX are the minimum and maximum for the result type. Arguments should be free of side effects. */ #define _GL_BINARY_OP_OVERFLOW(a, b, op_result_overflow) \ op_result_overflow (a, b, \ _GL_INT_MINIMUM (_GL_INT_CONVERT (a, b)), \ _GL_INT_MAXIMUM (_GL_INT_CONVERT (a, b))) /* Store the low-order bits of A + B, A - B, A * B, respectively, into *R. Return 1 if the result overflows. See above for restrictions. */ #if _GL_HAS_BUILTIN_ADD_OVERFLOW # define INT_ADD_WRAPV(a, b, r) __builtin_add_overflow (a, b, r) # define INT_SUBTRACT_WRAPV(a, b, r) __builtin_sub_overflow (a, b, r) #else # define INT_ADD_WRAPV(a, b, r) \ _GL_INT_OP_WRAPV (a, b, r, +, _GL_INT_ADD_RANGE_OVERFLOW) # define INT_SUBTRACT_WRAPV(a, b, r) \ _GL_INT_OP_WRAPV (a, b, r, -, _GL_INT_SUBTRACT_RANGE_OVERFLOW) #endif #if _GL_HAS_BUILTIN_MUL_OVERFLOW # if ((9 < __GNUC__ + (3 <= __GNUC_MINOR__) \ || (__GNUC__ == 8 && 4 <= __GNUC_MINOR__)) \ && !defined __ICC) # define INT_MULTIPLY_WRAPV(a, b, r) __builtin_mul_overflow (a, b, r) # else /* Work around GCC bug 91450. */ # define INT_MULTIPLY_WRAPV(a, b, r) \ ((!_GL_SIGNED_TYPE_OR_EXPR (*(r)) && EXPR_SIGNED (a) && EXPR_SIGNED (b) \ && _GL_INT_MULTIPLY_RANGE_OVERFLOW (a, b, 0, (__typeof__ (*(r))) -1)) \ ? ((void) __builtin_mul_overflow (a, b, r), 1) \ : __builtin_mul_overflow (a, b, r)) # endif #else # define INT_MULTIPLY_WRAPV(a, b, r) \ _GL_INT_OP_WRAPV (a, b, r, *, _GL_INT_MULTIPLY_RANGE_OVERFLOW) #endif /* Nonzero if this compiler has GCC bug 68193 or Clang bug 25390. See: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=68193 https://llvm.org/bugs/show_bug.cgi?id=25390 For now, assume all versions of GCC-like compilers generate bogus warnings for _Generic. This matters only for compilers that lack relevant builtins. */ #if __GNUC__ || defined __clang__ # define _GL__GENERIC_BOGUS 1 #else # define _GL__GENERIC_BOGUS 0 #endif /* Store the low-order bits of A B into *R, where OP specifies the operation and OVERFLOW the overflow predicate. Return 1 if the result overflows. See above for restrictions. */ #if 201112 <= __STDC_VERSION__ && !_GL__GENERIC_BOGUS # define _GL_INT_OP_WRAPV(a, b, r, op, overflow) \ (_Generic \ (*(r), \ signed char: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ signed char, SCHAR_MIN, SCHAR_MAX), \ unsigned char: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ unsigned char, 0, UCHAR_MAX), \ short int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ short int, SHRT_MIN, SHRT_MAX), \ unsigned short int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ unsigned short int, 0, USHRT_MAX), \ int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ int, INT_MIN, INT_MAX), \ unsigned int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ unsigned int, 0, UINT_MAX), \ long int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long int, \ long int, LONG_MIN, LONG_MAX), \ unsigned long int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long int, \ unsigned long int, 0, ULONG_MAX), \ long long int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long long int, \ long long int, LLONG_MIN, LLONG_MAX), \ unsigned long long int: \ _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long long int, \ unsigned long long int, 0, ULLONG_MAX))) #else /* Store the low-order bits of A B into *R, where OP specifies the operation and OVERFLOW the overflow predicate. If *R is signed, its type is ST with bounds SMIN..SMAX; otherwise its type is UT with bounds U..UMAX. ST and UT are narrower than int. Return 1 if the result overflows. See above for restrictions. */ # if _GL_HAVE___TYPEOF__ # define _GL_INT_OP_WRAPV_SMALLISH(a,b,r,op,overflow,st,smin,smax,ut,umax) \ (TYPE_SIGNED (__typeof__ (*(r))) \ ? _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, st, smin, smax) \ : _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, ut, 0, umax)) # else # define _GL_INT_OP_WRAPV_SMALLISH(a,b,r,op,overflow,st,smin,smax,ut,umax) \ (overflow (a, b, smin, smax) \ ? (overflow (a, b, 0, umax) \ ? (*(r) = _GL_INT_OP_WRAPV_VIA_UNSIGNED (a,b,op,unsigned,st), 1) \ : (*(r) = _GL_INT_OP_WRAPV_VIA_UNSIGNED (a,b,op,unsigned,st)) < 0) \ : (overflow (a, b, 0, umax) \ ? (*(r) = _GL_INT_OP_WRAPV_VIA_UNSIGNED (a,b,op,unsigned,st)) >= 0 \ : (*(r) = _GL_INT_OP_WRAPV_VIA_UNSIGNED (a,b,op,unsigned,st), 0))) # endif # define _GL_INT_OP_WRAPV(a, b, r, op, overflow) \ (sizeof *(r) == sizeof (signed char) \ ? _GL_INT_OP_WRAPV_SMALLISH (a, b, r, op, overflow, \ signed char, SCHAR_MIN, SCHAR_MAX, \ unsigned char, UCHAR_MAX) \ : sizeof *(r) == sizeof (short int) \ ? _GL_INT_OP_WRAPV_SMALLISH (a, b, r, op, overflow, \ short int, SHRT_MIN, SHRT_MAX, \ unsigned short int, USHRT_MAX) \ : sizeof *(r) == sizeof (int) \ ? (EXPR_SIGNED (*(r)) \ ? _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ int, INT_MIN, INT_MAX) \ : _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned int, \ unsigned int, 0, UINT_MAX)) \ : _GL_INT_OP_WRAPV_LONGISH(a, b, r, op, overflow)) # ifdef LLONG_MAX # define _GL_INT_OP_WRAPV_LONGISH(a, b, r, op, overflow) \ (sizeof *(r) == sizeof (long int) \ ? (EXPR_SIGNED (*(r)) \ ? _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long int, \ long int, LONG_MIN, LONG_MAX) \ : _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long int, \ unsigned long int, 0, ULONG_MAX)) \ : (EXPR_SIGNED (*(r)) \ ? _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long long int, \ long long int, LLONG_MIN, LLONG_MAX) \ : _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long long int, \ unsigned long long int, 0, ULLONG_MAX))) # else # define _GL_INT_OP_WRAPV_LONGISH(a, b, r, op, overflow) \ (EXPR_SIGNED (*(r)) \ ? _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long int, \ long int, LONG_MIN, LONG_MAX) \ : _GL_INT_OP_CALC (a, b, r, op, overflow, unsigned long int, \ unsigned long int, 0, ULONG_MAX)) # endif #endif /* Store the low-order bits of A B into *R, where the operation is given by OP. Use the unsigned type UT for calculation to avoid overflow problems. *R's type is T, with extrema TMIN and TMAX. T must be a signed integer type. Return 1 if the result overflows. */ #define _GL_INT_OP_CALC(a, b, r, op, overflow, ut, t, tmin, tmax) \ (overflow (a, b, tmin, tmax) \ ? (*(r) = _GL_INT_OP_WRAPV_VIA_UNSIGNED (a, b, op, ut, t), 1) \ : (*(r) = _GL_INT_OP_WRAPV_VIA_UNSIGNED (a, b, op, ut, t), 0)) /* Return the low-order bits of A B, where the operation is given by OP. Use the unsigned type UT for calculation to avoid undefined behavior on signed integer overflow, and convert the result to type T. UT is at least as wide as T and is no narrower than unsigned int, T is two's complement, and there is no padding or trap representations. Assume that converting UT to T yields the low-order bits, as is done in all known two's-complement C compilers. E.g., see: https://gcc.gnu.org/onlinedocs/gcc/Integers-implementation.html According to the C standard, converting UT to T yields an implementation-defined result or signal for values outside T's range. However, code that works around this theoretical problem runs afoul of a compiler bug in Oracle Studio 12.3 x86. See: https://lists.gnu.org/r/bug-gnulib/2017-04/msg00049.html As the compiler bug is real, don't try to work around the theoretical problem. */ #define _GL_INT_OP_WRAPV_VIA_UNSIGNED(a, b, op, ut, t) \ ((t) ((ut) (a) op (ut) (b))) /* Return true if the numeric values A + B, A - B, A * B fall outside the range TMIN..TMAX. Arguments should be integer expressions without side effects. TMIN should be signed and nonpositive. TMAX should be positive, and should be signed unless TMIN is zero. */ #define _GL_INT_ADD_RANGE_OVERFLOW(a, b, tmin, tmax) \ ((b) < 0 \ ? (((tmin) \ ? ((EXPR_SIGNED (_GL_INT_CONVERT (a, (tmin) - (b))) || (b) < (tmin)) \ && (a) < (tmin) - (b)) \ : (a) <= -1 - (b)) \ || ((EXPR_SIGNED (a) ? 0 <= (a) : (tmax) < (a)) && (tmax) < (a) + (b))) \ : (a) < 0 \ ? (((tmin) \ ? ((EXPR_SIGNED (_GL_INT_CONVERT (b, (tmin) - (a))) || (a) < (tmin)) \ && (b) < (tmin) - (a)) \ : (b) <= -1 - (a)) \ || ((EXPR_SIGNED (_GL_INT_CONVERT (a, b)) || (tmax) < (b)) \ && (tmax) < (a) + (b))) \ : (tmax) < (b) || (tmax) - (b) < (a)) #define _GL_INT_SUBTRACT_RANGE_OVERFLOW(a, b, tmin, tmax) \ (((a) < 0) == ((b) < 0) \ ? ((a) < (b) \ ? !(tmin) || -1 - (tmin) < (b) - (a) - 1 \ : (tmax) < (a) - (b)) \ : (a) < 0 \ ? ((!EXPR_SIGNED (_GL_INT_CONVERT ((a) - (tmin), b)) && (a) - (tmin) < 0) \ || (a) - (tmin) < (b)) \ : ((! (EXPR_SIGNED (_GL_INT_CONVERT (tmax, b)) \ && EXPR_SIGNED (_GL_INT_CONVERT ((tmax) + (b), a))) \ && (tmax) <= -1 - (b)) \ || (tmax) + (b) < (a))) #define _GL_INT_MULTIPLY_RANGE_OVERFLOW(a, b, tmin, tmax) \ ((b) < 0 \ ? ((a) < 0 \ ? (EXPR_SIGNED (_GL_INT_CONVERT (tmax, b)) \ ? (a) < (tmax) / (b) \ : ((INT_NEGATE_OVERFLOW (b) \ ? _GL_INT_CONVERT (b, tmax) >> (TYPE_WIDTH (+ (b)) - 1) \ : (tmax) / -(b)) \ <= -1 - (a))) \ : INT_NEGATE_OVERFLOW (_GL_INT_CONVERT (b, tmin)) && (b) == -1 \ ? (EXPR_SIGNED (a) \ ? 0 < (a) + (tmin) \ : 0 < (a) && -1 - (tmin) < (a) - 1) \ : (tmin) / (b) < (a)) \ : (b) == 0 \ ? 0 \ : ((a) < 0 \ ? (INT_NEGATE_OVERFLOW (_GL_INT_CONVERT (a, tmin)) && (a) == -1 \ ? (EXPR_SIGNED (b) ? 0 < (b) + (tmin) : -1 - (tmin) < (b) - 1) \ : (tmin) / (a) < (b)) \ : (tmax) / (b) < (a))) /* The following macros compute A + B, A - B, and A * B, respectively. If no overflow occurs, they set *R to the result and return 1; otherwise, they return 0 and may modify *R. Example usage: long int result; if (INT_ADD_OK (a, b, &result)) printf ("result is %ld\n", result); else printf ("overflow\n"); A, B, and *R should be integers; they need not be the same type, and they need not be all signed or all unsigned. These macros work correctly on all known practical hosts, and do not rely on undefined behavior due to signed arithmetic overflow. These macros are not constant expressions. These macros may evaluate their arguments zero or multiple times, so the arguments should not have side effects. These macros are tuned for B being a constant. */ #define INT_ADD_OK(a, b, r) ! INT_ADD_WRAPV (a, b, r) #define INT_SUBTRACT_OK(a, b, r) ! INT_SUBTRACT_WRAPV (a, b, r) #define INT_MULTIPLY_OK(a, b, r) ! INT_MULTIPLY_WRAPV (a, b, r) #endif /* _GL_INTPROPS_H */ libffcall-2.4/gnulib-lib/basename-lgpl.h0000664000000000000000000000532414057155505015105 00000000000000/* Extract the last component (base name) of a file name. Copyright (C) 1998, 2001, 2003-2006, 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _BASENAME_LGPL_H #define _BASENAME_LGPL_H #include #ifndef DOUBLE_SLASH_IS_DISTINCT_ROOT # define DOUBLE_SLASH_IS_DISTINCT_ROOT 0 #endif #ifdef __cplusplus extern "C" { #endif /* Return the address of the last file name component of FILENAME. If FILENAME has some trailing slash(es), they are considered to be part of the last component. If FILENAME has no relative file name components because it is a file system root, return the empty string. Examples: FILENAME RESULT "foo.c" "foo.c" "foo/bar.c" "bar.c" "/foo/bar.c" "bar.c" "foo/bar/" "bar/" "foo/bar//" "bar//" "/" "" "//" "" "" "" The return value is a tail of the given FILENAME; do NOT free() it! */ /* This function was traditionally called 'basename', but we avoid this function name because * Various platforms have different functions in their libc. In particular, the glibc basename(), defined in , does not consider trailing slashes to be part of the component: FILENAME RESULT "foo/bar/" "" "foo/bar//" "" * The 'basename' command eliminates trailing slashes and for a root produces a non-empty result: FILENAME RESULT "foo/bar/" "bar" "foo/bar//" "bar" "/" "/" "//" "/" */ extern char *last_component (char const *filename) _GL_ATTRIBUTE_PURE; /* Return the length of the basename FILENAME. Typically FILENAME is the value returned by base_name or last_component. Act like strlen (FILENAME), except omit all trailing slashes. */ extern size_t base_len (char const *filename) _GL_ATTRIBUTE_PURE; #ifdef __cplusplus } /* extern "C" */ #endif #endif /* _BASENAME_LGPL_H */ libffcall-2.4/gnulib-lib/fd-hook.c0000664000000000000000000000702514057155505013720 00000000000000/* Hook for making file descriptor functions close(), ioctl() extensible. Copyright (C) 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2009. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "fd-hook.h" #include /* Currently, this entire code is only needed for the handling of sockets on native Windows platforms. */ #if WINDOWS_SOCKETS /* The first and last link in the doubly linked list. Initially the list is empty. */ static struct fd_hook anchor = { &anchor, &anchor, NULL, NULL }; int execute_close_hooks (const struct fd_hook *remaining_list, gl_close_fn primary, int fd) { if (remaining_list == &anchor) /* End of list reached. */ return primary (fd); else return remaining_list->private_close_fn (remaining_list->private_next, primary, fd); } int execute_all_close_hooks (gl_close_fn primary, int fd) { return execute_close_hooks (anchor.private_next, primary, fd); } int execute_ioctl_hooks (const struct fd_hook *remaining_list, gl_ioctl_fn primary, int fd, int request, void *arg) { if (remaining_list == &anchor) /* End of list reached. */ return primary (fd, request, arg); else return remaining_list->private_ioctl_fn (remaining_list->private_next, primary, fd, request, arg); } int execute_all_ioctl_hooks (gl_ioctl_fn primary, int fd, int request, void *arg) { return execute_ioctl_hooks (anchor.private_next, primary, fd, request, arg); } void register_fd_hook (close_hook_fn close_hook, ioctl_hook_fn ioctl_hook, struct fd_hook *link) { if (close_hook == NULL) close_hook = execute_close_hooks; if (ioctl_hook == NULL) ioctl_hook = execute_ioctl_hooks; if (link->private_next == NULL && link->private_prev == NULL) { /* Add the link to the doubly linked list. */ link->private_next = anchor.private_next; link->private_prev = &anchor; link->private_close_fn = close_hook; link->private_ioctl_fn = ioctl_hook; anchor.private_next->private_prev = link; anchor.private_next = link; } else { /* The link is already in use. */ if (link->private_close_fn != close_hook || link->private_ioctl_fn != ioctl_hook) abort (); } } void unregister_fd_hook (struct fd_hook *link) { struct fd_hook *next = link->private_next; struct fd_hook *prev = link->private_prev; if (next != NULL && prev != NULL) { /* The link is in use. Remove it from the doubly linked list. */ prev->private_next = next; next->private_prev = prev; /* Clear the link, to mark it unused. */ link->private_next = NULL; link->private_prev = NULL; link->private_close_fn = NULL; link->private_ioctl_fn = NULL; } } #endif libffcall-2.4/gnulib-lib/gl_anyhash1.h0000664000000000000000000000257314057155505014577 00000000000000/* Hash table for sequential list, set, and map data type. Copyright (C) 2006, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Common code of gl_linkedhash_list.c, gl_avltreehash_list.c, gl_rbtreehash_list.c, gl_linkedhash_set.c, gl_hash_set.c, gl_linkedhash_map.c, gl_hash_map.c. */ /* Hash table entry. */ struct gl_hash_entry { struct gl_hash_entry *hash_next; /* chain of entries in same bucket */ size_t hashcode; /* cache of the hash code of - the key (for map data type) or - the value (for list, set data types) */ }; typedef struct gl_hash_entry * gl_hash_entry_t; libffcall-2.4/gnulib-lib/attribute.h0000664000000000000000000002042714057155505014402 00000000000000/* ATTRIBUTE_* macros for using attributes in GCC and similar compilers Copyright 2020-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Paul Eggert. */ /* Provide public ATTRIBUTE_* names for the private _GL_ATTRIBUTE_* macros used within Gnulib. */ /* These attributes can be placed in two ways: - At the start of a declaration (i.e. even before storage-class specifiers!); then they apply to all entities that are declared by the declaration. - Immediately after the name of an entity being declared by the declaration; then they apply to that entity only. */ #ifndef _GL_ATTRIBUTE_H #define _GL_ATTRIBUTE_H /* This file defines two types of attributes: * C2X standard attributes. These have macro names that do not begin with 'ATTRIBUTE_'. * Selected GCC attributes; see: https://gcc.gnu.org/onlinedocs/gcc/Common-Function-Attributes.html https://gcc.gnu.org/onlinedocs/gcc/Common-Variable-Attributes.html https://gcc.gnu.org/onlinedocs/gcc/Common-Type-Attributes.html These names begin with 'ATTRIBUTE_' to avoid name clashes. */ /* =============== Attributes for specific kinds of functions =============== */ /* Attributes for functions that should not be used. */ /* Warn if the entity is used. */ /* Applies to: - function, variable, - struct, union, struct/union member, - enumeration, enumeration item, - typedef, in C++ also: namespace, class, template specialization. */ #define DEPRECATED _GL_ATTRIBUTE_DEPRECATED /* If a function call is not optimized way, warn with MSG. */ /* Applies to: functions. */ #define ATTRIBUTE_WARNING(msg) _GL_ATTRIBUTE_WARNING (msg) /* If a function call is not optimized way, report an error with MSG. */ /* Applies to: functions. */ #define ATTRIBUTE_ERROR(msg) _GL_ATTRIBUTE_ERROR (msg) /* Attributes for memory-allocating functions. */ /* The function returns a pointer to freshly allocated memory. */ /* Applies to: functions. */ #define ATTRIBUTE_MALLOC _GL_ATTRIBUTE_MALLOC /* ATTRIBUTE_ALLOC_SIZE ((N)) - The Nth argument of the function is the size of the returned memory block. ATTRIBUTE_ALLOC_SIZE ((M, N)) - Multiply the Mth and Nth arguments to determine the size of the returned memory block. */ /* Applies to: function, pointer to function, function types. */ #define ATTRIBUTE_ALLOC_SIZE(args) _GL_ATTRIBUTE_ALLOC_SIZE (args) /* Attributes for variadic functions. */ /* The variadic function expects a trailing NULL argument. ATTRIBUTE_SENTINEL () - The last argument is NULL (requires C99). ATTRIBUTE_SENTINEL ((N)) - The (N+1)st argument from the end is NULL. */ /* Applies to: functions. */ #define ATTRIBUTE_SENTINEL(pos) _GL_ATTRIBUTE_SENTINEL (pos) /* ================== Attributes for compiler diagnostics ================== */ /* Attributes that help the compiler diagnose programmer mistakes. Some of them may also help for some compiler optimizations. */ /* ATTRIBUTE_FORMAT ((ARCHETYPE, STRING-INDEX, FIRST-TO-CHECK)) - The STRING-INDEXth function argument is a format string of style ARCHETYPE, which is one of: printf, gnu_printf scanf, gnu_scanf, strftime, gnu_strftime, strfmon, or the same thing prefixed and suffixed with '__'. If FIRST-TO-CHECK is not 0, arguments starting at FIRST-TO_CHECK are suitable for the format string. */ /* Applies to: functions. */ #define ATTRIBUTE_FORMAT(spec) _GL_ATTRIBUTE_FORMAT (spec) /* ATTRIBUTE_NONNULL ((N1, N2,...)) - Arguments N1, N2,... must not be NULL. ATTRIBUTE_NONNULL () - All pointer arguments must not be null. */ /* Applies to: functions. */ #define ATTRIBUTE_NONNULL(args) _GL_ATTRIBUTE_NONNULL (args) /* The function's return value is a non-NULL pointer. */ /* Applies to: functions. */ #define ATTRIBUTE_RETURNS_NONNULL _GL_ATTRIBUTE_RETURNS_NONNULL /* Warn if the caller does not use the return value, unless the caller uses something like ignore_value. */ /* Applies to: function, enumeration, class. */ #define NODISCARD _GL_ATTRIBUTE_NODISCARD /* Attributes that disable false alarms when the compiler diagnoses programmer "mistakes". */ /* Do not warn if the entity is not used. */ /* Applies to: - function, variable, - struct, union, struct/union member, - enumeration, enumeration item, - typedef, in C++ also: class. */ #define MAYBE_UNUSED _GL_ATTRIBUTE_MAYBE_UNUSED /* The contents of a character array is not meant to be NUL-terminated. */ /* Applies to: struct/union members and variables that are arrays of element type '[[un]signed] char'. */ #define ATTRIBUTE_NONSTRING _GL_ATTRIBUTE_NONSTRING /* Do not warn if control flow falls through to the immediately following 'case' or 'default' label. */ /* Applies to: Empty statement (;), inside a 'switch' statement. */ #define FALLTHROUGH _GL_ATTRIBUTE_FALLTHROUGH /* ================== Attributes for debugging information ================== */ /* Attributes regarding debugging information emitted by the compiler. */ /* Omit the function from stack traces when debugging. */ /* Applies to: function. */ #define ATTRIBUTE_ARTIFICIAL _GL_ATTRIBUTE_ARTIFICIAL /* Make the entity visible to debuggers etc., even with '-fwhole-program'. */ /* Applies to: functions, variables. */ #define ATTRIBUTE_EXTERNALLY_VISIBLE _GL_ATTRIBUTE_EXTERNALLY_VISIBLE /* ========== Attributes that mainly direct compiler optimizations ========== */ /* The function does not throw exceptions. */ /* Applies to: functions. */ #define ATTRIBUTE_NOTHROW _GL_ATTRIBUTE_NOTHROW /* Do not inline the function. */ /* Applies to: functions. */ #define ATTRIBUTE_NOINLINE _GL_ATTRIBUTE_NOINLINE /* Always inline the function, and report an error if the compiler cannot inline. */ /* Applies to: function. */ #define ATTRIBUTE_ALWAYS_INLINE _GL_ATTRIBUTE_ALWAYS_INLINE /* It is OK for a compiler to omit duplicate calls with the same arguments. This attribute is safe for a function that neither depends on nor affects observable state, and always returns exactly once - e.g., does not loop forever, and does not call longjmp. (This attribute is stricter than ATTRIBUTE_PURE.) */ /* Applies to: functions. */ #define ATTRIBUTE_CONST _GL_ATTRIBUTE_CONST /* It is OK for a compiler to omit duplicate calls with the same arguments if observable state is not changed between calls. This attribute is safe for a function that does not affect observable state, and always returns exactly once. (This attribute is looser than ATTRIBUTE_CONST.) */ /* Applies to: functions. */ #define ATTRIBUTE_PURE _GL_ATTRIBUTE_PURE /* The function is rarely executed. */ /* Applies to: functions. */ #define ATTRIBUTE_COLD _GL_ATTRIBUTE_COLD /* If called from some other compilation unit, the function executes code from that unit only by return or by exception handling, letting the compiler optimize that unit more aggressively. */ /* Applies to: functions. */ #define ATTRIBUTE_LEAF _GL_ATTRIBUTE_LEAF /* For struct members: The member has the smallest possible alignment. For struct, union, class: All members have the smallest possible alignment, minimizing the memory required. */ /* Applies to: struct members, struct, union, in C++ also: class. */ #define ATTRIBUTE_PACKED _GL_ATTRIBUTE_PACKED /* ================ Attributes that make invalid code valid ================ */ /* Attributes that prevent fatal compiler optimizations for code that is not fully ISO C compliant. */ /* Pointers to the type may point to the same storage as pointers to other types, thus disabling strict aliasing optimization. */ /* Applies to: types. */ #define ATTRIBUTE_MAY_ALIAS _GL_ATTRIBUTE_MAY_ALIAS #endif /* _GL_ATTRIBUTE_H */ libffcall-2.4/gnulib-lib/msvc-inval.h0000664000000000000000000002122614057155505014454 00000000000000/* Invalid parameter handler for MSVC runtime libraries. Copyright (C) 2011-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _MSVC_INVAL_H #define _MSVC_INVAL_H /* With MSVC runtime libraries with the "invalid parameter handler" concept, functions like fprintf(), dup2(), or close() crash when the caller passes an invalid argument. But POSIX wants error codes (such as EINVAL or EBADF) instead. This file defines macros that turn such an invalid parameter notification into a non-local exit. An error code can then be produced at the target of this exit. You can thus write code like TRY_MSVC_INVAL { } CATCH_MSVC_INVAL { } DONE_MSVC_INVAL; This entire block expands to a single statement. The handling of invalid parameters can be done in three ways: * The default way, which is reasonable for programs (not libraries): AC_DEFINE([MSVC_INVALID_PARAMETER_HANDLING], [DEFAULT_HANDLING]) * The way for libraries that make "hairy" calls (like close(-1), or fclose(fp) where fileno(fp) is closed, or simply getdtablesize()): AC_DEFINE([MSVC_INVALID_PARAMETER_HANDLING], [HAIRY_LIBRARY_HANDLING]) * The way for libraries that make no "hairy" calls: AC_DEFINE([MSVC_INVALID_PARAMETER_HANDLING], [SANE_LIBRARY_HANDLING]) */ #define DEFAULT_HANDLING 0 #define HAIRY_LIBRARY_HANDLING 1 #define SANE_LIBRARY_HANDLING 2 #if HAVE_MSVC_INVALID_PARAMETER_HANDLER \ && !(MSVC_INVALID_PARAMETER_HANDLING == SANE_LIBRARY_HANDLING) /* A native Windows platform with the "invalid parameter handler" concept, and either DEFAULT_HANDLING or HAIRY_LIBRARY_HANDLING. */ # if MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING /* Default handling. */ # ifdef __cplusplus extern "C" { # endif /* Ensure that the invalid parameter handler in installed that just returns. Because we assume no other part of the program installs a different invalid parameter handler, this solution is multithread-safe. */ extern void gl_msvc_inval_ensure_handler (void); # ifdef __cplusplus } # endif # define TRY_MSVC_INVAL \ do \ { \ gl_msvc_inval_ensure_handler (); \ if (1) # define CATCH_MSVC_INVAL \ else # define DONE_MSVC_INVAL \ } \ while (0) # else /* Handling for hairy libraries. */ # include /* Gnulib can define its own status codes, as described in the page "Raising Software Exceptions" on microsoft.com . Our status codes are composed of - 0xE0000000, mandatory for all user-defined status codes, - 0x474E550, a API identifier ("GNU"), - 0, 1, 2, ..., used to distinguish different status codes from the same API. */ # define STATUS_GNULIB_INVALID_PARAMETER (0xE0000000 + 0x474E550 + 0) # if defined _MSC_VER /* A compiler that supports __try/__except, as described in the page "try-except statement" on microsoft.com . With __try/__except, we can use the multithread-safe exception handling. */ # ifdef __cplusplus extern "C" { # endif /* Ensure that the invalid parameter handler in installed that raises a software exception with code STATUS_GNULIB_INVALID_PARAMETER. Because we assume no other part of the program installs a different invalid parameter handler, this solution is multithread-safe. */ extern void gl_msvc_inval_ensure_handler (void); # ifdef __cplusplus } # endif # define TRY_MSVC_INVAL \ do \ { \ gl_msvc_inval_ensure_handler (); \ __try # define CATCH_MSVC_INVAL \ __except (GetExceptionCode () == STATUS_GNULIB_INVALID_PARAMETER \ ? EXCEPTION_EXECUTE_HANDLER \ : EXCEPTION_CONTINUE_SEARCH) # define DONE_MSVC_INVAL \ } \ while (0) # else /* Any compiler. We can only use setjmp/longjmp. */ # include # ifdef __cplusplus extern "C" { # endif struct gl_msvc_inval_per_thread { /* The restart that will resume execution at the code between CATCH_MSVC_INVAL and DONE_MSVC_INVAL. It is enabled only between TRY_MSVC_INVAL and CATCH_MSVC_INVAL. */ jmp_buf restart; /* Tells whether the contents of restart is valid. */ int restart_valid; }; /* Ensure that the invalid parameter handler in installed that passes control to the gl_msvc_inval_restart if it is valid, or raises a software exception with code STATUS_GNULIB_INVALID_PARAMETER otherwise. Because we assume no other part of the program installs a different invalid parameter handler, this solution is multithread-safe. */ extern void gl_msvc_inval_ensure_handler (void); /* Return a pointer to the per-thread data for the current thread. */ extern struct gl_msvc_inval_per_thread *gl_msvc_inval_current (void); # ifdef __cplusplus } # endif # define TRY_MSVC_INVAL \ do \ { \ struct gl_msvc_inval_per_thread *msvc_inval_current; \ gl_msvc_inval_ensure_handler (); \ msvc_inval_current = gl_msvc_inval_current (); \ /* First, initialize gl_msvc_inval_restart. */ \ if (setjmp (msvc_inval_current->restart) == 0) \ { \ /* Then, mark it as valid. */ \ msvc_inval_current->restart_valid = 1; # define CATCH_MSVC_INVAL \ /* Execution completed. \ Mark gl_msvc_inval_restart as invalid. */ \ msvc_inval_current->restart_valid = 0; \ } \ else \ { \ /* Execution triggered an invalid parameter notification. \ Mark gl_msvc_inval_restart as invalid. */ \ msvc_inval_current->restart_valid = 0; # define DONE_MSVC_INVAL \ } \ } \ while (0) # endif # endif #else /* A platform that does not need to the invalid parameter handler, or when SANE_LIBRARY_HANDLING is desired. */ /* The braces here avoid GCC warnings like "warning: suggest explicit braces to avoid ambiguous 'else'". */ # define TRY_MSVC_INVAL \ do \ { \ if (1) # define CATCH_MSVC_INVAL \ else # define DONE_MSVC_INVAL \ } \ while (0) #endif #endif /* _MSVC_INVAL_H */ libffcall-2.4/gnulib-lib/errno.in.h0000664000000000000000000001644714057155505014140 00000000000000/* A POSIX-like . Copyright (C) 2008-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _@GUARD_PREFIX@_ERRNO_H #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_ERRNO_H@ #ifndef _@GUARD_PREFIX@_ERRNO_H #define _@GUARD_PREFIX@_ERRNO_H /* On native Windows platforms, many macros are not defined. */ # if defined _WIN32 && ! defined __CYGWIN__ /* These are the same values as defined by MSVC 10, for interoperability. */ # ifndef ENOMSG # define ENOMSG 122 # define GNULIB_defined_ENOMSG 1 # endif # ifndef EIDRM # define EIDRM 111 # define GNULIB_defined_EIDRM 1 # endif # ifndef ENOLINK # define ENOLINK 121 # define GNULIB_defined_ENOLINK 1 # endif # ifndef EPROTO # define EPROTO 134 # define GNULIB_defined_EPROTO 1 # endif # ifndef EBADMSG # define EBADMSG 104 # define GNULIB_defined_EBADMSG 1 # endif # ifndef EOVERFLOW # define EOVERFLOW 132 # define GNULIB_defined_EOVERFLOW 1 # endif # ifndef ENOTSUP # define ENOTSUP 129 # define GNULIB_defined_ENOTSUP 1 # endif # ifndef ENETRESET # define ENETRESET 117 # define GNULIB_defined_ENETRESET 1 # endif # ifndef ECONNABORTED # define ECONNABORTED 106 # define GNULIB_defined_ECONNABORTED 1 # endif # ifndef ECANCELED # define ECANCELED 105 # define GNULIB_defined_ECANCELED 1 # endif # ifndef EOWNERDEAD # define EOWNERDEAD 133 # define GNULIB_defined_EOWNERDEAD 1 # endif # ifndef ENOTRECOVERABLE # define ENOTRECOVERABLE 127 # define GNULIB_defined_ENOTRECOVERABLE 1 # endif # ifndef EINPROGRESS # define EINPROGRESS 112 # define EALREADY 103 # define ENOTSOCK 128 # define EDESTADDRREQ 109 # define EMSGSIZE 115 # define EPROTOTYPE 136 # define ENOPROTOOPT 123 # define EPROTONOSUPPORT 135 # define EOPNOTSUPP 130 # define EAFNOSUPPORT 102 # define EADDRINUSE 100 # define EADDRNOTAVAIL 101 # define ENETDOWN 116 # define ENETUNREACH 118 # define ECONNRESET 108 # define ENOBUFS 119 # define EISCONN 113 # define ENOTCONN 126 # define ETIMEDOUT 138 # define ECONNREFUSED 107 # define ELOOP 114 # define EHOSTUNREACH 110 # define EWOULDBLOCK 140 # define GNULIB_defined_ESOCK 1 # endif # ifndef ETXTBSY # define ETXTBSY 139 # define ENODATA 120 /* not required by POSIX */ # define ENOSR 124 /* not required by POSIX */ # define ENOSTR 125 /* not required by POSIX */ # define ETIME 137 /* not required by POSIX */ # define EOTHER 131 /* not required by POSIX */ # define GNULIB_defined_ESTREAMS 1 # endif /* These are intentionally the same values as the WSA* error numbers, defined in . */ # define ESOCKTNOSUPPORT 10044 /* not required by POSIX */ # define EPFNOSUPPORT 10046 /* not required by POSIX */ # define ESHUTDOWN 10058 /* not required by POSIX */ # define ETOOMANYREFS 10059 /* not required by POSIX */ # define EHOSTDOWN 10064 /* not required by POSIX */ # define EPROCLIM 10067 /* not required by POSIX */ # define EUSERS 10068 /* not required by POSIX */ # define EDQUOT 10069 # define ESTALE 10070 # define EREMOTE 10071 /* not required by POSIX */ # define GNULIB_defined_EWINSOCK 1 # endif /* On OSF/1 5.1, when _XOPEN_SOURCE_EXTENDED is not defined, the macros EMULTIHOP, ENOLINK, EOVERFLOW are not defined. */ # if @EMULTIHOP_HIDDEN@ # define EMULTIHOP @EMULTIHOP_VALUE@ # define GNULIB_defined_EMULTIHOP 1 # endif # if @ENOLINK_HIDDEN@ # define ENOLINK @ENOLINK_VALUE@ # define GNULIB_defined_ENOLINK 1 # endif # if @EOVERFLOW_HIDDEN@ # define EOVERFLOW @EOVERFLOW_VALUE@ # define GNULIB_defined_EOVERFLOW 1 # endif /* On OpenBSD 4.0 and on native Windows, the macros ENOMSG, EIDRM, ENOLINK, EPROTO, EMULTIHOP, EBADMSG, EOVERFLOW, ENOTSUP, ECANCELED are not defined. Likewise, on NonStop Kernel, EDQUOT is not defined. Define them here. Values >= 2000 seem safe to use: Solaris ESTALE = 151, HP-UX EWOULDBLOCK = 246, IRIX EDQUOT = 1133. Note: When one of these systems defines some of these macros some day, binaries will have to be recompiled so that they recognizes the new errno values from the system. */ # ifndef ENOMSG # define ENOMSG 2000 # define GNULIB_defined_ENOMSG 1 # endif # ifndef EIDRM # define EIDRM 2001 # define GNULIB_defined_EIDRM 1 # endif # ifndef ENOLINK # define ENOLINK 2002 # define GNULIB_defined_ENOLINK 1 # endif # ifndef EPROTO # define EPROTO 2003 # define GNULIB_defined_EPROTO 1 # endif # ifndef EMULTIHOP # define EMULTIHOP 2004 # define GNULIB_defined_EMULTIHOP 1 # endif # ifndef EBADMSG # define EBADMSG 2005 # define GNULIB_defined_EBADMSG 1 # endif # ifndef EOVERFLOW # define EOVERFLOW 2006 # define GNULIB_defined_EOVERFLOW 1 # endif # ifndef ENOTSUP # define ENOTSUP 2007 # define GNULIB_defined_ENOTSUP 1 # endif # ifndef ENETRESET # define ENETRESET 2011 # define GNULIB_defined_ENETRESET 1 # endif # ifndef ECONNABORTED # define ECONNABORTED 2012 # define GNULIB_defined_ECONNABORTED 1 # endif # ifndef ESTALE # define ESTALE 2009 # define GNULIB_defined_ESTALE 1 # endif # ifndef EDQUOT # define EDQUOT 2010 # define GNULIB_defined_EDQUOT 1 # endif # ifndef ECANCELED # define ECANCELED 2008 # define GNULIB_defined_ECANCELED 1 # endif /* On many platforms, the macros EOWNERDEAD and ENOTRECOVERABLE are not defined. */ # ifndef EOWNERDEAD # if defined __sun /* Use the same values as defined for Solaris >= 8, for interoperability. */ # define EOWNERDEAD 58 # define ENOTRECOVERABLE 59 # elif defined _WIN32 && ! defined __CYGWIN__ /* We have a conflict here: pthreads-win32 defines these values differently than MSVC 10. It's hairy to decide which one to use. */ # if defined __MINGW32__ && !defined USE_WINDOWS_THREADS /* Use the same values as defined by pthreads-win32, for interoperability. */ # define EOWNERDEAD 43 # define ENOTRECOVERABLE 44 # else /* Use the same values as defined by MSVC 10, for interoperability. */ # define EOWNERDEAD 133 # define ENOTRECOVERABLE 127 # endif # else # define EOWNERDEAD 2013 # define ENOTRECOVERABLE 2014 # endif # define GNULIB_defined_EOWNERDEAD 1 # define GNULIB_defined_ENOTRECOVERABLE 1 # endif # ifndef EILSEQ # define EILSEQ 2015 # define GNULIB_defined_EILSEQ 1 # endif #endif /* _@GUARD_PREFIX@_ERRNO_H */ #endif /* _@GUARD_PREFIX@_ERRNO_H */ libffcall-2.4/gnulib-lib/malloca.c0000664000000000000000000000660614057155505014005 00000000000000/* Safe automatic memory allocation. Copyright (C) 2003, 2006-2007, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2003, 2018. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #define _GL_USE_STDLIB_ALLOC 1 #include /* Specification. */ #include "malloca.h" #include "idx.h" #include "intprops.h" #include "verify.h" /* The speed critical point in this file is freea() applied to an alloca() result: it must be fast, to match the speed of alloca(). The speed of mmalloca() and freea() in the other case are not critical, because they are only invoked for big memory sizes. Here we use a bit in the address as an indicator, an idea by Ondřej Bílka. malloca() can return three types of pointers: - Pointers ≡ 0 mod 2*sa_alignment_max come from stack allocation. - Pointers ≡ sa_alignment_max mod 2*sa_alignment_max come from heap allocation. - NULL comes from a failed heap allocation. */ /* Type for holding very small pointer differences. */ typedef unsigned char small_t; /* Verify that it is wide enough. */ verify (2 * sa_alignment_max - 1 <= (small_t) -1); void * mmalloca (size_t n) { #if HAVE_ALLOCA /* Allocate one more word, used to determine the address to pass to freea(), and room for the alignment ≡ sa_alignment_max mod 2*sa_alignment_max. */ int plus = sizeof (small_t) + 2 * sa_alignment_max - 1; idx_t nplus; if (!INT_ADD_WRAPV (n, plus, &nplus) && !xalloc_oversized (nplus, 1)) { char *mem = (char *) malloc (nplus); if (mem != NULL) { char *p = (char *)((((uintptr_t)mem + sizeof (small_t) + sa_alignment_max - 1) & ~(uintptr_t)(2 * sa_alignment_max - 1)) + sa_alignment_max); /* Here p >= mem + sizeof (small_t), and p <= mem + sizeof (small_t) + 2 * sa_alignment_max - 1 hence p + n <= mem + nplus. So, the memory range [p, p+n) lies in the allocated memory range [mem, mem + nplus). */ ((small_t *) p)[-1] = p - mem; /* p ≡ sa_alignment_max mod 2*sa_alignment_max. */ return p; } } /* Out of memory. */ return NULL; #else # if !MALLOC_0_IS_NONNULL if (n == 0) n = 1; # endif return malloc (n); #endif } #if HAVE_ALLOCA void freea (void *p) { /* Check argument. */ if ((uintptr_t) p & (sa_alignment_max - 1)) { /* p was not the result of a malloca() call. Invalid argument. */ abort (); } /* Determine whether p was a non-NULL pointer returned by mmalloca(). */ if ((uintptr_t) p & sa_alignment_max) { void *mem = (char *) p - ((small_t *) p)[-1]; free (mem); } } #endif /* * Hey Emacs! * Local Variables: * coding: utf-8 * End: */ libffcall-2.4/gnulib-lib/strerror-override.h0000664000000000000000000000376514057155505016104 00000000000000/* strerror-override.h --- POSIX compatible system error routine Copyright (C) 2010-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_STRERROR_OVERRIDE_H # define _GL_STRERROR_OVERRIDE_H # include # include /* Reasonable buffer size that should never trigger ERANGE; if this proves too small, we intentionally abort(), to remind us to fix this value. */ # define STACKBUF_LEN 256 /* If ERRNUM maps to an errno value defined by gnulib, return a string describing the error. Otherwise return NULL. */ # if REPLACE_STRERROR_0 \ || GNULIB_defined_ESOCK \ || GNULIB_defined_ESTREAMS \ || GNULIB_defined_EWINSOCK \ || GNULIB_defined_ENOMSG \ || GNULIB_defined_EIDRM \ || GNULIB_defined_ENOLINK \ || GNULIB_defined_EPROTO \ || GNULIB_defined_EMULTIHOP \ || GNULIB_defined_EBADMSG \ || GNULIB_defined_EOVERFLOW \ || GNULIB_defined_ENOTSUP \ || GNULIB_defined_ENETRESET \ || GNULIB_defined_ECONNABORTED \ || GNULIB_defined_ESTALE \ || GNULIB_defined_EDQUOT \ || GNULIB_defined_ECANCELED \ || GNULIB_defined_EOWNERDEAD \ || GNULIB_defined_ENOTRECOVERABLE \ || GNULIB_defined_EILSEQ extern const char *strerror_override (int errnum) _GL_ATTRIBUTE_CONST; # else # define strerror_override(ignored) NULL # endif #endif /* _GL_STRERROR_OVERRIDE_H */ libffcall-2.4/gnulib-lib/msvc-inval.c0000664000000000000000000000755314057155505014456 00000000000000/* Invalid parameter handler for MSVC runtime libraries. Copyright (C) 2011-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include /* Specification. */ #include "msvc-inval.h" #if HAVE_MSVC_INVALID_PARAMETER_HANDLER \ && !(MSVC_INVALID_PARAMETER_HANDLING == SANE_LIBRARY_HANDLING) /* Get _invalid_parameter_handler type and _set_invalid_parameter_handler declaration. */ # include # if MSVC_INVALID_PARAMETER_HANDLING == DEFAULT_HANDLING static void __cdecl gl_msvc_invalid_parameter_handler (const wchar_t *expression, const wchar_t *function, const wchar_t *file, unsigned int line, uintptr_t dummy) { } # else /* Get declarations of the native Windows API functions. */ # define WIN32_LEAN_AND_MEAN # include # if defined _MSC_VER static void __cdecl gl_msvc_invalid_parameter_handler (const wchar_t *expression, const wchar_t *function, const wchar_t *file, unsigned int line, uintptr_t dummy) { RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL); } # else /* An index to thread-local storage. */ static DWORD tls_index; static int tls_initialized /* = 0 */; /* Used as a fallback only. */ static struct gl_msvc_inval_per_thread not_per_thread; struct gl_msvc_inval_per_thread * gl_msvc_inval_current (void) { if (!tls_initialized) { tls_index = TlsAlloc (); tls_initialized = 1; } if (tls_index == TLS_OUT_OF_INDEXES) /* TlsAlloc had failed. */ return ¬_per_thread; else { struct gl_msvc_inval_per_thread *pointer = (struct gl_msvc_inval_per_thread *) TlsGetValue (tls_index); if (pointer == NULL) { /* First call. Allocate a new 'struct gl_msvc_inval_per_thread'. */ pointer = (struct gl_msvc_inval_per_thread *) malloc (sizeof (struct gl_msvc_inval_per_thread)); if (pointer == NULL) /* Could not allocate memory. Use the global storage. */ pointer = ¬_per_thread; TlsSetValue (tls_index, pointer); } return pointer; } } static void __cdecl gl_msvc_invalid_parameter_handler (const wchar_t *expression, const wchar_t *function, const wchar_t *file, unsigned int line, uintptr_t dummy) { struct gl_msvc_inval_per_thread *current = gl_msvc_inval_current (); if (current->restart_valid) longjmp (current->restart, 1); else /* An invalid parameter notification from outside the gnulib code. Give the caller a chance to intervene. */ RaiseException (STATUS_GNULIB_INVALID_PARAMETER, 0, 0, NULL); } # endif # endif static int gl_msvc_inval_initialized /* = 0 */; void gl_msvc_inval_ensure_handler (void) { if (gl_msvc_inval_initialized == 0) { _set_invalid_parameter_handler (gl_msvc_invalid_parameter_handler); gl_msvc_inval_initialized = 1; } } #endif libffcall-2.4/gnulib-lib/c++defs.h0000664000000000000000000003557714057155505013625 00000000000000/* C++ compatible function declaration macros. Copyright (C) 2010-2021 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_CXXDEFS_H #define _GL_CXXDEFS_H /* Begin/end the GNULIB_NAMESPACE namespace. */ #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_BEGIN_NAMESPACE namespace GNULIB_NAMESPACE { # define _GL_END_NAMESPACE } #else # define _GL_BEGIN_NAMESPACE # define _GL_END_NAMESPACE #endif /* The three most frequent use cases of these macros are: * For providing a substitute for a function that is missing on some platforms, but is declared and works fine on the platforms on which it exists: #if @GNULIB_FOO@ # if !@HAVE_FOO@ _GL_FUNCDECL_SYS (foo, ...); # endif _GL_CXXALIAS_SYS (foo, ...); _GL_CXXALIASWARN (foo); #elif defined GNULIB_POSIXCHECK ... #endif * For providing a replacement for a function that exists on all platforms, but is broken/insufficient and needs to be replaced on some platforms: #if @GNULIB_FOO@ # if @REPLACE_FOO@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef foo # define foo rpl_foo # endif _GL_FUNCDECL_RPL (foo, ...); _GL_CXXALIAS_RPL (foo, ...); # else _GL_CXXALIAS_SYS (foo, ...); # endif _GL_CXXALIASWARN (foo); #elif defined GNULIB_POSIXCHECK ... #endif * For providing a replacement for a function that exists on some platforms but is broken/insufficient and needs to be replaced on some of them and is additionally either missing or undeclared on some other platforms: #if @GNULIB_FOO@ # if @REPLACE_FOO@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef foo # define foo rpl_foo # endif _GL_FUNCDECL_RPL (foo, ...); _GL_CXXALIAS_RPL (foo, ...); # else # if !@HAVE_FOO@ or if !@HAVE_DECL_FOO@ _GL_FUNCDECL_SYS (foo, ...); # endif _GL_CXXALIAS_SYS (foo, ...); # endif _GL_CXXALIASWARN (foo); #elif defined GNULIB_POSIXCHECK ... #endif */ /* _GL_EXTERN_C declaration; performs the declaration with C linkage. */ #if defined __cplusplus # define _GL_EXTERN_C extern "C" #else # define _GL_EXTERN_C extern #endif /* _GL_FUNCDECL_RPL (func, rettype, parameters_and_attributes); declares a replacement function, named rpl_func, with the given prototype, consisting of return type, parameters, and attributes. Example: _GL_FUNCDECL_RPL (open, int, (const char *filename, int flags, ...) _GL_ARG_NONNULL ((1))); */ #define _GL_FUNCDECL_RPL(func,rettype,parameters_and_attributes) \ _GL_FUNCDECL_RPL_1 (rpl_##func, rettype, parameters_and_attributes) #define _GL_FUNCDECL_RPL_1(rpl_func,rettype,parameters_and_attributes) \ _GL_EXTERN_C rettype rpl_func parameters_and_attributes /* _GL_FUNCDECL_SYS (func, rettype, parameters_and_attributes); declares the system function, named func, with the given prototype, consisting of return type, parameters, and attributes. Example: _GL_FUNCDECL_SYS (open, int, (const char *filename, int flags, ...) _GL_ARG_NONNULL ((1))); */ #define _GL_FUNCDECL_SYS(func,rettype,parameters_and_attributes) \ _GL_EXTERN_C rettype func parameters_and_attributes /* _GL_CXXALIAS_RPL (func, rettype, parameters); declares a C++ alias called GNULIB_NAMESPACE::func that redirects to rpl_func, if GNULIB_NAMESPACE is defined. Example: _GL_CXXALIAS_RPL (open, int, (const char *filename, int flags, ...)); Wrapping rpl_func in an object with an inline conversion operator avoids a reference to rpl_func unless GNULIB_NAMESPACE::func is actually used in the program. */ #define _GL_CXXALIAS_RPL(func,rettype,parameters) \ _GL_CXXALIAS_RPL_1 (func, rpl_##func, rettype, parameters) #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_CXXALIAS_RPL_1(func,rpl_func,rettype,parameters) \ namespace GNULIB_NAMESPACE \ { \ static const struct _gl_ ## func ## _wrapper \ { \ typedef rettype (*type) parameters; \ \ inline operator type () const \ { \ return ::rpl_func; \ } \ } func = {}; \ } \ _GL_EXTERN_C int _gl_cxxalias_dummy #else # define _GL_CXXALIAS_RPL_1(func,rpl_func,rettype,parameters) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif /* _GL_CXXALIAS_MDA (func, rettype, parameters); is to be used when func is a Microsoft deprecated alias, on native Windows. It declares a C++ alias called GNULIB_NAMESPACE::func that redirects to _func, if GNULIB_NAMESPACE is defined. Example: _GL_CXXALIAS_MDA (open, int, (const char *filename, int flags, ...)); */ #define _GL_CXXALIAS_MDA(func,rettype,parameters) \ _GL_CXXALIAS_RPL_1 (func, _##func, rettype, parameters) /* _GL_CXXALIAS_RPL_CAST_1 (func, rpl_func, rettype, parameters); is like _GL_CXXALIAS_RPL_1 (func, rpl_func, rettype, parameters); except that the C function rpl_func may have a slightly different declaration. A cast is used to silence the "invalid conversion" error that would otherwise occur. */ #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_CXXALIAS_RPL_CAST_1(func,rpl_func,rettype,parameters) \ namespace GNULIB_NAMESPACE \ { \ static const struct _gl_ ## func ## _wrapper \ { \ typedef rettype (*type) parameters; \ \ inline operator type () const \ { \ return reinterpret_cast(::rpl_func); \ } \ } func = {}; \ } \ _GL_EXTERN_C int _gl_cxxalias_dummy #else # define _GL_CXXALIAS_RPL_CAST_1(func,rpl_func,rettype,parameters) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif /* _GL_CXXALIAS_MDA_CAST (func, rettype, parameters); is like _GL_CXXALIAS_MDA (func, rettype, parameters); except that the C function func may have a slightly different declaration. A cast is used to silence the "invalid conversion" error that would otherwise occur. */ #define _GL_CXXALIAS_MDA_CAST(func,rettype,parameters) \ _GL_CXXALIAS_RPL_CAST_1 (func, _##func, rettype, parameters) /* _GL_CXXALIAS_SYS (func, rettype, parameters); declares a C++ alias called GNULIB_NAMESPACE::func that redirects to the system provided function func, if GNULIB_NAMESPACE is defined. Example: _GL_CXXALIAS_SYS (open, int, (const char *filename, int flags, ...)); Wrapping func in an object with an inline conversion operator avoids a reference to func unless GNULIB_NAMESPACE::func is actually used in the program. */ #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_CXXALIAS_SYS(func,rettype,parameters) \ namespace GNULIB_NAMESPACE \ { \ static const struct _gl_ ## func ## _wrapper \ { \ typedef rettype (*type) parameters; \ \ inline operator type () const \ { \ return ::func; \ } \ } func = {}; \ } \ _GL_EXTERN_C int _gl_cxxalias_dummy #else # define _GL_CXXALIAS_SYS(func,rettype,parameters) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif /* _GL_CXXALIAS_SYS_CAST (func, rettype, parameters); is like _GL_CXXALIAS_SYS (func, rettype, parameters); except that the C function func may have a slightly different declaration. A cast is used to silence the "invalid conversion" error that would otherwise occur. */ #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_CXXALIAS_SYS_CAST(func,rettype,parameters) \ namespace GNULIB_NAMESPACE \ { \ static const struct _gl_ ## func ## _wrapper \ { \ typedef rettype (*type) parameters; \ \ inline operator type () const \ { \ return reinterpret_cast(::func); \ } \ } func = {}; \ } \ _GL_EXTERN_C int _gl_cxxalias_dummy #else # define _GL_CXXALIAS_SYS_CAST(func,rettype,parameters) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif /* _GL_CXXALIAS_SYS_CAST2 (func, rettype, parameters, rettype2, parameters2); is like _GL_CXXALIAS_SYS (func, rettype, parameters); except that the C function is picked among a set of overloaded functions, namely the one with rettype2 and parameters2. Two consecutive casts are used to silence the "cannot find a match" and "invalid conversion" errors that would otherwise occur. */ #if defined __cplusplus && defined GNULIB_NAMESPACE /* The outer cast must be a reinterpret_cast. The inner cast: When the function is defined as a set of overloaded functions, it works as a static_cast<>, choosing the designated variant. When the function is defined as a single variant, it works as a reinterpret_cast<>. The parenthesized cast syntax works both ways. */ # define _GL_CXXALIAS_SYS_CAST2(func,rettype,parameters,rettype2,parameters2) \ namespace GNULIB_NAMESPACE \ { \ static const struct _gl_ ## func ## _wrapper \ { \ typedef rettype (*type) parameters; \ \ inline operator type () const \ { \ return reinterpret_cast((rettype2 (*) parameters2)(::func)); \ } \ } func = {}; \ } \ _GL_EXTERN_C int _gl_cxxalias_dummy #else # define _GL_CXXALIAS_SYS_CAST2(func,rettype,parameters,rettype2,parameters2) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif /* _GL_CXXALIASWARN (func); causes a warning to be emitted when ::func is used but not when GNULIB_NAMESPACE::func is used. func must be defined without overloaded variants. */ #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_CXXALIASWARN(func) \ _GL_CXXALIASWARN_1 (func, GNULIB_NAMESPACE) # define _GL_CXXALIASWARN_1(func,namespace) \ _GL_CXXALIASWARN_2 (func, namespace) /* To work around GCC bug , we enable the warning only when not optimizing. */ # if !(defined __GNUC__ && !defined __clang__ && __OPTIMIZE__) # define _GL_CXXALIASWARN_2(func,namespace) \ _GL_WARN_ON_USE (func, \ "The symbol ::" #func " refers to the system function. " \ "Use " #namespace "::" #func " instead.") # elif __GNUC__ >= 3 && GNULIB_STRICT_CHECKING # define _GL_CXXALIASWARN_2(func,namespace) \ extern __typeof__ (func) func # else # define _GL_CXXALIASWARN_2(func,namespace) \ _GL_EXTERN_C int _gl_cxxalias_dummy # endif #else # define _GL_CXXALIASWARN(func) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif /* _GL_CXXALIASWARN1 (func, rettype, parameters_and_attributes); causes a warning to be emitted when the given overloaded variant of ::func is used but not when GNULIB_NAMESPACE::func is used. */ #if defined __cplusplus && defined GNULIB_NAMESPACE # define _GL_CXXALIASWARN1(func,rettype,parameters_and_attributes) \ _GL_CXXALIASWARN1_1 (func, rettype, parameters_and_attributes, \ GNULIB_NAMESPACE) # define _GL_CXXALIASWARN1_1(func,rettype,parameters_and_attributes,namespace) \ _GL_CXXALIASWARN1_2 (func, rettype, parameters_and_attributes, namespace) /* To work around GCC bug , we enable the warning only when not optimizing. */ # if !(defined __GNUC__ && !defined __clang__ && __OPTIMIZE__) # define _GL_CXXALIASWARN1_2(func,rettype,parameters_and_attributes,namespace) \ _GL_WARN_ON_USE_CXX (func, rettype, rettype, parameters_and_attributes, \ "The symbol ::" #func " refers to the system function. " \ "Use " #namespace "::" #func " instead.") # else # define _GL_CXXALIASWARN1_2(func,rettype,parameters_and_attributes,namespace) \ _GL_EXTERN_C int _gl_cxxalias_dummy # endif #else # define _GL_CXXALIASWARN1(func,rettype,parameters_and_attributes) \ _GL_EXTERN_C int _gl_cxxalias_dummy #endif #endif /* _GL_CXXDEFS_H */ libffcall-2.4/gnulib-lib/signal.in.h0000664000000000000000000003630314057155505014261 00000000000000/* A GNU-like . Copyright (C) 2006-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined __need_sig_atomic_t || defined __need_sigset_t || defined _GL_ALREADY_INCLUDING_SIGNAL_H || (defined _SIGNAL_H && !defined __SIZEOF_PTHREAD_MUTEX_T) /* Special invocation convention: - Inside glibc header files. - On glibc systems we have a sequence of nested includes -> -> . In this situation, the functions are not yet declared, therefore we cannot provide the C++ aliases. - On glibc systems with GCC 4.3 we have a sequence of nested includes -> -> -> . In this situation, some of the functions are not yet declared, therefore we cannot provide the C++ aliases. */ # @INCLUDE_NEXT@ @NEXT_SIGNAL_H@ #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_SIGNAL_H #define _GL_ALREADY_INCLUDING_SIGNAL_H /* Define pid_t, uid_t. Also, mingw defines sigset_t not in , but in . On Solaris 10, includes , which eventually includes us; so include now, before the second inclusion guard. */ #include /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_SIGNAL_H@ #undef _GL_ALREADY_INCLUDING_SIGNAL_H #ifndef _@GUARD_PREFIX@_SIGNAL_H #define _@GUARD_PREFIX@_SIGNAL_H /* Mac OS X 10.3, FreeBSD 6.4, OpenBSD 3.8, OSF/1 4.0, Solaris 2.6, Android, OS/2 kLIBC declare pthread_sigmask in , not in . But avoid namespace pollution on glibc systems.*/ #if (@GNULIB_PTHREAD_SIGMASK@ || defined GNULIB_POSIXCHECK) \ && ((defined __APPLE__ && defined __MACH__) \ || defined __FreeBSD__ || defined __OpenBSD__ || defined __osf__ \ || defined __sun || defined __ANDROID__ || defined __KLIBC__) \ && ! defined __GLIBC__ # include #endif /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* On AIX, sig_atomic_t already includes volatile. C99 requires that 'volatile sig_atomic_t' ignore the extra modifier, but C89 did not. Hence, redefine this to a non-volatile type as needed. */ #if ! @HAVE_TYPE_VOLATILE_SIG_ATOMIC_T@ # if !GNULIB_defined_sig_atomic_t typedef int rpl_sig_atomic_t; # undef sig_atomic_t # define sig_atomic_t rpl_sig_atomic_t # define GNULIB_defined_sig_atomic_t 1 # endif #endif /* A set or mask of signals. */ #if !@HAVE_SIGSET_T@ # if !GNULIB_defined_sigset_t typedef unsigned int sigset_t; # define GNULIB_defined_sigset_t 1 # endif #endif /* Define sighandler_t, the type of signal handlers. A GNU extension. */ #if !@HAVE_SIGHANDLER_T@ # ifdef __cplusplus extern "C" { # endif # if !GNULIB_defined_sighandler_t typedef void (*sighandler_t) (int); # define GNULIB_defined_sighandler_t 1 # endif # ifdef __cplusplus } # endif #endif #if @GNULIB_SIGNAL_H_SIGPIPE@ # ifndef SIGPIPE /* Define SIGPIPE to a value that does not overlap with other signals. */ # define SIGPIPE 13 # define GNULIB_defined_SIGPIPE 1 /* To actually use SIGPIPE, you also need the gnulib modules 'sigprocmask', 'write', 'stdio'. */ # endif #endif /* Maximum signal number + 1. */ #ifndef NSIG # if defined __TANDEM # define NSIG 32 # endif #endif #if @GNULIB_PTHREAD_SIGMASK@ # if @REPLACE_PTHREAD_SIGMASK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef pthread_sigmask # define pthread_sigmask rpl_pthread_sigmask # endif _GL_FUNCDECL_RPL (pthread_sigmask, int, (int how, const sigset_t *restrict new_mask, sigset_t *restrict old_mask)); _GL_CXXALIAS_RPL (pthread_sigmask, int, (int how, const sigset_t *restrict new_mask, sigset_t *restrict old_mask)); # else # if !(@HAVE_PTHREAD_SIGMASK@ || defined pthread_sigmask) _GL_FUNCDECL_SYS (pthread_sigmask, int, (int how, const sigset_t *restrict new_mask, sigset_t *restrict old_mask)); # endif _GL_CXXALIAS_SYS (pthread_sigmask, int, (int how, const sigset_t *restrict new_mask, sigset_t *restrict old_mask)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (pthread_sigmask); # endif #elif defined GNULIB_POSIXCHECK # undef pthread_sigmask # if HAVE_RAW_DECL_PTHREAD_SIGMASK _GL_WARN_ON_USE (pthread_sigmask, "pthread_sigmask is not portable - " "use gnulib module pthread_sigmask for portability"); # endif #endif #if @GNULIB_RAISE@ # if @REPLACE_RAISE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef raise # define raise rpl_raise # endif _GL_FUNCDECL_RPL (raise, int, (int sig)); _GL_CXXALIAS_RPL (raise, int, (int sig)); # else # if !@HAVE_RAISE@ _GL_FUNCDECL_SYS (raise, int, (int sig)); # endif _GL_CXXALIAS_SYS (raise, int, (int sig)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (raise); # endif #elif defined GNULIB_POSIXCHECK # undef raise /* Assume raise is always declared. */ _GL_WARN_ON_USE (raise, "raise can crash on native Windows - " "use gnulib module raise for portability"); #endif #if @GNULIB_SIGPROCMASK@ # if !@HAVE_POSIX_SIGNALBLOCKING@ # ifndef GNULIB_defined_signal_blocking # define GNULIB_defined_signal_blocking 1 # endif /* Maximum signal number + 1. */ # ifndef NSIG # define NSIG 32 # endif /* This code supports only 32 signals. */ # if !GNULIB_defined_verify_NSIG_constraint typedef int verify_NSIG_constraint[NSIG <= 32 ? 1 : -1]; # define GNULIB_defined_verify_NSIG_constraint 1 # endif # endif /* When also using extern inline, suppress the use of static inline in standard headers of problematic Apple configurations, as Libc at least through Libc-825.26 (2013-04-09) mishandles it; see, e.g., . Perhaps Apple will fix this some day. */ #if (defined _GL_EXTERN_INLINE_IN_USE && defined __APPLE__ \ && (defined __i386__ || defined __x86_64__)) # undef sigaddset # undef sigdelset # undef sigemptyset # undef sigfillset # undef sigismember #endif /* Test whether a given signal is contained in a signal set. */ # if @HAVE_POSIX_SIGNALBLOCKING@ /* This function is defined as a macro on Mac OS X. */ # if defined __cplusplus && defined GNULIB_NAMESPACE # undef sigismember # endif # else _GL_FUNCDECL_SYS (sigismember, int, (const sigset_t *set, int sig) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (sigismember, int, (const sigset_t *set, int sig)); _GL_CXXALIASWARN (sigismember); /* Initialize a signal set to the empty set. */ # if @HAVE_POSIX_SIGNALBLOCKING@ /* This function is defined as a macro on Mac OS X. */ # if defined __cplusplus && defined GNULIB_NAMESPACE # undef sigemptyset # endif # else _GL_FUNCDECL_SYS (sigemptyset, int, (sigset_t *set) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (sigemptyset, int, (sigset_t *set)); _GL_CXXALIASWARN (sigemptyset); /* Add a signal to a signal set. */ # if @HAVE_POSIX_SIGNALBLOCKING@ /* This function is defined as a macro on Mac OS X. */ # if defined __cplusplus && defined GNULIB_NAMESPACE # undef sigaddset # endif # else _GL_FUNCDECL_SYS (sigaddset, int, (sigset_t *set, int sig) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (sigaddset, int, (sigset_t *set, int sig)); _GL_CXXALIASWARN (sigaddset); /* Remove a signal from a signal set. */ # if @HAVE_POSIX_SIGNALBLOCKING@ /* This function is defined as a macro on Mac OS X. */ # if defined __cplusplus && defined GNULIB_NAMESPACE # undef sigdelset # endif # else _GL_FUNCDECL_SYS (sigdelset, int, (sigset_t *set, int sig) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (sigdelset, int, (sigset_t *set, int sig)); _GL_CXXALIASWARN (sigdelset); /* Fill a signal set with all possible signals. */ # if @HAVE_POSIX_SIGNALBLOCKING@ /* This function is defined as a macro on Mac OS X. */ # if defined __cplusplus && defined GNULIB_NAMESPACE # undef sigfillset # endif # else _GL_FUNCDECL_SYS (sigfillset, int, (sigset_t *set) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (sigfillset, int, (sigset_t *set)); _GL_CXXALIASWARN (sigfillset); /* Return the set of those blocked signals that are pending. */ # if !@HAVE_POSIX_SIGNALBLOCKING@ _GL_FUNCDECL_SYS (sigpending, int, (sigset_t *set) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (sigpending, int, (sigset_t *set)); _GL_CXXALIASWARN (sigpending); /* If OLD_SET is not NULL, put the current set of blocked signals in *OLD_SET. Then, if SET is not NULL, affect the current set of blocked signals by combining it with *SET as indicated in OPERATION. In this implementation, you are not allowed to change a signal handler while the signal is blocked. */ # if !@HAVE_POSIX_SIGNALBLOCKING@ # define SIG_BLOCK 0 /* blocked_set = blocked_set | *set; */ # define SIG_SETMASK 1 /* blocked_set = *set; */ # define SIG_UNBLOCK 2 /* blocked_set = blocked_set & ~*set; */ _GL_FUNCDECL_SYS (sigprocmask, int, (int operation, const sigset_t *restrict set, sigset_t *restrict old_set)); # endif _GL_CXXALIAS_SYS (sigprocmask, int, (int operation, const sigset_t *restrict set, sigset_t *restrict old_set)); _GL_CXXALIASWARN (sigprocmask); /* Install the handler FUNC for signal SIG, and return the previous handler. */ # ifdef __cplusplus extern "C" { # endif # if !GNULIB_defined_function_taking_int_returning_void_t typedef void (*_gl_function_taking_int_returning_void_t) (int); # define GNULIB_defined_function_taking_int_returning_void_t 1 # endif # ifdef __cplusplus } # endif # if !@HAVE_POSIX_SIGNALBLOCKING@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define signal rpl_signal # endif _GL_FUNCDECL_RPL (signal, _gl_function_taking_int_returning_void_t, (int sig, _gl_function_taking_int_returning_void_t func)); _GL_CXXALIAS_RPL (signal, _gl_function_taking_int_returning_void_t, (int sig, _gl_function_taking_int_returning_void_t func)); # else /* On OpenBSD, the declaration of 'signal' may not be present at this point, because it occurs in , not directly. */ # if defined __OpenBSD__ _GL_FUNCDECL_SYS (signal, _gl_function_taking_int_returning_void_t, (int sig, _gl_function_taking_int_returning_void_t func)); # endif _GL_CXXALIAS_SYS (signal, _gl_function_taking_int_returning_void_t, (int sig, _gl_function_taking_int_returning_void_t func)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (signal); # endif # if !@HAVE_POSIX_SIGNALBLOCKING@ && GNULIB_defined_SIGPIPE /* Raise signal SIGPIPE. */ _GL_EXTERN_C int _gl_raise_SIGPIPE (void); # endif #elif defined GNULIB_POSIXCHECK # undef sigaddset # if HAVE_RAW_DECL_SIGADDSET _GL_WARN_ON_USE (sigaddset, "sigaddset is unportable - " "use the gnulib module sigprocmask for portability"); # endif # undef sigdelset # if HAVE_RAW_DECL_SIGDELSET _GL_WARN_ON_USE (sigdelset, "sigdelset is unportable - " "use the gnulib module sigprocmask for portability"); # endif # undef sigemptyset # if HAVE_RAW_DECL_SIGEMPTYSET _GL_WARN_ON_USE (sigemptyset, "sigemptyset is unportable - " "use the gnulib module sigprocmask for portability"); # endif # undef sigfillset # if HAVE_RAW_DECL_SIGFILLSET _GL_WARN_ON_USE (sigfillset, "sigfillset is unportable - " "use the gnulib module sigprocmask for portability"); # endif # undef sigismember # if HAVE_RAW_DECL_SIGISMEMBER _GL_WARN_ON_USE (sigismember, "sigismember is unportable - " "use the gnulib module sigprocmask for portability"); # endif # undef sigpending # if HAVE_RAW_DECL_SIGPENDING _GL_WARN_ON_USE (sigpending, "sigpending is unportable - " "use the gnulib module sigprocmask for portability"); # endif # undef sigprocmask # if HAVE_RAW_DECL_SIGPROCMASK _GL_WARN_ON_USE (sigprocmask, "sigprocmask is unportable - " "use the gnulib module sigprocmask for portability"); # endif #endif /* @GNULIB_SIGPROCMASK@ */ #if @GNULIB_SIGACTION@ # if !@HAVE_SIGACTION@ # if !@HAVE_SIGINFO_T@ # if !GNULIB_defined_siginfo_types /* Present to allow compilation, but unsupported by gnulib. */ union sigval { int sival_int; void *sival_ptr; }; /* Present to allow compilation, but unsupported by gnulib. */ struct siginfo_t { int si_signo; int si_code; int si_errno; pid_t si_pid; uid_t si_uid; void *si_addr; int si_status; long si_band; union sigval si_value; }; typedef struct siginfo_t siginfo_t; # define GNULIB_defined_siginfo_types 1 # endif # endif /* !@HAVE_SIGINFO_T@ */ /* We assume that platforms which lack the sigaction() function also lack the 'struct sigaction' type, and vice versa. */ # if !GNULIB_defined_struct_sigaction struct sigaction { union { void (*_sa_handler) (int); /* Present to allow compilation, but unsupported by gnulib. POSIX says that implementations may, but not must, make sa_sigaction overlap with sa_handler, but we know of no implementation where they do not overlap. */ void (*_sa_sigaction) (int, siginfo_t *, void *); } _sa_func; sigset_t sa_mask; /* Not all POSIX flags are supported. */ int sa_flags; }; # define sa_handler _sa_func._sa_handler # define sa_sigaction _sa_func._sa_sigaction /* Unsupported flags are not present. */ # define SA_RESETHAND 1 # define SA_NODEFER 2 # define SA_RESTART 4 # define GNULIB_defined_struct_sigaction 1 # endif _GL_FUNCDECL_SYS (sigaction, int, (int, const struct sigaction *restrict, struct sigaction *restrict)); # elif !@HAVE_STRUCT_SIGACTION_SA_SIGACTION@ # define sa_sigaction sa_handler # endif /* !@HAVE_SIGACTION@, !@HAVE_STRUCT_SIGACTION_SA_SIGACTION@ */ _GL_CXXALIAS_SYS (sigaction, int, (int, const struct sigaction *restrict, struct sigaction *restrict)); _GL_CXXALIASWARN (sigaction); #elif defined GNULIB_POSIXCHECK # undef sigaction # if HAVE_RAW_DECL_SIGACTION _GL_WARN_ON_USE (sigaction, "sigaction is unportable - " "use the gnulib module sigaction for portability"); # endif #endif /* Some systems don't have SA_NODEFER. */ #ifndef SA_NODEFER # define SA_NODEFER 0 #endif #endif /* _@GUARD_PREFIX@_SIGNAL_H */ #endif /* _@GUARD_PREFIX@_SIGNAL_H */ #endif libffcall-2.4/gnulib-lib/clean-temp-simple.h0000664000000000000000000000362014057155505015707 00000000000000/* Temporary files with automatic cleanup. Copyright (C) 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _CLEAN_TEMP_SIMPLE_H #define _CLEAN_TEMP_SIMPLE_H #include #ifdef __cplusplus extern "C" { #endif /* See clean-temp.h for a general discussion of this module. */ /* Register the given ABSOLUTE_FILE_NAME as being a file that needs to be removed. Should be called before the file ABSOLUTE_FILE_NAME is created. Return 0 upon success, or -1 if there was a memory allocation problem. */ extern int register_temporary_file (const char *absolute_file_name); /* Unregister the given ABSOLUTE_FILE_NAME as being a file that needs to be removed. Should be called when the file ABSOLUTE_FILE_NAME could not be created. */ extern void unregister_temporary_file (const char *absolute_file_name); /* Remove the given ABSOLUTE_FILE_NAME and unregister it. CLEANUP_VERBOSE determines whether errors are reported to standard error. Return 0 upon success, or -1 if there was some problem. */ extern int cleanup_temporary_file (const char *absolute_file_name, bool cleanup_verbose); #ifdef __cplusplus } #endif #endif /* _CLEAN_TEMP_SIMPLE_H */ libffcall-2.4/gnulib-lib/unistd.in.h0000664000000000000000000023354214057257060014315 00000000000000/* Substitute for and wrapper around . Copyright (C) 2003-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _@GUARD_PREFIX@_UNISTD_H #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if @HAVE_UNISTD_H@ && defined _GL_INCLUDING_UNISTD_H /* Special invocation convention: - On Mac OS X 10.3.9 we have a sequence of nested includes -> -> -> In this situation, the functions are not yet declared, therefore we cannot provide the C++ aliases. */ #@INCLUDE_NEXT@ @NEXT_UNISTD_H@ #else /* Normal invocation convention. */ /* The include_next requires a split double-inclusion guard. */ #if @HAVE_UNISTD_H@ # define _GL_INCLUDING_UNISTD_H # @INCLUDE_NEXT@ @NEXT_UNISTD_H@ # undef _GL_INCLUDING_UNISTD_H #endif /* Get all possible declarations of gethostname(). */ #if @GNULIB_GETHOSTNAME@ && @UNISTD_H_HAVE_WINSOCK2_H@ \ && !defined _GL_INCLUDING_WINSOCK2_H # define _GL_INCLUDING_WINSOCK2_H # include # undef _GL_INCLUDING_WINSOCK2_H #endif #if !defined _@GUARD_PREFIX@_UNISTD_H && !defined _GL_INCLUDING_WINSOCK2_H #define _@GUARD_PREFIX@_UNISTD_H /* NetBSD 5.0 mis-defines NULL. Also get size_t. */ /* But avoid namespace pollution on glibc systems. */ #ifndef __GLIBC__ # include #endif /* mingw doesn't define the SEEK_* or *_FILENO macros in . */ /* MSVC declares 'unlink' in , not in . We must include it before we #define unlink rpl_unlink. */ /* Cygwin 1.7.1 declares symlinkat in , not in . */ /* But avoid namespace pollution on glibc systems. */ #if (!(defined SEEK_CUR && defined SEEK_END && defined SEEK_SET) \ || ((@GNULIB_UNLINK@ || defined GNULIB_POSIXCHECK) \ && (defined _WIN32 && ! defined __CYGWIN__)) \ || ((@GNULIB_SYMLINKAT@ || defined GNULIB_POSIXCHECK) \ && defined __CYGWIN__)) \ && ! defined __GLIBC__ # include #endif /* Cygwin 1.7.1 and Android 4.3 declare unlinkat in , not in . */ /* But avoid namespace pollution on glibc systems. */ #if (@GNULIB_UNLINKAT@ || defined GNULIB_POSIXCHECK) \ && (defined __CYGWIN__ || defined __ANDROID__) \ && ! defined __GLIBC__ # include #endif /* mingw fails to declare _exit in . */ /* mingw, MSVC, BeOS, Haiku declare environ in , not in . */ /* Solaris declares getcwd not only in but also in . */ /* OSF Tru64 Unix cannot see gnulib rpl_strtod when system is included here. */ /* But avoid namespace pollution on glibc systems. */ #if !defined __GLIBC__ && !defined __osf__ # define __need_system_stdlib_h # include # undef __need_system_stdlib_h #endif /* Native Windows platforms declare _chdir, _getcwd, _rmdir in and/or , not in . They also declare _access(), _chmod(), _close(), _dup(), _dup2(), _isatty(), _lseek(), _read(), _unlink(), _write() in . */ #if defined _WIN32 && !defined __CYGWIN__ # include # include #endif /* Native Windows platforms declare _execl*, _execv* in . */ #if defined _WIN32 && !defined __CYGWIN__ # include #endif /* AIX and OSF/1 5.1 declare getdomainname in , not in . NonStop Kernel declares gethostname in , not in . */ /* But avoid namespace pollution on glibc systems. */ #if ((@GNULIB_GETDOMAINNAME@ && (defined _AIX || defined __osf__)) \ || (@GNULIB_GETHOSTNAME@ && defined __TANDEM)) \ && !defined __GLIBC__ # include #endif /* Mac OS X 10.13, Solaris 11.4, and Android 9.0 declare getentropy in , not in . */ /* But avoid namespace pollution on glibc systems. */ #if (@GNULIB_GETENTROPY@ || defined GNULIB_POSIXCHECK) \ && ((defined __APPLE__ && defined __MACH__) || defined __sun \ || defined __ANDROID__) \ && @UNISTD_H_HAVE_SYS_RANDOM_H@ \ && !defined __GLIBC__ # include #endif /* Android 4.3 declares fchownat in , not in . */ /* But avoid namespace pollution on glibc systems. */ #if (@GNULIB_FCHOWNAT@ || defined GNULIB_POSIXCHECK) && defined __ANDROID__ \ && !defined __GLIBC__ # include #endif /* MSVC defines off_t in . May also define off_t to a 64-bit type on native Windows. */ /* Get off_t, ssize_t, mode_t. */ #include /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* Get getopt(), optarg, optind, opterr, optopt. */ #if @GNULIB_GETOPT_POSIX@ && @GNULIB_UNISTD_H_GETOPT@ && !defined _GL_SYSTEM_GETOPT # include # include #endif #ifndef _GL_INLINE_HEADER_BEGIN #error "Please include config.h first." #endif _GL_INLINE_HEADER_BEGIN #ifndef _GL_UNISTD_INLINE # define _GL_UNISTD_INLINE _GL_INLINE #endif /* Hide some function declarations from . */ #if @GNULIB_GETHOSTNAME@ && @UNISTD_H_HAVE_WINSOCK2_H@ # if !defined _@GUARD_PREFIX@_SYS_SOCKET_H # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef socket # define socket socket_used_without_including_sys_socket_h # undef connect # define connect connect_used_without_including_sys_socket_h # undef accept # define accept accept_used_without_including_sys_socket_h # undef bind # define bind bind_used_without_including_sys_socket_h # undef getpeername # define getpeername getpeername_used_without_including_sys_socket_h # undef getsockname # define getsockname getsockname_used_without_including_sys_socket_h # undef getsockopt # define getsockopt getsockopt_used_without_including_sys_socket_h # undef listen # define listen listen_used_without_including_sys_socket_h # undef recv # define recv recv_used_without_including_sys_socket_h # undef send # define send send_used_without_including_sys_socket_h # undef recvfrom # define recvfrom recvfrom_used_without_including_sys_socket_h # undef sendto # define sendto sendto_used_without_including_sys_socket_h # undef setsockopt # define setsockopt setsockopt_used_without_including_sys_socket_h # undef shutdown # define shutdown shutdown_used_without_including_sys_socket_h # else _GL_WARN_ON_USE (socket, "socket() used without including "); _GL_WARN_ON_USE (connect, "connect() used without including "); _GL_WARN_ON_USE (accept, "accept() used without including "); _GL_WARN_ON_USE (bind, "bind() used without including "); _GL_WARN_ON_USE (getpeername, "getpeername() used without including "); _GL_WARN_ON_USE (getsockname, "getsockname() used without including "); _GL_WARN_ON_USE (getsockopt, "getsockopt() used without including "); _GL_WARN_ON_USE (listen, "listen() used without including "); _GL_WARN_ON_USE (recv, "recv() used without including "); _GL_WARN_ON_USE (send, "send() used without including "); _GL_WARN_ON_USE (recvfrom, "recvfrom() used without including "); _GL_WARN_ON_USE (sendto, "sendto() used without including "); _GL_WARN_ON_USE (setsockopt, "setsockopt() used without including "); _GL_WARN_ON_USE (shutdown, "shutdown() used without including "); # endif # endif # if !defined _@GUARD_PREFIX@_SYS_SELECT_H # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef select # define select select_used_without_including_sys_select_h # else _GL_WARN_ON_USE (select, "select() used without including "); # endif # endif #endif /* OS/2 EMX lacks these macros. */ #ifndef STDIN_FILENO # define STDIN_FILENO 0 #endif #ifndef STDOUT_FILENO # define STDOUT_FILENO 1 #endif #ifndef STDERR_FILENO # define STDERR_FILENO 2 #endif /* Ensure *_OK macros exist. */ #ifndef F_OK # define F_OK 0 # define X_OK 1 # define W_OK 2 # define R_OK 4 #endif /* Declare overridden functions. */ #if @GNULIB_ACCESS@ # if @REPLACE_ACCESS@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef access # define access rpl_access # endif _GL_FUNCDECL_RPL (access, int, (const char *file, int mode) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (access, int, (const char *file, int mode)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef access # define access _access # endif _GL_CXXALIAS_MDA (access, int, (const char *file, int mode)); # else _GL_CXXALIAS_SYS (access, int, (const char *file, int mode)); # endif _GL_CXXALIASWARN (access); #elif defined GNULIB_POSIXCHECK # undef access # if HAVE_RAW_DECL_ACCESS /* The access() function is a security risk. */ _GL_WARN_ON_USE (access, "access does not always support X_OK - " "use gnulib module access for portability; " "also, this function is a security risk - " "use the gnulib module faccessat instead"); # endif #elif @GNULIB_MDA_ACCESS@ /* On native Windows, map 'access' to '_access', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::access always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef access # define access _access # endif _GL_CXXALIAS_MDA (access, int, (const char *file, int mode)); # else _GL_CXXALIAS_SYS (access, int, (const char *file, int mode)); # endif _GL_CXXALIASWARN (access); #endif #if @GNULIB_CHDIR@ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef chdir # define chdir _chdir # endif _GL_CXXALIAS_MDA (chdir, int, (const char *file)); # else _GL_CXXALIAS_SYS (chdir, int, (const char *file) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIASWARN (chdir); #elif defined GNULIB_POSIXCHECK # undef chdir # if HAVE_RAW_DECL_CHDIR _GL_WARN_ON_USE (chown, "chdir is not always in - " "use gnulib module chdir for portability"); # endif #elif @GNULIB_MDA_CHDIR@ /* On native Windows, map 'chdir' to '_chdir', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::chdir always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef chdir # define chdir _chdir # endif _GL_CXXALIAS_MDA (chdir, int, (const char *file)); # else _GL_CXXALIAS_SYS (chdir, int, (const char *file) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIASWARN (chdir); #endif #if @GNULIB_CHOWN@ /* Change the owner of FILE to UID (if UID is not -1) and the group of FILE to GID (if GID is not -1). Follow symbolic links. Return 0 if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if @REPLACE_DUP2@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define dup2 rpl_dup2 # endif _GL_FUNCDECL_RPL (dup2, int, (int oldfd, int newfd)); _GL_CXXALIAS_RPL (dup2, int, (int oldfd, int newfd)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef dup2 # define dup2 _dup2 # endif _GL_CXXALIAS_MDA (dup2, int, (int oldfd, int newfd)); # else _GL_CXXALIAS_SYS (dup2, int, (int oldfd, int newfd)); # endif _GL_CXXALIASWARN (dup2); #elif defined GNULIB_POSIXCHECK # undef dup2 # if HAVE_RAW_DECL_DUP2 _GL_WARN_ON_USE (dup2, "dup2 is unportable - " "use gnulib module dup2 for portability"); # endif #elif @GNULIB_MDA_DUP2@ /* On native Windows, map 'dup2' to '_dup2', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::dup2 always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef dup2 # define dup2 _dup2 # endif _GL_CXXALIAS_MDA (dup2, int, (int oldfd, int newfd)); # else _GL_CXXALIAS_SYS (dup2, int, (int oldfd, int newfd)); # endif _GL_CXXALIASWARN (dup2); #endif #if @GNULIB_DUP3@ /* Copy the file descriptor OLDFD into file descriptor NEWFD, with the specified flags. The flags are a bitmask, possibly including O_CLOEXEC (defined in ) and O_TEXT, O_BINARY (defined in "binary-io.h"). Close NEWFD first if it is open. Return newfd if successful, otherwise -1 and errno set. See the Linux man page at . */ # if @HAVE_DUP3@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define dup3 rpl_dup3 # endif _GL_FUNCDECL_RPL (dup3, int, (int oldfd, int newfd, int flags)); _GL_CXXALIAS_RPL (dup3, int, (int oldfd, int newfd, int flags)); # else _GL_FUNCDECL_SYS (dup3, int, (int oldfd, int newfd, int flags)); _GL_CXXALIAS_SYS (dup3, int, (int oldfd, int newfd, int flags)); # endif _GL_CXXALIASWARN (dup3); #elif defined GNULIB_POSIXCHECK # undef dup3 # if HAVE_RAW_DECL_DUP3 _GL_WARN_ON_USE (dup3, "dup3 is unportable - " "use gnulib module dup3 for portability"); # endif #endif #if @GNULIB_ENVIRON@ # if defined __CYGWIN__ && !defined __i386__ /* The 'environ' variable is defined in a DLL. Therefore its declaration needs the '__declspec(dllimport)' attribute, but the system's lacks it. This leads to a link error on 64-bit Cygwin when the option -Wl,--disable-auto-import is in use. */ _GL_EXTERN_C __declspec(dllimport) char **environ; # endif # if !@HAVE_DECL_ENVIRON@ /* Set of environment variables and values. An array of strings of the form "VARIABLE=VALUE", terminated with a NULL. */ # if defined __APPLE__ && defined __MACH__ # include # if !TARGET_OS_IPHONE && !TARGET_IPHONE_SIMULATOR # define _GL_USE_CRT_EXTERNS # endif # endif # ifdef _GL_USE_CRT_EXTERNS # include # define environ (*_NSGetEnviron ()) # else # ifdef __cplusplus extern "C" { # endif extern char **environ; # ifdef __cplusplus } # endif # endif # endif #elif defined GNULIB_POSIXCHECK # if HAVE_RAW_DECL_ENVIRON _GL_UNISTD_INLINE char *** _GL_WARN_ON_USE_ATTRIBUTE ("environ is unportable - " "use gnulib module environ for portability") rpl_environ (void) { return &environ; } # undef environ # define environ (*rpl_environ ()) # endif #endif #if @GNULIB_EUIDACCESS@ /* Like access(), except that it uses the effective user id and group id of the current process. */ # if !@HAVE_EUIDACCESS@ _GL_FUNCDECL_SYS (euidaccess, int, (const char *filename, int mode) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (euidaccess, int, (const char *filename, int mode)); _GL_CXXALIASWARN (euidaccess); # if defined GNULIB_POSIXCHECK /* Like access(), this function is a security risk. */ _GL_WARN_ON_USE (euidaccess, "the euidaccess function is a security risk - " "use the gnulib module faccessat instead"); # endif #elif defined GNULIB_POSIXCHECK # undef euidaccess # if HAVE_RAW_DECL_EUIDACCESS _GL_WARN_ON_USE (euidaccess, "euidaccess is unportable - " "use gnulib module euidaccess for portability"); # endif #endif #if @GNULIB_EXECL@ # if @REPLACE_EXECL@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execl # define execl rpl_execl # endif _GL_FUNCDECL_RPL (execl, int, (const char *program, const char *arg, ...) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (execl, int, (const char *program, const char *arg, ...)); # else _GL_CXXALIAS_SYS (execl, int, (const char *program, const char *arg, ...)); # endif _GL_CXXALIASWARN (execl); #elif defined GNULIB_POSIXCHECK # undef execl # if HAVE_RAW_DECL_EXECL _GL_WARN_ON_USE (execl, "execl behaves very differently on mingw - " "use gnulib module execl for portability"); # endif #elif @GNULIB_MDA_EXECL@ /* On native Windows, map 'execl' to '_execl', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execl always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execl # define execl _execl # endif _GL_CXXALIAS_MDA (execl, intptr_t, (const char *program, const char *arg, ...)); # else _GL_CXXALIAS_SYS (execl, int, (const char *program, const char *arg, ...)); # endif _GL_CXXALIASWARN (execl); #endif #if @GNULIB_EXECLE@ # if @REPLACE_EXECLE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execle # define execle rpl_execle # endif _GL_FUNCDECL_RPL (execle, int, (const char *program, const char *arg, ...) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (execle, int, (const char *program, const char *arg, ...)); # else _GL_CXXALIAS_SYS (execle, int, (const char *program, const char *arg, ...)); # endif _GL_CXXALIASWARN (execle); #elif defined GNULIB_POSIXCHECK # undef execle # if HAVE_RAW_DECL_EXECLE _GL_WARN_ON_USE (execle, "execle behaves very differently on mingw - " "use gnulib module execle for portability"); # endif #elif @GNULIB_MDA_EXECLE@ /* On native Windows, map 'execle' to '_execle', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execle always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execle # define execle _execle # endif _GL_CXXALIAS_MDA (execle, intptr_t, (const char *program, const char *arg, ...)); # else _GL_CXXALIAS_SYS (execle, int, (const char *program, const char *arg, ...)); # endif _GL_CXXALIASWARN (execle); #endif #if @GNULIB_EXECLP@ # if @REPLACE_EXECLP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execlp # define execlp rpl_execlp # endif _GL_FUNCDECL_RPL (execlp, int, (const char *program, const char *arg, ...) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (execlp, int, (const char *program, const char *arg, ...)); # else _GL_CXXALIAS_SYS (execlp, int, (const char *program, const char *arg, ...)); # endif _GL_CXXALIASWARN (execlp); #elif defined GNULIB_POSIXCHECK # undef execlp # if HAVE_RAW_DECL_EXECLP _GL_WARN_ON_USE (execlp, "execlp behaves very differently on mingw - " "use gnulib module execlp for portability"); # endif #elif @GNULIB_MDA_EXECLP@ /* On native Windows, map 'execlp' to '_execlp', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execlp always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execlp # define execlp _execlp # endif _GL_CXXALIAS_MDA (execlp, intptr_t, (const char *program, const char *arg, ...)); # else _GL_CXXALIAS_SYS (execlp, int, (const char *program, const char *arg, ...)); # endif _GL_CXXALIASWARN (execlp); #endif #if @GNULIB_EXECV@ # if @REPLACE_EXECV@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execv # define execv rpl_execv # endif _GL_FUNCDECL_RPL (execv, int, (const char *program, char * const *argv) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (execv, int, (const char *program, char * const *argv)); # else _GL_CXXALIAS_SYS (execv, int, (const char *program, char * const *argv)); # endif _GL_CXXALIASWARN (execv); #elif defined GNULIB_POSIXCHECK # undef execv # if HAVE_RAW_DECL_EXECV _GL_WARN_ON_USE (execv, "execv behaves very differently on mingw - " "use gnulib module execv for portability"); # endif #elif @GNULIB_MDA_EXECV@ /* On native Windows, map 'execv' to '_execv', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execv always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execv # define execv _execv # endif _GL_CXXALIAS_MDA_CAST (execv, intptr_t, (const char *program, char * const *argv)); # else _GL_CXXALIAS_SYS (execv, int, (const char *program, char * const *argv)); # endif _GL_CXXALIASWARN (execv); #endif #if @GNULIB_EXECVE@ # if @REPLACE_EXECVE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execve # define execve rpl_execve # endif _GL_FUNCDECL_RPL (execve, int, (const char *program, char * const *argv, char * const *env) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (execve, int, (const char *program, char * const *argv, char * const *env)); # else _GL_CXXALIAS_SYS (execve, int, (const char *program, char * const *argv, char * const *env)); # endif _GL_CXXALIASWARN (execve); #elif defined GNULIB_POSIXCHECK # undef execve # if HAVE_RAW_DECL_EXECVE _GL_WARN_ON_USE (execve, "execve behaves very differently on mingw - " "use gnulib module execve for portability"); # endif #elif @GNULIB_MDA_EXECVE@ /* On native Windows, map 'execve' to '_execve', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execve always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execve # define execve _execve # endif _GL_CXXALIAS_MDA_CAST (execve, intptr_t, (const char *program, char * const *argv, char * const *env)); # else _GL_CXXALIAS_SYS (execve, int, (const char *program, char * const *argv, char * const *env)); # endif _GL_CXXALIASWARN (execve); #endif #if @GNULIB_EXECVP@ # if @REPLACE_EXECVP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execvp # define execvp rpl_execvp # endif _GL_FUNCDECL_RPL (execvp, int, (const char *program, char * const *argv) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (execvp, int, (const char *program, char * const *argv)); # else _GL_CXXALIAS_SYS (execvp, int, (const char *program, char * const *argv)); # endif _GL_CXXALIASWARN (execvp); #elif defined GNULIB_POSIXCHECK # undef execvp # if HAVE_RAW_DECL_EXECVP _GL_WARN_ON_USE (execvp, "execvp behaves very differently on mingw - " "use gnulib module execvp for portability"); # endif #elif @GNULIB_MDA_EXECVP@ /* On native Windows, map 'execvp' to '_execvp', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execvp always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execvp # define execvp _execvp # endif _GL_CXXALIAS_MDA_CAST (execvp, intptr_t, (const char *program, char * const *argv)); # else _GL_CXXALIAS_SYS (execvp, int, (const char *program, char * const *argv)); # endif _GL_CXXALIASWARN (execvp); #endif #if @GNULIB_EXECVPE@ # if @REPLACE_EXECVPE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execvpe # define execvpe rpl_execvpe # endif _GL_FUNCDECL_RPL (execvpe, int, (const char *program, char * const *argv, char * const *env) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (execvpe, int, (const char *program, char * const *argv, char * const *env)); # else # if !@HAVE_DECL_EXECVPE@ _GL_FUNCDECL_SYS (execvpe, int, (const char *program, char * const *argv, char * const *env) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (execvpe, int, (const char *program, char * const *argv, char * const *env)); # endif _GL_CXXALIASWARN (execvpe); #elif defined GNULIB_POSIXCHECK # undef execvpe # if HAVE_RAW_DECL_EXECVPE _GL_WARN_ON_USE (execvpe, "execvpe behaves very differently on mingw - " "use gnulib module execvpe for portability"); # endif #elif @GNULIB_MDA_EXECVPE@ /* On native Windows, map 'execvpe' to '_execvpe', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::execvpe on all platforms that have it. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef execvpe # define execvpe _execvpe # endif _GL_CXXALIAS_MDA_CAST (execvpe, intptr_t, (const char *program, char * const *argv, char * const *env)); # elif @HAVE_EXECVPE@ # if !@HAVE_DECL_EXECVPE@ _GL_FUNCDECL_SYS (execvpe, int, (const char *program, char * const *argv, char * const *env) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (execvpe, int, (const char *program, char * const *argv, char * const *env)); # endif # if (defined _WIN32 && !defined __CYGWIN__) || @HAVE_EXECVPE@ _GL_CXXALIASWARN (execvpe); # endif #endif #if @GNULIB_FACCESSAT@ # if @REPLACE_FACCESSAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef faccessat # define faccessat rpl_faccessat # endif _GL_FUNCDECL_RPL (faccessat, int, (int fd, char const *name, int mode, int flag) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (faccessat, int, (int fd, char const *name, int mode, int flag)); # else # if !@HAVE_FACCESSAT@ _GL_FUNCDECL_SYS (faccessat, int, (int fd, char const *file, int mode, int flag) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (faccessat, int, (int fd, char const *file, int mode, int flag)); # endif _GL_CXXALIASWARN (faccessat); #elif defined GNULIB_POSIXCHECK # undef faccessat # if HAVE_RAW_DECL_FACCESSAT _GL_WARN_ON_USE (faccessat, "faccessat is not portable - " "use gnulib module faccessat for portability"); # endif #endif #if @GNULIB_FCHDIR@ /* Change the process' current working directory to the directory on which the given file descriptor is open. Return 0 if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if ! @HAVE_FCHDIR@ _GL_FUNCDECL_SYS (fchdir, int, (int /*fd*/)); /* Gnulib internal hooks needed to maintain the fchdir metadata. */ _GL_EXTERN_C int _gl_register_fd (int fd, const char *filename) _GL_ARG_NONNULL ((2)); _GL_EXTERN_C void _gl_unregister_fd (int fd); _GL_EXTERN_C int _gl_register_dup (int oldfd, int newfd); _GL_EXTERN_C const char *_gl_directory_name (int fd); # else # if !@HAVE_DECL_FCHDIR@ _GL_FUNCDECL_SYS (fchdir, int, (int /*fd*/)); # endif # endif _GL_CXXALIAS_SYS (fchdir, int, (int /*fd*/)); _GL_CXXALIASWARN (fchdir); #elif defined GNULIB_POSIXCHECK # undef fchdir # if HAVE_RAW_DECL_FCHDIR _GL_WARN_ON_USE (fchdir, "fchdir is unportable - " "use gnulib module fchdir for portability"); # endif #endif #if @GNULIB_FCHOWNAT@ # if @REPLACE_FCHOWNAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef fchownat # define fchownat rpl_fchownat # endif _GL_FUNCDECL_RPL (fchownat, int, (int fd, char const *file, uid_t owner, gid_t group, int flag) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (fchownat, int, (int fd, char const *file, uid_t owner, gid_t group, int flag)); # else # if !@HAVE_FCHOWNAT@ _GL_FUNCDECL_SYS (fchownat, int, (int fd, char const *file, uid_t owner, gid_t group, int flag) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (fchownat, int, (int fd, char const *file, uid_t owner, gid_t group, int flag)); # endif _GL_CXXALIASWARN (fchownat); #elif defined GNULIB_POSIXCHECK # undef fchownat # if HAVE_RAW_DECL_FCHOWNAT _GL_WARN_ON_USE (fchownat, "fchownat is not portable - " "use gnulib module fchownat for portability"); # endif #endif #if @GNULIB_FDATASYNC@ /* Synchronize changes to a file. Return 0 if successful, otherwise -1 and errno set. See POSIX:2008 specification . */ # if !@HAVE_FDATASYNC@ || !@HAVE_DECL_FDATASYNC@ _GL_FUNCDECL_SYS (fdatasync, int, (int fd)); # endif _GL_CXXALIAS_SYS (fdatasync, int, (int fd)); _GL_CXXALIASWARN (fdatasync); #elif defined GNULIB_POSIXCHECK # undef fdatasync # if HAVE_RAW_DECL_FDATASYNC _GL_WARN_ON_USE (fdatasync, "fdatasync is unportable - " "use gnulib module fdatasync for portability"); # endif #endif #if @GNULIB_FSYNC@ /* Synchronize changes, including metadata, to a file. Return 0 if successful, otherwise -1 and errno set. See POSIX:2008 specification . */ # if !@HAVE_FSYNC@ _GL_FUNCDECL_SYS (fsync, int, (int fd)); # endif _GL_CXXALIAS_SYS (fsync, int, (int fd)); _GL_CXXALIASWARN (fsync); #elif defined GNULIB_POSIXCHECK # undef fsync # if HAVE_RAW_DECL_FSYNC _GL_WARN_ON_USE (fsync, "fsync is unportable - " "use gnulib module fsync for portability"); # endif #endif #if @GNULIB_FTRUNCATE@ /* Change the size of the file to which FD is opened to become equal to LENGTH. Return 0 if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if @REPLACE_FTRUNCATE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef ftruncate # define ftruncate rpl_ftruncate # endif _GL_FUNCDECL_RPL (ftruncate, int, (int fd, off_t length)); _GL_CXXALIAS_RPL (ftruncate, int, (int fd, off_t length)); # else # if !@HAVE_FTRUNCATE@ _GL_FUNCDECL_SYS (ftruncate, int, (int fd, off_t length)); # endif _GL_CXXALIAS_SYS (ftruncate, int, (int fd, off_t length)); # endif _GL_CXXALIASWARN (ftruncate); #elif defined GNULIB_POSIXCHECK # undef ftruncate # if HAVE_RAW_DECL_FTRUNCATE _GL_WARN_ON_USE (ftruncate, "ftruncate is unportable - " "use gnulib module ftruncate for portability"); # endif #endif #if @GNULIB_GETCWD@ /* Get the name of the current working directory, and put it in SIZE bytes of BUF. Return BUF if successful, or NULL if the directory couldn't be determined or SIZE was too small. See the POSIX:2008 specification . Additionally, the gnulib module 'getcwd' guarantees the following GNU extension: If BUF is NULL, an array is allocated with 'malloc'; the array is SIZE bytes long, unless SIZE == 0, in which case it is as big as necessary. */ # if @REPLACE_GETCWD@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define getcwd rpl_getcwd # endif _GL_FUNCDECL_RPL (getcwd, char *, (char *buf, size_t size)); _GL_CXXALIAS_RPL (getcwd, char *, (char *buf, size_t size)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getcwd # define getcwd _getcwd # endif _GL_CXXALIAS_MDA (getcwd, char *, (char *buf, size_t size)); # else /* Need to cast, because on mingw, the second parameter is int size. */ _GL_CXXALIAS_SYS_CAST (getcwd, char *, (char *buf, size_t size)); # endif _GL_CXXALIASWARN (getcwd); #elif defined GNULIB_POSIXCHECK # undef getcwd # if HAVE_RAW_DECL_GETCWD _GL_WARN_ON_USE (getcwd, "getcwd is unportable - " "use gnulib module getcwd for portability"); # endif #elif @GNULIB_MDA_GETCWD@ /* On native Windows, map 'getcwd' to '_getcwd', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::getcwd always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getcwd # define getcwd _getcwd # endif /* Need to cast, because on mingw, the second parameter is either 'int size' or 'size_t size'. */ _GL_CXXALIAS_MDA_CAST (getcwd, char *, (char *buf, size_t size)); # else _GL_CXXALIAS_SYS_CAST (getcwd, char *, (char *buf, size_t size)); # endif _GL_CXXALIASWARN (getcwd); #endif #if @GNULIB_GETDOMAINNAME@ /* Return the NIS domain name of the machine. WARNING! The NIS domain name is unrelated to the fully qualified host name of the machine. It is also unrelated to email addresses. WARNING! The NIS domain name is usually the empty string or "(none)" when not using NIS. Put up to LEN bytes of the NIS domain name into NAME. Null terminate it if the name is shorter than LEN. If the NIS domain name is longer than LEN, set errno = EINVAL and return -1. Return 0 if successful, otherwise set errno and return -1. */ # if @REPLACE_GETDOMAINNAME@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getdomainname # define getdomainname rpl_getdomainname # endif _GL_FUNCDECL_RPL (getdomainname, int, (char *name, size_t len) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (getdomainname, int, (char *name, size_t len)); # else # if !@HAVE_DECL_GETDOMAINNAME@ _GL_FUNCDECL_SYS (getdomainname, int, (char *name, size_t len) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (getdomainname, int, (char *name, size_t len)); # endif _GL_CXXALIASWARN (getdomainname); #elif defined GNULIB_POSIXCHECK # undef getdomainname # if HAVE_RAW_DECL_GETDOMAINNAME _GL_WARN_ON_USE (getdomainname, "getdomainname is unportable - " "use gnulib module getdomainname for portability"); # endif #endif #if @GNULIB_GETDTABLESIZE@ /* Return the maximum number of file descriptors in the current process. In POSIX, this is same as sysconf (_SC_OPEN_MAX). */ # if @REPLACE_GETDTABLESIZE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getdtablesize # define getdtablesize rpl_getdtablesize # endif _GL_FUNCDECL_RPL (getdtablesize, int, (void)); _GL_CXXALIAS_RPL (getdtablesize, int, (void)); # else # if !@HAVE_GETDTABLESIZE@ _GL_FUNCDECL_SYS (getdtablesize, int, (void)); # endif /* Need to cast, because on AIX, the parameter list is (...). */ _GL_CXXALIAS_SYS_CAST (getdtablesize, int, (void)); # endif _GL_CXXALIASWARN (getdtablesize); #elif defined GNULIB_POSIXCHECK # undef getdtablesize # if HAVE_RAW_DECL_GETDTABLESIZE _GL_WARN_ON_USE (getdtablesize, "getdtablesize is unportable - " "use gnulib module getdtablesize for portability"); # endif #endif #if @GNULIB_GETENTROPY@ /* Fill a buffer with random bytes. */ # if !@HAVE_GETENTROPY@ _GL_FUNCDECL_SYS (getentropy, int, (void *buffer, size_t length)); # endif _GL_CXXALIAS_SYS (getentropy, int, (void *buffer, size_t length)); _GL_CXXALIASWARN (getentropy); #elif defined GNULIB_POSIXCHECK # undef getentropy # if HAVE_RAW_DECL_GETENTROPY _GL_WARN_ON_USE (getentropy, "getentropy is unportable - " "use gnulib module getentropy for portability"); # endif #endif #if @GNULIB_GETGROUPS@ /* Return the supplemental groups that the current process belongs to. It is unspecified whether the effective group id is in the list. If N is 0, return the group count; otherwise, N describes how many entries are available in GROUPS. Return -1 and set errno if N is not 0 and not large enough. Fails with ENOSYS on some systems. */ # if @REPLACE_GETGROUPS@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getgroups # define getgroups rpl_getgroups # endif _GL_FUNCDECL_RPL (getgroups, int, (int n, gid_t *groups)); _GL_CXXALIAS_RPL (getgroups, int, (int n, gid_t *groups)); # else # if !@HAVE_GETGROUPS@ _GL_FUNCDECL_SYS (getgroups, int, (int n, gid_t *groups)); # endif _GL_CXXALIAS_SYS (getgroups, int, (int n, gid_t *groups)); # endif _GL_CXXALIASWARN (getgroups); #elif defined GNULIB_POSIXCHECK # undef getgroups # if HAVE_RAW_DECL_GETGROUPS _GL_WARN_ON_USE (getgroups, "getgroups is unportable - " "use gnulib module getgroups for portability"); # endif #endif #if @GNULIB_GETHOSTNAME@ /* Return the standard host name of the machine. WARNING! The host name may or may not be fully qualified. Put up to LEN bytes of the host name into NAME. Null terminate it if the name is shorter than LEN. If the host name is longer than LEN, set errno = EINVAL and return -1. Return 0 if successful, otherwise set errno and return -1. */ # if @UNISTD_H_HAVE_WINSOCK2_H@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef gethostname # define gethostname rpl_gethostname # endif _GL_FUNCDECL_RPL (gethostname, int, (char *name, size_t len) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (gethostname, int, (char *name, size_t len)); # else # if !@HAVE_GETHOSTNAME@ _GL_FUNCDECL_SYS (gethostname, int, (char *name, size_t len) _GL_ARG_NONNULL ((1))); # endif /* Need to cast, because on Solaris 10 and OSF/1 5.1 systems, the second parameter is int len. */ _GL_CXXALIAS_SYS_CAST (gethostname, int, (char *name, size_t len)); # endif _GL_CXXALIASWARN (gethostname); #elif @UNISTD_H_HAVE_WINSOCK2_H@ # undef gethostname # define gethostname gethostname_used_without_requesting_gnulib_module_gethostname #elif defined GNULIB_POSIXCHECK # undef gethostname # if HAVE_RAW_DECL_GETHOSTNAME _GL_WARN_ON_USE (gethostname, "gethostname is unportable - " "use gnulib module gethostname for portability"); # endif #endif #if @GNULIB_GETLOGIN@ /* Returns the user's login name, or NULL if it cannot be found. Upon error, returns NULL with errno set. See . Most programs don't need to use this function, because the information is available through environment variables: ${LOGNAME-$USER} on Unix platforms, $USERNAME on native Windows platforms. */ # if !@HAVE_DECL_GETLOGIN@ _GL_FUNCDECL_SYS (getlogin, char *, (void)); # endif _GL_CXXALIAS_SYS (getlogin, char *, (void)); _GL_CXXALIASWARN (getlogin); #elif defined GNULIB_POSIXCHECK # undef getlogin # if HAVE_RAW_DECL_GETLOGIN _GL_WARN_ON_USE (getlogin, "getlogin is unportable - " "use gnulib module getlogin for portability"); # endif #endif #if @GNULIB_GETLOGIN_R@ /* Copies the user's login name to NAME. The array pointed to by NAME has room for SIZE bytes. Returns 0 if successful. Upon error, an error number is returned, or -1 in the case that the login name cannot be found but no specific error is provided (this case is hopefully rare but is left open by the POSIX spec). See . Most programs don't need to use this function, because the information is available through environment variables: ${LOGNAME-$USER} on Unix platforms, $USERNAME on native Windows platforms. */ # if @REPLACE_GETLOGIN_R@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define getlogin_r rpl_getlogin_r # endif _GL_FUNCDECL_RPL (getlogin_r, int, (char *name, size_t size) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (getlogin_r, int, (char *name, size_t size)); # else # if !@HAVE_DECL_GETLOGIN_R@ _GL_FUNCDECL_SYS (getlogin_r, int, (char *name, size_t size) _GL_ARG_NONNULL ((1))); # endif /* Need to cast, because on Solaris 10 systems, the second argument is int size. */ _GL_CXXALIAS_SYS_CAST (getlogin_r, int, (char *name, size_t size)); # endif _GL_CXXALIASWARN (getlogin_r); #elif defined GNULIB_POSIXCHECK # undef getlogin_r # if HAVE_RAW_DECL_GETLOGIN_R _GL_WARN_ON_USE (getlogin_r, "getlogin_r is unportable - " "use gnulib module getlogin_r for portability"); # endif #endif #if @GNULIB_GETPAGESIZE@ # if @REPLACE_GETPAGESIZE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define getpagesize rpl_getpagesize # endif _GL_FUNCDECL_RPL (getpagesize, int, (void)); _GL_CXXALIAS_RPL (getpagesize, int, (void)); # else /* On HP-UX, getpagesize exists, but it is not declared in even if the compiler options -D_HPUX_SOURCE -D_XOPEN_SOURCE=600 are used. */ # if defined __hpux _GL_FUNCDECL_SYS (getpagesize, int, (void)); # endif # if !@HAVE_GETPAGESIZE@ # if !defined getpagesize /* This is for POSIX systems. */ # if !defined _gl_getpagesize && defined _SC_PAGESIZE # if ! (defined __VMS && __VMS_VER < 70000000) # define _gl_getpagesize() sysconf (_SC_PAGESIZE) # endif # endif /* This is for older VMS. */ # if !defined _gl_getpagesize && defined __VMS # ifdef __ALPHA # define _gl_getpagesize() 8192 # else # define _gl_getpagesize() 512 # endif # endif /* This is for BeOS. */ # if !defined _gl_getpagesize && @HAVE_OS_H@ # include # if defined B_PAGE_SIZE # define _gl_getpagesize() B_PAGE_SIZE # endif # endif /* This is for AmigaOS4.0. */ # if !defined _gl_getpagesize && defined __amigaos4__ # define _gl_getpagesize() 2048 # endif /* This is for older Unix systems. */ # if !defined _gl_getpagesize && @HAVE_SYS_PARAM_H@ # include # ifdef EXEC_PAGESIZE # define _gl_getpagesize() EXEC_PAGESIZE # else # ifdef NBPG # ifndef CLSIZE # define CLSIZE 1 # endif # define _gl_getpagesize() (NBPG * CLSIZE) # else # ifdef NBPC # define _gl_getpagesize() NBPC # endif # endif # endif # endif # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define getpagesize() _gl_getpagesize () # else # if !GNULIB_defined_getpagesize_function _GL_UNISTD_INLINE int getpagesize () { return _gl_getpagesize (); } # define GNULIB_defined_getpagesize_function 1 # endif # endif # endif # endif /* Need to cast, because on Cygwin 1.5.x systems, the return type is size_t. */ _GL_CXXALIAS_SYS_CAST (getpagesize, int, (void)); # endif # if @HAVE_DECL_GETPAGESIZE@ _GL_CXXALIASWARN (getpagesize); # endif #elif defined GNULIB_POSIXCHECK # undef getpagesize # if HAVE_RAW_DECL_GETPAGESIZE _GL_WARN_ON_USE (getpagesize, "getpagesize is unportable - " "use gnulib module getpagesize for portability"); # endif #endif #if @GNULIB_GETPASS@ /* Function getpass() from module 'getpass': Read a password from /dev/tty or stdin. Function getpass() from module 'getpass-gnu': Read a password of arbitrary length from /dev/tty or stdin. */ # if @REPLACE_GETPASS@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getpass # define getpass rpl_getpass # endif _GL_FUNCDECL_RPL (getpass, char *, (const char *prompt) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (getpass, char *, (const char *prompt)); # else # if !@HAVE_GETPASS@ _GL_FUNCDECL_SYS (getpass, char *, (const char *prompt) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (getpass, char *, (const char *prompt)); # endif _GL_CXXALIASWARN (getpass); #elif defined GNULIB_POSIXCHECK # undef getpass # if HAVE_RAW_DECL_GETPASS _GL_WARN_ON_USE (getpass, "getpass is unportable - " "use gnulib module getpass or getpass-gnu for portability"); # endif #endif #if @GNULIB_MDA_GETPID@ /* On native Windows, map 'getpid' to '_getpid', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::getpid always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef getpid # define getpid _getpid # endif _GL_CXXALIAS_MDA (getpid, int, (void)); # else _GL_CXXALIAS_SYS (getpid, pid_t, (void)); # endif _GL_CXXALIASWARN (getpid); #endif #if @GNULIB_GETUSERSHELL@ /* Return the next valid login shell on the system, or NULL when the end of the list has been reached. */ # if !@HAVE_DECL_GETUSERSHELL@ _GL_FUNCDECL_SYS (getusershell, char *, (void)); # endif _GL_CXXALIAS_SYS (getusershell, char *, (void)); _GL_CXXALIASWARN (getusershell); #elif defined GNULIB_POSIXCHECK # undef getusershell # if HAVE_RAW_DECL_GETUSERSHELL _GL_WARN_ON_USE (getusershell, "getusershell is unportable - " "use gnulib module getusershell for portability"); # endif #endif #if @GNULIB_GETUSERSHELL@ /* Rewind to pointer that is advanced at each getusershell() call. */ # if !@HAVE_DECL_GETUSERSHELL@ _GL_FUNCDECL_SYS (setusershell, void, (void)); # endif _GL_CXXALIAS_SYS (setusershell, void, (void)); _GL_CXXALIASWARN (setusershell); #elif defined GNULIB_POSIXCHECK # undef setusershell # if HAVE_RAW_DECL_SETUSERSHELL _GL_WARN_ON_USE (setusershell, "setusershell is unportable - " "use gnulib module getusershell for portability"); # endif #endif #if @GNULIB_GETUSERSHELL@ /* Free the pointer that is advanced at each getusershell() call and associated resources. */ # if !@HAVE_DECL_GETUSERSHELL@ _GL_FUNCDECL_SYS (endusershell, void, (void)); # endif _GL_CXXALIAS_SYS (endusershell, void, (void)); _GL_CXXALIASWARN (endusershell); #elif defined GNULIB_POSIXCHECK # undef endusershell # if HAVE_RAW_DECL_ENDUSERSHELL _GL_WARN_ON_USE (endusershell, "endusershell is unportable - " "use gnulib module getusershell for portability"); # endif #endif #if @GNULIB_GROUP_MEMBER@ /* Determine whether group id is in calling user's group list. */ # if !@HAVE_GROUP_MEMBER@ _GL_FUNCDECL_SYS (group_member, int, (gid_t gid)); # endif _GL_CXXALIAS_SYS (group_member, int, (gid_t gid)); _GL_CXXALIASWARN (group_member); #elif defined GNULIB_POSIXCHECK # undef group_member # if HAVE_RAW_DECL_GROUP_MEMBER _GL_WARN_ON_USE (group_member, "group_member is unportable - " "use gnulib module group-member for portability"); # endif #endif #if @GNULIB_ISATTY@ # if @REPLACE_ISATTY@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef isatty # define isatty rpl_isatty # endif _GL_FUNCDECL_RPL (isatty, int, (int fd)); _GL_CXXALIAS_RPL (isatty, int, (int fd)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef isatty # define isatty _isatty # endif _GL_CXXALIAS_MDA (isatty, int, (int fd)); # else _GL_CXXALIAS_SYS (isatty, int, (int fd)); # endif _GL_CXXALIASWARN (isatty); #elif defined GNULIB_POSIXCHECK # undef isatty # if HAVE_RAW_DECL_ISATTY _GL_WARN_ON_USE (isatty, "isatty has portability problems on native Windows - " "use gnulib module isatty for portability"); # endif #elif @GNULIB_MDA_ISATTY@ /* On native Windows, map 'isatty' to '_isatty', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::isatty always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef isatty # define isatty _isatty # endif _GL_CXXALIAS_MDA (isatty, int, (int fd)); # else _GL_CXXALIAS_SYS (isatty, int, (int fd)); # endif _GL_CXXALIASWARN (isatty); #endif #if @GNULIB_LCHOWN@ /* Change the owner of FILE to UID (if UID is not -1) and the group of FILE to GID (if GID is not -1). Do not follow symbolic links. Return 0 if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if @REPLACE_LCHOWN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef lchown # define lchown rpl_lchown # endif _GL_FUNCDECL_RPL (lchown, int, (char const *file, uid_t owner, gid_t group) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (lchown, int, (char const *file, uid_t owner, gid_t group)); # else # if !@HAVE_LCHOWN@ _GL_FUNCDECL_SYS (lchown, int, (char const *file, uid_t owner, gid_t group) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (lchown, int, (char const *file, uid_t owner, gid_t group)); # endif _GL_CXXALIASWARN (lchown); #elif defined GNULIB_POSIXCHECK # undef lchown # if HAVE_RAW_DECL_LCHOWN _GL_WARN_ON_USE (lchown, "lchown is unportable to pre-POSIX.1-2001 systems - " "use gnulib module lchown for portability"); # endif #endif #if @GNULIB_LINK@ /* Create a new hard link for an existing file. Return 0 if successful, otherwise -1 and errno set. See POSIX:2008 specification . */ # if @REPLACE_LINK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define link rpl_link # endif _GL_FUNCDECL_RPL (link, int, (const char *path1, const char *path2) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (link, int, (const char *path1, const char *path2)); # else # if !@HAVE_LINK@ _GL_FUNCDECL_SYS (link, int, (const char *path1, const char *path2) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (link, int, (const char *path1, const char *path2)); # endif _GL_CXXALIASWARN (link); #elif defined GNULIB_POSIXCHECK # undef link # if HAVE_RAW_DECL_LINK _GL_WARN_ON_USE (link, "link is unportable - " "use gnulib module link for portability"); # endif #endif #if @GNULIB_LINKAT@ /* Create a new hard link for an existing file, relative to two directories. FLAG controls whether symlinks are followed. Return 0 if successful, otherwise -1 and errno set. */ # if @REPLACE_LINKAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef linkat # define linkat rpl_linkat # endif _GL_FUNCDECL_RPL (linkat, int, (int fd1, const char *path1, int fd2, const char *path2, int flag) _GL_ARG_NONNULL ((2, 4))); _GL_CXXALIAS_RPL (linkat, int, (int fd1, const char *path1, int fd2, const char *path2, int flag)); # else # if !@HAVE_LINKAT@ _GL_FUNCDECL_SYS (linkat, int, (int fd1, const char *path1, int fd2, const char *path2, int flag) _GL_ARG_NONNULL ((2, 4))); # endif _GL_CXXALIAS_SYS (linkat, int, (int fd1, const char *path1, int fd2, const char *path2, int flag)); # endif _GL_CXXALIASWARN (linkat); #elif defined GNULIB_POSIXCHECK # undef linkat # if HAVE_RAW_DECL_LINKAT _GL_WARN_ON_USE (linkat, "linkat is unportable - " "use gnulib module linkat for portability"); # endif #endif #if @GNULIB_LSEEK@ /* Set the offset of FD relative to SEEK_SET, SEEK_CUR, or SEEK_END. Return the new offset if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if @REPLACE_LSEEK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define lseek rpl_lseek # endif _GL_FUNCDECL_RPL (lseek, off_t, (int fd, off_t offset, int whence)); _GL_CXXALIAS_RPL (lseek, off_t, (int fd, off_t offset, int whence)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef lseek # define lseek _lseek # endif _GL_CXXALIAS_MDA (lseek, off_t, (int fd, off_t offset, int whence)); # else _GL_CXXALIAS_SYS (lseek, off_t, (int fd, off_t offset, int whence)); # endif _GL_CXXALIASWARN (lseek); #elif defined GNULIB_POSIXCHECK # undef lseek # if HAVE_RAW_DECL_LSEEK _GL_WARN_ON_USE (lseek, "lseek does not fail with ESPIPE on pipes on some " "systems - use gnulib module lseek for portability"); # endif #elif @GNULIB_MDA_LSEEK@ /* On native Windows, map 'lseek' to '_lseek', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::lseek always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef lseek # define lseek _lseek # endif _GL_CXXALIAS_MDA (lseek, long, (int fd, long offset, int whence)); # else _GL_CXXALIAS_SYS (lseek, off_t, (int fd, off_t offset, int whence)); # endif _GL_CXXALIASWARN (lseek); #endif #if @GNULIB_PIPE@ /* Create a pipe, defaulting to O_BINARY mode. Store the read-end as fd[0] and the write-end as fd[1]. Return 0 upon success, or -1 with errno set upon failure. */ # if !@HAVE_PIPE@ _GL_FUNCDECL_SYS (pipe, int, (int fd[2]) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (pipe, int, (int fd[2])); _GL_CXXALIASWARN (pipe); #elif defined GNULIB_POSIXCHECK # undef pipe # if HAVE_RAW_DECL_PIPE _GL_WARN_ON_USE (pipe, "pipe is unportable - " "use gnulib module pipe-posix for portability"); # endif #endif #if @GNULIB_PIPE2@ /* Create a pipe, applying the given flags when opening the read-end of the pipe and the write-end of the pipe. The flags are a bitmask, possibly including O_CLOEXEC (defined in ) and O_TEXT, O_BINARY (defined in "binary-io.h"). Store the read-end as fd[0] and the write-end as fd[1]. Return 0 upon success, or -1 with errno set upon failure. See also the Linux man page at . */ # if @HAVE_PIPE2@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define pipe2 rpl_pipe2 # endif _GL_FUNCDECL_RPL (pipe2, int, (int fd[2], int flags) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (pipe2, int, (int fd[2], int flags)); # else _GL_FUNCDECL_SYS (pipe2, int, (int fd[2], int flags) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_SYS (pipe2, int, (int fd[2], int flags)); # endif _GL_CXXALIASWARN (pipe2); #elif defined GNULIB_POSIXCHECK # undef pipe2 # if HAVE_RAW_DECL_PIPE2 _GL_WARN_ON_USE (pipe2, "pipe2 is unportable - " "use gnulib module pipe2 for portability"); # endif #endif #if @GNULIB_PREAD@ /* Read at most BUFSIZE bytes from FD into BUF, starting at OFFSET. Return the number of bytes placed into BUF if successful, otherwise set errno and return -1. 0 indicates EOF. See the POSIX:2008 specification . */ # if @REPLACE_PREAD@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef pread # define pread rpl_pread # endif _GL_FUNCDECL_RPL (pread, ssize_t, (int fd, void *buf, size_t bufsize, off_t offset) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (pread, ssize_t, (int fd, void *buf, size_t bufsize, off_t offset)); # else # if !@HAVE_PREAD@ _GL_FUNCDECL_SYS (pread, ssize_t, (int fd, void *buf, size_t bufsize, off_t offset) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (pread, ssize_t, (int fd, void *buf, size_t bufsize, off_t offset)); # endif _GL_CXXALIASWARN (pread); #elif defined GNULIB_POSIXCHECK # undef pread # if HAVE_RAW_DECL_PREAD _GL_WARN_ON_USE (pread, "pread is unportable - " "use gnulib module pread for portability"); # endif #endif #if @GNULIB_PWRITE@ /* Write at most BUFSIZE bytes from BUF into FD, starting at OFFSET. Return the number of bytes written if successful, otherwise set errno and return -1. 0 indicates nothing written. See the POSIX:2008 specification . */ # if @REPLACE_PWRITE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef pwrite # define pwrite rpl_pwrite # endif _GL_FUNCDECL_RPL (pwrite, ssize_t, (int fd, const void *buf, size_t bufsize, off_t offset) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (pwrite, ssize_t, (int fd, const void *buf, size_t bufsize, off_t offset)); # else # if !@HAVE_PWRITE@ _GL_FUNCDECL_SYS (pwrite, ssize_t, (int fd, const void *buf, size_t bufsize, off_t offset) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (pwrite, ssize_t, (int fd, const void *buf, size_t bufsize, off_t offset)); # endif _GL_CXXALIASWARN (pwrite); #elif defined GNULIB_POSIXCHECK # undef pwrite # if HAVE_RAW_DECL_PWRITE _GL_WARN_ON_USE (pwrite, "pwrite is unportable - " "use gnulib module pwrite for portability"); # endif #endif #if @GNULIB_READ@ /* Read up to COUNT bytes from file descriptor FD into the buffer starting at BUF. See the POSIX:2008 specification . */ # if @REPLACE_READ@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef read # define read rpl_read # endif _GL_FUNCDECL_RPL (read, ssize_t, (int fd, void *buf, size_t count) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (read, ssize_t, (int fd, void *buf, size_t count)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef read # define read _read # endif _GL_CXXALIAS_MDA (read, ssize_t, (int fd, void *buf, size_t count)); # else _GL_CXXALIAS_SYS (read, ssize_t, (int fd, void *buf, size_t count)); # endif _GL_CXXALIASWARN (read); #elif @GNULIB_MDA_READ@ /* On native Windows, map 'read' to '_read', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::read always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef read # define read _read # endif # ifdef __MINGW32__ _GL_CXXALIAS_MDA (read, int, (int fd, void *buf, unsigned int count)); # else _GL_CXXALIAS_MDA (read, ssize_t, (int fd, void *buf, unsigned int count)); # endif # else _GL_CXXALIAS_SYS (read, ssize_t, (int fd, void *buf, size_t count)); # endif _GL_CXXALIASWARN (read); #endif #if @GNULIB_READLINK@ /* Read the contents of the symbolic link FILE and place the first BUFSIZE bytes of it into BUF. Return the number of bytes placed into BUF if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if @REPLACE_READLINK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define readlink rpl_readlink # endif _GL_FUNCDECL_RPL (readlink, ssize_t, (const char *restrict file, char *restrict buf, size_t bufsize) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (readlink, ssize_t, (const char *restrict file, char *restrict buf, size_t bufsize)); # else # if !@HAVE_READLINK@ _GL_FUNCDECL_SYS (readlink, ssize_t, (const char *restrict file, char *restrict buf, size_t bufsize) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (readlink, ssize_t, (const char *restrict file, char *restrict buf, size_t bufsize)); # endif _GL_CXXALIASWARN (readlink); #elif defined GNULIB_POSIXCHECK # undef readlink # if HAVE_RAW_DECL_READLINK _GL_WARN_ON_USE (readlink, "readlink is unportable - " "use gnulib module readlink for portability"); # endif #endif #if @GNULIB_READLINKAT@ # if @REPLACE_READLINKAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define readlinkat rpl_readlinkat # endif _GL_FUNCDECL_RPL (readlinkat, ssize_t, (int fd, char const *restrict file, char *restrict buf, size_t len) _GL_ARG_NONNULL ((2, 3))); _GL_CXXALIAS_RPL (readlinkat, ssize_t, (int fd, char const *restrict file, char *restrict buf, size_t len)); # else # if !@HAVE_READLINKAT@ _GL_FUNCDECL_SYS (readlinkat, ssize_t, (int fd, char const *restrict file, char *restrict buf, size_t len) _GL_ARG_NONNULL ((2, 3))); # endif _GL_CXXALIAS_SYS (readlinkat, ssize_t, (int fd, char const *restrict file, char *restrict buf, size_t len)); # endif _GL_CXXALIASWARN (readlinkat); #elif defined GNULIB_POSIXCHECK # undef readlinkat # if HAVE_RAW_DECL_READLINKAT _GL_WARN_ON_USE (readlinkat, "readlinkat is not portable - " "use gnulib module readlinkat for portability"); # endif #endif #if @GNULIB_RMDIR@ /* Remove the directory DIR. */ # if @REPLACE_RMDIR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define rmdir rpl_rmdir # endif _GL_FUNCDECL_RPL (rmdir, int, (char const *name) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (rmdir, int, (char const *name)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef rmdir # define rmdir _rmdir # endif _GL_CXXALIAS_MDA (rmdir, int, (char const *name)); # else _GL_CXXALIAS_SYS (rmdir, int, (char const *name)); # endif _GL_CXXALIASWARN (rmdir); #elif defined GNULIB_POSIXCHECK # undef rmdir # if HAVE_RAW_DECL_RMDIR _GL_WARN_ON_USE (rmdir, "rmdir is unportable - " "use gnulib module rmdir for portability"); # endif #elif @GNULIB_MDA_RMDIR@ /* On native Windows, map 'rmdir' to '_rmdir', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::rmdir always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef rmdir # define rmdir _rmdir # endif _GL_CXXALIAS_MDA (rmdir, int, (char const *name)); # else _GL_CXXALIAS_SYS (rmdir, int, (char const *name)); # endif _GL_CXXALIASWARN (rmdir); #endif #if @GNULIB_SETHOSTNAME@ /* Set the host name of the machine. The host name may or may not be fully qualified. Put LEN bytes of NAME into the host name. Return 0 if successful, otherwise, set errno and return -1. Platforms with no ability to set the hostname return -1 and set errno = ENOSYS. */ # if !@HAVE_SETHOSTNAME@ || !@HAVE_DECL_SETHOSTNAME@ _GL_FUNCDECL_SYS (sethostname, int, (const char *name, size_t len) _GL_ARG_NONNULL ((1))); # endif /* Need to cast, because on Solaris 11 2011-10, Mac OS X 10.5, IRIX 6.5 and FreeBSD 6.4 the second parameter is int. On Solaris 11 2011-10, the first parameter is not const. */ _GL_CXXALIAS_SYS_CAST (sethostname, int, (const char *name, size_t len)); _GL_CXXALIASWARN (sethostname); #elif defined GNULIB_POSIXCHECK # undef sethostname # if HAVE_RAW_DECL_SETHOSTNAME _GL_WARN_ON_USE (sethostname, "sethostname is unportable - " "use gnulib module sethostname for portability"); # endif #endif #if @GNULIB_SLEEP@ /* Pause the execution of the current thread for N seconds. Returns the number of seconds left to sleep. See the POSIX:2008 specification . */ # if @REPLACE_SLEEP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef sleep # define sleep rpl_sleep # endif _GL_FUNCDECL_RPL (sleep, unsigned int, (unsigned int n)); _GL_CXXALIAS_RPL (sleep, unsigned int, (unsigned int n)); # else # if !@HAVE_SLEEP@ _GL_FUNCDECL_SYS (sleep, unsigned int, (unsigned int n)); # endif _GL_CXXALIAS_SYS (sleep, unsigned int, (unsigned int n)); # endif _GL_CXXALIASWARN (sleep); #elif defined GNULIB_POSIXCHECK # undef sleep # if HAVE_RAW_DECL_SLEEP _GL_WARN_ON_USE (sleep, "sleep is unportable - " "use gnulib module sleep for portability"); # endif #endif #if @GNULIB_MDA_SWAB@ /* On native Windows, map 'swab' to '_swab', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::swab always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef swab # define swab _swab # endif _GL_CXXALIAS_MDA (swab, void, (char *from, char *to, int n)); # else _GL_CXXALIAS_SYS (swab, void, (const void *from, void *to, ssize_t n)); # endif _GL_CXXALIASWARN (swab); #endif #if @GNULIB_SYMLINK@ # if @REPLACE_SYMLINK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef symlink # define symlink rpl_symlink # endif _GL_FUNCDECL_RPL (symlink, int, (char const *contents, char const *file) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (symlink, int, (char const *contents, char const *file)); # else # if !@HAVE_SYMLINK@ _GL_FUNCDECL_SYS (symlink, int, (char const *contents, char const *file) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (symlink, int, (char const *contents, char const *file)); # endif _GL_CXXALIASWARN (symlink); #elif defined GNULIB_POSIXCHECK # undef symlink # if HAVE_RAW_DECL_SYMLINK _GL_WARN_ON_USE (symlink, "symlink is not portable - " "use gnulib module symlink for portability"); # endif #endif #if @GNULIB_SYMLINKAT@ # if @REPLACE_SYMLINKAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef symlinkat # define symlinkat rpl_symlinkat # endif _GL_FUNCDECL_RPL (symlinkat, int, (char const *contents, int fd, char const *file) _GL_ARG_NONNULL ((1, 3))); _GL_CXXALIAS_RPL (symlinkat, int, (char const *contents, int fd, char const *file)); # else # if !@HAVE_SYMLINKAT@ _GL_FUNCDECL_SYS (symlinkat, int, (char const *contents, int fd, char const *file) _GL_ARG_NONNULL ((1, 3))); # endif _GL_CXXALIAS_SYS (symlinkat, int, (char const *contents, int fd, char const *file)); # endif _GL_CXXALIASWARN (symlinkat); #elif defined GNULIB_POSIXCHECK # undef symlinkat # if HAVE_RAW_DECL_SYMLINKAT _GL_WARN_ON_USE (symlinkat, "symlinkat is not portable - " "use gnulib module symlinkat for portability"); # endif #endif #if @GNULIB_TRUNCATE@ /* Change the size of the file designated by FILENAME to become equal to LENGTH. Return 0 if successful, otherwise -1 and errno set. See the POSIX:2008 specification . */ # if @REPLACE_TRUNCATE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef truncate # define truncate rpl_truncate # endif _GL_FUNCDECL_RPL (truncate, int, (const char *filename, off_t length) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (truncate, int, (const char *filename, off_t length)); # else # if !@HAVE_DECL_TRUNCATE@ _GL_FUNCDECL_SYS (truncate, int, (const char *filename, off_t length) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (truncate, int, (const char *filename, off_t length)); # endif _GL_CXXALIASWARN (truncate); #elif defined GNULIB_POSIXCHECK # undef truncate # if HAVE_RAW_DECL_TRUNCATE _GL_WARN_ON_USE (truncate, "truncate is unportable - " "use gnulib module truncate for portability"); # endif #endif #if @GNULIB_TTYNAME_R@ /* Store at most BUFLEN characters of the pathname of the terminal FD is open on in BUF. Return 0 on success, otherwise an error number. */ # if @REPLACE_TTYNAME_R@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef ttyname_r # define ttyname_r rpl_ttyname_r # endif _GL_FUNCDECL_RPL (ttyname_r, int, (int fd, char *buf, size_t buflen) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (ttyname_r, int, (int fd, char *buf, size_t buflen)); # else # if !@HAVE_DECL_TTYNAME_R@ _GL_FUNCDECL_SYS (ttyname_r, int, (int fd, char *buf, size_t buflen) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (ttyname_r, int, (int fd, char *buf, size_t buflen)); # endif _GL_CXXALIASWARN (ttyname_r); #elif defined GNULIB_POSIXCHECK # undef ttyname_r # if HAVE_RAW_DECL_TTYNAME_R _GL_WARN_ON_USE (ttyname_r, "ttyname_r is not portable - " "use gnulib module ttyname_r for portability"); # endif #endif #if @GNULIB_UNLINK@ # if @REPLACE_UNLINK@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef unlink # define unlink rpl_unlink # endif _GL_FUNCDECL_RPL (unlink, int, (char const *file) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (unlink, int, (char const *file)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef unlink # define unlink _unlink # endif _GL_CXXALIAS_MDA (unlink, int, (char const *file)); # else _GL_CXXALIAS_SYS (unlink, int, (char const *file)); # endif _GL_CXXALIASWARN (unlink); #elif defined GNULIB_POSIXCHECK # undef unlink # if HAVE_RAW_DECL_UNLINK _GL_WARN_ON_USE (unlink, "unlink is not portable - " "use gnulib module unlink for portability"); # endif #elif @GNULIB_MDA_UNLINK@ /* On native Windows, map 'unlink' to '_unlink', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::unlink always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef unlink # define unlink _unlink # endif _GL_CXXALIAS_MDA (unlink, int, (char const *file)); # else _GL_CXXALIAS_SYS (unlink, int, (char const *file)); # endif _GL_CXXALIASWARN (unlink); #endif #if @GNULIB_UNLINKAT@ # if @REPLACE_UNLINKAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef unlinkat # define unlinkat rpl_unlinkat # endif _GL_FUNCDECL_RPL (unlinkat, int, (int fd, char const *file, int flag) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (unlinkat, int, (int fd, char const *file, int flag)); # else # if !@HAVE_UNLINKAT@ _GL_FUNCDECL_SYS (unlinkat, int, (int fd, char const *file, int flag) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (unlinkat, int, (int fd, char const *file, int flag)); # endif _GL_CXXALIASWARN (unlinkat); #elif defined GNULIB_POSIXCHECK # undef unlinkat # if HAVE_RAW_DECL_UNLINKAT _GL_WARN_ON_USE (unlinkat, "unlinkat is not portable - " "use gnulib module unlinkat for portability"); # endif #endif #if @GNULIB_USLEEP@ /* Pause the execution of the current thread for N microseconds. Returns 0 on completion, or -1 on range error. See the POSIX:2001 specification . */ # if @REPLACE_USLEEP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef usleep # define usleep rpl_usleep # endif _GL_FUNCDECL_RPL (usleep, int, (useconds_t n)); _GL_CXXALIAS_RPL (usleep, int, (useconds_t n)); # else # if !@HAVE_USLEEP@ _GL_FUNCDECL_SYS (usleep, int, (useconds_t n)); # endif /* Need to cast, because on Haiku, the first parameter is unsigned int n. */ _GL_CXXALIAS_SYS_CAST (usleep, int, (useconds_t n)); # endif _GL_CXXALIASWARN (usleep); #elif defined GNULIB_POSIXCHECK # undef usleep # if HAVE_RAW_DECL_USLEEP _GL_WARN_ON_USE (usleep, "usleep is unportable - " "use gnulib module usleep for portability"); # endif #endif #if @GNULIB_WRITE@ /* Write up to COUNT bytes starting at BUF to file descriptor FD. See the POSIX:2008 specification . */ # if @REPLACE_WRITE@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef write # define write rpl_write # endif _GL_FUNCDECL_RPL (write, ssize_t, (int fd, const void *buf, size_t count) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (write, ssize_t, (int fd, const void *buf, size_t count)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef write # define write _write # endif _GL_CXXALIAS_MDA (write, ssize_t, (int fd, const void *buf, size_t count)); # else _GL_CXXALIAS_SYS (write, ssize_t, (int fd, const void *buf, size_t count)); # endif _GL_CXXALIASWARN (write); #elif @GNULIB_MDA_WRITE@ /* On native Windows, map 'write' to '_write', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::write always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef write # define write _write # endif # ifdef __MINGW32__ _GL_CXXALIAS_MDA (write, int, (int fd, const void *buf, unsigned int count)); # else _GL_CXXALIAS_MDA (write, ssize_t, (int fd, const void *buf, unsigned int count)); # endif # else _GL_CXXALIAS_SYS (write, ssize_t, (int fd, const void *buf, size_t count)); # endif _GL_CXXALIASWARN (write); #endif _GL_INLINE_HEADER_END #endif /* _@GUARD_PREFIX@_UNISTD_H */ #endif /* _GL_INCLUDING_UNISTD_H */ #endif /* _@GUARD_PREFIX@_UNISTD_H */ libffcall-2.4/gnulib-lib/thread-optim.h0000664000000000000000000000424114057155505014770 00000000000000/* Optimization of multithreaded code. Copyright (C) 2020-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2020. */ #ifndef _THREAD_OPTIM_H #define _THREAD_OPTIM_H /* This file defines a way to optimize multithreaded code for the single-thread case, based on the variable '__libc_single_threaded', defined in glibc >= 2.32. */ /* Typical use: In a block or function, use bool mt = gl_multithreaded (); ... if (mt) if (pthread_mutex_lock (&lock)) abort (); ... if (mt) if (pthread_mutex_unlock (&lock)) abort (); The gl_multithreaded () invocation determines whether the program currently is multithreaded. if (mt) STATEMENT executes STATEMENT in the multithreaded case, and skips it in the single-threaded case. The code between the gl_multithreaded () invocation and any use of the variable 'mt' must not create threads or invoke functions that may indirectly create threads (e.g. 'dlopen' may, indirectly through C++ initializers of global variables in the shared library being opened, create threads). The lock here is meant to synchronize threads in the same process. The same optimization cannot be applied to locks that synchronize different processes (e.g. through shared memory mappings). */ #if HAVE_SYS_SINGLE_THREADED_H /* glibc >= 2.32 */ # include # define gl_multithreaded() !__libc_single_threaded #else # define gl_multithreaded() 1 #endif #endif /* _THREAD_OPTIM_H */ libffcall-2.4/gnulib-lib/strerror-override.c0000664000000000000000000002150714057155505016071 00000000000000/* strerror-override.c --- POSIX compatible system error routine Copyright (C) 2010-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Bruno Haible , 2010. */ #include #include "strerror-override.h" #include #if GNULIB_defined_EWINSOCK /* native Windows platforms */ # if HAVE_WINSOCK2_H # include # endif #endif /* If ERRNUM maps to an errno value defined by gnulib, return a string describing the error. Otherwise return NULL. */ const char * strerror_override (int errnum) { /* These error messages are taken from glibc/sysdeps/gnu/errlist.c. */ switch (errnum) { #if REPLACE_STRERROR_0 case 0: return "Success"; #endif #if GNULIB_defined_ESOCK /* native Windows platforms with older */ case EINPROGRESS: return "Operation now in progress"; case EALREADY: return "Operation already in progress"; case ENOTSOCK: return "Socket operation on non-socket"; case EDESTADDRREQ: return "Destination address required"; case EMSGSIZE: return "Message too long"; case EPROTOTYPE: return "Protocol wrong type for socket"; case ENOPROTOOPT: return "Protocol not available"; case EPROTONOSUPPORT: return "Protocol not supported"; case EOPNOTSUPP: return "Operation not supported"; case EAFNOSUPPORT: return "Address family not supported by protocol"; case EADDRINUSE: return "Address already in use"; case EADDRNOTAVAIL: return "Cannot assign requested address"; case ENETDOWN: return "Network is down"; case ENETUNREACH: return "Network is unreachable"; case ECONNRESET: return "Connection reset by peer"; case ENOBUFS: return "No buffer space available"; case EISCONN: return "Transport endpoint is already connected"; case ENOTCONN: return "Transport endpoint is not connected"; case ETIMEDOUT: return "Connection timed out"; case ECONNREFUSED: return "Connection refused"; case ELOOP: return "Too many levels of symbolic links"; case EHOSTUNREACH: return "No route to host"; case EWOULDBLOCK: return "Operation would block"; #endif #if GNULIB_defined_ESTREAMS /* native Windows platforms with older */ case ETXTBSY: return "Text file busy"; case ENODATA: return "No data available"; case ENOSR: return "Out of streams resources"; case ENOSTR: return "Device not a stream"; case ETIME: return "Timer expired"; case EOTHER: return "Other error"; #endif #if GNULIB_defined_EWINSOCK /* native Windows platforms */ case ESOCKTNOSUPPORT: return "Socket type not supported"; case EPFNOSUPPORT: return "Protocol family not supported"; case ESHUTDOWN: return "Cannot send after transport endpoint shutdown"; case ETOOMANYREFS: return "Too many references: cannot splice"; case EHOSTDOWN: return "Host is down"; case EPROCLIM: return "Too many processes"; case EUSERS: return "Too many users"; case EDQUOT: return "Disk quota exceeded"; case ESTALE: return "Stale NFS file handle"; case EREMOTE: return "Object is remote"; # if HAVE_WINSOCK2_H /* WSA_INVALID_HANDLE maps to EBADF */ /* WSA_NOT_ENOUGH_MEMORY maps to ENOMEM */ /* WSA_INVALID_PARAMETER maps to EINVAL */ case WSA_OPERATION_ABORTED: return "Overlapped operation aborted"; case WSA_IO_INCOMPLETE: return "Overlapped I/O event object not in signaled state"; case WSA_IO_PENDING: return "Overlapped operations will complete later"; /* WSAEINTR maps to EINTR */ /* WSAEBADF maps to EBADF */ /* WSAEACCES maps to EACCES */ /* WSAEFAULT maps to EFAULT */ /* WSAEINVAL maps to EINVAL */ /* WSAEMFILE maps to EMFILE */ /* WSAEWOULDBLOCK maps to EWOULDBLOCK */ /* WSAEINPROGRESS maps to EINPROGRESS */ /* WSAEALREADY maps to EALREADY */ /* WSAENOTSOCK maps to ENOTSOCK */ /* WSAEDESTADDRREQ maps to EDESTADDRREQ */ /* WSAEMSGSIZE maps to EMSGSIZE */ /* WSAEPROTOTYPE maps to EPROTOTYPE */ /* WSAENOPROTOOPT maps to ENOPROTOOPT */ /* WSAEPROTONOSUPPORT maps to EPROTONOSUPPORT */ /* WSAESOCKTNOSUPPORT is ESOCKTNOSUPPORT */ /* WSAEOPNOTSUPP maps to EOPNOTSUPP */ /* WSAEPFNOSUPPORT is EPFNOSUPPORT */ /* WSAEAFNOSUPPORT maps to EAFNOSUPPORT */ /* WSAEADDRINUSE maps to EADDRINUSE */ /* WSAEADDRNOTAVAIL maps to EADDRNOTAVAIL */ /* WSAENETDOWN maps to ENETDOWN */ /* WSAENETUNREACH maps to ENETUNREACH */ /* WSAENETRESET maps to ENETRESET */ /* WSAECONNABORTED maps to ECONNABORTED */ /* WSAECONNRESET maps to ECONNRESET */ /* WSAENOBUFS maps to ENOBUFS */ /* WSAEISCONN maps to EISCONN */ /* WSAENOTCONN maps to ENOTCONN */ /* WSAESHUTDOWN is ESHUTDOWN */ /* WSAETOOMANYREFS is ETOOMANYREFS */ /* WSAETIMEDOUT maps to ETIMEDOUT */ /* WSAECONNREFUSED maps to ECONNREFUSED */ /* WSAELOOP maps to ELOOP */ /* WSAENAMETOOLONG maps to ENAMETOOLONG */ /* WSAEHOSTDOWN is EHOSTDOWN */ /* WSAEHOSTUNREACH maps to EHOSTUNREACH */ /* WSAENOTEMPTY maps to ENOTEMPTY */ /* WSAEPROCLIM is EPROCLIM */ /* WSAEUSERS is EUSERS */ /* WSAEDQUOT is EDQUOT */ /* WSAESTALE is ESTALE */ /* WSAEREMOTE is EREMOTE */ case WSASYSNOTREADY: return "Network subsystem is unavailable"; case WSAVERNOTSUPPORTED: return "Winsock.dll version out of range"; case WSANOTINITIALISED: return "Successful WSAStartup not yet performed"; case WSAEDISCON: return "Graceful shutdown in progress"; case WSAENOMORE: case WSA_E_NO_MORE: return "No more results"; case WSAECANCELLED: case WSA_E_CANCELLED: return "Call was canceled"; case WSAEINVALIDPROCTABLE: return "Procedure call table is invalid"; case WSAEINVALIDPROVIDER: return "Service provider is invalid"; case WSAEPROVIDERFAILEDINIT: return "Service provider failed to initialize"; case WSASYSCALLFAILURE: return "System call failure"; case WSASERVICE_NOT_FOUND: return "Service not found"; case WSATYPE_NOT_FOUND: return "Class type not found"; case WSAEREFUSED: return "Database query was refused"; case WSAHOST_NOT_FOUND: return "Host not found"; case WSATRY_AGAIN: return "Nonauthoritative host not found"; case WSANO_RECOVERY: return "Nonrecoverable error"; case WSANO_DATA: return "Valid name, no data record of requested type"; /* WSA_QOS_* omitted */ # endif #endif #if GNULIB_defined_ENOMSG case ENOMSG: return "No message of desired type"; #endif #if GNULIB_defined_EIDRM case EIDRM: return "Identifier removed"; #endif #if GNULIB_defined_ENOLINK case ENOLINK: return "Link has been severed"; #endif #if GNULIB_defined_EPROTO case EPROTO: return "Protocol error"; #endif #if GNULIB_defined_EMULTIHOP case EMULTIHOP: return "Multihop attempted"; #endif #if GNULIB_defined_EBADMSG case EBADMSG: return "Bad message"; #endif #if GNULIB_defined_EOVERFLOW case EOVERFLOW: return "Value too large for defined data type"; #endif #if GNULIB_defined_ENOTSUP case ENOTSUP: return "Not supported"; #endif #if GNULIB_defined_ENETRESET case ENETRESET: return "Network dropped connection on reset"; #endif #if GNULIB_defined_ECONNABORTED case ECONNABORTED: return "Software caused connection abort"; #endif #if GNULIB_defined_ESTALE case ESTALE: return "Stale NFS file handle"; #endif #if GNULIB_defined_EDQUOT case EDQUOT: return "Disk quota exceeded"; #endif #if GNULIB_defined_ECANCELED case ECANCELED: return "Operation canceled"; #endif #if GNULIB_defined_EOWNERDEAD case EOWNERDEAD: return "Owner died"; #endif #if GNULIB_defined_ENOTRECOVERABLE case ENOTRECOVERABLE: return "State not recoverable"; #endif #if GNULIB_defined_EILSEQ case EILSEQ: return "Invalid or incomplete multibyte or wide character"; #endif default: return NULL; } } libffcall-2.4/gnulib-lib/gl_anyhash2.h0000664000000000000000000000517314057155505014577 00000000000000/* Hash table for sequential list, set, and map data type. Copyright (C) 2006, 2009-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Common code of gl_linkedhash_list.c, gl_avltreehash_list.c, gl_rbtreehash_list.c, gl_linkedhash_set.c, gl_hash_set.c, gl_linkedhash_map.c, gl_hash_map.c. */ #include "gl_anyhash_primes.h" /* Resizes the hash table with a new estimated size. */ static void hash_resize (CONTAINER_T container, size_t estimate) { size_t new_size = next_prime (estimate); if (new_size > container->table_size) { gl_hash_entry_t *old_table = container->table; /* Allocate the new table. */ gl_hash_entry_t *new_table; size_t i; if (size_overflow_p (xtimes (new_size, sizeof (gl_hash_entry_t)))) goto fail; new_table = (gl_hash_entry_t *) calloc (new_size, sizeof (gl_hash_entry_t)); if (new_table == NULL) goto fail; /* Iterate through the entries of the old table. */ for (i = container->table_size; i > 0; ) { gl_hash_entry_t node = old_table[--i]; while (node != NULL) { gl_hash_entry_t next = node->hash_next; /* Add the entry to the new table. */ size_t bucket = node->hashcode % new_size; node->hash_next = new_table[bucket]; new_table[bucket] = node; node = next; } } container->table = new_table; container->table_size = new_size; free (old_table); } return; fail: /* Just continue without resizing the table. */ return; } /* Resizes the hash table if needed, after CONTAINER_COUNT (container) was incremented. */ static void hash_resize_after_add (CONTAINER_T container) { size_t count = CONTAINER_COUNT (container); size_t estimate = xsum (count, count / 2); /* 1.5 * count */ if (estimate > container->table_size) hash_resize (container, estimate); } libffcall-2.4/gnulib-lib/xsize.c0000664000000000000000000000150414057155505013527 00000000000000/* Checked size_t computations. Copyright (C) 2012-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include #define XSIZE_INLINE _GL_EXTERN_INLINE #include "xsize.h" libffcall-2.4/gnulib-lib/windows-initguard.h0000664000000000000000000000231614057155505016052 00000000000000/* Init guards, somewhat like spinlocks (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/stddef.in.h0000664000000000000000000001203414057155505014250 00000000000000/* A substitute for POSIX 2008 , for platforms that have issues. Copyright (C) 2009-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ /* Written by Eric Blake. */ /* * POSIX 2008 for platforms that have issues. * */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined __need_wchar_t || defined __need_size_t \ || defined __need_ptrdiff_t || defined __need_NULL \ || defined __need_wint_t /* Special invocation convention inside gcc header files. In particular, gcc provides a version of that blindly redefines NULL even when __need_wint_t was defined, even though wint_t is not normally provided by . Hence, we must remember if special invocation has ever been used to obtain wint_t, in which case we need to clean up NULL yet again. */ # if !(defined _@GUARD_PREFIX@_STDDEF_H && defined _GL_STDDEF_WINT_T) # ifdef __need_wint_t # define _GL_STDDEF_WINT_T # endif # @INCLUDE_NEXT@ @NEXT_STDDEF_H@ /* On TinyCC, make sure that the macros that indicate the special invocation convention get undefined. */ # undef __need_wchar_t # undef __need_size_t # undef __need_ptrdiff_t # undef __need_NULL # undef __need_wint_t # endif #else /* Normal invocation convention. */ # ifndef _@GUARD_PREFIX@_STDDEF_H /* On AIX 7.2, with xlc in 64-bit mode, defines max_align_t to a type with alignment 4, but 'long' has alignment 8. */ # if defined _AIX && defined __LP64__ # if !GNULIB_defined_max_align_t # ifdef _MAX_ALIGN_T /* /usr/include/stddef.h has already defined max_align_t. Override it. */ typedef long rpl_max_align_t; # define max_align_t rpl_max_align_t # else /* Prevent /usr/include/stddef.h from defining max_align_t. */ typedef long max_align_t; # define _MAX_ALIGN_T # endif # define GNULIB_defined_max_align_t 1 # endif # endif /* The include_next requires a split double-inclusion guard. */ # @INCLUDE_NEXT@ @NEXT_STDDEF_H@ /* On NetBSD 5.0, the definition of NULL lacks proper parentheses. */ # if (@REPLACE_NULL@ \ && (!defined _@GUARD_PREFIX@_STDDEF_H || defined _GL_STDDEF_WINT_T)) # undef NULL # ifdef __cplusplus /* ISO C++ says that the macro NULL must expand to an integer constant expression, hence '((void *) 0)' is not allowed in C++. */ # if __GNUG__ >= 3 /* GNU C++ has a __null macro that behaves like an integer ('int' or 'long') but has the same size as a pointer. Use that, to avoid warnings. */ # define NULL __null # else # define NULL 0L # endif # else # define NULL ((void *) 0) # endif # endif # ifndef _@GUARD_PREFIX@_STDDEF_H # define _@GUARD_PREFIX@_STDDEF_H /* Some platforms lack wchar_t. */ #if !@HAVE_WCHAR_T@ # define wchar_t int #endif /* Some platforms lack max_align_t. The check for _GCC_MAX_ALIGN_T is a hack in case the configure-time test was done with g++ even though we are currently compiling with gcc. On MSVC, max_align_t is defined only in C++ mode, after was included. Its definition is good since it has an alignment of 8 (on x86 and x86_64). Similarly on OS/2 kLIBC. */ #if (defined _MSC_VER || (defined __KLIBC__ && !defined __LIBCN__)) \ && defined __cplusplus # include #else # if ! (@HAVE_MAX_ALIGN_T@ || (defined _GCC_MAX_ALIGN_T && !defined __clang__)) # if !GNULIB_defined_max_align_t /* On the x86, the maximum storage alignment of double, long, etc. is 4, but GCC's C11 ABI for x86 says that max_align_t has an alignment of 8, and the C11 standard allows this. Work around this problem by using __alignof__ (which returns 8 for double) rather than _Alignof (which returns 4), and align each union member accordingly. */ # if defined __GNUC__ || (__clang_major__ >= 4) # define _GL_STDDEF_ALIGNAS(type) \ __attribute__ ((__aligned__ (__alignof__ (type)))) # else # define _GL_STDDEF_ALIGNAS(type) /* */ # endif typedef union { char *__p _GL_STDDEF_ALIGNAS (char *); double __d _GL_STDDEF_ALIGNAS (double); long double __ld _GL_STDDEF_ALIGNAS (long double); long int __i _GL_STDDEF_ALIGNAS (long int); } rpl_max_align_t; # define max_align_t rpl_max_align_t # define GNULIB_defined_max_align_t 1 # endif # endif #endif # endif /* _@GUARD_PREFIX@_STDDEF_H */ # endif /* _@GUARD_PREFIX@_STDDEF_H */ #endif /* __need_XXX */ libffcall-2.4/gnulib-lib/string.in.h0000664000000000000000000013126314057257060014312 00000000000000/* A GNU-like . Copyright (C) 1995-1996, 2001-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #if __GNUC__ >= 3 @PRAGMA_SYSTEM_HEADER@ #endif @PRAGMA_COLUMNS@ #if defined _GL_ALREADY_INCLUDING_STRING_H /* Special invocation convention: - On OS X/NetBSD we have a sequence of nested includes -> -> "string.h" In this situation system _chk variants due to -D_FORTIFY_SOURCE might be used after any replacements defined here. */ #@INCLUDE_NEXT@ @NEXT_STRING_H@ #else /* Normal invocation convention. */ #ifndef _@GUARD_PREFIX@_STRING_H #define _GL_ALREADY_INCLUDING_STRING_H /* The include_next requires a split double-inclusion guard. */ #@INCLUDE_NEXT@ @NEXT_STRING_H@ #undef _GL_ALREADY_INCLUDING_STRING_H #ifndef _@GUARD_PREFIX@_STRING_H #define _@GUARD_PREFIX@_STRING_H /* NetBSD 5.0 mis-defines NULL. */ #include /* MirBSD defines mbslen as a macro. */ #if @GNULIB_MBSLEN@ && defined __MirBSD__ # include #endif /* The __attribute__ feature is available in gcc versions 2.5 and later. The attribute __pure__ was added in gcc 2.96. */ #ifndef _GL_ATTRIBUTE_PURE # if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 96) || defined __clang__ # define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) # else # define _GL_ATTRIBUTE_PURE /* empty */ # endif #endif /* NetBSD 5.0 declares strsignal in , not in . */ /* But in any case avoid namespace pollution on glibc systems. */ #if (@GNULIB_STRSIGNAL@ || defined GNULIB_POSIXCHECK) && defined __NetBSD__ \ && ! defined __GLIBC__ # include #endif /* AIX 7.2 declares ffsl and ffsll in , not in . */ /* But in any case avoid namespace pollution on glibc systems. */ #if ((@GNULIB_FFSL@ || @GNULIB_FFSLL@ || defined GNULIB_POSIXCHECK) \ && defined _AIX) \ && ! defined __GLIBC__ # include #endif /* The definitions of _GL_FUNCDECL_RPL etc. are copied here. */ /* The definition of _GL_ARG_NONNULL is copied here. */ /* The definition of _GL_WARN_ON_USE is copied here. */ /* Clear a block of memory. The compiler will not delete a call to this function, even if the block is dead after the call. */ #if @GNULIB_EXPLICIT_BZERO@ # if ! @HAVE_EXPLICIT_BZERO@ _GL_FUNCDECL_SYS (explicit_bzero, void, (void *__dest, size_t __n) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (explicit_bzero, void, (void *__dest, size_t __n)); _GL_CXXALIASWARN (explicit_bzero); #elif defined GNULIB_POSIXCHECK # undef explicit_bzero # if HAVE_RAW_DECL_EXPLICIT_BZERO _GL_WARN_ON_USE (explicit_bzero, "explicit_bzero is unportable - " "use gnulib module explicit_bzero for portability"); # endif #endif /* Find the index of the least-significant set bit. */ #if @GNULIB_FFSL@ # if !@HAVE_FFSL@ _GL_FUNCDECL_SYS (ffsl, int, (long int i)); # endif _GL_CXXALIAS_SYS (ffsl, int, (long int i)); _GL_CXXALIASWARN (ffsl); #elif defined GNULIB_POSIXCHECK # undef ffsl # if HAVE_RAW_DECL_FFSL _GL_WARN_ON_USE (ffsl, "ffsl is not portable - use the ffsl module"); # endif #endif /* Find the index of the least-significant set bit. */ #if @GNULIB_FFSLL@ # if @REPLACE_FFSLL@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define ffsll rpl_ffsll # endif _GL_FUNCDECL_RPL (ffsll, int, (long long int i)); _GL_CXXALIAS_RPL (ffsll, int, (long long int i)); # else # if !@HAVE_FFSLL@ _GL_FUNCDECL_SYS (ffsll, int, (long long int i)); # endif _GL_CXXALIAS_SYS (ffsll, int, (long long int i)); # endif _GL_CXXALIASWARN (ffsll); #elif defined GNULIB_POSIXCHECK # undef ffsll # if HAVE_RAW_DECL_FFSLL _GL_WARN_ON_USE (ffsll, "ffsll is not portable - use the ffsll module"); # endif #endif #if @GNULIB_MDA_MEMCCPY@ /* On native Windows, map 'memccpy' to '_memccpy', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::memccpy always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef memccpy # define memccpy _memccpy # endif _GL_CXXALIAS_MDA (memccpy, void *, (void *dest, const void *src, int c, size_t n)); # else _GL_CXXALIAS_SYS (memccpy, void *, (void *dest, const void *src, int c, size_t n)); # endif _GL_CXXALIASWARN (memccpy); #endif /* Return the first instance of C within N bytes of S, or NULL. */ #if @GNULIB_MEMCHR@ # if @REPLACE_MEMCHR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef memchr # define memchr rpl_memchr # endif _GL_FUNCDECL_RPL (memchr, void *, (void const *__s, int __c, size_t __n) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (memchr, void *, (void const *__s, int __c, size_t __n)); # else /* On some systems, this function is defined as an overloaded function: extern "C" { const void * std::memchr (const void *, int, size_t); } extern "C++" { void * std::memchr (void *, int, size_t); } */ _GL_CXXALIAS_SYS_CAST2 (memchr, void *, (void const *__s, int __c, size_t __n), void const *, (void const *__s, int __c, size_t __n)); # endif # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (memchr, void *, (void *__s, int __c, size_t __n)); _GL_CXXALIASWARN1 (memchr, void const *, (void const *__s, int __c, size_t __n)); # elif __GLIBC__ >= 2 _GL_CXXALIASWARN (memchr); # endif #elif defined GNULIB_POSIXCHECK # undef memchr /* Assume memchr is always declared. */ _GL_WARN_ON_USE (memchr, "memchr has platform-specific bugs - " "use gnulib module memchr for portability" ); #endif /* Return the first occurrence of NEEDLE in HAYSTACK. */ #if @GNULIB_MEMMEM@ # if @REPLACE_MEMMEM@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define memmem rpl_memmem # endif _GL_FUNCDECL_RPL (memmem, void *, (void const *__haystack, size_t __haystack_len, void const *__needle, size_t __needle_len) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 3))); _GL_CXXALIAS_RPL (memmem, void *, (void const *__haystack, size_t __haystack_len, void const *__needle, size_t __needle_len)); # else # if ! @HAVE_DECL_MEMMEM@ _GL_FUNCDECL_SYS (memmem, void *, (void const *__haystack, size_t __haystack_len, void const *__needle, size_t __needle_len) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 3))); # endif _GL_CXXALIAS_SYS (memmem, void *, (void const *__haystack, size_t __haystack_len, void const *__needle, size_t __needle_len)); # endif _GL_CXXALIASWARN (memmem); #elif defined GNULIB_POSIXCHECK # undef memmem # if HAVE_RAW_DECL_MEMMEM _GL_WARN_ON_USE (memmem, "memmem is unportable and often quadratic - " "use gnulib module memmem-simple for portability, " "and module memmem for speed" ); # endif #endif /* Copy N bytes of SRC to DEST, return pointer to bytes after the last written byte. */ #if @GNULIB_MEMPCPY@ # if ! @HAVE_MEMPCPY@ _GL_FUNCDECL_SYS (mempcpy, void *, (void *restrict __dest, void const *restrict __src, size_t __n) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (mempcpy, void *, (void *restrict __dest, void const *restrict __src, size_t __n)); _GL_CXXALIASWARN (mempcpy); #elif defined GNULIB_POSIXCHECK # undef mempcpy # if HAVE_RAW_DECL_MEMPCPY _GL_WARN_ON_USE (mempcpy, "mempcpy is unportable - " "use gnulib module mempcpy for portability"); # endif #endif /* Search backwards through a block for a byte (specified as an int). */ #if @GNULIB_MEMRCHR@ # if ! @HAVE_DECL_MEMRCHR@ _GL_FUNCDECL_SYS (memrchr, void *, (void const *, int, size_t) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); # endif /* On some systems, this function is defined as an overloaded function: extern "C++" { const void * std::memrchr (const void *, int, size_t); } extern "C++" { void * std::memrchr (void *, int, size_t); } */ _GL_CXXALIAS_SYS_CAST2 (memrchr, void *, (void const *, int, size_t), void const *, (void const *, int, size_t)); # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (memrchr, void *, (void *, int, size_t)); _GL_CXXALIASWARN1 (memrchr, void const *, (void const *, int, size_t)); # else _GL_CXXALIASWARN (memrchr); # endif #elif defined GNULIB_POSIXCHECK # undef memrchr # if HAVE_RAW_DECL_MEMRCHR _GL_WARN_ON_USE (memrchr, "memrchr is unportable - " "use gnulib module memrchr for portability"); # endif #endif /* Find the first occurrence of C in S. More efficient than memchr(S,C,N), at the expense of undefined behavior if C does not occur within N bytes. */ #if @GNULIB_RAWMEMCHR@ # if ! @HAVE_RAWMEMCHR@ _GL_FUNCDECL_SYS (rawmemchr, void *, (void const *__s, int __c_in) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); # endif /* On some systems, this function is defined as an overloaded function: extern "C++" { const void * std::rawmemchr (const void *, int); } extern "C++" { void * std::rawmemchr (void *, int); } */ _GL_CXXALIAS_SYS_CAST2 (rawmemchr, void *, (void const *__s, int __c_in), void const *, (void const *__s, int __c_in)); # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (rawmemchr, void *, (void *__s, int __c_in)); _GL_CXXALIASWARN1 (rawmemchr, void const *, (void const *__s, int __c_in)); # else _GL_CXXALIASWARN (rawmemchr); # endif #elif defined GNULIB_POSIXCHECK # undef rawmemchr # if HAVE_RAW_DECL_RAWMEMCHR _GL_WARN_ON_USE (rawmemchr, "rawmemchr is unportable - " "use gnulib module rawmemchr for portability"); # endif #endif /* Copy SRC to DST, returning the address of the terminating '\0' in DST. */ #if @GNULIB_STPCPY@ # if ! @HAVE_STPCPY@ _GL_FUNCDECL_SYS (stpcpy, char *, (char *restrict __dst, char const *restrict __src) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (stpcpy, char *, (char *restrict __dst, char const *restrict __src)); _GL_CXXALIASWARN (stpcpy); #elif defined GNULIB_POSIXCHECK # undef stpcpy # if HAVE_RAW_DECL_STPCPY _GL_WARN_ON_USE (stpcpy, "stpcpy is unportable - " "use gnulib module stpcpy for portability"); # endif #endif /* Copy no more than N bytes of SRC to DST, returning a pointer past the last non-NUL byte written into DST. */ #if @GNULIB_STPNCPY@ # if @REPLACE_STPNCPY@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef stpncpy # define stpncpy rpl_stpncpy # endif _GL_FUNCDECL_RPL (stpncpy, char *, (char *restrict __dst, char const *restrict __src, size_t __n) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (stpncpy, char *, (char *restrict __dst, char const *restrict __src, size_t __n)); # else # if ! @HAVE_STPNCPY@ _GL_FUNCDECL_SYS (stpncpy, char *, (char *restrict __dst, char const *restrict __src, size_t __n) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (stpncpy, char *, (char *restrict __dst, char const *restrict __src, size_t __n)); # endif _GL_CXXALIASWARN (stpncpy); #elif defined GNULIB_POSIXCHECK # undef stpncpy # if HAVE_RAW_DECL_STPNCPY _GL_WARN_ON_USE (stpncpy, "stpncpy is unportable - " "use gnulib module stpncpy for portability"); # endif #endif #if defined GNULIB_POSIXCHECK /* strchr() does not work with multibyte strings if the locale encoding is GB18030 and the character to be searched is a digit. */ # undef strchr /* Assume strchr is always declared. */ _GL_WARN_ON_USE_CXX (strchr, const char *, char *, (const char *, int), "strchr cannot work correctly on character strings " "in some multibyte locales - " "use mbschr if you care about internationalization"); #endif /* Find the first occurrence of C in S or the final NUL byte. */ #if @GNULIB_STRCHRNUL@ # if @REPLACE_STRCHRNUL@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define strchrnul rpl_strchrnul # endif _GL_FUNCDECL_RPL (strchrnul, char *, (const char *__s, int __c_in) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (strchrnul, char *, (const char *str, int ch)); # else # if ! @HAVE_STRCHRNUL@ _GL_FUNCDECL_SYS (strchrnul, char *, (char const *__s, int __c_in) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); # endif /* On some systems, this function is defined as an overloaded function: extern "C++" { const char * std::strchrnul (const char *, int); } extern "C++" { char * std::strchrnul (char *, int); } */ _GL_CXXALIAS_SYS_CAST2 (strchrnul, char *, (char const *__s, int __c_in), char const *, (char const *__s, int __c_in)); # endif # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (strchrnul, char *, (char *__s, int __c_in)); _GL_CXXALIASWARN1 (strchrnul, char const *, (char const *__s, int __c_in)); # else _GL_CXXALIASWARN (strchrnul); # endif #elif defined GNULIB_POSIXCHECK # undef strchrnul # if HAVE_RAW_DECL_STRCHRNUL _GL_WARN_ON_USE (strchrnul, "strchrnul is unportable - " "use gnulib module strchrnul for portability"); # endif #endif /* Duplicate S, returning an identical malloc'd string. */ #if @GNULIB_STRDUP@ # if @REPLACE_STRDUP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strdup # define strdup rpl_strdup # endif _GL_FUNCDECL_RPL (strdup, char *, (char const *__s) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (strdup, char *, (char const *__s)); # elif defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strdup # define strdup _strdup # endif _GL_CXXALIAS_MDA (strdup, char *, (char const *__s)); # else # if defined __cplusplus && defined GNULIB_NAMESPACE && defined strdup /* strdup exists as a function and as a macro. Get rid of the macro. */ # undef strdup # endif # if !(@HAVE_DECL_STRDUP@ || defined strdup) _GL_FUNCDECL_SYS (strdup, char *, (char const *__s) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (strdup, char *, (char const *__s)); # endif _GL_CXXALIASWARN (strdup); #elif defined GNULIB_POSIXCHECK # undef strdup # if HAVE_RAW_DECL_STRDUP _GL_WARN_ON_USE (strdup, "strdup is unportable - " "use gnulib module strdup for portability"); # endif #elif @GNULIB_MDA_STRDUP@ /* On native Windows, map 'creat' to '_creat', so that -loldnames is not required. In C++ with GNULIB_NAMESPACE, avoid differences between platforms by defining GNULIB_NAMESPACE::strdup always. */ # if defined _WIN32 && !defined __CYGWIN__ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strdup # define strdup _strdup # endif _GL_CXXALIAS_MDA (strdup, char *, (char const *__s)); # else # if defined __cplusplus && defined GNULIB_NAMESPACE && defined strdup # undef strdup # endif _GL_CXXALIAS_SYS (strdup, char *, (char const *__s)); # endif _GL_CXXALIASWARN (strdup); #endif /* Append no more than N characters from SRC onto DEST. */ #if @GNULIB_STRNCAT@ # if @REPLACE_STRNCAT@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strncat # define strncat rpl_strncat # endif _GL_FUNCDECL_RPL (strncat, char *, (char *restrict dest, const char *restrict src, size_t n) _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (strncat, char *, (char *restrict dest, const char *restrict src, size_t n)); # else _GL_CXXALIAS_SYS (strncat, char *, (char *restrict dest, const char *restrict src, size_t n)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (strncat); # endif #elif defined GNULIB_POSIXCHECK # undef strncat # if HAVE_RAW_DECL_STRNCAT _GL_WARN_ON_USE (strncat, "strncat is unportable - " "use gnulib module strncat for portability"); # endif #endif /* Return a newly allocated copy of at most N bytes of STRING. */ #if @GNULIB_STRNDUP@ # if @REPLACE_STRNDUP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strndup # define strndup rpl_strndup # endif _GL_FUNCDECL_RPL (strndup, char *, (char const *__s, size_t __n) _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (strndup, char *, (char const *__s, size_t __n)); # else # if ! @HAVE_DECL_STRNDUP@ _GL_FUNCDECL_SYS (strndup, char *, (char const *__s, size_t __n) _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (strndup, char *, (char const *__s, size_t __n)); # endif _GL_CXXALIASWARN (strndup); #elif defined GNULIB_POSIXCHECK # undef strndup # if HAVE_RAW_DECL_STRNDUP _GL_WARN_ON_USE (strndup, "strndup is unportable - " "use gnulib module strndup for portability"); # endif #endif /* Find the length (number of bytes) of STRING, but scan at most MAXLEN bytes. If no '\0' terminator is found in that many bytes, return MAXLEN. */ #if @GNULIB_STRNLEN@ # if @REPLACE_STRNLEN@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strnlen # define strnlen rpl_strnlen # endif _GL_FUNCDECL_RPL (strnlen, size_t, (char const *__s, size_t __maxlen) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (strnlen, size_t, (char const *__s, size_t __maxlen)); # else # if ! @HAVE_DECL_STRNLEN@ _GL_FUNCDECL_SYS (strnlen, size_t, (char const *__s, size_t __maxlen) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); # endif _GL_CXXALIAS_SYS (strnlen, size_t, (char const *__s, size_t __maxlen)); # endif _GL_CXXALIASWARN (strnlen); #elif defined GNULIB_POSIXCHECK # undef strnlen # if HAVE_RAW_DECL_STRNLEN _GL_WARN_ON_USE (strnlen, "strnlen is unportable - " "use gnulib module strnlen for portability"); # endif #endif #if defined GNULIB_POSIXCHECK /* strcspn() assumes the second argument is a list of single-byte characters. Even in this simple case, it does not work with multibyte strings if the locale encoding is GB18030 and one of the characters to be searched is a digit. */ # undef strcspn /* Assume strcspn is always declared. */ _GL_WARN_ON_USE (strcspn, "strcspn cannot work correctly on character strings " "in multibyte locales - " "use mbscspn if you care about internationalization"); #endif /* Find the first occurrence in S of any character in ACCEPT. */ #if @GNULIB_STRPBRK@ # if ! @HAVE_STRPBRK@ _GL_FUNCDECL_SYS (strpbrk, char *, (char const *__s, char const *__accept) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); # endif /* On some systems, this function is defined as an overloaded function: extern "C" { const char * strpbrk (const char *, const char *); } extern "C++" { char * strpbrk (char *, const char *); } */ _GL_CXXALIAS_SYS_CAST2 (strpbrk, char *, (char const *__s, char const *__accept), const char *, (char const *__s, char const *__accept)); # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (strpbrk, char *, (char *__s, char const *__accept)); _GL_CXXALIASWARN1 (strpbrk, char const *, (char const *__s, char const *__accept)); # elif __GLIBC__ >= 2 _GL_CXXALIASWARN (strpbrk); # endif # if defined GNULIB_POSIXCHECK /* strpbrk() assumes the second argument is a list of single-byte characters. Even in this simple case, it does not work with multibyte strings if the locale encoding is GB18030 and one of the characters to be searched is a digit. */ # undef strpbrk _GL_WARN_ON_USE_CXX (strpbrk, const char *, char *, (const char *, const char *), "strpbrk cannot work correctly on character strings " "in multibyte locales - " "use mbspbrk if you care about internationalization"); # endif #elif defined GNULIB_POSIXCHECK # undef strpbrk # if HAVE_RAW_DECL_STRPBRK _GL_WARN_ON_USE_CXX (strpbrk, const char *, char *, (const char *, const char *), "strpbrk is unportable - " "use gnulib module strpbrk for portability"); # endif #endif #if defined GNULIB_POSIXCHECK /* strspn() assumes the second argument is a list of single-byte characters. Even in this simple case, it cannot work with multibyte strings. */ # undef strspn /* Assume strspn is always declared. */ _GL_WARN_ON_USE (strspn, "strspn cannot work correctly on character strings " "in multibyte locales - " "use mbsspn if you care about internationalization"); #endif #if defined GNULIB_POSIXCHECK /* strrchr() does not work with multibyte strings if the locale encoding is GB18030 and the character to be searched is a digit. */ # undef strrchr /* Assume strrchr is always declared. */ _GL_WARN_ON_USE_CXX (strrchr, const char *, char *, (const char *, int), "strrchr cannot work correctly on character strings " "in some multibyte locales - " "use mbsrchr if you care about internationalization"); #endif /* Search the next delimiter (char listed in DELIM) starting at *STRINGP. If one is found, overwrite it with a NUL, and advance *STRINGP to point to the next char after it. Otherwise, set *STRINGP to NULL. If *STRINGP was already NULL, nothing happens. Return the old value of *STRINGP. This is a variant of strtok() that is multithread-safe and supports empty fields. Caveat: It modifies the original string. Caveat: These functions cannot be used on constant strings. Caveat: The identity of the delimiting character is lost. Caveat: It doesn't work with multibyte strings unless all of the delimiter characters are ASCII characters < 0x30. See also strtok_r(). */ #if @GNULIB_STRSEP@ # if ! @HAVE_STRSEP@ _GL_FUNCDECL_SYS (strsep, char *, (char **restrict __stringp, char const *restrict __delim) _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (strsep, char *, (char **restrict __stringp, char const *restrict __delim)); _GL_CXXALIASWARN (strsep); # if defined GNULIB_POSIXCHECK # undef strsep _GL_WARN_ON_USE (strsep, "strsep cannot work correctly on character strings " "in multibyte locales - " "use mbssep if you care about internationalization"); # endif #elif defined GNULIB_POSIXCHECK # undef strsep # if HAVE_RAW_DECL_STRSEP _GL_WARN_ON_USE (strsep, "strsep is unportable - " "use gnulib module strsep for portability"); # endif #endif #if @GNULIB_STRSTR@ # if @REPLACE_STRSTR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define strstr rpl_strstr # endif _GL_FUNCDECL_RPL (strstr, char *, (const char *haystack, const char *needle) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (strstr, char *, (const char *haystack, const char *needle)); # else /* On some systems, this function is defined as an overloaded function: extern "C++" { const char * strstr (const char *, const char *); } extern "C++" { char * strstr (char *, const char *); } */ _GL_CXXALIAS_SYS_CAST2 (strstr, char *, (const char *haystack, const char *needle), const char *, (const char *haystack, const char *needle)); # endif # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (strstr, char *, (char *haystack, const char *needle)); _GL_CXXALIASWARN1 (strstr, const char *, (const char *haystack, const char *needle)); # elif __GLIBC__ >= 2 _GL_CXXALIASWARN (strstr); # endif #elif defined GNULIB_POSIXCHECK /* strstr() does not work with multibyte strings if the locale encoding is different from UTF-8: POSIX says that it operates on "strings", and "string" in POSIX is defined as a sequence of bytes, not of characters. */ # undef strstr /* Assume strstr is always declared. */ _GL_WARN_ON_USE (strstr, "strstr is quadratic on many systems, and cannot " "work correctly on character strings in most " "multibyte locales - " "use mbsstr if you care about internationalization, " "or use strstr if you care about speed"); #endif /* Find the first occurrence of NEEDLE in HAYSTACK, using case-insensitive comparison. */ #if @GNULIB_STRCASESTR@ # if @REPLACE_STRCASESTR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define strcasestr rpl_strcasestr # endif _GL_FUNCDECL_RPL (strcasestr, char *, (const char *haystack, const char *needle) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (strcasestr, char *, (const char *haystack, const char *needle)); # else # if ! @HAVE_STRCASESTR@ _GL_FUNCDECL_SYS (strcasestr, char *, (const char *haystack, const char *needle) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); # endif /* On some systems, this function is defined as an overloaded function: extern "C++" { const char * strcasestr (const char *, const char *); } extern "C++" { char * strcasestr (char *, const char *); } */ _GL_CXXALIAS_SYS_CAST2 (strcasestr, char *, (const char *haystack, const char *needle), const char *, (const char *haystack, const char *needle)); # endif # if ((__GLIBC__ == 2 && __GLIBC_MINOR__ >= 10) && !defined __UCLIBC__) \ && (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) _GL_CXXALIASWARN1 (strcasestr, char *, (char *haystack, const char *needle)); _GL_CXXALIASWARN1 (strcasestr, const char *, (const char *haystack, const char *needle)); # else _GL_CXXALIASWARN (strcasestr); # endif #elif defined GNULIB_POSIXCHECK /* strcasestr() does not work with multibyte strings: It is a glibc extension, and glibc implements it only for unibyte locales. */ # undef strcasestr # if HAVE_RAW_DECL_STRCASESTR _GL_WARN_ON_USE (strcasestr, "strcasestr does work correctly on character " "strings in multibyte locales - " "use mbscasestr if you care about " "internationalization, or use c-strcasestr if you want " "a locale independent function"); # endif #endif /* Parse S into tokens separated by characters in DELIM. If S is NULL, the saved pointer in SAVE_PTR is used as the next starting point. For example: char s[] = "-abc-=-def"; char *sp; x = strtok_r(s, "-", &sp); // x = "abc", sp = "=-def" x = strtok_r(NULL, "-=", &sp); // x = "def", sp = NULL x = strtok_r(NULL, "=", &sp); // x = NULL // s = "abc\0-def\0" This is a variant of strtok() that is multithread-safe. For the POSIX documentation for this function, see: https://pubs.opengroup.org/onlinepubs/9699919799/functions/strtok.html Caveat: It modifies the original string. Caveat: These functions cannot be used on constant strings. Caveat: The identity of the delimiting character is lost. Caveat: It doesn't work with multibyte strings unless all of the delimiter characters are ASCII characters < 0x30. See also strsep(). */ #if @GNULIB_STRTOK_R@ # if @REPLACE_STRTOK_R@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strtok_r # define strtok_r rpl_strtok_r # endif _GL_FUNCDECL_RPL (strtok_r, char *, (char *restrict s, char const *restrict delim, char **restrict save_ptr) _GL_ARG_NONNULL ((2, 3))); _GL_CXXALIAS_RPL (strtok_r, char *, (char *restrict s, char const *restrict delim, char **restrict save_ptr)); # else # if @UNDEFINE_STRTOK_R@ || defined GNULIB_POSIXCHECK # undef strtok_r # endif # if ! @HAVE_DECL_STRTOK_R@ _GL_FUNCDECL_SYS (strtok_r, char *, (char *restrict s, char const *restrict delim, char **restrict save_ptr) _GL_ARG_NONNULL ((2, 3))); # endif _GL_CXXALIAS_SYS (strtok_r, char *, (char *restrict s, char const *restrict delim, char **restrict save_ptr)); # endif _GL_CXXALIASWARN (strtok_r); # if defined GNULIB_POSIXCHECK _GL_WARN_ON_USE (strtok_r, "strtok_r cannot work correctly on character " "strings in multibyte locales - " "use mbstok_r if you care about internationalization"); # endif #elif defined GNULIB_POSIXCHECK # undef strtok_r # if HAVE_RAW_DECL_STRTOK_R _GL_WARN_ON_USE (strtok_r, "strtok_r is unportable - " "use gnulib module strtok_r for portability"); # endif #endif /* The following functions are not specified by POSIX. They are gnulib extensions. */ #if @GNULIB_MBSLEN@ /* Return the number of multibyte characters in the character string STRING. This considers multibyte characters, unlike strlen, which counts bytes. */ # ifdef __MirBSD__ /* MirBSD defines mbslen as a macro. Override it. */ # undef mbslen # endif # if @HAVE_MBSLEN@ /* AIX, OSF/1, MirBSD define mbslen already in libc. */ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define mbslen rpl_mbslen # endif _GL_FUNCDECL_RPL (mbslen, size_t, (const char *string) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mbslen, size_t, (const char *string)); # else _GL_FUNCDECL_SYS (mbslen, size_t, (const char *string) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_SYS (mbslen, size_t, (const char *string)); # endif _GL_CXXALIASWARN (mbslen); #endif #if @GNULIB_MBSNLEN@ /* Return the number of multibyte characters in the character string starting at STRING and ending at STRING + LEN. */ _GL_EXTERN_C size_t mbsnlen (const char *string, size_t len) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1)); #endif #if @GNULIB_MBSCHR@ /* Locate the first single-byte character C in the character string STRING, and return a pointer to it. Return NULL if C is not found in STRING. Unlike strchr(), this function works correctly in multibyte locales with encodings such as GB18030. */ # if defined __hpux # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define mbschr rpl_mbschr /* avoid collision with HP-UX function */ # endif _GL_FUNCDECL_RPL (mbschr, char *, (const char *string, int c) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mbschr, char *, (const char *string, int c)); # else _GL_FUNCDECL_SYS (mbschr, char *, (const char *string, int c) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_SYS (mbschr, char *, (const char *string, int c)); # endif _GL_CXXALIASWARN (mbschr); #endif #if @GNULIB_MBSRCHR@ /* Locate the last single-byte character C in the character string STRING, and return a pointer to it. Return NULL if C is not found in STRING. Unlike strrchr(), this function works correctly in multibyte locales with encodings such as GB18030. */ # if defined __hpux || defined __INTERIX # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define mbsrchr rpl_mbsrchr /* avoid collision with system function */ # endif _GL_FUNCDECL_RPL (mbsrchr, char *, (const char *string, int c) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_RPL (mbsrchr, char *, (const char *string, int c)); # else _GL_FUNCDECL_SYS (mbsrchr, char *, (const char *string, int c) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1))); _GL_CXXALIAS_SYS (mbsrchr, char *, (const char *string, int c)); # endif _GL_CXXALIASWARN (mbsrchr); #endif #if @GNULIB_MBSSTR@ /* Find the first occurrence of the character string NEEDLE in the character string HAYSTACK. Return NULL if NEEDLE is not found in HAYSTACK. Unlike strstr(), this function works correctly in multibyte locales with encodings different from UTF-8. */ _GL_EXTERN_C char * mbsstr (const char *haystack, const char *needle) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSCASECMP@ /* Compare the character strings S1 and S2, ignoring case, returning less than, equal to or greater than zero if S1 is lexicographically less than, equal to or greater than S2. Note: This function may, in multibyte locales, return 0 for strings of different lengths! Unlike strcasecmp(), this function works correctly in multibyte locales. */ _GL_EXTERN_C int mbscasecmp (const char *s1, const char *s2) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSNCASECMP@ /* Compare the initial segment of the character string S1 consisting of at most N characters with the initial segment of the character string S2 consisting of at most N characters, ignoring case, returning less than, equal to or greater than zero if the initial segment of S1 is lexicographically less than, equal to or greater than the initial segment of S2. Note: This function may, in multibyte locales, return 0 for initial segments of different lengths! Unlike strncasecmp(), this function works correctly in multibyte locales. But beware that N is not a byte count but a character count! */ _GL_EXTERN_C int mbsncasecmp (const char *s1, const char *s2, size_t n) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSPCASECMP@ /* Compare the initial segment of the character string STRING consisting of at most mbslen (PREFIX) characters with the character string PREFIX, ignoring case. If the two match, return a pointer to the first byte after this prefix in STRING. Otherwise, return NULL. Note: This function may, in multibyte locales, return non-NULL if STRING is of smaller length than PREFIX! Unlike strncasecmp(), this function works correctly in multibyte locales. */ _GL_EXTERN_C char * mbspcasecmp (const char *string, const char *prefix) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSCASESTR@ /* Find the first occurrence of the character string NEEDLE in the character string HAYSTACK, using case-insensitive comparison. Note: This function may, in multibyte locales, return success even if strlen (haystack) < strlen (needle) ! Unlike strcasestr(), this function works correctly in multibyte locales. */ _GL_EXTERN_C char * mbscasestr (const char *haystack, const char *needle) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSCSPN@ /* Find the first occurrence in the character string STRING of any character in the character string ACCEPT. Return the number of bytes from the beginning of the string to this occurrence, or to the end of the string if none exists. Unlike strcspn(), this function works correctly in multibyte locales. */ _GL_EXTERN_C size_t mbscspn (const char *string, const char *accept) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSPBRK@ /* Find the first occurrence in the character string STRING of any character in the character string ACCEPT. Return the pointer to it, or NULL if none exists. Unlike strpbrk(), this function works correctly in multibyte locales. */ # if defined __hpux # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define mbspbrk rpl_mbspbrk /* avoid collision with HP-UX function */ # endif _GL_FUNCDECL_RPL (mbspbrk, char *, (const char *string, const char *accept) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_RPL (mbspbrk, char *, (const char *string, const char *accept)); # else _GL_FUNCDECL_SYS (mbspbrk, char *, (const char *string, const char *accept) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); _GL_CXXALIAS_SYS (mbspbrk, char *, (const char *string, const char *accept)); # endif _GL_CXXALIASWARN (mbspbrk); #endif #if @GNULIB_MBSSPN@ /* Find the first occurrence in the character string STRING of any character not in the character string REJECT. Return the number of bytes from the beginning of the string to this occurrence, or to the end of the string if none exists. Unlike strspn(), this function works correctly in multibyte locales. */ _GL_EXTERN_C size_t mbsspn (const char *string, const char *reject) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSSEP@ /* Search the next delimiter (multibyte character listed in the character string DELIM) starting at the character string *STRINGP. If one is found, overwrite it with a NUL, and advance *STRINGP to point to the next multibyte character after it. Otherwise, set *STRINGP to NULL. If *STRINGP was already NULL, nothing happens. Return the old value of *STRINGP. This is a variant of mbstok_r() that supports empty fields. Caveat: It modifies the original string. Caveat: These functions cannot be used on constant strings. Caveat: The identity of the delimiting character is lost. See also mbstok_r(). */ _GL_EXTERN_C char * mbssep (char **stringp, const char *delim) _GL_ARG_NONNULL ((1, 2)); #endif #if @GNULIB_MBSTOK_R@ /* Parse the character string STRING into tokens separated by characters in the character string DELIM. If STRING is NULL, the saved pointer in SAVE_PTR is used as the next starting point. For example: char s[] = "-abc-=-def"; char *sp; x = mbstok_r(s, "-", &sp); // x = "abc", sp = "=-def" x = mbstok_r(NULL, "-=", &sp); // x = "def", sp = NULL x = mbstok_r(NULL, "=", &sp); // x = NULL // s = "abc\0-def\0" Caveat: It modifies the original string. Caveat: These functions cannot be used on constant strings. Caveat: The identity of the delimiting character is lost. See also mbssep(). */ _GL_EXTERN_C char * mbstok_r (char *restrict string, const char *delim, char **save_ptr) _GL_ARG_NONNULL ((2, 3)); #endif /* Map any int, typically from errno, into an error message. */ #if @GNULIB_STRERROR@ # if @REPLACE_STRERROR@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strerror # define strerror rpl_strerror # endif _GL_FUNCDECL_RPL (strerror, char *, (int)); _GL_CXXALIAS_RPL (strerror, char *, (int)); # else _GL_CXXALIAS_SYS (strerror, char *, (int)); # endif # if __GLIBC__ >= 2 _GL_CXXALIASWARN (strerror); # endif #elif defined GNULIB_POSIXCHECK # undef strerror /* Assume strerror is always declared. */ _GL_WARN_ON_USE (strerror, "strerror is unportable - " "use gnulib module strerror to guarantee non-NULL result"); #endif /* Map any int, typically from errno, into an error message. Multithread-safe. Uses the POSIX declaration, not the glibc declaration. */ #if @GNULIB_STRERROR_R@ # if @REPLACE_STRERROR_R@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strerror_r # define strerror_r rpl_strerror_r # endif _GL_FUNCDECL_RPL (strerror_r, int, (int errnum, char *buf, size_t buflen) _GL_ARG_NONNULL ((2))); _GL_CXXALIAS_RPL (strerror_r, int, (int errnum, char *buf, size_t buflen)); # else # if !@HAVE_DECL_STRERROR_R@ _GL_FUNCDECL_SYS (strerror_r, int, (int errnum, char *buf, size_t buflen) _GL_ARG_NONNULL ((2))); # endif _GL_CXXALIAS_SYS (strerror_r, int, (int errnum, char *buf, size_t buflen)); # endif # if @HAVE_DECL_STRERROR_R@ _GL_CXXALIASWARN (strerror_r); # endif #elif defined GNULIB_POSIXCHECK # undef strerror_r # if HAVE_RAW_DECL_STRERROR_R _GL_WARN_ON_USE (strerror_r, "strerror_r is unportable - " "use gnulib module strerror_r-posix for portability"); # endif #endif /* Return the name of the system error code ERRNUM. */ #if @GNULIB_STRERRORNAME_NP@ # if @REPLACE_STRERRORNAME_NP@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # undef strerrorname_np # define strerrorname_np rpl_strerrorname_np # endif _GL_FUNCDECL_RPL (strerrorname_np, const char *, (int errnum)); _GL_CXXALIAS_RPL (strerrorname_np, const char *, (int errnum)); # else # if !@HAVE_STRERRORNAME_NP@ _GL_FUNCDECL_SYS (strerrorname_np, const char *, (int errnum)); # endif _GL_CXXALIAS_SYS (strerrorname_np, const char *, (int errnum)); # endif _GL_CXXALIASWARN (strerrorname_np); #elif defined GNULIB_POSIXCHECK # undef strerrorname_np # if HAVE_RAW_DECL_STRERRORNAME_NP _GL_WARN_ON_USE (strerrorname_np, "strerrorname_np is unportable - " "use gnulib module strerrorname_np for portability"); # endif #endif /* Return an abbreviation string for the signal number SIG. */ #if @GNULIB_SIGABBREV_NP@ # if ! @HAVE_SIGABBREV_NP@ _GL_FUNCDECL_SYS (sigabbrev_np, const char *, (int sig)); # endif _GL_CXXALIAS_SYS (sigabbrev_np, const char *, (int sig)); _GL_CXXALIASWARN (sigabbrev_np); #elif defined GNULIB_POSIXCHECK # undef sigabbrev_np # if HAVE_RAW_DECL_SIGABBREV_NP _GL_WARN_ON_USE (sigabbrev_np, "sigabbrev_np is unportable - " "use gnulib module sigabbrev_np for portability"); # endif #endif /* Return an English description string for the signal number SIG. */ #if @GNULIB_SIGDESCR_NP@ # if ! @HAVE_SIGDESCR_NP@ _GL_FUNCDECL_SYS (sigdescr_np, const char *, (int sig)); # endif _GL_CXXALIAS_SYS (sigdescr_np, const char *, (int sig)); _GL_CXXALIASWARN (sigdescr_np); #elif defined GNULIB_POSIXCHECK # undef sigdescr_np # if HAVE_RAW_DECL_SIGDESCR_NP _GL_WARN_ON_USE (sigdescr_np, "sigdescr_np is unportable - " "use gnulib module sigdescr_np for portability"); # endif #endif #if @GNULIB_STRSIGNAL@ # if @REPLACE_STRSIGNAL@ # if !(defined __cplusplus && defined GNULIB_NAMESPACE) # define strsignal rpl_strsignal # endif _GL_FUNCDECL_RPL (strsignal, char *, (int __sig)); _GL_CXXALIAS_RPL (strsignal, char *, (int __sig)); # else # if ! @HAVE_DECL_STRSIGNAL@ _GL_FUNCDECL_SYS (strsignal, char *, (int __sig)); # endif /* Need to cast, because on Cygwin 1.5.x systems, the return type is 'const char *'. */ _GL_CXXALIAS_SYS_CAST (strsignal, char *, (int __sig)); # endif _GL_CXXALIASWARN (strsignal); #elif defined GNULIB_POSIXCHECK # undef strsignal # if HAVE_RAW_DECL_STRSIGNAL _GL_WARN_ON_USE (strsignal, "strsignal is unportable - " "use gnulib module strsignal for portability"); # endif #endif #if @GNULIB_STRVERSCMP@ # if !@HAVE_STRVERSCMP@ _GL_FUNCDECL_SYS (strverscmp, int, (const char *, const char *) _GL_ATTRIBUTE_PURE _GL_ARG_NONNULL ((1, 2))); # endif _GL_CXXALIAS_SYS (strverscmp, int, (const char *, const char *)); _GL_CXXALIASWARN (strverscmp); #elif defined GNULIB_POSIXCHECK # undef strverscmp # if HAVE_RAW_DECL_STRVERSCMP _GL_WARN_ON_USE (strverscmp, "strverscmp is unportable - " "use gnulib module strverscmp for portability"); # endif #endif #endif /* _@GUARD_PREFIX@_STRING_H */ #endif /* _@GUARD_PREFIX@_STRING_H */ #endif libffcall-2.4/gnulib-lib/windows-once.h0000664000000000000000000000260214057155505015006 00000000000000/* Once-only control (native Windows implementation). Copyright (C) 2005-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser 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.4/gnulib-lib/gl_list.h0000664000000000000000000011403514057155505014033 00000000000000/* Abstract sequential list data type. -*- coding: utf-8 -*- Copyright (C) 2006-2021 Free Software Foundation, Inc. Written by Bruno Haible , 2006. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #ifndef _GL_LIST_H #define _GL_LIST_H #include #include #ifndef _GL_INLINE_HEADER_BEGIN #error "Please include config.h first." #endif _GL_INLINE_HEADER_BEGIN #ifndef GL_LIST_INLINE # define GL_LIST_INLINE _GL_INLINE #endif #ifdef __cplusplus extern "C" { #endif /* gl_list is an abstract list data type. It can contain any number of objects ('void *' or 'const void *' pointers) in any given order. Duplicates are allowed, but can optionally be forbidden. There are several implementations of this list datatype, optimized for different operations or for memory. You can start using the simplest list implementation, GL_ARRAY_LIST, and switch to a different implementation later, when you realize which operations are performed the most frequently. The API of the different implementations is exactly the same; when switching to a different implementation, you only have to change the gl_list_create call. The implementations are: GL_ARRAY_LIST a growable array GL_CARRAY_LIST a growable circular array GL_LINKED_LIST a linked list GL_AVLTREE_LIST a binary tree (AVL tree) GL_RBTREE_LIST a binary tree (red-black tree) GL_LINKEDHASH_LIST a hash table with a linked list GL_AVLTREEHASH_LIST a hash table with a binary tree (AVL tree) GL_RBTREEHASH_LIST a hash table with a binary tree (red-black tree) The memory consumption is asymptotically the same: O(1) for every object in the list. When looking more closely at the average memory consumed for an object, GL_ARRAY_LIST is the most compact representation, and GL_LINKEDHASH_LIST and GL_TREEHASH_LIST need more memory. The guaranteed average performance of the operations is, for a list of n elements: Operation ARRAY LINKED TREE LINKEDHASH TREEHASH CARRAY with|without with|without duplicates duplicates gl_list_size O(1) O(1) O(1) O(1) O(1) gl_list_node_value O(1) O(1) O(1) O(1) O(1) gl_list_node_set_value O(1) O(1) O(1) O(1) O((log n)²)/O(1) gl_list_next_node O(1) O(1) O(log n) O(1) O(log n) gl_list_previous_node O(1) O(1) O(log n) O(1) O(log n) gl_list_first_node O(1) O(1) O(log n) O(1) O(log n) gl_list_last_node O(1) O(1) O(log n) O(1) O(log n) gl_list_get_at O(1) O(n) O(log n) O(n) O(log n) gl_list_get_first O(1) O(1) O(log n) O(1) O(log n) gl_list_get_last O(1) O(1) O(log n) O(1) O(log n) gl_list_set_at O(1) O(n) O(log n) O(n) O((log n)²)/O(log n) gl_list_set_first O(1) O(1) O(log n) O(n)/O(1) O((log n)²)/O(log n) gl_list_set_last O(1) O(1) O(log n) O(n)/O(1) O((log n)²)/O(log n) gl_list_search O(n) O(n) O(n) O(n)/O(1) O(log n)/O(1) gl_list_search_from O(n) O(n) O(n) O(n)/O(1) O((log n)²)/O(log n) gl_list_search_from_to O(n) O(n) O(n) O(n)/O(1) O((log n)²)/O(log n) gl_list_indexof O(n) O(n) O(n) O(n) O(log n) gl_list_indexof_from O(n) O(n) O(n) O(n) O((log n)²)/O(log n) gl_list_indexof_from_to O(n) O(n) O(n) O(n) O((log n)²)/O(log n) gl_list_add_first O(n)/O(1) O(1) O(log n) O(1) O((log n)²)/O(log n) gl_list_add_last O(1) O(1) O(log n) O(1) O((log n)²)/O(log n) gl_list_add_before O(n) O(1) O(log n) O(1) O((log n)²)/O(log n) gl_list_add_after O(n) O(1) O(log n) O(1) O((log n)²)/O(log n) gl_list_add_at O(n) O(n) O(log n) O(n) O((log n)²)/O(log n) gl_list_remove_node O(n) O(1) O(log n) O(n)/O(1) O((log n)²)/O(log n) gl_list_remove_at O(n) O(n) O(log n) O(n) O((log n)²)/O(log n) gl_list_remove_first O(n)/O(1) O(1) O(log n) O(n)/O(1) O((log n)²)/O(log n) gl_list_remove_last O(1) O(1) O(log n) O(n)/O(1) O((log n)²)/O(log n) gl_list_remove O(n) O(n) O(n) O(n)/O(1) O((log n)²)/O(log n) gl_list_iterator O(1) O(1) O(log n) O(1) O(log n) gl_list_iterator_from_to O(1) O(n) O(log n) O(n) O(log n) gl_list_iterator_next O(1) O(1) O(log n) O(1) O(log n) gl_sortedlist_search O(log n) O(n) O(log n) O(n) O(log n) gl_sortedlist_search_from O(log n) O(n) O(log n) O(n) O(log n) gl_sortedlist_indexof O(log n) O(n) O(log n) O(n) O(log n) gl_sortedlist_indexof_fro O(log n) O(n) O(log n) O(n) O(log n) gl_sortedlist_add O(n) O(n) O(log n) O(n) O((log n)²)/O(log n) gl_sortedlist_remove O(n) O(n) O(log n) O(n) O((log n)²)/O(log n) */ /* -------------------------- gl_list_t Data Type -------------------------- */ /* Type of function used to compare two elements. NULL denotes pointer comparison. */ typedef bool (*gl_listelement_equals_fn) (const void *elt1, const void *elt2); /* Type of function used to compute a hash code. NULL denotes a function that depends only on the pointer itself. */ typedef size_t (*gl_listelement_hashcode_fn) (const void *elt); /* Type of function used to dispose an element once it's removed from a list. NULL denotes a no-op. */ typedef void (*gl_listelement_dispose_fn) (const void *elt); struct gl_list_impl; /* Type representing an entire list. */ typedef struct gl_list_impl * gl_list_t; struct gl_list_node_impl; /* Type representing the position of an element in the list, in a way that is more adapted to the list implementation than a plain index. Note: It is invalidated by insertions and removals! */ typedef struct gl_list_node_impl * gl_list_node_t; struct gl_list_implementation; /* Type representing a list datatype implementation. */ typedef const struct gl_list_implementation * gl_list_implementation_t; #if 0 /* Unless otherwise specified, these are defined inline below. */ /* Creates an empty list. IMPLEMENTATION is one of GL_ARRAY_LIST, GL_CARRAY_LIST, GL_LINKED_LIST, GL_AVLTREE_LIST, GL_RBTREE_LIST, GL_LINKEDHASH_LIST, GL_AVLTREEHASH_LIST, GL_RBTREEHASH_LIST. EQUALS_FN is an element comparison function or NULL. HASHCODE_FN is an element hash code function or NULL. DISPOSE_FN is an element disposal function or NULL. ALLOW_DUPLICATES is false if duplicate elements shall not be allowed in the list. The implementation may verify this at runtime. */ /* declared in gl_xlist.h */ extern gl_list_t gl_list_create_empty (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_t gl_list_nx_create_empty (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates); /* Creates a list with given contents. IMPLEMENTATION is one of GL_ARRAY_LIST, GL_CARRAY_LIST, GL_LINKED_LIST, GL_AVLTREE_LIST, GL_RBTREE_LIST, GL_LINKEDHASH_LIST, GL_AVLTREEHASH_LIST, GL_RBTREEHASH_LIST. EQUALS_FN is an element comparison function or NULL. HASHCODE_FN is an element hash code function or NULL. DISPOSE_FN is an element disposal function or NULL. ALLOW_DUPLICATES is false if duplicate elements shall not be allowed in the list. The implementation may verify this at runtime. COUNT is the number of initial elements. CONTENTS[0..COUNT-1] is the initial contents. */ /* declared in gl_xlist.h */ extern gl_list_t gl_list_create (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates, size_t count, const void **contents); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_t gl_list_nx_create (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates, size_t count, const void **contents); /* Returns the current number of elements in a list. */ extern size_t gl_list_size (gl_list_t list); /* Returns the element value represented by a list node. */ extern const void * gl_list_node_value (gl_list_t list, gl_list_node_t node); /* Replaces the element value represented by a list node. */ /* declared in gl_xlist.h */ extern void gl_list_node_set_value (gl_list_t list, gl_list_node_t node, const void *elt); /* Likewise. Returns 0 upon success, -1 upon out-of-memory. */ extern int gl_list_node_nx_set_value (gl_list_t list, gl_list_node_t node, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Returns the node immediately after the given node in the list, or NULL if the given node is the last (rightmost) one in the list. */ extern gl_list_node_t gl_list_next_node (gl_list_t list, gl_list_node_t node); /* Returns the node immediately before the given node in the list, or NULL if the given node is the first (leftmost) one in the list. */ extern gl_list_node_t gl_list_previous_node (gl_list_t list, gl_list_node_t node); /* Returns the first node in the list, or NULL if the list is empty. This function is useful for iterating through the list like this: gl_list_node_t node; for (node = gl_list_first_node (list); node != NULL; node = gl_list_next_node (node)) ... */ extern gl_list_node_t gl_list_first_node (gl_list_t list); /* Returns the last node in the list, or NULL if the list is empty. This function is useful for iterating through the list in backward order, like this: gl_list_node_t node; for (node = gl_list_last_node (list); node != NULL; node = gl_list_previous_node (node)) ... */ extern gl_list_node_t gl_list_last_node (gl_list_t list); /* Returns the element at a given position in the list. POSITION must be >= 0 and < gl_list_size (list). */ extern const void * gl_list_get_at (gl_list_t list, size_t position); /* Returns the element at the first position in the list. The list must be non-empty. */ extern const void * gl_list_get_first (gl_list_t list); /* Returns the element at the last position in the list. The list must be non-empty. */ extern const void * gl_list_get_last (gl_list_t list); /* Replaces the element at a given position in the list. POSITION must be >= 0 and < gl_list_size (list). Returns its node. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_set_at (gl_list_t list, size_t position, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_set_at (gl_list_t list, size_t position, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Replaces the element at the first position in the list. Returns its node. The list must be non-empty. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_set_first (gl_list_t list, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_set_first (gl_list_t list, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Replaces the element at the last position in the list. Returns its node. The list must be non-empty. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_set_last (gl_list_t list, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_set_last (gl_list_t list, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Searches whether an element is already in the list. Returns its node if found, or NULL if not present in the list. */ extern gl_list_node_t gl_list_search (gl_list_t list, const void *elt); /* Searches whether an element is already in the list, at a position >= START_INDEX. Returns its node if found, or NULL if not present in the list. */ extern gl_list_node_t gl_list_search_from (gl_list_t list, size_t start_index, const void *elt); /* Searches whether an element is already in the list, at a position >= START_INDEX and < END_INDEX. Returns its node if found, or NULL if not present in the list. */ extern gl_list_node_t gl_list_search_from_to (gl_list_t list, size_t start_index, size_t end_index, const void *elt); /* Searches whether an element is already in the list. Returns its position if found, or (size_t)(-1) if not present in the list. */ extern size_t gl_list_indexof (gl_list_t list, const void *elt); /* Searches whether an element is already in the list, at a position >= START_INDEX. Returns its position if found, or (size_t)(-1) if not present in the list. */ extern size_t gl_list_indexof_from (gl_list_t list, size_t start_index, const void *elt); /* Searches whether an element is already in the list, at a position >= START_INDEX and < END_INDEX. Returns its position if found, or (size_t)(-1) if not present in the list. */ extern size_t gl_list_indexof_from_to (gl_list_t list, size_t start_index, size_t end_index, const void *elt); /* Adds an element as the first element of the list. Returns its node. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_add_first (gl_list_t list, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_add_first (gl_list_t list, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Adds an element as the last element of the list. Returns its node. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_add_last (gl_list_t list, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_add_last (gl_list_t list, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Adds an element before a given element node of the list. Returns its node. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_add_before (gl_list_t list, gl_list_node_t node, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_add_before (gl_list_t list, gl_list_node_t node, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Adds an element after a given element node of the list. Returns its node. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_add_after (gl_list_t list, gl_list_node_t node, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_add_after (gl_list_t list, gl_list_node_t node, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Adds an element at a given position in the list. POSITION must be >= 0 and <= gl_list_size (list). */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_list_add_at (gl_list_t list, size_t position, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_list_nx_add_at (gl_list_t list, size_t position, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Removes an element from the list. Returns true. */ extern bool gl_list_remove_node (gl_list_t list, gl_list_node_t node); /* Removes an element at a given position from the list. POSITION must be >= 0 and < gl_list_size (list). Returns true. */ extern bool gl_list_remove_at (gl_list_t list, size_t position); /* Removes the element at the first position from the list. Returns true if it was found and removed, or false if the list was empty. */ extern bool gl_list_remove_first (gl_list_t list); /* Removes the element at the last position from the list. Returns true if it was found and removed, or false if the list was empty. */ extern bool gl_list_remove_last (gl_list_t list); /* Searches and removes an element from the list. Returns true if it was found and removed. */ extern bool gl_list_remove (gl_list_t list, const void *elt); /* Frees an entire list. (But this call does not free the elements of the list. It only invokes the DISPOSE_FN on each of the elements of the list, and only if the list is not a sublist.) */ extern void gl_list_free (gl_list_t list); #endif /* End of inline and gl_xlist.h-defined functions. */ /* --------------------- gl_list_iterator_t Data Type --------------------- */ /* Functions for iterating through a list. */ /* Type of an iterator that traverses a list. This is a fixed-size struct, so that creation of an iterator doesn't need memory allocation on the heap. */ typedef struct { /* For fast dispatch of gl_list_iterator_next. */ const struct gl_list_implementation *vtable; /* For detecting whether the last returned element was removed. */ gl_list_t list; size_t count; /* Other, implementation-private fields. */ void *p; void *q; size_t i; size_t j; } gl_list_iterator_t; #if 0 /* These are defined inline below. */ /* Creates an iterator traversing a list. The list contents must not be modified while the iterator is in use, except for replacing or removing the last returned element. */ extern gl_list_iterator_t gl_list_iterator (gl_list_t list); /* Creates an iterator traversing the element with indices i, start_index <= i < end_index, of a list. The list contents must not be modified while the iterator is in use, except for replacing or removing the last returned element. */ extern gl_list_iterator_t gl_list_iterator_from_to (gl_list_t list, size_t start_index, size_t end_index); /* If there is a next element, stores the next element in *ELTP, stores its node in *NODEP if NODEP is non-NULL, advances the iterator and returns true. Otherwise, returns false. */ extern bool gl_list_iterator_next (gl_list_iterator_t *iterator, const void **eltp, gl_list_node_t *nodep); /* Frees an iterator. */ extern void gl_list_iterator_free (gl_list_iterator_t *iterator); #endif /* End of inline functions. */ /* ---------------------- Sorted gl_list_t Data Type ---------------------- */ /* The following functions are for lists without duplicates where the order is given by a sort criterion. */ /* Type of function used to compare two elements. Same as for qsort(). NULL denotes pointer comparison. */ typedef int (*gl_listelement_compar_fn) (const void *elt1, const void *elt2); #if 0 /* Unless otherwise specified, these are defined inline below. */ /* Searches whether an element is already in the list. The list is assumed to be sorted with COMPAR. Returns its node if found, or NULL if not present in the list. If the list contains several copies of ELT, the node of the leftmost one is returned. */ extern gl_list_node_t gl_sortedlist_search (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); /* Searches whether an element is already in the list. The list is assumed to be sorted with COMPAR. Only list elements with indices >= START_INDEX and < END_INDEX are considered; the implementation uses these bounds to minimize the number of COMPAR invocations. Returns its node if found, or NULL if not present in the list. If the list contains several copies of ELT, the node of the leftmost one is returned. */ extern gl_list_node_t gl_sortedlist_search_from_to (gl_list_t list, gl_listelement_compar_fn compar, size_t start_index, size_t end_index, const void *elt); /* Searches whether an element is already in the list. The list is assumed to be sorted with COMPAR. Returns its position if found, or (size_t)(-1) if not present in the list. If the list contains several copies of ELT, the position of the leftmost one is returned. */ extern size_t gl_sortedlist_indexof (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); /* Searches whether an element is already in the list. The list is assumed to be sorted with COMPAR. Only list elements with indices >= START_INDEX and < END_INDEX are considered; the implementation uses these bounds to minimize the number of COMPAR invocations. Returns its position if found, or (size_t)(-1) if not present in the list. If the list contains several copies of ELT, the position of the leftmost one is returned. */ extern size_t gl_sortedlist_indexof_from_to (gl_list_t list, gl_listelement_compar_fn compar, size_t start_index, size_t end_index, const void *elt); /* Adds an element at the appropriate position in the list. The list is assumed to be sorted with COMPAR. Returns its node. */ /* declared in gl_xlist.h */ extern gl_list_node_t gl_sortedlist_add (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); /* Likewise. Returns NULL upon out-of-memory. */ extern gl_list_node_t gl_sortedlist_nx_add (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) _GL_ATTRIBUTE_NODISCARD; /* Searches and removes an element from the list. The list is assumed to be sorted with COMPAR. Returns true if it was found and removed. If the list contains several copies of ELT, only the leftmost one is removed. */ extern bool gl_sortedlist_remove (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); #endif /* End of inline and gl_xlist.h-defined functions. */ /* ------------------------ Implementation Details ------------------------ */ struct gl_list_implementation { /* gl_list_t functions. */ gl_list_t (*nx_create_empty) (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates); gl_list_t (*nx_create) (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates, size_t count, const void **contents); size_t (*size) (gl_list_t list); const void * (*node_value) (gl_list_t list, gl_list_node_t node); int (*node_nx_set_value) (gl_list_t list, gl_list_node_t node, const void *elt); gl_list_node_t (*next_node) (gl_list_t list, gl_list_node_t node); gl_list_node_t (*previous_node) (gl_list_t list, gl_list_node_t node); gl_list_node_t (*first_node) (gl_list_t list); gl_list_node_t (*last_node) (gl_list_t list); const void * (*get_at) (gl_list_t list, size_t position); gl_list_node_t (*nx_set_at) (gl_list_t list, size_t position, const void *elt); gl_list_node_t (*search_from_to) (gl_list_t list, size_t start_index, size_t end_index, const void *elt); size_t (*indexof_from_to) (gl_list_t list, size_t start_index, size_t end_index, const void *elt); gl_list_node_t (*nx_add_first) (gl_list_t list, const void *elt); gl_list_node_t (*nx_add_last) (gl_list_t list, const void *elt); gl_list_node_t (*nx_add_before) (gl_list_t list, gl_list_node_t node, const void *elt); gl_list_node_t (*nx_add_after) (gl_list_t list, gl_list_node_t node, const void *elt); gl_list_node_t (*nx_add_at) (gl_list_t list, size_t position, const void *elt); bool (*remove_node) (gl_list_t list, gl_list_node_t node); bool (*remove_at) (gl_list_t list, size_t position); bool (*remove_elt) (gl_list_t list, const void *elt); void (*list_free) (gl_list_t list); /* gl_list_iterator_t functions. */ gl_list_iterator_t (*iterator) (gl_list_t list); gl_list_iterator_t (*iterator_from_to) (gl_list_t list, size_t start_index, size_t end_index); bool (*iterator_next) (gl_list_iterator_t *iterator, const void **eltp, gl_list_node_t *nodep); void (*iterator_free) (gl_list_iterator_t *iterator); /* Sorted gl_list_t functions. */ gl_list_node_t (*sortedlist_search) (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); gl_list_node_t (*sortedlist_search_from_to) (gl_list_t list, gl_listelement_compar_fn compar, size_t start_index, size_t end_index, const void *elt); size_t (*sortedlist_indexof) (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); size_t (*sortedlist_indexof_from_to) (gl_list_t list, gl_listelement_compar_fn compar, size_t start_index, size_t end_index, const void *elt); gl_list_node_t (*sortedlist_nx_add) (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); bool (*sortedlist_remove) (gl_list_t list, gl_listelement_compar_fn compar, const void *elt); }; struct gl_list_impl_base { const struct gl_list_implementation *vtable; gl_listelement_equals_fn equals_fn; gl_listelement_hashcode_fn hashcode_fn; gl_listelement_dispose_fn dispose_fn; bool allow_duplicates; }; /* Define all functions of this file as accesses to the struct gl_list_implementation. */ GL_LIST_INLINE gl_list_t gl_list_nx_create_empty (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates) { return implementation->nx_create_empty (implementation, equals_fn, hashcode_fn, dispose_fn, allow_duplicates); } GL_LIST_INLINE gl_list_t gl_list_nx_create (gl_list_implementation_t implementation, gl_listelement_equals_fn equals_fn, gl_listelement_hashcode_fn hashcode_fn, gl_listelement_dispose_fn dispose_fn, bool allow_duplicates, size_t count, const void **contents) { return implementation->nx_create (implementation, equals_fn, hashcode_fn, dispose_fn, allow_duplicates, count, contents); } GL_LIST_INLINE size_t gl_list_size (gl_list_t list) { return ((const struct gl_list_impl_base *) list)->vtable ->size (list); } GL_LIST_INLINE const void * gl_list_node_value (gl_list_t list, gl_list_node_t node) { return ((const struct gl_list_impl_base *) list)->vtable ->node_value (list, node); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD int gl_list_node_nx_set_value (gl_list_t list, gl_list_node_t node, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->node_nx_set_value (list, node, elt); } GL_LIST_INLINE gl_list_node_t gl_list_next_node (gl_list_t list, gl_list_node_t node) { return ((const struct gl_list_impl_base *) list)->vtable ->next_node (list, node); } GL_LIST_INLINE gl_list_node_t gl_list_previous_node (gl_list_t list, gl_list_node_t node) { return ((const struct gl_list_impl_base *) list)->vtable ->previous_node (list, node); } GL_LIST_INLINE gl_list_node_t gl_list_first_node (gl_list_t list) { return ((const struct gl_list_impl_base *) list)->vtable ->first_node (list); } GL_LIST_INLINE gl_list_node_t gl_list_last_node (gl_list_t list) { return ((const struct gl_list_impl_base *) list)->vtable ->last_node (list); } GL_LIST_INLINE const void * gl_list_get_at (gl_list_t list, size_t position) { return ((const struct gl_list_impl_base *) list)->vtable ->get_at (list, position); } GL_LIST_INLINE const void * gl_list_get_first (gl_list_t list) { return gl_list_get_at (list, 0); } GL_LIST_INLINE const void * gl_list_get_last (gl_list_t list) { return gl_list_get_at (list, gl_list_size (list) - 1); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_set_at (gl_list_t list, size_t position, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->nx_set_at (list, position, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_set_first (gl_list_t list, const void *elt) { return gl_list_nx_set_at (list, 0, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_set_last (gl_list_t list, const void *elt) { return gl_list_nx_set_at (list, gl_list_size (list) - 1, elt); } GL_LIST_INLINE gl_list_node_t gl_list_search (gl_list_t list, const void *elt) { size_t size = ((const struct gl_list_impl_base *) list)->vtable->size (list); return ((const struct gl_list_impl_base *) list)->vtable ->search_from_to (list, 0, size, elt); } GL_LIST_INLINE gl_list_node_t gl_list_search_from (gl_list_t list, size_t start_index, const void *elt) { size_t size = ((const struct gl_list_impl_base *) list)->vtable->size (list); return ((const struct gl_list_impl_base *) list)->vtable ->search_from_to (list, start_index, size, elt); } GL_LIST_INLINE gl_list_node_t gl_list_search_from_to (gl_list_t list, size_t start_index, size_t end_index, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->search_from_to (list, start_index, end_index, elt); } GL_LIST_INLINE size_t gl_list_indexof (gl_list_t list, const void *elt) { size_t size = ((const struct gl_list_impl_base *) list)->vtable->size (list); return ((const struct gl_list_impl_base *) list)->vtable ->indexof_from_to (list, 0, size, elt); } GL_LIST_INLINE size_t gl_list_indexof_from (gl_list_t list, size_t start_index, const void *elt) { size_t size = ((const struct gl_list_impl_base *) list)->vtable->size (list); return ((const struct gl_list_impl_base *) list)->vtable ->indexof_from_to (list, start_index, size, elt); } GL_LIST_INLINE size_t gl_list_indexof_from_to (gl_list_t list, size_t start_index, size_t end_index, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->indexof_from_to (list, start_index, end_index, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_add_first (gl_list_t list, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->nx_add_first (list, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_add_last (gl_list_t list, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->nx_add_last (list, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_add_before (gl_list_t list, gl_list_node_t node, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->nx_add_before (list, node, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_add_after (gl_list_t list, gl_list_node_t node, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->nx_add_after (list, node, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_list_nx_add_at (gl_list_t list, size_t position, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->nx_add_at (list, position, elt); } GL_LIST_INLINE bool gl_list_remove_node (gl_list_t list, gl_list_node_t node) { return ((const struct gl_list_impl_base *) list)->vtable ->remove_node (list, node); } GL_LIST_INLINE bool gl_list_remove_at (gl_list_t list, size_t position) { return ((const struct gl_list_impl_base *) list)->vtable ->remove_at (list, position); } GL_LIST_INLINE bool gl_list_remove_first (gl_list_t list) { size_t size = gl_list_size (list); if (size > 0) return gl_list_remove_at (list, 0); else return false; } GL_LIST_INLINE bool gl_list_remove_last (gl_list_t list) { size_t size = gl_list_size (list); if (size > 0) return gl_list_remove_at (list, size - 1); else return false; } GL_LIST_INLINE bool gl_list_remove (gl_list_t list, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->remove_elt (list, elt); } GL_LIST_INLINE void gl_list_free (gl_list_t list) { ((const struct gl_list_impl_base *) list)->vtable->list_free (list); } GL_LIST_INLINE gl_list_iterator_t gl_list_iterator (gl_list_t list) { return ((const struct gl_list_impl_base *) list)->vtable ->iterator (list); } GL_LIST_INLINE gl_list_iterator_t gl_list_iterator_from_to (gl_list_t list, size_t start_index, size_t end_index) { return ((const struct gl_list_impl_base *) list)->vtable ->iterator_from_to (list, start_index, end_index); } GL_LIST_INLINE bool gl_list_iterator_next (gl_list_iterator_t *iterator, const void **eltp, gl_list_node_t *nodep) { return iterator->vtable->iterator_next (iterator, eltp, nodep); } GL_LIST_INLINE void gl_list_iterator_free (gl_list_iterator_t *iterator) { iterator->vtable->iterator_free (iterator); } GL_LIST_INLINE gl_list_node_t gl_sortedlist_search (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->sortedlist_search (list, compar, elt); } GL_LIST_INLINE gl_list_node_t gl_sortedlist_search_from_to (gl_list_t list, gl_listelement_compar_fn compar, size_t start_index, size_t end_index, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->sortedlist_search_from_to (list, compar, start_index, end_index, elt); } GL_LIST_INLINE size_t gl_sortedlist_indexof (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->sortedlist_indexof (list, compar, elt); } GL_LIST_INLINE size_t gl_sortedlist_indexof_from_to (gl_list_t list, gl_listelement_compar_fn compar, size_t start_index, size_t end_index, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->sortedlist_indexof_from_to (list, compar, start_index, end_index, elt); } GL_LIST_INLINE _GL_ATTRIBUTE_NODISCARD gl_list_node_t gl_sortedlist_nx_add (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->sortedlist_nx_add (list, compar, elt); } GL_LIST_INLINE bool gl_sortedlist_remove (gl_list_t list, gl_listelement_compar_fn compar, const void *elt) { return ((const struct gl_list_impl_base *) list)->vtable ->sortedlist_remove (list, compar, elt); } #ifdef __cplusplus } #endif _GL_INLINE_HEADER_END #endif /* _GL_LIST_H */ libffcall-2.4/gnulib-lib/unistd.c0000664000000000000000000000154114057155505013674 00000000000000/* Inline functions for . Copyright (C) 2012-2021 Free Software Foundation, Inc. This file is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . */ #include #define _GL_UNISTD_INLINE _GL_EXTERN_INLINE #include "unistd.h" typedef int dummy; libffcall-2.4/ffcall-abi.h0000664000000000000000000002113213527104765012330 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.4/vacall/0000775000000000000000000000000014061422457011515 500000000000000libffcall-2.4/vacall/vacall-s390-linux.s0000664000000000000000000000364114061176470014721 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.4/vacall/vacall-arm64-macos-macro.S0000664000000000000000000000561614061176467016170 00000000000000#include "asm-arm64.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) stp x29, x30, [sp, -256]! adrp x9, GOTPAGE(C(vacall_function)) add x29, sp, 0 add x10, x29, 256 stp s0, s1, [x29, 156] ldr x9, [x9, GOTPAGEOFF(C(vacall_function))] GOTINDIR(x9) 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, 24] add x0, x29, 24 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, 24] 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, 32] ldp x29, x30, [sp], 256 ret .p2align 3 L(27): ldr x0, [x29, 32] b L(1) .p2align 3 L(29): ldrsb x0, [x29, 32] b L(1) .p2align 3 L(30): ldrsh x0, [x29, 32] b L(1) .p2align 3 L(31): ldrh w0, [x29, 32] b L(1) .p2align 3 L(32): ldrsw x0, [x29, 32] b L(1) .p2align 3 L(33): ldr w0, [x29, 32] b L(1) L(34): ldr s0, [x29, 32] b L(1) L(35): ldr d0, [x29, 32] 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.4/vacall/vacall-m68k.motorola.S0000664000000000000000000000504214061176466015450 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.4/vacall/vacall-mips64eb-linux.s0000664000000000000000000001163614061176466015664 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.4/vacall/vacall-mipsel-macro.S0000664000000000000000000000721114061176466015420 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.4/vacall/vacall-armhf-linux.s0000664000000000000000000000520014061176467015317 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.5.0" .section .note.GNU-stack,"",%progbits libffcall-2.4/vacall/vacall-armhf.c0000664000000000000000000001441614061147270014141 00000000000000/* vacall function for arm CPU with -mfloat-abi=hard */ /* * Copyright 1995-2021 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 __varword iret __asm__("r0"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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.4/vacall/vacall-powerpc-macos.s0000664000000000000000000000400714061176470015642 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.4/vacall/vacall-i386.c0000664000000000000000000001246114061147270013533 00000000000000/* vacall function for i386 CPU */ /* * Copyright 1995-2021 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 = ((__varword *) &list.tmp._longlong)[0]; asm volatile ("movl %0,%%edx" : : "g"(((__varword *) &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(__varword)) { /* This code is EXTREMELY fragile!! */ /* It depends on the register allocation chosen by gcc. */ iret = ((__varword *) list.raddr)[0]; asm volatile ("movl %0,%%edx" : : "g"(((__varword *) 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.4/vacall/vacall-internal.h0000664000000000000000000014231214061147275014667 00000000000000/* * Copyright 1995-2021 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; __varword 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; __varword 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; __varword 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; __varword 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; __varword 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; __varword 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(__varword)-1) / sizeof(__varword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__varword), \ (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(__varword)-1) / sizeof(__varword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += __va_argsize(TYPE_SIZE) / sizeof(__varword), \ (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(__varword)-1) / sizeof(__varword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword), \ &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword)] \ ) \ : ((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(__varword) \ && (LIST)->ianum + ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword) <= __VA_IARG_NUM) \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword), \ &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword)] \ ) \ : (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(__varword)-1) / sizeof(__varword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword), \ (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(__varword)-1) / sizeof(__varword) <= __VA_IARG_NUM \ ? ((LIST)->ianum += ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword), \ &(LIST)->iarg[(LIST)->ianum - ((TYPE_SIZE) + sizeof(__varword)-1) / sizeof(__varword)] \ ) \ : (((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__) /* ‘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(__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(__varword)-1) & -(intptr_t)(__VA_alignof(TYPE)/sizeof(__varword))), 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(double), \ *(double*)((LIST)->aptr - sizeof(double)) \ ) ) #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(__varword) \ ? (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.4/vacall/vacall-hppa.c0000664000000000000000000002433314061147270013773 00000000000000/* vacall function for hppa CPU */ /* * Copyright 1995-2021 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 __varword arg1 __asm__("%r26"); register __varword arg2 __asm__("%r25"); register __varword arg3 __asm__("%r24"); register __varword 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 __varword iret1 __asm__("%r28"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ __varword mask0 = ((__varword)2 << (sizeof(__varword)*8-start_offset*8-1)) - 1; if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ iret = (wordaddr[0] & mask0) >> (sizeof(__varword)*8-end_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ iret = ((wordaddr[0] & mask0) << (end_offset*8-sizeof(__varword)*8)) | (wordaddr[1] >> (2*sizeof(__varword)*8-end_offset*8)); } } else { /* Assign iret, iret2. */ __varword mask0 = ((__varword)2 << (sizeof(__varword)*8-start_offset*8-1)) - 1; if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ iret = (wordaddr[0] & mask0) >> (2*sizeof(__varword)*8-end_offset*8); iret2 = ((wordaddr[0] & mask0) << (end_offset*4-sizeof(__varword)*4) << (end_offset*4-sizeof(__varword)*4)) | (wordaddr[1] >> (2*sizeof(__varword)*8-end_offset*8)); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ iret = ((wordaddr[0] & mask0) << (end_offset*8-2*sizeof(__varword)*8)) | (wordaddr[1] >> (3*sizeof(__varword)*8-end_offset*8)); iret2 = (wordaddr[1] << (end_offset*8-2*sizeof(__varword)*8)) | (wordaddr[2] >> (3*sizeof(__varword)*8-end_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/minitests-c++.cc0000664000000000000000000000133213347755333014340 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.4/vacall/vacall-alpha-macro.S0000664000000000000000000000525314061176467015221 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.4/vacall/vacall-x86_64.c0000664000000000000000000002044614061147270014002 00000000000000/* vacall function for x86_64 CPU with the Unix ABI ('gcc -mabi=sysv') */ /* * Copyright 1995-2021 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 __varword iarg1 __asm__("rdi");*/ /*register __varword iarg2 __asm__("rsi");*/ /*register __varword iarg3 __asm__("rdx");*/ /*register __varword iarg4 __asm__("rcx");*/ /*register __varword iarg5 __asm__("r8");*/ /*register __varword 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 __varword iret __asm__("rax"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__varword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__varword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__varword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__varword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__varword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__varword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__varword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__varword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__varword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__varword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__varword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__varword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__varword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__varword)((unsigned char *) list.raddr)[15] << 56; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-arm64.c0000664000000000000000000002041714061147270013773 00000000000000/* vacall function for arm64 (a.k.a. aarch64) CPU */ /* * Copyright 1995-2021 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 __varword iarg1 __asm__("x0"); register __varword iarg2 __asm__("x1"); register __varword iarg3 __asm__("x2"); register __varword iarg4 __asm__("x3"); register __varword iarg5 __asm__("x4"); register __varword iarg6 __asm__("x5"); register __varword iarg7 __asm__("x6"); register __varword 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 __varword iret __asm__("x0"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__varword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__varword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__varword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__varword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__varword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__varword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__varword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__varword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__varword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__varword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__varword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__varword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__varword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__varword)((unsigned char *) list.raddr)[15] << 56; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-powerpc64-aix.s0000664000000000000000000000406314061176470015475 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.4/vacall/vacall-powerpc-aix.s0000664000000000000000000000452514061176467015334 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.4/vacall/vacall-riscv64.c0000664000000000000000000002140414061147270014337 00000000000000/* vacall function for RISC-V 64-bit CPU */ /* * Copyright 1995-2021 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 __varword iarg1 __asm__("a0"); register __varword iarg2 __asm__("a1"); register __varword iarg3 __asm__("a2"); register __varword iarg4 __asm__("a3"); register __varword iarg5 __asm__("a4"); register __varword iarg6 __asm__("a5"); register __varword iarg7 __asm__("a6"); register __varword 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 __varword iret __asm__("a0"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__varword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__varword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__varword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__varword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__varword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__varword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__varword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__varword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__varword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__varword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__varword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__varword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__varword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__varword)((unsigned char *) list.raddr)[15] << 56; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-powerpc-sysv4-macro.S0000664000000000000000000000366214061176467016703 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.4/vacall/vacall-i386-macro.S0000664000000000000000000001655014061176466014626 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.4/vacall/vacall-libapi.c0000664000000000000000000001245613347756631014323 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.4/vacall/vacall-arm-linux-pic.s0000664000000000000000000000314014061176467015553 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.4/vacall/vacall-mipsn32eb-linux.s0000664000000000000000000001144714061176466016035 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.4/vacall/vacall-powerpc-linux.s0000664000000000000000000000354214061176467015710 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.4/vacall/vacall-riscv32-ilp32d-macro.S0000664000000000000000000000455114061176470016514 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.4/vacall/vacall-mips.c0000664000000000000000000000766714061147270014026 00000000000000/* vacall function for mips CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("$2"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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.4/vacall/vacall-hppa64-macro.S0000664000000000000000000001017414061176467015234 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.4/vacall/vacall-m68k-linux.s0000664000000000000000000000456614061176466015024 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.4/vacall/vacall-arm64-macro.S0000664000000000000000000000561614061176467015070 00000000000000#include "asm-arm64.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 .global C(vacall_receiver) DECLARE_FUNCTION(vacall_receiver) FUNBEGIN(vacall_receiver) stp x29, x30, [sp, -256]! adrp x9, GOTPAGE(C(vacall_function)) add x29, sp, 0 add x10, x29, 256 stp s0, s1, [x29, 156] ldr x9, [x9, GOTPAGEOFF(C(vacall_function))] GOTINDIR(x9) 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.4/vacall/vacall-mipseb-linux.s0000664000000000000000000000754114061176466015512 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.4/vacall/vacall-armhf-linux-pic.s0000664000000000000000000000540514061176467016077 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.5.0" .section .note.GNU-stack,"",%progbits libffcall-2.4/vacall/vacall.html0000664000000000000000000002527213136760230013571 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.4/vacall/vacall-sparc64-macro.S0000664000000000000000000002657314061176467015426 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.4/vacall/vacall-mipsn32el-linux.s0000664000000000000000000001147714061176466016052 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.4/vacall/Makefile.devel0000664000000000000000000005233114061147275014201 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-arm64-macos-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.5.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.5.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.5.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.5.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-arm64.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-arm64.h"' ; ../common/asm-arm64.sh < vacall-arm64el.s ; cat ../common/noexecstack-arm.h) > vacall-arm64-macro.S $(RM) vacall-arm64el.s vacall-arm64eb.s vacall-arm64-macos-macro.S : vacall-arm64.c vacall-internal.h vacall.h ../common/asm-arm64.sh ../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -D__APPLE__ -D__MACH__ -S vacall-arm64.c -o vacall-arm64-macos.s (echo '#include "asm-arm64.h"' ; ../common/asm-arm64.sh < vacall-arm64-macos.s ; cat ../common/noexecstack-arm.h) > vacall-arm64-macos-macro.S $(RM) vacall-arm64-macos.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-linux-pic.s : vacall-x86_64.c vacall-internal.h vacall.h $(THISFILE) $(CROSS_TOOL) x86_64-linux gcc-4.0.2 $(GCCFLAGS) -fPIC -D__x86_64__ -S vacall-x86_64.c -o vacall-x86_64-linux-pic.s vacall-x86_64-macro.S : vacall-x86_64-linux.s vacall-x86_64-linux-pic.s ../common/asm-x86_64.sh ../common/noexecstack.h $(THISFILE) (echo '#include "asm-x86_64.h"' ; echo '#if defined __OpenBSD__' ; ../common/asm-x86_64.sh < vacall-x86_64-linux-pic.s ; echo '#else' ; ../common/asm-x86_64.sh < vacall-x86_64-linux.s ; echo '#endif' ; 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.4/vacall/vacall-i386-msvc.c0000664000000000000000000001662314061422203014475 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.4/vacall/vacall-s390x-macro.S0000664000000000000000000000376314061176470015020 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.4/vacall/Makefile.in0000664000000000000000000004033214061147275013506 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 $(srcdir)/vacall-arm64-macos-macro.S case "$(OS)" in \ macos* | darwin*) input=vacall-arm64-macos-macro.S ;; \ *) input=vacall-arm64-macro.S ;; \ esac; \ $(CPP) $(ASPFLAGS) -I$(srcdir)/../common $(srcdir)/$${input} | 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-arm64-macos-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.4/vacall/vacall-s390-macro.S0000664000000000000000000000403214061176470014616 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.4/vacall/vacall-ia64-macro.S0000664000000000000000000002455514061176470014677 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.4/vacall/vacall-hppa64.c0000664000000000000000000003157514061147270014153 00000000000000/* vacall function for hppa64 CPU */ /* * Copyright 1995-2021 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 __varword arg1 __asm__("r26"); register __varword arg2 __asm__("r25"); register __varword arg3 __asm__("r24"); register __varword arg4 __asm__("r23"); register __varword arg5 __asm__("r22"); register __varword arg6 __asm__("r21"); register __varword arg7 __asm__("r20"); register __varword 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 __varword iret __asm__("r28"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0] << 56; } else if (list.rsize == 2) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48); } else if (list.rsize == 3) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40); } else if (list.rsize == 4) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32); } else if (list.rsize == 5) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24); } else if (list.rsize == 6) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16); } else if (list.rsize == 7) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8); } else if (list.rsize >= 8 && list.rsize <= 16) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8) | (__varword)((unsigned char *) list.raddr)[7]; if (list.rsize == 8) { } else if (list.rsize == 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8] << 56; } else if (list.rsize == 10) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48); } else if (list.rsize == 11) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40); } else if (list.rsize == 12) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32); } else if (list.rsize == 13) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24); } else if (list.rsize == 14) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16); } else if (list.rsize == 15) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8); } else if (list.rsize == 16) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8) | (__varword)((unsigned char *) list.raddr)[15]; } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = - ((__varword)1 << (sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = - ((__varword)1 << (3*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__varword)*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.4/vacall/vacall-mips64eb-macro.S0000664000000000000000000001107214061176466015560 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.4/vacall/vacall-mips64el-macro.S0000664000000000000000000001122314061176466015570 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.4/vacall/vacall-riscv32.c0000664000000000000000000002007514061147270014335 00000000000000/* vacall function for RISC-V 32-bit CPU */ /* * Copyright 1995-2021 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 __varword iarg1 __asm__("a0"); register __varword iarg2 __asm__("a1"); register __varword iarg3 __asm__("a2"); register __varword iarg4 __asm__("a3"); register __varword iarg5 __asm__("a4"); register __varword iarg6 __asm__("a5"); register __varword iarg7 __asm__("a6"); register __varword 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 __varword iret __asm__("a0"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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 = (__varword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__varword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__varword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__varword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) { iret2 = (__varword)((unsigned char *) list.raddr)[4]; if (list.rsize >= 6) iret2 |= (__varword)((unsigned char *) list.raddr)[5] << 8; if (list.rsize >= 7) iret2 |= (__varword)((unsigned char *) list.raddr)[6] << 16; if (list.rsize >= 8) iret2 |= (__varword)((unsigned char *) list.raddr)[7] << 24; } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall.h0000664000000000000000000004615614061147275013066 00000000000000/* * Copyright 1995-2021 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 /* __vaword represents a single word that can be pushed on the stack. * __varword represents a general-purpose register. */ #if defined(__arm64__) && defined(__APPLE__) && defined(__MACH__) typedef int __vaword; typedef long __varword; #elif defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__VA_LLP64) typedef long long __vaword; typedef long long __varword; #else typedef long __vaword; typedef long __varword; #endif /* C builtin types. */ 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, xlclang */ __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(__ibmxl__) || !defined(__GNUC__)) /* AIX 64-bit xlc, xlclang */ __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.4/vacall/vacall-s390x-linux.s0000664000000000000000000000364314061176470015113 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.4/vacall/vacall-ia64-linux.s0000664000000000000000000002433314061176470014767 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.4/vacall/vacall-x86_64-x32-linux.s0000664000000000000000000001045614061176470015575 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.4/vacall/vacall-mipseb-macro.S0000664000000000000000000000721114061176466015406 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.4/vacall/vacall-m68k.c0000664000000000000000000000760414061147270013632 00000000000000/* vacall function for m68k CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("d0"); register __varword iret2 __asm__("d1"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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(__varword)) { iret = ((__varword *) list.raddr)[0]; iret2 = ((__varword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-powerpc.c0000664000000000000000000001267314061147270014526 00000000000000/* vacall function for powerpc CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("r3"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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(__varword)) { iret = ((__varword *) list.raddr)[0]; iret2 = ((__varword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-sparc-linux-pic.s0000664000000000000000000000372514061176466016114 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.4/vacall/vacall-sparc64.c0000664000000000000000000005521214061147270014325 00000000000000/* vacall function for sparc64 CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("%i0"); register __varword o1 __asm__("%i1"); register __varword o2 __asm__("%i2"); register __varword o3 __asm__("%i3"); register __varword o4 __asm__("%i4"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0] << 56; } else if (list.rsize == 2) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48); } else if (list.rsize == 3) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40); } else if (list.rsize == 4) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32); } else if (list.rsize == 5) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24); } else if (list.rsize == 6) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16); } else if (list.rsize == 7) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8); } else if (list.rsize >= 8 && list.rsize <= 32) { iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8) | (__varword)((unsigned char *) list.raddr)[7]; if (list.rsize == 8) { } else if (list.rsize == 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8] << 56; } else if (list.rsize == 10) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48); } else if (list.rsize == 11) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40); } else if (list.rsize == 12) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32); } else if (list.rsize == 13) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24); } else if (list.rsize == 14) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16); } else if (list.rsize == 15) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8); } else if (list.rsize >= 16 && list.rsize <= 32) { iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8) | (__varword)((unsigned char *) list.raddr)[15]; if (list.rsize == 16) { } else if (list.rsize == 17) { iret3 = (__varword)((unsigned char *) list.raddr)[16] << 56; } else if (list.rsize == 18) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48); } else if (list.rsize == 19) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48) | ((__varword)((unsigned char *) list.raddr)[18] << 40); } else if (list.rsize == 20) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48) | ((__varword)((unsigned char *) list.raddr)[18] << 40) | ((__varword)((unsigned char *) list.raddr)[19] << 32); } else if (list.rsize == 21) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48) | ((__varword)((unsigned char *) list.raddr)[18] << 40) | ((__varword)((unsigned char *) list.raddr)[19] << 32) | ((__varword)((unsigned char *) list.raddr)[20] << 24); } else if (list.rsize == 22) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48) | ((__varword)((unsigned char *) list.raddr)[18] << 40) | ((__varword)((unsigned char *) list.raddr)[19] << 32) | ((__varword)((unsigned char *) list.raddr)[20] << 24) | ((__varword)((unsigned char *) list.raddr)[21] << 16); } else if (list.rsize == 23) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48) | ((__varword)((unsigned char *) list.raddr)[18] << 40) | ((__varword)((unsigned char *) list.raddr)[19] << 32) | ((__varword)((unsigned char *) list.raddr)[20] << 24) | ((__varword)((unsigned char *) list.raddr)[21] << 16) | ((__varword)((unsigned char *) list.raddr)[22] << 8); } else if (list.rsize >= 24 && list.rsize <= 32) { iret3 = ((__varword)((unsigned char *) list.raddr)[16] << 56) | ((__varword)((unsigned char *) list.raddr)[17] << 48) | ((__varword)((unsigned char *) list.raddr)[18] << 40) | ((__varword)((unsigned char *) list.raddr)[19] << 32) | ((__varword)((unsigned char *) list.raddr)[20] << 24) | ((__varword)((unsigned char *) list.raddr)[21] << 16) | ((__varword)((unsigned char *) list.raddr)[22] << 8) | (__varword)((unsigned char *) list.raddr)[23]; if (list.rsize == 24) { } else if (list.rsize == 25) { iret4 = (__varword)((unsigned char *) list.raddr)[24] << 56; } else if (list.rsize == 26) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48); } else if (list.rsize == 27) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48) | ((__varword)((unsigned char *) list.raddr)[26] << 40); } else if (list.rsize == 28) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48) | ((__varword)((unsigned char *) list.raddr)[26] << 40) | ((__varword)((unsigned char *) list.raddr)[27] << 32); } else if (list.rsize == 29) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48) | ((__varword)((unsigned char *) list.raddr)[26] << 40) | ((__varword)((unsigned char *) list.raddr)[27] << 32) | ((__varword)((unsigned char *) list.raddr)[28] << 24); } else if (list.rsize == 30) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48) | ((__varword)((unsigned char *) list.raddr)[26] << 40) | ((__varword)((unsigned char *) list.raddr)[27] << 32) | ((__varword)((unsigned char *) list.raddr)[28] << 24) | ((__varword)((unsigned char *) list.raddr)[29] << 16); } else if (list.rsize == 31) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48) | ((__varword)((unsigned char *) list.raddr)[26] << 40) | ((__varword)((unsigned char *) list.raddr)[27] << 32) | ((__varword)((unsigned char *) list.raddr)[28] << 24) | ((__varword)((unsigned char *) list.raddr)[29] << 16) | ((__varword)((unsigned char *) list.raddr)[30] << 8); } else if (list.rsize == 32) { iret4 = ((__varword)((unsigned char *) list.raddr)[24] << 56) | ((__varword)((unsigned char *) list.raddr)[25] << 48) | ((__varword)((unsigned char *) list.raddr)[26] << 40) | ((__varword)((unsigned char *) list.raddr)[27] << 32) | ((__varword)((unsigned char *) list.raddr)[28] << 24) | ((__varword)((unsigned char *) list.raddr)[29] << 16) | ((__varword)((unsigned char *) list.raddr)[30] << 8) | (__varword)((unsigned char *) list.raddr)[31]; } } } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 4*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = - ((__varword)1 << (sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*8-start_offset*8)); } } else if (count <= 2*sizeof(__varword)) { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = - ((__varword)1 << (3*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__varword)*8-start_offset*8)); } } else if (count <= 3*sizeof(__varword)) { /* Assign iret, iret2, iret3. */ if (end_offset <= 3*sizeof(__varword)) { /* 2*sizeof(__varword) < end_offset ≤ 3*sizeof(__varword) */ __varword mask2 = - ((__varword)1 << (3*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret3 = (wordaddr[2] & mask2) << (start_offset*8); } else { /* 3*sizeof(__varword) < end_offset < 4*sizeof(__varword), start_offset > 0 */ __varword mask3 = - ((__varword)1 << (4*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__varword)*8-start_offset*8)); iret3 = (wordaddr[2] << (start_offset*8)) | ((wordaddr[3] & mask3) >> (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2, iret3, iret4. */ if (end_offset <= 4*sizeof(__varword)) { /* 3*sizeof(__varword) < end_offset ≤ 4*sizeof(__varword) */ __varword mask3 = - ((__varword)1 << (4*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret3 = (wordaddr[2] << (start_offset*8)) | ((wordaddr[3] & mask3) >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret4 = (wordaddr[3] & mask3) << (start_offset*8); } else { /* 4*sizeof(__varword) < end_offset < 5*sizeof(__varword), start_offset > 0 */ __varword mask4 = - ((__varword)1 << (5*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | (wordaddr[2] >> (sizeof(__varword)*8-start_offset*8)); iret3 = (wordaddr[2] << (start_offset*8)) | (wordaddr[3] >> (sizeof(__varword)*8-start_offset*8)); iret4 = (wordaddr[3] << (start_offset*8)) | ((wordaddr[4] & mask4) >> (sizeof(__varword)*8-start_offset*8)); } } #endif } } } } libffcall-2.4/vacall/vacall-armhf-macro.S0000664000000000000000000001273514061414730015220 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.4/vacall/vacall-arm-linux.s0000664000000000000000000000276514061176467015016 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.4/vacall/README0000664000000000000000000000473713347755333012340 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.4/vacall/vacall-x86_64-windows-macro.S0000664000000000000000000001543314061176470016555 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.4/vacall/vacall-mips64el-linux.s0000664000000000000000000001167314061176466015677 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.4/vacall/vacall-mipsn32el-macro.S0000664000000000000000000001102614061176466015742 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.4/vacall/vacall.30000664000000000000000000001745013136760230012766 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.4/vacall/vacall-i386-linux.s0000664000000000000000000000375214061176466014724 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.4/vacall/vacall-i386-linux-pic.s0000664000000000000000000000420114061176466015463 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.4/vacall/vacall-powerpc64-elfv2-linux.S0000664000000000000000000000602714061176470017031 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.4/vacall/vacall-s390x.c0000664000000000000000000000723114061147270013727 00000000000000/* vacall function for s390x (S/390 64-bit) CPU */ /* * Copyright 1995-2021 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 __varword iarg1 __asm__("r2"); register __varword iarg2 __asm__("r3"); register __varword iarg3 __asm__("r4"); register __varword iarg4 __asm__("r5"); register __varword 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 __varword 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.4/vacall/vacall-powerpc64-linux.S0000664000000000000000000000413214061176470016010 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.4/vacall/vacall.man0000664000000000000000000002262414061422203013367 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.4/vacall/vacall-x86_64-windows.c0000664000000000000000000001470314061147270015471 00000000000000/* vacall function for x86_64 CPU with the Windows ABI ('gcc -mabi=ms') */ /* * Copyright 1995-2021 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 __varword iarg1 __asm__("rcx");*/ /*register __varword iarg2 __asm__("rdx");*/ /*register __varword iarg3 __asm__("r8");*/ /*register __varword 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 __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; } else if (list.rsize == 2) { iret = (__varword)((unsigned char *) list.raddr)[0] | ((__varword)((unsigned char *) list.raddr)[1] << 8); } else if (list.rsize == 4) { iret = (__varword)((unsigned char *) list.raddr)[0] | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24); } else if (list.rsize == 8) { iret = (__varword)((unsigned char *) list.raddr)[0] | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48) | ((__varword)((unsigned char *) list.raddr)[7] << 56); } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ sizeof(__varword) */ if (count == 1 || count == 2 || count == 4 || count == 8) { __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 2*sizeof(__varword) */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*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.4/vacall/vacall-x86_64-windows.s0000664000000000000000000001136514061176470015516 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.4/vacall/vacall-sparc64-linux.s0000664000000000000000000001312314061176467015507 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.4/vacall/vacall-m68k.mit.S0000664000000000000000000000456514061176466014416 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.4/vacall/vacall-riscv64-lp64d-linux.s0000664000000000000000000000513414061176470016451 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.4/vacall/vacall-hppa64-linux.s0000664000000000000000000000757014061176467015340 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.4/vacall/vacall-mipsn32eb-macro.S0000664000000000000000000001070214061176466015730 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.4/vacall/vacall-arm.c0000664000000000000000000001137414061147270013623 00000000000000/* vacall function for arm CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("r0"); register __varword iret2 __asm__("r1"); register float fret __asm__("r0"); register __varword dret1 __asm__("r0"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &list.tmp._longlong)[1]; } else if (list.rtype == __VAfloat) { fret = list.tmp._float; } else if (list.rtype == __VAdouble) { dret1 = ((__varword *) &list.tmp._double)[0]; dret2 = ((__varword *) &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.4/vacall/minitests.c0000664000000000000000000000136613347755332013635 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.4/vacall/PLATFORMS0000664000000000000000000000616214061241502012722 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), aarch64-apple-darwin20.4.0 (cc) 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.4/vacall/vacall-sparc64-linux-pic.s0000664000000000000000000001324514061176467016265 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.4/vacall/vacall-arm-macro.S0000664000000000000000000000640114061414730014673 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.4/vacall/vacall-alpha-linux.s0000664000000000000000000000513314061176467015314 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.4/vacall/vacall-hppa-macro.S0000664000000000000000000000665614061176467015074 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.4/vacall/vacall-structcpy.c0000664000000000000000000000142413347755341015111 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.4/vacall/vacall-mipsel-linux.s0000664000000000000000000000754114061176466015524 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.4/vacall/tests.c0000664000000000000000000022624014060776405012755 00000000000000/* Some random tests for vacall. */ /* * Copyright 1993 Bill Triggs * Copyright 1995-2021 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)(int)(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.4/vacall/vacall-hppa-linux.s0000664000000000000000000000617314061176467015164 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.4/vacall/vacall-sparc-macro.S0000664000000000000000000000770614061176466015250 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.4/vacall/vacall-s390.c0000664000000000000000000000774414061147270013550 00000000000000/* vacall function for S/390 32-bit CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("%r2"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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(__varword)) { iret = ((__varword *) list.raddr)[0]; iret2 = ((__varword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-mips64.c0000664000000000000000000005625414061147270014174 00000000000000/* vacall function for mips CPU */ /* * Copyright 1995-2021 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 __varword iarg0 __asm__("$4"); register __varword iarg1 __asm__("$5"); register __varword iarg2 __asm__("$6"); register __varword iarg3 __asm__("$7"); register __varword iarg4 __asm__("$8"); register __varword iarg5 __asm__("$9"); register __varword iarg6 __asm__("$10"); register __varword 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 __varword iret __asm__("$2"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; #else iret = (__varword)((unsigned char *) list.raddr)[0] << 56; #endif } else if (list.rsize == 2) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48); #endif } else if (list.rsize == 3) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40); #endif } else if (list.rsize == 4) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32); #endif } else if (list.rsize == 5) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24); #endif } else if (list.rsize == 6) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16); #endif } else if (list.rsize == 7) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8); #endif } else if (list.rsize >= 8 && list.rsize <= 16) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48) | ((__varword)((unsigned char *) list.raddr)[7] << 56); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8) | (__varword)((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 = (__varword)((unsigned char *) list.raddr)[8]; #else iret2 = (__varword)((unsigned char *) list.raddr)[8] << 56; #endif } else if (list.rsize == 10) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48); #endif } else if (list.rsize == 11) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40); #endif } else if (list.rsize == 12) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32); #endif } else if (list.rsize == 13) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24); #endif } else if (list.rsize == 14) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16); #endif } else if (list.rsize == 15) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40) | ((__varword)((unsigned char *) list.raddr)[14] << 48); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8); #endif } else if (list.rsize == 16) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40) | ((__varword)((unsigned char *) list.raddr)[14] << 48) | ((__varword)((unsigned char *) list.raddr)[15] << 56); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8) | (__varword)((unsigned char *) list.raddr)[15]; #endif } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ #if defined(_MIPSEL) if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } #else if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = - ((__varword)1 << (sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = - ((__varword)1 << (3*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__varword)*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.4/vacall/vacall-ia64.c0000664000000000000000000003066614061147270013614 00000000000000/* vacall function for ia64 CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("r8"); register __varword iret2 __asm__("r9"); register __varword iret3 __asm__("r10"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; if (list.rsize >= 2) iret |= (__varword)((unsigned char *) list.raddr)[1] << 8; if (list.rsize >= 3) iret |= (__varword)((unsigned char *) list.raddr)[2] << 16; if (list.rsize >= 4) iret |= (__varword)((unsigned char *) list.raddr)[3] << 24; if (list.rsize >= 5) iret |= (__varword)((unsigned char *) list.raddr)[4] << 32; if (list.rsize >= 6) iret |= (__varword)((unsigned char *) list.raddr)[5] << 40; if (list.rsize >= 7) iret |= (__varword)((unsigned char *) list.raddr)[6] << 48; if (list.rsize >= 8) iret |= (__varword)((unsigned char *) list.raddr)[7] << 56; if (list.rsize >= 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8]; if (list.rsize >= 10) iret2 |= (__varword)((unsigned char *) list.raddr)[9] << 8; if (list.rsize >= 11) iret2 |= (__varword)((unsigned char *) list.raddr)[10] << 16; if (list.rsize >= 12) iret2 |= (__varword)((unsigned char *) list.raddr)[11] << 24; if (list.rsize >= 13) iret2 |= (__varword)((unsigned char *) list.raddr)[12] << 32; if (list.rsize >= 14) iret2 |= (__varword)((unsigned char *) list.raddr)[13] << 40; if (list.rsize >= 15) iret2 |= (__varword)((unsigned char *) list.raddr)[14] << 48; if (list.rsize >= 16) iret2 |= (__varword)((unsigned char *) list.raddr)[15] << 56; if (list.rsize >= 17) { iret3 = (__varword)((unsigned char *) list.raddr)[16]; if (list.rsize >= 18) iret3 |= (__varword)((unsigned char *) list.raddr)[17] << 8; if (list.rsize >= 19) iret3 |= (__varword)((unsigned char *) list.raddr)[18] << 16; if (list.rsize >= 20) iret3 |= (__varword)((unsigned char *) list.raddr)[19] << 24; if (list.rsize >= 21) iret3 |= (__varword)((unsigned char *) list.raddr)[20] << 32; if (list.rsize >= 22) iret3 |= (__varword)((unsigned char *) list.raddr)[21] << 40; if (list.rsize >= 23) iret3 |= (__varword)((unsigned char *) list.raddr)[22] << 48; if (list.rsize >= 24) iret3 |= (__varword)((unsigned char *) list.raddr)[23] << 56; if (list.rsize >= 25) { iret4 = (__varword)((unsigned char *) list.raddr)[24]; if (list.rsize >= 26) iret4 |= (__varword)((unsigned char *) list.raddr)[25] << 8; if (list.rsize >= 27) iret4 |= (__varword)((unsigned char *) list.raddr)[26] << 16; if (list.rsize >= 28) iret4 |= (__varword)((unsigned char *) list.raddr)[27] << 24; if (list.rsize >= 29) iret4 |= (__varword)((unsigned char *) list.raddr)[28] << 32; if (list.rsize >= 30) iret4 |= (__varword)((unsigned char *) list.raddr)[29] << 40; if (list.rsize >= 31) iret4 |= (__varword)((unsigned char *) list.raddr)[30] << 48; if (list.rsize >= 32) iret4 |= (__varword)((unsigned char *) list.raddr)[31] << 56; } } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 4*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 5*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else if (count <= 2*sizeof(__varword)) { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } else if (count <= 3*sizeof(__varword)) { /* Assign iret, iret2, iret3. */ if (end_offset <= 3*sizeof(__varword)) { /* 2*sizeof(__varword) < end_offset ≤ 3*sizeof(__varword) */ __varword mask2 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret3 = (wordaddr[2] & mask2) >> (start_offset*8); } else { /* 3*sizeof(__varword) < end_offset < 4*sizeof(__varword), start_offset > 0 */ __varword mask3 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__varword)*8-start_offset*8)); iret3 = (wordaddr[2] >> (start_offset*8)) | ((wordaddr[3] & mask3) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2, iret3, iret4. */ if (end_offset <= 4*sizeof(__varword)) { /* 3*sizeof(__varword) < end_offset ≤ 4*sizeof(__varword) */ __varword mask3 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret3 = (wordaddr[2] >> (start_offset*8)) | ((wordaddr[3] & mask3) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret4 = (wordaddr[3] & mask3) >> (start_offset*8); } else { /* 4*sizeof(__varword) < end_offset < 5*sizeof(__varword), start_offset > 0 */ __varword mask4 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | (wordaddr[2] << (sizeof(__varword)*8-start_offset*8)); iret3 = (wordaddr[2] >> (start_offset*8)) | (wordaddr[3] << (sizeof(__varword)*8-start_offset*8)); iret4 = (wordaddr[3] >> (start_offset*8)) | ((wordaddr[4] & mask4) << (sizeof(__varword)*8-start_offset*8)); } } #endif } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-powerpc-linux-macro.S0000664000000000000000000000366214061176467016752 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.4/vacall/vacall-sparc.c0000664000000000000000000001113114061147270014143 00000000000000/* vacall function for sparc CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("%i0"); register __varword 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 = ((__varword *) &list.tmp._longlong)[0]; iret2 = ((__varword *) &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.4/vacall/vacall-mipsn32.c0000664000000000000000000005627714061147270014352 00000000000000/* vacall function for mips CPU */ /* * Copyright 1995-2021 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 __varword iarg0 __asm__("$4"); register __varword iarg1 __asm__("$5"); register __varword iarg2 __asm__("$6"); register __varword iarg3 __asm__("$7"); register __varword iarg4 __asm__("$8"); register __varword iarg5 __asm__("$9"); register __varword iarg6 __asm__("$10"); register __varword 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 __varword iret __asm__("$2"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; #else iret = (__varword)((unsigned char *) list.raddr)[0] << 56; #endif } else if (list.rsize == 2) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48); #endif } else if (list.rsize == 3) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40); #endif } else if (list.rsize == 4) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32); #endif } else if (list.rsize == 5) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24); #endif } else if (list.rsize == 6) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16); #endif } else if (list.rsize == 7) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8); #endif } else if (list.rsize >= 8 && list.rsize <= 16) { #if defined(_MIPSEL) iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48) | ((__varword)((unsigned char *) list.raddr)[7] << 56); #else iret = ((__varword)((unsigned char *) list.raddr)[0] << 56) | ((__varword)((unsigned char *) list.raddr)[1] << 48) | ((__varword)((unsigned char *) list.raddr)[2] << 40) | ((__varword)((unsigned char *) list.raddr)[3] << 32) | ((__varword)((unsigned char *) list.raddr)[4] << 24) | ((__varword)((unsigned char *) list.raddr)[5] << 16) | ((__varword)((unsigned char *) list.raddr)[6] << 8) | (__varword)((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 = (__varword)((unsigned char *) list.raddr)[8]; #else iret2 = (__varword)((unsigned char *) list.raddr)[8] << 56; #endif } else if (list.rsize == 10) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48); #endif } else if (list.rsize == 11) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40); #endif } else if (list.rsize == 12) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32); #endif } else if (list.rsize == 13) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24); #endif } else if (list.rsize == 14) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16); #endif } else if (list.rsize == 15) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40) | ((__varword)((unsigned char *) list.raddr)[14] << 48); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8); #endif } else if (list.rsize == 16) { #if defined(_MIPSEL) iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40) | ((__varword)((unsigned char *) list.raddr)[14] << 48) | ((__varword)((unsigned char *) list.raddr)[15] << 56); #else iret2 = ((__varword)((unsigned char *) list.raddr)[8] << 56) | ((__varword)((unsigned char *) list.raddr)[9] << 48) | ((__varword)((unsigned char *) list.raddr)[10] << 40) | ((__varword)((unsigned char *) list.raddr)[11] << 32) | ((__varword)((unsigned char *) list.raddr)[12] << 24) | ((__varword)((unsigned char *) list.raddr)[13] << 16) | ((__varword)((unsigned char *) list.raddr)[14] << 8) | (__varword)((unsigned char *) list.raddr)[15]; #endif } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ #if defined(_MIPSEL) if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*8-start_offset*8)); } } #else if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = - ((__varword)1 << (sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] & mask0) << (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = - ((__varword)1 << (2*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | ((wordaddr[1] & mask1) >> (sizeof(__varword)*4-start_offset*4) >> (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) << (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = - ((__varword)1 << (3*sizeof(__varword)*8-end_offset*8)); iret = (wordaddr[0] << (start_offset*8)) | (wordaddr[1] >> (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] << (start_offset*8)) | ((wordaddr[2] & mask2) >> (sizeof(__varword)*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.4/vacall/vacall-x86_64-macro.S0000664000000000000000000003324014061176470015061 00000000000000#include "asm-x86_64.h" #if defined __OpenBSD__ 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 ,vacall_function@MEM_PCRELATIVE(C(GOTPCREL)), R(rcx)) 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(rdi)) 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,q ,NUM(0),X8 MEM_DISP(rbp,-176)) INSN2S(movs,d ,R(xmm7),X8 MEM_DISP(rbp,-88)) INSN2(mov,l ,NUM(0),X4 MEM_DISP(rbp,-168)) 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(rcx))) 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 "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(CFI3)-.LCFI1 .byte 0x8c .uleb128 0x3 .align 8 L(EFDE1): #endif #else 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 #endif #if defined __linux__ || defined __FreeBSD__ || defined __FreeBSD_kernel__ || defined __DragonFly__ .section .note.GNU-stack,"",@progbits #endif libffcall-2.4/vacall/Makefile.maint0000664000000000000000000000076013153072372014205 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.4/vacall/vacall-alpha.c0000664000000000000000000001143414061147270014126 00000000000000/* vacall function for alpha CPU */ /* * Copyright 1995-2021 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 __varword arg1 __asm__("$16"); register __varword arg2 __asm__("$17"); register __varword arg3 __asm__("$18"); register __varword arg4 __asm__("$19"); register __varword arg5 __asm__("$20"); register __varword 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 __varword iret __asm__("$0"); register __varword 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(__varword)) { iret = ((__varword *) list.raddr)[0]; iret2 = ((__varword *) list.raddr)[1]; } } } } #ifdef REENTRANT __vacall_r_t callback_get_receiver (void) { return (__vacall_r_t)(void*)&callback_receiver; } #endif libffcall-2.4/vacall/vacall-riscv32-ilp32d-linux.s0000664000000000000000000000436214061176470016612 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.4/vacall/vacall-m68k-sun.s0000664000000000000000000000362214061176466014462 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.4/vacall/vacall-sparc-linux.s0000664000000000000000000000346014061176466015337 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.4/vacall/vacall-x86_64-linux.s0000664000000000000000000000767514061176470015174 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.4/vacall/vacall-riscv64-lp64d-macro.S0000664000000000000000000000532314061176470016353 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.4/vacall/COPYING0000644000000000000000000004335713026317520012474 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.4/vacall/vacall-powerpc64.c0000664000000000000000000003046714061147270014701 00000000000000/* vacall function for powerpc64 CPU */ /* * Copyright 1995-2021 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 __varword iret __asm__("r3"); register __varword 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 = (__varword)((unsigned char *) list.raddr)[0]; } else if (list.rsize == 2) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8); } else if (list.rsize == 3) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16); } else if (list.rsize == 4) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24); } else if (list.rsize == 5) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32); } else if (list.rsize == 6) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40); } else if (list.rsize == 7) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48); } else if (list.rsize >= 8 && list.rsize <= 16) { iret = ((__varword)((unsigned char *) list.raddr)[0]) | ((__varword)((unsigned char *) list.raddr)[1] << 8) | ((__varword)((unsigned char *) list.raddr)[2] << 16) | ((__varword)((unsigned char *) list.raddr)[3] << 24) | ((__varword)((unsigned char *) list.raddr)[4] << 32) | ((__varword)((unsigned char *) list.raddr)[5] << 40) | ((__varword)((unsigned char *) list.raddr)[6] << 48) | ((__varword)((unsigned char *) list.raddr)[7] << 56); if (list.rsize == 8) { } else if (list.rsize == 9) { iret2 = (__varword)((unsigned char *) list.raddr)[8]; } else if (list.rsize == 10) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8); } else if (list.rsize == 11) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16); } else if (list.rsize == 12) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24); } else if (list.rsize == 13) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32); } else if (list.rsize == 14) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40); } else if (list.rsize == 15) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40) | ((__varword)((unsigned char *) list.raddr)[14] << 48); } else if (list.rsize == 16) { iret2 = ((__varword)((unsigned char *) list.raddr)[8]) | ((__varword)((unsigned char *) list.raddr)[9] << 8) | ((__varword)((unsigned char *) list.raddr)[10] << 16) | ((__varword)((unsigned char *) list.raddr)[11] << 24) | ((__varword)((unsigned char *) list.raddr)[12] << 32) | ((__varword)((unsigned char *) list.raddr)[13] << 40) | ((__varword)((unsigned char *) list.raddr)[14] << 48) | ((__varword)((unsigned char *) list.raddr)[15] << 56); } } #else /* Optimized: fewer conditional jumps, fewer memory accesses */ uintptr_t count = list.rsize; /* > 0, ≤ 2*sizeof(__varword) */ __varword* wordaddr = (__varword*)((uintptr_t)list.raddr & ~(uintptr_t)(sizeof(__varword)-1)); uintptr_t start_offset = (uintptr_t)list.raddr & (uintptr_t)(sizeof(__varword)-1); /* ≥ 0, < sizeof(__varword) */ uintptr_t end_offset = start_offset + count; /* > 0, < 3*sizeof(__varword) */ if (count <= sizeof(__varword)) { /* Assign iret. */ if (end_offset <= sizeof(__varword)) { /* 0 < end_offset ≤ sizeof(__varword) */ __varword mask0 = ((__varword)2 << (end_offset*8-1)) - 1; iret = (wordaddr[0] & mask0) >> (start_offset*8); } else { /* sizeof(__varword) < end_offset < 2*sizeof(__varword), start_offset > 0 */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*8-start_offset*8)); } } else { /* Assign iret, iret2. */ if (end_offset <= 2*sizeof(__varword)) { /* sizeof(__varword) < end_offset ≤ 2*sizeof(__varword) */ __varword mask1 = ((__varword)2 << (end_offset*8-sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | ((wordaddr[1] & mask1) << (sizeof(__varword)*4-start_offset*4) << (sizeof(__varword)*4-start_offset*4)); iret2 = (wordaddr[1] & mask1) >> (start_offset*8); } else { /* 2*sizeof(__varword) < end_offset < 3*sizeof(__varword), start_offset > 0 */ __varword mask2 = ((__varword)2 << (end_offset*8-2*sizeof(__varword)*8-1)) - 1; iret = (wordaddr[0] >> (start_offset*8)) | (wordaddr[1] << (sizeof(__varword)*8-start_offset*8)); iret2 = (wordaddr[1] >> (start_offset*8)) | ((wordaddr[2] & mask2) << (sizeof(__varword)*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.4/ffcall-version.in.h0000664000000000000000000000202713347755317013676 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.4/NEWS0000664000000000000000000001650014061421734010671 00000000000000New in 2.4: * Added support for the following platforms: (Previously, a build on these platforms failed.) - arm64: macOS 11. - arm: FreeBSD 12. - sparc: Solaris 11 32-bit. New in 2.3: * Added support for the following platforms: (Previously, a build on these platforms failed.) - x86_64: FreeBSD 13, OpenBSD 6.5 and newer. - powerpc64: AIX 7 with xlclang compiler. * Fixed a couple of multithread-safety bugs in the trampoline and callback packages. New 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.4/README0000664000000000000000000000762114057212557011064 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-2021 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.4/testcases.c0000664000000000000000000006202514060776405012346 00000000000000/* * Copyright 1993 Bill Triggs * Copyright 1995-2021 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)(int)(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.4/configure.ac0000664000000000000000000001366413764143676012507 00000000000000dnl AUTOCONF configuration for LIBFFCALL dnl Copyright 1995-2020 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 trampoline, trampoline_r. AC_CHECK_HEADERS([unistd.h]) gl_FUNC_MMAP_ANON FFCALL_CODEEXEC 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} = 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} = sparc -o ${HOST_CPU_C_ABI} = sparc64; then case "${host_os}" in solaris*) ;; *) CPU_OBJECTS="$CPU_OBJECTS "'cache-$(CPU).lo' ;; esac 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.4/INSTALL.windows0000664000000000000000000002474613347673424012742 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.4/aclocal.m40000664000000000000000000012730714061422177012044 00000000000000# generated automatically by aclocal 1.16.3 -*- Autoconf -*- # Copyright (C) 1996-2020 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.71],, [m4_warning([this file was generated for autoconf 2.71. 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-2020 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.16' 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.16.3], [], [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.16.3])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-2020 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-2020 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-2020 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-2020 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. # TODO: see whether this extra hack can be removed once we start # requiring Autoconf 2.70 or later. AS_CASE([$CONFIG_FILES], [*\'*], [eval set x "$CONFIG_FILES"], [*], [set x $CONFIG_FILES]) shift # Used to flag and report bootstrapping failures. am_rc=0 for am_mf do # Strip MF so we end up with the name of the file. am_mf=`AS_ECHO(["$am_mf"]) | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile which includes # dependency-tracking related rules and includes. # Grep'ing the whole file directly is not great: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. sed -n 's,^am--depfiles:.*,X,p' "$am_mf" | grep X >/dev/null 2>&1 \ || continue am_dirpart=`AS_DIRNAME(["$am_mf"])` am_filepart=`AS_BASENAME(["$am_mf"])` AM_RUN_LOG([cd "$am_dirpart" \ && sed -e '/# am--include-marker/d' "$am_filepart" \ | $MAKE -f - am--depfiles]) || am_rc=$? done if test $am_rc -ne 0; then AC_MSG_FAILURE([Something went wrong bootstrapping makefile fragments for automatic dependency tracking. If GNU make was not used, consider re-running the configure script with MAKE="gmake" (or whatever is necessary). You can also try re-running configure with the '--disable-dependency-tracking' option to at least be able to build the package (albeit without support for automatic dependency tracking).]) fi AS_UNSET([am_dirpart]) AS_UNSET([am_filepart]) AS_UNSET([am_mf]) AS_UNSET([am_rc]) rm -f conftest-deps.mk } ])# _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. # This creates each '.Po' and '.Plo' makefile fragment that we'll 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" MAKE="${MAKE-make}"])]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996-2020 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-2020 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-2020 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-2020 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 whether make has an 'include' directive that can support all # the idioms we need for our automatic dependency tracking code. AC_DEFUN([AM_MAKE_INCLUDE], [AC_MSG_CHECKING([whether ${MAKE-make} supports the include directive]) cat > confinc.mk << 'END' am__doit: @echo this is the am__doit target >confinc.out .PHONY: am__doit END am__include="#" am__quote= # BSD make does it like this. echo '.include "confinc.mk" # ignored' > confmf.BSD # Other make implementations (GNU, Solaris 10, AIX) do it like this. echo 'include confinc.mk # ignored' > confmf.GNU _am_result=no for s in GNU BSD; do AM_RUN_LOG([${MAKE-make} -f confmf.$s && cat confinc.out]) AS_CASE([$?:`cat confinc.out 2>/dev/null`], ['0:this is the am__doit target'], [AS_CASE([$s], [BSD], [am__include='.include' am__quote='"'], [am__include='include' am__quote=''])]) if test "$am__include" != "#"; then _am_result="yes ($s style)" break fi done rm -f confinc.* confmf.* AC_MSG_RESULT([${_am_result}]) AC_SUBST([am__include])]) AC_SUBST([am__quote])]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997-2020 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 MISSING="\${SHELL} '$am_aux_dir/missing'" 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-2020 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-2020 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-2020 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-2020 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-2020 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-2020 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-2020 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-2020 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/alloca.m4]) m4_include([gnulib-m4/ansi-c++.m4]) m4_include([gnulib-m4/asm-underscore.m4]) m4_include([gnulib-m4/close.m4]) m4_include([gnulib-m4/double-slash-root.m4]) m4_include([gnulib-m4/dup2.m4]) m4_include([gnulib-m4/eealloc.m4]) m4_include([gnulib-m4/errno_h.m4]) m4_include([gnulib-m4/error.m4]) m4_include([gnulib-m4/extensions.m4]) m4_include([gnulib-m4/extern-inline.m4]) m4_include([gnulib-m4/fatal-signal.m4]) m4_include([gnulib-m4/fcntl-o.m4]) m4_include([gnulib-m4/fcntl.m4]) m4_include([gnulib-m4/fcntl_h.m4]) m4_include([gnulib-m4/fstat.m4]) m4_include([gnulib-m4/getdtablesize.m4]) m4_include([gnulib-m4/getprogname.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/largefile.m4]) m4_include([gnulib-m4/limits-h.m4]) m4_include([gnulib-m4/lock.m4]) m4_include([gnulib-m4/malloca.m4]) m4_include([gnulib-m4/mode_t.m4]) m4_include([gnulib-m4/msvc-inval.m4]) m4_include([gnulib-m4/msvc-nothrow.m4]) m4_include([gnulib-m4/multiarch.m4]) m4_include([gnulib-m4/nocrash.m4]) m4_include([gnulib-m4/off_t.m4]) m4_include([gnulib-m4/open-cloexec.m4]) m4_include([gnulib-m4/open-slash.m4]) m4_include([gnulib-m4/open.m4]) m4_include([gnulib-m4/pathmax.m4]) m4_include([gnulib-m4/pthread_rwlock_rdlock.m4]) m4_include([gnulib-m4/raise.m4]) m4_include([gnulib-m4/rmdir.m4]) m4_include([gnulib-m4/sig_atomic_t.m4]) m4_include([gnulib-m4/sigaction.m4]) m4_include([gnulib-m4/signal_h.m4]) m4_include([gnulib-m4/signalblocking.m4]) m4_include([gnulib-m4/size_max.m4]) m4_include([gnulib-m4/sparcv8+.m4]) m4_include([gnulib-m4/ssize_t.m4]) m4_include([gnulib-m4/stat-time.m4]) m4_include([gnulib-m4/stat.m4]) m4_include([gnulib-m4/stdbool.m4]) m4_include([gnulib-m4/stddef_h.m4]) m4_include([gnulib-m4/stdint.m4]) m4_include([gnulib-m4/stdio_h.m4]) m4_include([gnulib-m4/stdnoreturn.m4]) m4_include([gnulib-m4/strerror.m4]) m4_include([gnulib-m4/string_h.m4]) m4_include([gnulib-m4/sys_socket_h.m4]) m4_include([gnulib-m4/sys_stat_h.m4]) m4_include([gnulib-m4/sys_types_h.m4]) m4_include([gnulib-m4/threadlib.m4]) m4_include([gnulib-m4/time_h.m4]) m4_include([gnulib-m4/unistd_h.m4]) m4_include([gnulib-m4/warn-on-use.m4]) m4_include([gnulib-m4/wchar_t.m4]) m4_include([gnulib-m4/wint_t.m4]) m4_include([gnulib-m4/xsize.m4]) m4_include([gnulib-m4/zzgnulib.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/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/mmap-anon.m4]) libffcall-2.4/VERSION0000664000000000000000000000000414061422112011221 000000000000002.4 libffcall-2.4/PLATFORMS0000664000000000000000000000624014061241502011455 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), aarch64-apple-darwin20.4.0 (cc) 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.4/callback/0000775000000000000000000000000014061422460012001 500000000000000libffcall-2.4/callback/minitests-c++.cc0000664000000000000000000000133213347755266014637 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.4/callback/callback.h0000664000000000000000000000557613347755265013665 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.4/callback/callback.30000664000000000000000000001653413136760230013554 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.4/callback/Makefile.in0000664000000000000000000002012514061422000013754 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:4: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.4/callback/vacall_r/0000775000000000000000000000000014061422460013564 500000000000000libffcall-2.4/callback/vacall_r/vacall-s390-linux.s0000664000000000000000000000434414061176473017002 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.4/callback/vacall_r/vacall-arm64-macos-macro.S0000664000000000000000000000606114061176472020234 00000000000000#include "asm-arm64.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 DECLARE_FUNCTION(callback_receiver) 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, 24] add x1, x29, 24 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, 24] 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, 32] ldp x29, x30, [sp], 256 ret .p2align 3 L(27): ldr x0, [x29, 32] b L(1) .p2align 3 L(29): ldrsb x0, [x29, 32] b L(1) .p2align 3 L(30): ldrsh x0, [x29, 32] b L(1) .p2align 3 L(31): ldrh w0, [x29, 32] b L(1) .p2align 3 L(32): ldrsw x0, [x29, 32] b L(1) .p2align 3 L(33): ldr w0, [x29, 32] b L(1) L(34): ldr s0, [x29, 32] b L(1) L(35): ldr d0, [x29, 32] 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) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) adrp x9, PAGE(C(callback_receiver)) add x0, x9, PAGEOFF(C(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.4/callback/vacall_r/vacall-m68k.motorola.S0000664000000000000000000000553014061176471017523 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.4/callback/vacall_r/vacall-mips64eb-linux.s0000664000000000000000000001265114061176471017733 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.4/callback/vacall_r/vacall-mipsel-macro.S0000664000000000000000000001021114061176471017463 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.4/callback/vacall_r/vacall-powerpc-macos.s0000664000000000000000000000423614061176472017725 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.4/callback/vacall_r/vacall-alpha-macro.S0000664000000000000000000000616114061176471017270 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.4/callback/vacall_r/vacall-powerpc64-aix.s0000664000000000000000000000506314061176472017555 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.4/callback/vacall_r/vacall-powerpc-aix.s0000664000000000000000000000547114061176472017406 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.4/callback/vacall_r/vacall-powerpc-sysv4-macro.S0000664000000000000000000000476314061176472020757 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.4/callback/vacall_r/vacall-i386-macro.S0000664000000000000000000001044614061176470016674 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.4/callback/vacall_r/vacall-libapi.c0000664000000000000000000001101713347755305016365 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.4/callback/vacall_r/vacall-mipsn32eb-linux.s0000664000000000000000000001254114061176471020102 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.4/callback/vacall_r/vacall-powerpc-linux.s0000664000000000000000000000464314061176472017764 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.4/callback/vacall_r/vacall-riscv32-ilp32d-macro.S0000664000000000000000000000507114061176473020572 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.4/callback/vacall_r/vacall-hppa64-macro.S0000664000000000000000000001073614061176471017310 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.4/callback/vacall_r/vacall-m68k-linux.s0000664000000000000000000000527714061176470017074 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.4/callback/vacall_r/vacall-arm64-macro.S0000664000000000000000000000606114061176472017134 00000000000000#include "asm-arm64.h" .cpu generic+fp+simd .text .align 2 .p2align 3,,7 DECLARE_FUNCTION(callback_receiver) 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) DECLARE_FUNCTION(callback_get_receiver) FUNBEGIN(callback_get_receiver) adrp x9, PAGE(C(callback_receiver)) add x0, x9, PAGEOFF(C(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.4/callback/vacall_r/vacall_r.h0000664000000000000000000005546114061147275015463 00000000000000/* * Copyright 1995-2021 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 /* __vaword represents a single word that can be pushed on the stack. * __varword represents a general-purpose register. */ #if defined(__arm64__) && defined(__APPLE__) && defined(__MACH__) typedef int __vaword; typedef long __varword; #elif defined(__mipsn32__) || defined(__x86_64_x32__) || defined(__VA_LLP64) typedef long long __vaword; typedef long long __varword; #else typedef long __vaword; typedef long __varword; #endif /* C builtin types. */ 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, xlclang */ __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(__ibmxl__) || !defined(__GNUC__)) /* AIX 64-bit xlc, xlclang */ __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.4/callback/vacall_r/vacall-mipseb-linux.s0000664000000000000000000001060414061176471017555 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.4/callback/vacall_r/vacall-sparc64-macro.S0000664000000000000000000001311314061176471017460 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.4/callback/vacall_r/vacall-mipsn32el-linux.s0000664000000000000000000001257114061176471020117 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.4/callback/vacall_r/Makefile.devel0000664000000000000000000004327714061147275016267 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-arm64-macos-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.5.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.5.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-arm64.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-arm64.h"' ; ../../common/asm-arm64.sh < vacall-arm64el.s ; cat ../../common/noexecstack-arm.h) > vacall-arm64-macro.S $(RM) vacall-arm64el.s vacall-arm64eb.s vacall-arm64-macos-macro.S : ../../vacall/vacall-arm64.c ../../vacall/vacall-internal.h vacall_r.h ../../common/asm-arm64.sh ../../common/noexecstack-arm.h $(THISFILE) $(CROSS_TOOL) aarch64-linux gcc-5.4.0 -mlittle-endian $(GCCFLAGS) -D__arm64__ -D__APPLE__ -D__MACH__ -S ../../vacall/vacall-arm64.c -I../../vacall -I. -o vacall-arm64-macos.s (echo '#include "asm-arm64.h"' ; ../../common/asm-arm64.sh < vacall-arm64-macos.s ; cat ../../common/noexecstack-arm.h) > vacall-arm64-macos-macro.S $(RM) vacall-arm64-macos.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.4/callback/vacall_r/vacall-i386-msvc.c0000664000000000000000000001067214061422204016551 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.4/callback/vacall_r/vacall-s390x-macro.S0000664000000000000000000000464714061176473017102 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.4/callback/vacall_r/Makefile.in0000664000000000000000000003631614061363726015573 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 $(srcdir)/vacall-arm64-macos-macro.S case "$(OS)" in \ macos* | darwin*) input=vacall-arm64-macos-macro.S ;; \ *) input=vacall-arm64-macro.S ;; \ esac; \ $(CPP) $(ASPFLAGS) -I$(srcdir) -I$(srcdir)/../../common $(srcdir)/$${input} | 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 vacall-libapi.lo @IF_MSVC@ ml64 -c -nologo vacall-x86_64.asm @IF_MSVC@ mkdir -p .libs; cp vacall-x86_64.@OBJEXT@ .libs/vacall-x86_64.@OBJEXT@ @IF_MSVC@ sed -e 's/vacall-libapi/vacall-x86_64/g' < vacall-libapi.lo > vacall-x86_64.lo @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-arm64-macos-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.4/callback/vacall_r/vacall-s390-macro.S0000664000000000000000000000453514061176473016706 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.4/callback/vacall_r/vacall-ia64-macro.S0000664000000000000000000002506714061176473016756 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.4/callback/vacall_r/vacall-mips64eb-macro.S0000664000000000000000000001204214061176471017627 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.4/callback/vacall_r/vacall-mips64el-macro.S0000664000000000000000000001217314061176471017646 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.4/callback/vacall_r/vacall-s390x-linux.s0000664000000000000000000000452714061176473017175 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.4/callback/vacall_r/vacall-ia64-linux.s0000664000000000000000000002464514061176473017055 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.4/callback/vacall_r/vacall-x86_64-x32-linux.s0000664000000000000000000001207414061176473017653 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.4/callback/vacall_r/vacall-mipseb-macro.S0000664000000000000000000001021114061176471017451 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.4/callback/vacall_r/vacall-armhf-macro.S0000664000000000000000000000620314061414730017266 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.4/callback/vacall_r/README0000644000000000000000000000056113026317517014372 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.4/callback/vacall_r/vacall-x86_64-windows-macro.S0000664000000000000000000001677214061176473020644 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.4/callback/vacall_r/vacall-mips64el-linux.s0000664000000000000000000001270614061176471017746 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.4/callback/vacall_r/vacall-mipsn32el-macro.S0000664000000000000000000001205514061176471020016 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.4/callback/vacall_r/vacall-i386-linux.s0000664000000000000000000000457514061176470017000 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.4/callback/vacall_r/vacall-powerpc64-elfv2-linux.S0000664000000000000000000000662014061176473021110 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.4/callback/vacall_r/vacall-powerpc64-linux.S0000664000000000000000000000474614061176472020102 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.4/callback/vacall_r/vacall-x86_64-windows.s0000664000000000000000000001256314061176473017577 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.4/callback/vacall_r/vacall-sparc64-linux.s0000664000000000000000000001271714061176471017567 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.4/callback/vacall_r/vacall-m68k.mit.S0000664000000000000000000000513114061176470016454 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.4/callback/vacall_r/vacall-riscv64-lp64d-linux.s0000664000000000000000000000554614061176473020540 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.4/callback/vacall_r/vacall-hppa64-linux.s0000664000000000000000000001037014061176471017400 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.4/callback/vacall_r/vacall-mipsn32eb-macro.S0000664000000000000000000001173114061176471020004 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.4/callback/vacall_r/vacall-arm-macro.S0000664000000000000000000000435314061414730016754 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.4/callback/vacall_r/vacall-alpha-linux.s0000664000000000000000000000604114061176471017363 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.4/callback/vacall_r/vacall-hppa-macro.S0000664000000000000000000000772614061176471017143 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.4/callback/vacall_r/vacall-structcpy.c0000664000000000000000000000142613347755306017171 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.4/callback/vacall_r/vacall-mipsel-linux.s0000664000000000000000000001060414061176471017567 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.4/callback/vacall_r/vacall-hppa-linux.s0000664000000000000000000000727414061176471017237 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.4/callback/vacall_r/vacall-sparc-macro.S0000664000000000000000000000364414061176471017316 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.4/callback/vacall_r/vacall-powerpc-linux-macro.S0000664000000000000000000000476314061176472021026 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.4/callback/vacall_r/vacall-x86_64-macro.S0000664000000000000000000001714414061176473017146 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.4/callback/vacall_r/Makefile.maint0000664000000000000000000000065313153072372016263 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.4/callback/vacall_r/vacall-riscv32-ilp32d-linux.s0000664000000000000000000000470214061176473020670 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.4/callback/vacall_r/vacall-m68k-sun.s0000664000000000000000000000412114061176470016525 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.4/callback/vacall_r/vacall-sparc-linux.s0000664000000000000000000000340614061176471017410 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.4/callback/vacall_r/vacall-x86_64-linux.s0000664000000000000000000001110314061176473017231 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.4/callback/vacall_r/vacall-riscv64-lp64d-macro.S0000664000000000000000000000573514061176473020442 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.4/callback/vacall_r/get_receiver.c0000664000000000000000000000152213347755304016327 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.4/callback/vacall_r/COPYING0000644000000000000000000004335713026317517014557 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.4/callback/callback-compat.c0000664000000000000000000000156113347755264015126 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.4/callback/test1.c0000664000000000000000000000257413347755267013161 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.4/callback/trampoline_r/0000775000000000000000000000000014061422460014474 500000000000000libffcall-2.4/callback/trampoline_r/trampoline.c0000664000000000000000000014362614026224450016746 00000000000000/* Trampoline construction */ /* * Copyright 1995-2021 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 /* Linux, Hurd, macOS, *BSD, IRIX, Solaris, Cygwin, native Windows */ /* How do we make the trampoline's code executable? */ #if HAVE_WORKING_MPROTECT /* Linux, Hurd, macOS, *BSD, IRIX, Solaris, Cygwin */ #if HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC > 0 /* Hurd, macOS, *BSD except HardenedBSD, IRIX, Solaris, Cygwin */ /* 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 HAVE_MMAP_SHARED_CAN_EXEC /* Linux, HardenedBSD */ #define EXECUTABLE_VIA_MMAP_FILE_SHARED #else #error "Don't know how to make memory pages executable." #endif #else /* native Windows, very old Linux */ #if HAVE_MMAP_ANONYMOUS /* very old Linux */ /* Use an mmap'ed page. */ #define EXECUTABLE_VIA_MMAP #else #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ #define EXECUTABLE_VIA_VIRTUALALLOC #else ?? #endif #endif #endif #endif #include /* declares fprintf() */ #include #include /* declares abort(), malloc(), free() */ #ifdef HAVE_UNISTD_H #include /* declares getpagesize() */ #endif /* Define intptr_t, uintptr_t. */ #include /* Declare getpagesize(). */ /* On HP-UX, getpagesize exists, but it is not declared in even if the compiler options -D_HPUX_SOURCE -D_XOPEN_SOURCE=600 are used. */ #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif /* Declare mprotect(). */ #if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) #include #include #endif /* Declare mmap(). */ #if defined(EXECUTABLE_VIA_MMAP) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #endif /* Declare open(). */ #if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #include #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_VARIABLE whenever you pass an addr == NULL. */ #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif /* Support for instruction cache flush. */ #if defined _WIN32 && !defined __CYGWIN__ # define WIN32_LEAN_AND_MEAN # define WIN32_EXTRA_LEAN # include #elif defined __APPLE__ && defined __MACH__ # include #elif defined _AIX # include #elif defined __sgi # include #else #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 #endif /* Support for multithread-safe coding. */ #include "glthread/lock.h" #if defined(__APPLE__) && defined(__MACH__) /* only needed on macOS */ #define KEEP_TEMP_FILE_VISIBLE /* Support for temporary files that are cleaned up automatically. */ #include "clean-temp-simple.h" #endif #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_FILE_SHARED) /* Variables needed for obtaining memory pages via mmap(). */ static int file_fd; static long file_length; /* Initialization of these variables. */ static void for_mmap_init (void) { { char filename[100]; sprintf(filename, "%s/trampdata-%d-%ld", "/tmp", getpid (), random ()); #if defined(KEEP_TEMP_FILE_VISIBLE) if (register_temporary_file(filename) < 0) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } #endif file_fd = open_noinherit (filename, O_CREAT | O_RDWR | O_TRUNC, 0700); if (file_fd < 0) { #if defined(KEEP_TEMP_FILE_VISIBLE) unregister_temporary_file(filename); #endif fprintf(stderr,"trampoline: Cannot open %s!\n",filename); abort(); } #if !defined(KEEP_TEMP_FILE_VISIBLE) /* Remove the file from the file system as soon as possible, to make sure there is no leftover after this process terminates or crashes. On macOS 11.2, this does not work: It would make the mmap call below, with arguments PROT_READ|PROT_EXEC and MAP_SHARED, fail. */ unlink(filename); #endif } file_length = 0; } /* 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) { #if 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 /* Simultaneous execution of this initialization in multiple threads is OK. */ #if defined(EXECUTABLE_VIA_VIRTUALALLOC) /* GetSystemInfo */ SYSTEM_INFO info; GetSystemInfo(&info); pagesize = info.dwPageSize; #else pagesize = getpagesize(); #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 /* 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); #endif #ifdef EXECUTABLE_VIA_MMAP /* 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); #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 * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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(
)) * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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 * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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 (mprotect((void*)start_addr, len, PROT_READ|PROT_WRITE|PROT_EXEC) < 0) { 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. */ /* Use the operating system provided function, when available. */ #if defined _WIN32 && !defined __CYGWIN__ /* Native Windows. FlushInstructionCache */ HANDLE process = GetCurrentProcess (); while (!FlushInstructionCache (process, function_x, TRAMP_CODE_LENGTH)) ; #elif defined __APPLE__ && defined __MACH__ /* macOS */ sys_icache_invalidate (function_x, TRAMP_CODE_LENGTH); #elif defined _AIX /* AIX. */ _sync_cache_range (function_x, TRAMP_CODE_LENGTH); #elif defined __sgi /* IRIX. */ cacheflush (function_x, TRAMP_CODE_LENGTH, ICACHE); #elif defined __sun /* Solaris. */ extern void sync_instruction_memory (char *, size_t); sync_instruction_memory (function_x, TRAMP_CODE_LENGTH); #else /* No operating system provided function. Dispatch according to the CPU. */ #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 #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 gl_lock_lock(freelist_lock); *(char**)function = freelist; freelist = (char*)function; gl_lock_unlock(freelist_lock); /* 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.4/callback/trampoline_r/cache-alpha-macro.S0000664000000000000000000000066013527105034017770 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.4/callback/trampoline_r/cache-powerpc64.c0000664000000000000000000000240113347755270017465 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.4/callback/trampoline_r/cache-sparc64-macro.S0000664000000000000000000000057213527105034020167 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.4/callback/trampoline_r/tramp-hppa-macro.S0000664000000000000000000000250713347755274017736 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.4/callback/trampoline_r/tramp-hppa64-macro.S0000664000000000000000000000254513347755274020112 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.4/callback/trampoline_r/cache-powerpc64-elfv2-linux.s0000664000000000000000000000132113527105034021641 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.4/callback/trampoline_r/tramp-powerpc64-aix.S0000664000000000000000000000324713347755300020307 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.4/callback/trampoline_r/cache-hppa-macro.S0000664000000000000000000000114213527105034017627 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.4/callback/trampoline_r/cache-powerpc-macos.s0000664000000000000000000000043413527105034020422 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.4/callback/trampoline_r/Makefile.devel0000664000000000000000000002172113527104765017170 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.4/callback/trampoline_r/Makefile.in0000664000000000000000000002244713155007160016471 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.4/callback/trampoline_r/cache-sparc64-linux.s0000664000000000000000000000044613527105034020265 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.4/callback/trampoline_r/tramp-powerpc-aix.S0000664000000000000000000000313513347755301020132 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.4/callback/trampoline_r/cache-powerpc.c0000664000000000000000000000256513347755271017327 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.4/callback/trampoline_r/trampoline_r.man0000664000000000000000000000565214061422204017610 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.4/callback/trampoline_r/test1.c0000664000000000000000000000526414057217055015636 00000000000000/* Trampoline test */ /* * Copyright 1995-2021 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)[1] + (int)(long)((void**)env)[0] + 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.4/callback/trampoline_r/cache-sparc-macro.S0000664000000000000000000000062113527105034020010 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.4/callback/trampoline_r/README0000644000000000000000000000102013026317517015271 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.4/callback/trampoline_r/trampoline_r.30000664000000000000000000000644413136760230017205 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.4/callback/trampoline_r/test2.c0000664000000000000000000000317613347755272015650 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.4/callback/trampoline_r/trampoline_r.h0000664000000000000000000000310013347755300017262 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.4/callback/trampoline_r/cache-hppa64-linux.s0000664000000000000000000000075413527105034020107 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.4/callback/trampoline_r/cache-powerpc-linux.s0000664000000000000000000000121013527105034020450 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.4/callback/trampoline_r/cache-hppa-linux.s0000664000000000000000000000070413527105034017730 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.4/callback/trampoline_r/cache-sparc.c0000664000000000000000000000205313347755271016750 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.4/callback/trampoline_r/cache-alpha.c0000644000000000000000000000157213347757000016720 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.4/callback/trampoline_r/cache-hppa64-macro.S0000664000000000000000000000115713527105034020007 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.4/callback/trampoline_r/tramp-ia64-macro.S0000664000000000000000000000226313347755276017552 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.4/callback/trampoline_r/cache-alpha-linux.s0000664000000000000000000000054013527105034020063 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.4/callback/trampoline_r/PORTING0000644000000000000000000000701013031471342015454 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.4/callback/trampoline_r/cache-powerpc64-elfv2-macro.S0000664000000000000000000000135513527105034021552 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.4/callback/trampoline_r/cache-sparc-linux.s0000664000000000000000000000044113527105034020106 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.4/callback/trampoline_r/Makefile.maint0000664000000000000000000000077113153072372017174 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.4/callback/trampoline_r/cache.c0000644000000000000000000001031613347757000015631 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.4/callback/trampoline_r/trampoline_r.html0000664000000000000000000001111113136760230017772 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.4/callback/trampoline_r/cache-powerpc-linux-macro.S0000664000000000000000000000121213527105034021511 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.4/callback/trampoline_r/COPYING0000644000000000000000000004335713026317516015466 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.4/callback/trampoline_r/cache-hppa.c0000664000000000000000000000414513347757000016564 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.4/callback/README0000664000000000000000000000400413347755266012622 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.4/callback/callback-libapi.c0000664000000000000000000000315513347755265015105 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.4/callback/MIGRATION0000664000000000000000000000553013136760230013202 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.4/callback/callback.man0000664000000000000000000002125414061422204014152 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.4/callback/minitests.c0000664000000000000000000000136613347755265014134 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.4/callback/PLATFORMS0000664000000000000000000000505214061241502013211 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), aarch64-apple-darwin20.4.0 (cc) 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.4/callback/tests.c0000664000000000000000000024102314060776405013243 00000000000000/* Some random tests for vacall. */ /* * Copyright 1993 Bill Triggs * Copyright 1995-2021 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)(int)(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.4/callback/Makefile.maint0000664000000000000000000000134013153072372014472 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.4/callback/callback.html0000664000000000000000000002420713136760230014352 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.4/callback/elf-hack.txt0000664000000000000000000000527613146127475014161 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.4/callback/COPYING0000644000000000000000000004335713026317516012773 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.4/gnulib-m4/0000775000000000000000000000000014061422457012051 500000000000000libffcall-2.4/gnulib-m4/limits-h.m40000664000000000000000000000244214057155505013765 00000000000000dnl Check whether limits.h has needed features. dnl Copyright 2016-2021 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.4/gnulib-m4/ssize_t.m40000664000000000000000000000146314057155505013721 00000000000000# ssize_t.m4 serial 5 (gettext-0.18.2) dnl Copyright (C) 2001-2003, 2006, 2010-2021 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.4/gnulib-m4/xsize.m40000664000000000000000000000062614057155505013403 00000000000000# xsize.m4 serial 5 dnl Copyright (C) 2003-2004, 2008-2021 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([gl_XSIZE], [ dnl Prerequisites of lib/xsize.h. AC_REQUIRE([gl_SIZE_MAX]) AC_CHECK_HEADERS([stdint.h]) ]) libffcall-2.4/gnulib-m4/eealloc.m40000664000000000000000000000166714057155505013653 00000000000000# eealloc.m4 serial 3 dnl Copyright (C) 2003, 2009-2021 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([gl_EEALLOC], [ AC_REQUIRE([gl_EEMALLOC]) AC_REQUIRE([gl_EEREALLOC]) ]) AC_DEFUN([gl_EEMALLOC], [ _AC_FUNC_MALLOC_IF( [gl_cv_func_malloc_0_nonnull=1], [gl_cv_func_malloc_0_nonnull=0]) AC_DEFINE_UNQUOTED([MALLOC_0_IS_NONNULL], [$gl_cv_func_malloc_0_nonnull], [If malloc(0) is != NULL, define this to 1. Otherwise define this to 0.]) ]) AC_DEFUN([gl_EEREALLOC], [ _AC_FUNC_REALLOC_IF( [gl_cv_func_realloc_0_nonnull=1], [gl_cv_func_realloc_0_nonnull=0]) AC_DEFINE_UNQUOTED([REALLOC_0_IS_NONNULL], [$gl_cv_func_realloc_0_nonnull], [If realloc(NULL,0) is != NULL, define this to 1. Otherwise define this to 0.]) ]) libffcall-2.4/gnulib-m4/rmdir.m40000664000000000000000000000361114057155505013353 00000000000000# rmdir.m4 serial 18 dnl Copyright (C) 2002, 2005, 2009-2021 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([gl_FUNC_RMDIR], [ AC_REQUIRE([gl_UNISTD_H_DEFAULTS]) AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles dnl Detect cygwin 1.5.x bug. AC_CHECK_HEADERS_ONCE([unistd.h]) AC_CACHE_CHECK([whether rmdir works], [gl_cv_func_rmdir_works], [mkdir conftest.dir touch conftest.file AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[#include #include #if HAVE_UNISTD_H # include #else /* on Windows with MSVC */ # include #endif ]GL_MDA_DEFINES], [[int result = 0; if (!rmdir ("conftest.file/")) result |= 1; else if (errno != ENOTDIR) result |= 2; if (!rmdir ("conftest.dir/./")) result |= 4; return result; ]])], [gl_cv_func_rmdir_works=yes], [gl_cv_func_rmdir_works=no], [case "$host_os" in # Guess yes on Linux systems. linux-* | linux) gl_cv_func_rmdir_works="guessing yes" ;; # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_rmdir_works="guessing yes" ;; # Guess no on native Windows. mingw*) gl_cv_func_rmdir_works="guessing no" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_rmdir_works="$gl_cross_guess_normal" ;; esac ]) rm -rf conftest.dir conftest.file]) case "$gl_cv_func_rmdir_works" in *yes) ;; *) REPLACE_RMDIR=1 ;; esac ]) libffcall-2.4/gnulib-m4/sig_atomic_t.m40000664000000000000000000000110314057155505014671 00000000000000# sig_atomic_t.m4 serial 3 dnl Copyright (C) 2003, 2009-2021 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([gt_TYPE_SIG_ATOMIC_T], [ AC_CHECK_TYPES([sig_atomic_t], , [AC_DEFINE([sig_atomic_t], [int], [Define as an integer type suitable for memory locations that can be accessed atomically even in the presence of asynchronous signals.])], [#include ]) ]) libffcall-2.4/gnulib-m4/getprogname.m40000664000000000000000000000263314057155505014551 00000000000000# getprogname.m4 - check for getprogname or replacements for it # Copyright (C) 2016-2021 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. # serial 4 AC_DEFUN([gl_FUNC_GETPROGNAME], [ AC_CHECK_FUNCS_ONCE([getprogname getexecname]) AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) ac_found=0 AC_CHECK_DECLS([program_invocation_name], [ac_found=1], [], [#include ]) AC_CHECK_DECLS([program_invocation_short_name], [ac_found=1], [], [#include ]) AC_CHECK_DECLS([__argv], [ac_found=1], [], [#include ]) # Incur the cost of this test only if none of the above worked. if test $ac_found = 0; then # On OpenBSD 5.1, using the global __progname variable appears to be # the only way to implement getprogname. AC_CACHE_CHECK([whether __progname is defined in default libraries], [gl_cv_var___progname], [ gl_cv_var___progname= AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[extern char *__progname;]], [[return *__progname;]] )], [gl_cv_var___progname=yes] ) ] ) if test "$gl_cv_var___progname" = yes; then AC_DEFINE([HAVE_VAR___PROGNAME], 1, [Define if you have a global __progname variable]) fi fi ]) libffcall-2.4/gnulib-m4/signal_h.m40000664000000000000000000000731514057155505014027 00000000000000# signal_h.m4 serial 22 dnl Copyright (C) 2007-2021 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_SIGNAL_H], [ AC_REQUIRE([gl_SIGNAL_H_DEFAULTS]) AC_REQUIRE([gl_CHECK_TYPE_SIGSET_T]) gl_NEXT_HEADERS([signal.h]) # AIX declares sig_atomic_t to already include volatile, and C89 compilers # then choke on 'volatile sig_atomic_t'. C99 requires that it compile. AC_CHECK_TYPE([volatile sig_atomic_t], [], [HAVE_TYPE_VOLATILE_SIG_ATOMIC_T=0], [[ #include ]]) dnl Ensure the type pid_t gets defined. AC_REQUIRE([AC_TYPE_PID_T]) AC_REQUIRE([AC_TYPE_UID_T]) dnl Persuade glibc to define sighandler_t. AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) AC_CHECK_TYPE([sighandler_t], [], [HAVE_SIGHANDLER_T=0], [[ #include ]]) dnl Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use. gl_WARN_ON_USE_PREPARE([[#include ]], [pthread_sigmask sigaction sigaddset sigdelset sigemptyset sigfillset sigismember sigpending sigprocmask]) AC_REQUIRE([AC_C_RESTRICT]) ]) AC_DEFUN([gl_CHECK_TYPE_SIGSET_T], [ AC_CHECK_TYPES([sigset_t], [gl_cv_type_sigset_t=yes], [gl_cv_type_sigset_t=no], [[ #include /* Mingw defines sigset_t not in , but in . */ #include ]]) if test $gl_cv_type_sigset_t != yes; then HAVE_SIGSET_T=0 fi ]) # gl_SIGNAL_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_SIGNAL_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_SIGNAL_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_SIGNAL_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_SIGNAL_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PTHREAD_SIGMASK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RAISE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SIGNAL_H_SIGPIPE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SIGPROCMASK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SIGACTION]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_SIGNAL_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_SIGNAL_H_DEFAULTS]) ]) AC_DEFUN([gl_SIGNAL_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. HAVE_POSIX_SIGNALBLOCKING=1; AC_SUBST([HAVE_POSIX_SIGNALBLOCKING]) HAVE_PTHREAD_SIGMASK=1; AC_SUBST([HAVE_PTHREAD_SIGMASK]) HAVE_RAISE=1; AC_SUBST([HAVE_RAISE]) HAVE_SIGSET_T=1; AC_SUBST([HAVE_SIGSET_T]) HAVE_SIGINFO_T=1; AC_SUBST([HAVE_SIGINFO_T]) HAVE_SIGACTION=1; AC_SUBST([HAVE_SIGACTION]) HAVE_STRUCT_SIGACTION_SA_SIGACTION=1; AC_SUBST([HAVE_STRUCT_SIGACTION_SA_SIGACTION]) HAVE_TYPE_VOLATILE_SIG_ATOMIC_T=1; AC_SUBST([HAVE_TYPE_VOLATILE_SIG_ATOMIC_T]) HAVE_SIGHANDLER_T=1; AC_SUBST([HAVE_SIGHANDLER_T]) REPLACE_PTHREAD_SIGMASK=0; AC_SUBST([REPLACE_PTHREAD_SIGMASK]) REPLACE_RAISE=0; AC_SUBST([REPLACE_RAISE]) ]) libffcall-2.4/gnulib-m4/fstat.m40000664000000000000000000000211714057155505013357 00000000000000# fstat.m4 serial 8 dnl Copyright (C) 2011-2021 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([gl_FUNC_FSTAT], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_SYS_STAT_H_DEFAULTS]) case "$host_os" in mingw* | solaris*) dnl On MinGW, the original stat() returns st_atime, st_mtime, dnl st_ctime values that are affected by the time zone. dnl Solaris stat can return a negative tv_nsec. REPLACE_FSTAT=1 ;; esac dnl Replace fstat() for supporting the gnulib-defined open() on directories. m4_ifdef([gl_FUNC_FCHDIR], [ gl_TEST_FCHDIR if test $HAVE_FCHDIR = 0; then case "$gl_cv_func_open_directory_works" in *yes) ;; *) REPLACE_FSTAT=1 ;; esac fi ]) ]) # Prerequisites of lib/fstat.c and lib/stat-w32.c. AC_DEFUN([gl_PREREQ_FSTAT], [ AC_REQUIRE([gl_SYS_STAT_H]) AC_REQUIRE([gl_PREREQ_STAT_W32]) : ]) libffcall-2.4/gnulib-m4/ansi-c++.m40000664000000000000000000001212414057155505013535 00000000000000# ansi-c++.m4 serial 12 dnl Copyright (C) 2002-2003, 2005, 2010-2021 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]) dnl Determine a good default for the CXXFLAGS variable. AC_LANG_PUSH([C++]) _AC_LANG_COMPILER_GNU if test $ac_compiler_gnu = yes; then GXX=yes else GXX= fi _AC_PROG_CXX_G AC_LANG_POP([C++]) 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]) dnl This line is needed in order to avoid trouble with Autoconf. It makes dnl sure that Autoconf does not insert expansions of AC_PROG_CXX at random dnl places. See . m4_provide([AC_PROG_CXX]) ]) libffcall-2.4/gnulib-m4/stat-time.m40000664000000000000000000000605714057155505014154 00000000000000# Checks for stat-related time functions. # Copyright (C) 1998-1999, 2001, 2003, 2005-2007, 2009-2021 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. dnl From Paul Eggert. # st_atim.tv_nsec - Linux, Solaris, Cygwin # st_atimespec.tv_nsec - FreeBSD, NetBSD, if ! defined _POSIX_SOURCE # st_atimensec - FreeBSD, NetBSD, if defined _POSIX_SOURCE # st_atim.st__tim.tv_nsec - UnixWare (at least 2.1.2 through 7.1) # st_birthtimespec - FreeBSD, NetBSD (hidden on OpenBSD 3.9, anyway) # st_birthtim - Cygwin 1.7.0+ AC_DEFUN([gl_STAT_TIME], [ AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) AC_CHECK_HEADERS_ONCE([sys/time.h]) AC_CHECK_MEMBERS([struct stat.st_atim.tv_nsec], [AC_CACHE_CHECK([whether struct stat.st_atim is of type struct timespec], [ac_cv_typeof_struct_stat_st_atim_is_struct_timespec], [AC_COMPILE_IFELSE([AC_LANG_PROGRAM( [[ #include #include #if HAVE_SYS_TIME_H # include #endif #include struct timespec ts; struct stat st; ]], [[ st.st_atim = ts; ]])], [ac_cv_typeof_struct_stat_st_atim_is_struct_timespec=yes], [ac_cv_typeof_struct_stat_st_atim_is_struct_timespec=no])]) if test $ac_cv_typeof_struct_stat_st_atim_is_struct_timespec = yes; then AC_DEFINE([TYPEOF_STRUCT_STAT_ST_ATIM_IS_STRUCT_TIMESPEC], [1], [Define to 1 if the type of the st_atim member of a struct stat is struct timespec.]) fi], [AC_CHECK_MEMBERS([struct stat.st_atimespec.tv_nsec], [], [AC_CHECK_MEMBERS([struct stat.st_atimensec], [], [AC_CHECK_MEMBERS([struct stat.st_atim.st__tim.tv_nsec], [], [], [#include #include ])], [#include #include ])], [#include #include ])], [#include #include ]) ]) # Check for st_birthtime, a feature from UFS2 (FreeBSD, NetBSD, OpenBSD, etc.) # and NTFS (Cygwin). # There was a time when this field was named st_createtime (21 June # 2002 to 16 July 2002) But that window is very small and applied only # to development code, so systems still using that configuration are # not supported. See revisions 1.10 and 1.11 of FreeBSD's # src/sys/ufs/ufs/dinode.h. # AC_DEFUN([gl_STAT_BIRTHTIME], [ AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) AC_CHECK_HEADERS_ONCE([sys/time.h]) AC_CHECK_MEMBERS([struct stat.st_birthtimespec.tv_nsec], [], [AC_CHECK_MEMBERS([struct stat.st_birthtimensec], [], [AC_CHECK_MEMBERS([struct stat.st_birthtim.tv_nsec], [], [], [#include #include ])], [#include #include ])], [#include #include ]) ]) libffcall-2.4/gnulib-m4/open.m40000664000000000000000000000276514057155505013210 00000000000000# open.m4 serial 15 dnl Copyright (C) 2007-2021 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([gl_FUNC_OPEN], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_PREPROC_O_CLOEXEC]) case "$host_os" in mingw* | pw*) REPLACE_OPEN=1 ;; *) dnl open("foo/") should not create a file when the file name has a dnl trailing slash. FreeBSD only has the problem on symlinks. AC_CHECK_FUNCS_ONCE([lstat]) if test "$gl_cv_macro_O_CLOEXEC" != yes; then REPLACE_OPEN=1 fi gl_OPEN_TRAILING_SLASH_BUG case "$gl_cv_func_open_slash" in *no) REPLACE_OPEN=1 ;; esac ;; esac dnl Replace open() for supporting the gnulib-defined fchdir() function, dnl to keep fchdir's bookkeeping up-to-date. m4_ifdef([gl_FUNC_FCHDIR], [ if test $REPLACE_OPEN = 0; then gl_TEST_FCHDIR if test $HAVE_FCHDIR = 0; then REPLACE_OPEN=1 fi fi ]) dnl Replace open() for supporting the gnulib-defined O_NONBLOCK flag. m4_ifdef([gl_NONBLOCKING_IO], [ if test $REPLACE_OPEN = 0; then gl_NONBLOCKING_IO if test $gl_cv_have_open_O_NONBLOCK != yes; then REPLACE_OPEN=1 fi fi ]) ]) # Prerequisites of lib/open.c. AC_DEFUN([gl_PREREQ_OPEN], [ AC_REQUIRE([gl_PROMOTED_TYPE_MODE_T]) : ]) libffcall-2.4/gnulib-m4/sys_socket_h.m40000664000000000000000000001626614057155505014745 00000000000000# sys_socket_h.m4 serial 28 dnl Copyright (C) 2005-2021 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 Simon Josefsson. AC_DEFUN_ONCE([gl_SYS_SOCKET_H], [ AC_REQUIRE([gl_SYS_SOCKET_H_DEFAULTS]) AC_REQUIRE([AC_CANONICAL_HOST]) dnl On OSF/1, the functions recv(), send(), recvfrom(), sendto() have dnl old-style declarations (with return type 'int' instead of 'ssize_t') dnl unless _POSIX_PII_SOCKET is defined. case "$host_os" in osf*) AC_DEFINE([_POSIX_PII_SOCKET], [1], [Define to 1 in order to get the POSIX compatible declarations of socket functions.]) ;; esac AC_CACHE_CHECK([whether is self-contained], [gl_cv_header_sys_socket_h_selfcontained], [ AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[#include ]], [[]])], [gl_cv_header_sys_socket_h_selfcontained=yes], [gl_cv_header_sys_socket_h_selfcontained=no]) ]) if test $gl_cv_header_sys_socket_h_selfcontained = yes; then dnl If the shutdown function exists, should define dnl SHUT_RD, SHUT_WR, SHUT_RDWR. AC_CHECK_FUNCS([shutdown]) if test $ac_cv_func_shutdown = yes; then AC_CACHE_CHECK([whether defines the SHUT_* macros], [gl_cv_header_sys_socket_h_shut], [ AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[#include ]], [[int a[] = { SHUT_RD, SHUT_WR, SHUT_RDWR };]])], [gl_cv_header_sys_socket_h_shut=yes], [gl_cv_header_sys_socket_h_shut=no]) ]) if test $gl_cv_header_sys_socket_h_shut = no; then SYS_SOCKET_H='sys/socket.h' fi fi fi # We need to check for ws2tcpip.h now. gl_PREREQ_SYS_H_SOCKET AC_CHECK_TYPES([struct sockaddr_storage, sa_family_t],,,[ /* sys/types.h is not needed according to POSIX, but the sys/socket.h in i386-unknown-freebsd4.10 and powerpc-apple-darwin5.5 required it. */ #include #ifdef HAVE_SYS_SOCKET_H #include #endif #ifdef HAVE_WS2TCPIP_H #include #endif ]) if test $ac_cv_type_struct_sockaddr_storage = no; then HAVE_STRUCT_SOCKADDR_STORAGE=0 fi if test $ac_cv_type_sa_family_t = no; then HAVE_SA_FAMILY_T=0 fi if test $ac_cv_type_struct_sockaddr_storage != no; then AC_CHECK_MEMBERS([struct sockaddr_storage.ss_family], [], [HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY=0], [#include #ifdef HAVE_SYS_SOCKET_H #include #endif #ifdef HAVE_WS2TCPIP_H #include #endif ]) fi if test $HAVE_STRUCT_SOCKADDR_STORAGE = 0 || test $HAVE_SA_FAMILY_T = 0 \ || test $HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY = 0; then SYS_SOCKET_H='sys/socket.h' fi gl_PREREQ_SYS_H_WINSOCK2 dnl Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use. gl_WARN_ON_USE_PREPARE([[ /* Some systems require prerequisite headers. */ #include #include ]], [socket connect accept bind getpeername getsockname getsockopt listen recv send recvfrom sendto setsockopt shutdown accept4]) AC_REQUIRE([AC_C_RESTRICT]) ]) AC_DEFUN([gl_PREREQ_SYS_H_SOCKET], [ dnl Check prerequisites of the replacement. AC_REQUIRE([gl_CHECK_SOCKET_HEADERS]) gl_CHECK_NEXT_HEADERS([sys/socket.h]) if test $ac_cv_header_sys_socket_h = yes; then HAVE_SYS_SOCKET_H=1 else HAVE_SYS_SOCKET_H=0 fi AC_SUBST([HAVE_SYS_SOCKET_H]) gl_PREREQ_SYS_H_WS2TCPIP ]) # Common prerequisites of the replacement and of the # replacement. # Sets and substitutes HAVE_WINSOCK2_H. AC_DEFUN([gl_PREREQ_SYS_H_WINSOCK2], [ m4_ifdef([gl_UNISTD_H_DEFAULTS], [AC_REQUIRE([gl_UNISTD_H_DEFAULTS])]) m4_ifdef([gl_SYS_IOCTL_H_DEFAULTS], [AC_REQUIRE([gl_SYS_IOCTL_H_DEFAULTS])]) AC_CHECK_HEADERS_ONCE([sys/socket.h]) if test $ac_cv_header_sys_socket_h != yes; then dnl We cannot use AC_CHECK_HEADERS_ONCE here, because that would make dnl the check for those headers unconditional; yet cygwin reports dnl that the headers are present but cannot be compiled (since on dnl cygwin, all socket information should come from sys/socket.h). AC_CHECK_HEADERS([winsock2.h]) fi if test "$ac_cv_header_winsock2_h" = yes; then HAVE_WINSOCK2_H=1 UNISTD_H_HAVE_WINSOCK2_H=1 SYS_IOCTL_H_HAVE_WINSOCK2_H=1 else HAVE_WINSOCK2_H=0 fi AC_SUBST([HAVE_WINSOCK2_H]) ]) # Common prerequisites of the replacement and of the # replacement. # Sets and substitutes HAVE_WS2TCPIP_H. AC_DEFUN([gl_PREREQ_SYS_H_WS2TCPIP], [ AC_REQUIRE([gl_CHECK_SOCKET_HEADERS]) if test $ac_cv_header_sys_socket_h = yes; then HAVE_WS2TCPIP_H=0 else if test $ac_cv_header_ws2tcpip_h = yes; then HAVE_WS2TCPIP_H=1 else HAVE_WS2TCPIP_H=0 fi fi AC_SUBST([HAVE_WS2TCPIP_H]) ]) # gl_SYS_SOCKET_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_SYS_SOCKET_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_SYS_SOCKET_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_SYS_SOCKET_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_SYS_SOCKET_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SOCKET]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_CONNECT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_ACCEPT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_BIND]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETPEERNAME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETSOCKNAME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETSOCKOPT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LISTEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RECV]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SEND]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RECVFROM]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SENDTO]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SETSOCKOPT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SHUTDOWN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_ACCEPT4]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_SYS_SOCKET_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_SYS_SOCKET_H_DEFAULTS]) ]) AC_DEFUN([gl_SYS_SOCKET_H_DEFAULTS], [ HAVE_STRUCT_SOCKADDR_STORAGE=1; AC_SUBST([HAVE_STRUCT_SOCKADDR_STORAGE]) HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY=1; AC_SUBST([HAVE_STRUCT_SOCKADDR_STORAGE_SS_FAMILY]) HAVE_SA_FAMILY_T=1; AC_SUBST([HAVE_SA_FAMILY_T]) HAVE_ACCEPT4=1; AC_SUBST([HAVE_ACCEPT4]) ]) libffcall-2.4/gnulib-m4/multiarch.m40000664000000000000000000000422014057155505014223 00000000000000# multiarch.m4 serial 9 dnl Copyright (C) 2008-2021 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. AC_CACHE_CHECK([whether the compiler produces multi-arch binaries], [gl_cv_c_multiarch], [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 | arm | arm64) 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.4/gnulib-m4/gnulib-tool.m40000664000000000000000000000264714057155505014501 00000000000000# gnulib-tool.m4 serial 2 dnl Copyright (C) 2004-2005, 2009-2021 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.4/gnulib-m4/std-gnu11.m40000664000000000000000000005767314057155505014002 00000000000000# Prefer GNU C11 and C++11 to earlier versions. -*- coding: utf-8 -*- # This implementation is taken from GNU Autoconf lib/autoconf/c.m4 # commit 017d5ddd82854911f0119691d91ea8a1438824d6 # dated Sun Apr 3 13:57:17 2016 -0700 # This implementation will be obsolete once we can assume Autoconf 2.70 # or later is installed everywhere a Gnulib program might be developed. m4_version_prereq([2.70], [], [ # Copyright (C) 2001-2021 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 . # Written by David MacKenzie, with help from # Akim Demaille, Paul Eggert, # François Pinard, Karl Berry, Richard Pixley, Ian Lance Taylor, # Roland McGrath, Noah Friedman, david d zuhn, and many others. # AC_PROG_CC([COMPILER ...]) # -------------------------- # COMPILER ... is a space separated list of C compilers to search for. # This just gives the user an opportunity to specify an alternative # search list for the C compiler. AC_DEFUN_ONCE([AC_PROG_CC], [AC_LANG_PUSH(C)dnl AC_ARG_VAR([CC], [C compiler command])dnl AC_ARG_VAR([CFLAGS], [C compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl _AC_ARG_VAR_LIBS()dnl _AC_ARG_VAR_CPPFLAGS()dnl m4_ifval([$1], [AC_CHECK_TOOLS(CC, [$1])], [AC_CHECK_TOOL(CC, gcc) if test -z "$CC"; then dnl Here we want: dnl AC_CHECK_TOOL(CC, cc) dnl but without the check for a tool without the prefix. dnl Until the check is removed from there, copy the code: if test -n "$ac_tool_prefix"; then AC_CHECK_PROG(CC, [${ac_tool_prefix}cc], [${ac_tool_prefix}cc]) fi fi if test -z "$CC"; then AC_CHECK_PROG(CC, cc, cc, , , /usr/ucb/cc) fi if test -z "$CC"; then AC_CHECK_TOOLS(CC, cl.exe) fi if test -z "$CC"; then AC_CHECK_TOOL(CC, clang) fi ]) test -z "$CC" && AC_MSG_FAILURE([no acceptable C compiler found in \$PATH]) # Provide some information about the compiler. _AS_ECHO_LOG([checking for _AC_LANG compiler version]) set X $ac_compile ac_compiler=$[2] for ac_option in --version -v -V -qversion -version; do _AC_DO_LIMIT([$ac_compiler $ac_option >&AS_MESSAGE_LOG_FD]) done m4_expand_once([_AC_COMPILER_EXEEXT])[]dnl m4_expand_once([_AC_COMPILER_OBJEXT])[]dnl _AC_LANG_COMPILER_GNU if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi _AC_PROG_CC_G dnl dnl Set ac_prog_cc_stdc to the supported C version. dnl Also set the documented variable ac_cv_prog_cc_stdc; dnl its name was chosen when it was cached, but it is no longer cached. _AC_PROG_CC_C11([ac_prog_cc_stdc=c11 ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c11], [_AC_PROG_CC_C99([ac_prog_cc_stdc=c99 ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c99], [_AC_PROG_CC_C89([ac_prog_cc_stdc=c89 ac_cv_prog_cc_stdc=$ac_cv_prog_cc_c89], [ac_prog_cc_stdc=no ac_cv_prog_cc_stdc=no])])]) dnl AC_LANG_POP(C)dnl ])# AC_PROG_CC # AC_PROG_CXX([LIST-OF-COMPILERS]) # -------------------------------- # LIST-OF-COMPILERS is a space separated list of C++ compilers to search # for (if not specified, a default list is used). This just gives the # user an opportunity to specify an alternative search list for the C++ # compiler. # aCC HP-UX C++ compiler much better than `CC', so test before. # FCC Fujitsu C++ compiler # KCC KAI C++ compiler # RCC Rational C++ # xlC_r AIX C Set++ (with support for reentrant code) # xlC AIX C Set++ AC_DEFUN([AC_PROG_CXX], [AC_LANG_PUSH(C++)dnl AC_ARG_VAR([CXX], [C++ compiler command])dnl AC_ARG_VAR([CXXFLAGS], [C++ compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl _AC_ARG_VAR_LIBS()dnl _AC_ARG_VAR_CPPFLAGS()dnl _AC_ARG_VAR_PRECIOUS([CCC])dnl if test -z "$CXX"; then if test -n "$CCC"; then CXX=$CCC else AC_CHECK_TOOLS(CXX, [m4_default([$1], [g++ c++ gpp aCC CC cxx cc++ cl.exe FCC KCC RCC xlC_r xlC clang++])], g++) fi fi # Provide some information about the compiler. _AS_ECHO_LOG([checking for _AC_LANG compiler version]) set X $ac_compile ac_compiler=$[2] for ac_option in --version -v -V -qversion; do _AC_DO_LIMIT([$ac_compiler $ac_option >&AS_MESSAGE_LOG_FD]) done m4_expand_once([_AC_COMPILER_EXEEXT])[]dnl m4_expand_once([_AC_COMPILER_OBJEXT])[]dnl _AC_LANG_COMPILER_GNU if test $ac_compiler_gnu = yes; then GXX=yes else GXX= fi _AC_PROG_CXX_G _AC_PROG_CXX_CXX11([ac_prog_cxx_stdcxx=cxx11 ac_cv_prog_cxx_stdcxx=$ac_cv_prog_cxx_cxx11 ac_cv_prog_cxx_cxx98=$ac_cv_prog_cxx_cxx11], [_AC_PROG_CXX_CXX98([ac_prog_cxx_stdcxx=cxx98 ac_cv_prog_cxx_stdcxx=$ac_cv_prog_cxx_cxx98], [ac_prog_cxx_stdcxx=no ac_cv_prog_cxx_stdcxx=no])]) AC_LANG_POP(C++)dnl ])# AC_PROG_CXX # _AC_C_STD_TRY(STANDARD, TEST-PROLOGUE, TEST-BODY, OPTION-LIST, # ACTION-IF-AVAILABLE, ACTION-IF-UNAVAILABLE) # -------------------------------------------------------------- # Check whether the C compiler accepts features of STANDARD (e.g `c89', `c99') # by trying to compile a program of TEST-PROLOGUE and TEST-BODY. If this fails, # try again with each compiler option in the space-separated OPTION-LIST; if one # helps, append it to CC. If eventually successful, run ACTION-IF-AVAILABLE, # else ACTION-IF-UNAVAILABLE. AC_DEFUN([_AC_C_STD_TRY], [AC_MSG_CHECKING([for $CC option to enable ]m4_translit($1, [c], [C])[ features]) AC_CACHE_VAL(ac_cv_prog_cc_$1, [ac_cv_prog_cc_$1=no ac_save_CC=$CC AC_LANG_CONFTEST([AC_LANG_PROGRAM([$2], [$3])]) for ac_arg in '' $4 do CC="$ac_save_CC $ac_arg" _AC_COMPILE_IFELSE([], [ac_cv_prog_cc_$1=$ac_arg]) test "x$ac_cv_prog_cc_$1" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC ])# AC_CACHE_VAL ac_prog_cc_stdc_options= case "x$ac_cv_prog_cc_$1" in x) AC_MSG_RESULT([none needed]) ;; xno) AC_MSG_RESULT([unsupported]) ;; *) ac_prog_cc_stdc_options=" $ac_cv_prog_cc_$1" CC=$CC$ac_prog_cc_stdc_options AC_MSG_RESULT([$ac_cv_prog_cc_$1]) ;; esac AS_IF([test "x$ac_cv_prog_cc_$1" != xno], [$5], [$6]) ])# _AC_C_STD_TRY # _AC_C_C99_TEST_HEADER # --------------------- # A C header suitable for testing for C99. AC_DEFUN([_AC_C_C99_TEST_HEADER], [[#include #include #include #include #include #include // Check varargs macros. These examples are taken from C99 6.10.3.5. #define debug(...) fprintf (stderr, __VA_ARGS__) #define showlist(...) puts (#__VA_ARGS__) #define report(test,...) ((test) ? puts (#test) : printf (__VA_ARGS__)) static void test_varargs_macros (void) { int x = 1234; int y = 5678; debug ("Flag"); debug ("X = %d\n", x); showlist (The first, second, and third items.); report (x>y, "x is %d but y is %d", x, y); } // Check long long types. #define BIG64 18446744073709551615ull #define BIG32 4294967295ul #define BIG_OK (BIG64 / BIG32 == 4294967297ull && BIG64 % BIG32 == 0) #if !BIG_OK your preprocessor is broken; #endif #if BIG_OK #else your preprocessor is broken; #endif static long long int bignum = -9223372036854775807LL; static unsigned long long int ubignum = BIG64; struct incomplete_array { int datasize; double data[]; }; struct named_init { int number; const wchar_t *name; double average; }; typedef const char *ccp; static inline int test_restrict (ccp restrict text) { // See if C++-style comments work. // Iterate through items via the restricted pointer. // Also check for declarations in for loops. for (unsigned int i = 0; *(text+i) != '\0'; ++i) continue; return 0; } // Check varargs and va_copy. static bool test_varargs (const char *format, ...) { va_list args; va_start (args, format); va_list args_copy; va_copy (args_copy, args); const char *str = ""; int number = 0; float fnumber = 0; while (*format) { switch (*format++) { case 's': // string str = va_arg (args_copy, const char *); break; case 'd': // int number = va_arg (args_copy, int); break; case 'f': // float fnumber = va_arg (args_copy, double); break; default: break; } } va_end (args_copy); va_end (args); return *str && number && fnumber; }]])# _AC_C_C99_TEST_HEADER # _AC_C_C99_TEST_BODY # ------------------- # A C body suitable for testing for C99, assuming the corresponding header. AC_DEFUN([_AC_C_C99_TEST_BODY], [[ // Check bool. _Bool success = false; // Check restrict. if (test_restrict ("String literal") == 0) success = true; char *restrict newvar = "Another string"; // Check varargs. success &= test_varargs ("s, d' f .", "string", 65, 34.234); test_varargs_macros (); // Check flexible array members. struct incomplete_array *ia = malloc (sizeof (struct incomplete_array) + (sizeof (double) * 10)); ia->datasize = 10; for (int i = 0; i < ia->datasize; ++i) ia->data[i] = i * 1.234; // Check named initializers. struct named_init ni = { .number = 34, .name = L"Test wide string", .average = 543.34343, }; ni.number = 58; int dynamic_array[ni.number]; dynamic_array[ni.number - 1] = 543; // work around unused variable warnings return (!success || bignum == 0LL || ubignum == 0uLL || newvar[0] == 'x' || dynamic_array[ni.number - 1] != 543); ]]) # _AC_PROG_CC_C99 ([ACTION-IF-AVAILABLE], [ACTION-IF-UNAVAILABLE]) # ---------------------------------------------------------------- # If the C compiler is not in ISO C99 mode by default, try to add an # option to output variable CC to make it so. This macro tries # various options that select ISO C99 on some system or another. It # considers the compiler to be in ISO C99 mode if it handles _Bool, # // comments, flexible array members, inline, long long int, mixed # code and declarations, named initialization of structs, restrict, # va_copy, varargs macros, variable declarations in for loops and # variable length arrays. AC_DEFUN([_AC_PROG_CC_C99], [_AC_C_STD_TRY([c99], [_AC_C_C99_TEST_HEADER], [_AC_C_C99_TEST_BODY], dnl Try dnl GCC -std=gnu99 (unused restrictive modes: -std=c99 -std=iso9899:1999) dnl IBM XL C -qlanglvl=extc1x (V12.1; does not pass C11 test) dnl IBM XL C -qlanglvl=extc99 dnl (pre-V12.1; unused restrictive mode: -qlanglvl=stdc99) dnl HP cc -AC99 dnl Intel ICC -std=c99, -c99 (deprecated) dnl IRIX -c99 dnl Solaris -D_STDC_C99= dnl cc's -xc99 option uses linker magic to define the external dnl symbol __xpg4 as if by "int __xpg4 = 1;", which enables C99 dnl behavior for C library functions. This is not wanted here, dnl because it means that a single module compiled with -xc99 dnl alters C runtime behavior for the entire program, not for dnl just the module. Instead, define the (private) symbol dnl _STDC_C99, which suppresses a bogus failure in . dnl The resulting compiler passes the test case here, and that's dnl good enough. For more, please see the thread starting at: dnl https://lists.gnu.org/r/autoconf/2010-12/msg00059.html dnl Tru64 -c99 dnl with extended modes being tried first. [[-std=gnu99 -std=c99 -c99 -AC99 -D_STDC_C99= -qlanglvl=extc1x -qlanglvl=extc99]], [$1], [$2])[]dnl ])# _AC_PROG_CC_C99 # _AC_PROG_CC_C11 ([ACTION-IF-AVAILABLE], [ACTION-IF-UNAVAILABLE]) # ---------------------------------------------------------------- # If the C compiler is not in ISO C11 mode by default, try to add an # option to output variable CC to make it so. This macro tries # various options that select ISO C11 on some system or another. It # considers the compiler to be in ISO C11 mode if it handles _Alignas, # _Alignof, _Noreturn, _Static_assert, UTF-8 string literals, # duplicate typedefs, and anonymous structures and unions. AC_DEFUN([_AC_PROG_CC_C11], [_AC_C_STD_TRY([c11], [_AC_C_C99_TEST_HEADER[ // Check _Alignas. char _Alignas (double) aligned_as_double; char _Alignas (0) no_special_alignment; extern char aligned_as_int; char _Alignas (0) _Alignas (int) aligned_as_int; // Check _Alignof. enum { int_alignment = _Alignof (int), int_array_alignment = _Alignof (int[100]), char_alignment = _Alignof (char) }; _Static_assert (0 < -_Alignof (int), "_Alignof is signed"); // Check _Noreturn. int _Noreturn does_not_return (void) { for (;;) continue; } // Check _Static_assert. struct test_static_assert { int x; _Static_assert (sizeof (int) <= sizeof (long int), "_Static_assert does not work in struct"); long int y; }; // Check UTF-8 literals. #define u8 syntax error! char const utf8_literal[] = u8"happens to be ASCII" "another string"; // Check duplicate typedefs. typedef long *long_ptr; typedef long int *long_ptr; typedef long_ptr long_ptr; // Anonymous structures and unions -- taken from C11 6.7.2.1 Example 1. struct anonymous { union { struct { int i; int j; }; struct { int k; long int l; } w; }; int m; } v1; ]], [_AC_C_C99_TEST_BODY[ v1.i = 2; v1.w.k = 5; _Static_assert ((offsetof (struct anonymous, i) == offsetof (struct anonymous, w.k)), "Anonymous union alignment botch"); ]], dnl Try dnl GCC -std=gnu11 (unused restrictive mode: -std=c11) dnl with extended modes being tried first. dnl dnl Do not try -qlanglvl=extc1x, because IBM XL C V12.1 (the latest version as dnl of September 2012) does not pass the C11 test. For now, try extc1x when dnl compiling the C99 test instead, since it enables _Static_assert and dnl _Noreturn, which is a win. If -qlanglvl=extc11 or -qlanglvl=extc1x passes dnl the C11 test in some future version of IBM XL C, we'll add it here, dnl preferably extc11. [[-std=gnu11]], [$1], [$2])[]dnl ])# _AC_PROG_CC_C11 # AC_PROG_CC_C89 # -------------- # Do not use AU_ALIAS here and in AC_PROG_CC_C99 and AC_PROG_CC_STDC, # as that'd be incompatible with how Automake redefines AC_PROG_CC. See # . AU_DEFUN([AC_PROG_CC_C89], [AC_REQUIRE([AC_PROG_CC])], [$0 is obsolete; use AC_PROG_CC] ) # AC_PROG_CC_C99 # -------------- AU_DEFUN([AC_PROG_CC_C99], [AC_REQUIRE([AC_PROG_CC])], [$0 is obsolete; use AC_PROG_CC] ) # AC_PROG_CC_STDC # --------------- AU_DEFUN([AC_PROG_CC_STDC], [AC_REQUIRE([AC_PROG_CC])], [$0 is obsolete; use AC_PROG_CC] ) # AC_C_PROTOTYPES # --------------- # Check if the C compiler supports prototypes, included if it needs # options. AC_DEFUN([AC_C_PROTOTYPES], [AC_REQUIRE([AC_PROG_CC])dnl if test "$ac_prog_cc_stdc" != no; then AC_DEFINE(PROTOTYPES, 1, [Define to 1 if the C compiler supports function prototypes.]) AC_DEFINE(__PROTOTYPES, 1, [Define like PROTOTYPES; this can be used by system headers.]) fi ])# AC_C_PROTOTYPES # _AC_CXX_STD_TRY(STANDARD, TEST-PROLOGUE, TEST-BODY, OPTION-LIST, # ACTION-IF-AVAILABLE, ACTION-IF-UNAVAILABLE) # ---------------------------------------------------------------- # Check whether the C++ compiler accepts features of STANDARD (e.g # `cxx98', `cxx11') by trying to compile a program of TEST-PROLOGUE # and TEST-BODY. If this fails, try again with each compiler option # in the space-separated OPTION-LIST; if one helps, append it to CXX. # If eventually successful, run ACTION-IF-AVAILABLE, else # ACTION-IF-UNAVAILABLE. AC_DEFUN([_AC_CXX_STD_TRY], [AC_MSG_CHECKING([for $CXX option to enable ]m4_translit(m4_translit($1, [x], [+]), [a-z], [A-Z])[ features]) AC_LANG_PUSH(C++)dnl AC_CACHE_VAL(ac_cv_prog_cxx_$1, [ac_cv_prog_cxx_$1=no ac_save_CXX=$CXX AC_LANG_CONFTEST([AC_LANG_PROGRAM([$2], [$3])]) for ac_arg in '' $4 do CXX="$ac_save_CXX $ac_arg" _AC_COMPILE_IFELSE([], [ac_cv_prog_cxx_$1=$ac_arg]) test "x$ac_cv_prog_cxx_$1" != "xno" && break done rm -f conftest.$ac_ext CXX=$ac_save_CXX ])# AC_CACHE_VAL ac_prog_cxx_stdcxx_options= case "x$ac_cv_prog_cxx_$1" in x) AC_MSG_RESULT([none needed]) ;; xno) AC_MSG_RESULT([unsupported]) ;; *) ac_prog_cxx_stdcxx_options=" $ac_cv_prog_cxx_$1" CXX=$CXX$ac_prog_cxx_stdcxx_options AC_MSG_RESULT([$ac_cv_prog_cxx_$1]) ;; esac AC_LANG_POP(C++)dnl AS_IF([test "x$ac_cv_prog_cxx_$1" != xno], [$5], [$6]) ])# _AC_CXX_STD_TRY # _AC_CXX_CXX98_TEST_HEADER # ------------------------- # A C++ header suitable for testing for CXX98. AC_DEFUN([_AC_CXX_CXX98_TEST_HEADER], [[ #include #include #include #include #include #include #include #include #include #include #include #include #include namespace test { typedef std::vector string_vec; typedef std::pair map_value; typedef std::map map_type; typedef std::set set_type; template class printer { public: printer(std::ostringstream& os): os(os) {} void operator() (T elem) { os << elem << std::endl; } private: std::ostringstream& os; }; } ]])# _AC_CXX_CXX98_TEST_HEADER # _AC_CXX_CXX98_TEST_BODY # ----------------------- # A C++ body suitable for testing for CXX98, assuming the corresponding header. AC_DEFUN([_AC_CXX_CXX98_TEST_BODY], [[ try { // Basic string. std::string teststr("ASCII text"); teststr += " string"; // Simple vector. test::string_vec testvec; testvec.push_back(teststr); testvec.push_back("foo"); testvec.push_back("bar"); if (testvec.size() != 3) { throw std::runtime_error("vector size is not 1"); } // Dump vector into stringstream and obtain string. std::ostringstream os; for (test::string_vec::const_iterator i = testvec.begin(); i != testvec.end(); ++i) { if (i + 1 != testvec.end()) { os << teststr << '\n'; } } // Check algorithms work. std::for_each(testvec.begin(), testvec.end(), test::printer(os)); std::string os_out = os.str(); // Test pair and map. test::map_type testmap; testmap.insert(std::make_pair(std::string("key"), std::make_pair(53,false))); // Test set. int values[] = {9, 7, 13, 15, 4, 18, 12, 10, 5, 3, 14, 19, 17, 8, 6, 20, 16, 2, 11, 1}; test::set_type testset(values, values + sizeof(values)/sizeof(values[0])); std::list testlist(testset.begin(), testset.end()); std::copy(testset.begin(), testset.end(), std::back_inserter(testlist)); } catch (const std::exception& e) { std::cerr << "Caught exception: " << e.what() << std::endl; // Test fstream std::ofstream of("test.txt"); of << "Test ASCII text\n" << std::flush; of << "N= " << std::hex << std::setw(8) << std::left << 534 << std::endl; of.close(); } std::exit(0); ]]) # _AC_CXX_CXX11_TEST_HEADER # ------------------------- # A C++ header suitable for testing for CXX11. AC_DEFUN([_AC_CXX_CXX11_TEST_HEADER], [[ #include #include #include #include #include #include #include namespace cxx11test { typedef std::shared_ptr sptr; typedef std::weak_ptr wptr; typedef std::tuple tp; typedef std::array int_array; constexpr int get_val() { return 20; } struct testinit { int i; double d; }; class delegate { public: delegate(int n) : n(n) {} delegate(): delegate(2354) {} virtual int getval() { return this->n; }; protected: int n; }; class overridden : public delegate { public: overridden(int n): delegate(n) {} virtual int getval() override final { return this->n * 2; } }; class nocopy { public: nocopy(int i): i(i) {} nocopy() = default; nocopy(const nocopy&) = delete; nocopy & operator=(const nocopy&) = delete; private: int i; }; } ]])# _AC_CXX_CXX11_TEST_HEADER # _AC_CXX_CXX11_TEST_BODY # ----------------------- # A C++ body suitable for testing for CXX11, assuming the corresponding header. AC_DEFUN([_AC_CXX_CXX11_TEST_BODY], [[ { // Test auto and decltype std::deque d; d.push_front(43); d.push_front(484); d.push_front(3); d.push_front(844); int total = 0; for (auto i = d.begin(); i != d.end(); ++i) { total += *i; } auto a1 = 6538; auto a2 = 48573953.4; auto a3 = "String literal"; decltype(a2) a4 = 34895.034; } { // Test constexpr short sa[cxx11test::get_val()] = { 0 }; } { // Test initializer lists cxx11test::testinit il = { 4323, 435234.23544 }; } { // Test range-based for and lambda cxx11test::int_array array = {9, 7, 13, 15, 4, 18, 12, 10, 5, 3, 14, 19, 17, 8, 6, 20, 16, 2, 11, 1}; for (int &x : array) { x += 23; } std::for_each(array.begin(), array.end(), [](int v1){ std::cout << v1; }); } { using cxx11test::sptr; using cxx11test::wptr; sptr sp(new std::string("ASCII string")); wptr wp(sp); sptr sp2(wp); } { cxx11test::tp tuple("test", 54, 45.53434); double d = std::get<2>(tuple); std::string s; int i; std::tie(s,i,d) = tuple; } { static std::regex filename_regex("^_?([a-z0-9_.]+-)+[a-z0-9]+$"); std::string testmatch("Test if this string matches"); bool match = std::regex_search(testmatch, filename_regex); } { cxx11test::int_array array = {9, 7, 13, 15, 4, 18, 12, 10, 5, 3, 14, 19, 17, 8, 6, 20, 16, 2, 11, 1}; cxx11test::int_array::size_type size = array.size(); } { // Test constructor delegation cxx11test::delegate d1; cxx11test::delegate d2(); cxx11test::delegate d3(45); } { // Test override and final cxx11test::overridden o1(55464); } { // Test nullptr char *c = nullptr; } { // Test template brackets std::vector> v1; } { // Unicode literals char const *utf8 = u8"UTF-8 string \u2500"; char16_t const *utf16 = u"UTF-8 string \u2500"; char32_t const *utf32 = U"UTF-32 string \u2500"; } ]]) # _AC_PROG_CXX_CXX98 ([ACTION-IF-AVAILABLE], [ACTION-IF-UNAVAILABLE]) # ------------------------------------------------------------------- # If the C++ compiler is not in ISO C++98 mode by default, try to add # an option to output variable CXX to make it so. This macro tries # various options that select ISO C++98 on some system or another. It # considers the compiler to be in ISO C++98 mode if it handles basic # features of the std namespace including: string, containers (list, # map, set, vector), streams (fstreams, iostreams, stringstreams, # iomanip), pair, exceptions and algorithms. AC_DEFUN([_AC_PROG_CXX_CXX98], [_AC_CXX_STD_TRY([cxx98], [_AC_CXX_CXX98_TEST_HEADER], [_AC_CXX_CXX98_TEST_BODY], dnl Try dnl GCC -std=gnu++98 (unused restrictive mode: -std=c++98) dnl IBM XL C -qlanglvl=extended dnl HP aC++ -AA dnl Intel ICC -std=gnu++98 dnl Solaris N/A (default) dnl Tru64 N/A (default, but -std gnu could be used) dnl with extended modes being tried first. [[-std=gnu++98 -std=c++98 -qlanglvl=extended -AA]], [$1], [$2])[]dnl ])# _AC_PROG_CXX_CXX98 # _AC_PROG_CXX_CXX11 ([ACTION-IF-AVAILABLE], [ACTION-IF-UNAVAILABLE]) # ------------------------------------------------------------------- # If the C++ compiler is not in ISO CXX11 mode by default, try to add # an option to output variable CXX to make it so. This macro tries # various options that select ISO C++11 on some system or another. It # considers the compiler to be in ISO C++11 mode if it handles all the # tests from the C++98 checks, plus the following: Language features # (auto, constexpr, decltype, default/deleted constructors, delegate # constructors, final, initializer lists, lambda functions, nullptr, # override, range-based for loops, template brackets without spaces, # unicode literals) and library features (array, memory (shared_ptr, # weak_ptr), regex and tuple types). AC_DEFUN([_AC_PROG_CXX_CXX11], [_AC_CXX_STD_TRY([cxx11], [_AC_CXX_CXX11_TEST_HEADER _AC_CXX_CXX98_TEST_HEADER], [_AC_CXX_CXX11_TEST_BODY _AC_CXX_CXX98_TEST_BODY], dnl Try dnl GCC -std=gnu++11 (unused restrictive mode: -std=c++11) [and 0x variants] dnl IBM XL C -qlanglvl=extended0x dnl (pre-V12.1; unused restrictive mode: -qlanglvl=stdcxx11) dnl HP aC++ -AA dnl Intel ICC -std=c++11 -std=c++0x dnl Solaris N/A (no support) dnl Tru64 N/A (no support) dnl with extended modes being tried first. [[-std=gnu++11 -std=c++11 -std=gnu++0x -std=c++0x -qlanglvl=extended0x -AA]], [$1], [$2])[]dnl ])# _AC_PROG_CXX_CXX11 ])# m4_version_prereq libffcall-2.4/gnulib-m4/getdtablesize.m40000664000000000000000000000504514057155505015067 00000000000000# getdtablesize.m4 serial 8 dnl Copyright (C) 2008-2021 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([gl_FUNC_GETDTABLESIZE], [ AC_REQUIRE([gl_UNISTD_H_DEFAULTS]) AC_REQUIRE([AC_CANONICAL_HOST]) AC_CHECK_FUNCS_ONCE([getdtablesize]) AC_CHECK_DECLS_ONCE([getdtablesize]) if test $ac_cv_func_getdtablesize = yes && test $ac_cv_have_decl_getdtablesize = yes; then AC_CACHE_CHECK([whether getdtablesize works], [gl_cv_func_getdtablesize_works], [dnl There are two concepts: the "maximum possible file descriptor value + 1" dnl and the "maximum number of open file descriptors in a process". dnl Per SUSv2 and POSIX, getdtablesize() should return the first one. dnl On most platforms, the first and the second concept are the same. dnl On OpenVMS, however, they are different and getdtablesize() returns dnl the second one; thus the test below fails. But we don't care dnl because there's no good way to write a replacement getdtablesize(). case "$host_os" in vms*) gl_cv_func_getdtablesize_works="no (limitation)" ;; *) dnl Cygwin 1.7.25 automatically increases the RLIMIT_NOFILE soft dnl limit up to an unchangeable hard limit; all other platforms dnl correctly require setrlimit before getdtablesize() can report dnl a larger value. AC_RUN_IFELSE([ AC_LANG_PROGRAM( [[#include ] GL_MDA_DEFINES ], [[int size = getdtablesize(); if (dup2 (0, getdtablesize()) != -1) return 1; if (size != getdtablesize()) return 2; ]])], [gl_cv_func_getdtablesize_works=yes], [gl_cv_func_getdtablesize_works=no], [case "$host_os" in cygwin*) # on cygwin 1.5.25, getdtablesize() automatically grows gl_cv_func_getdtablesize_works="guessing no" ;; *) gl_cv_func_getdtablesize_works="guessing yes" ;; esac ]) ;; esac ]) case "$gl_cv_func_getdtablesize_works" in *yes | "no (limitation)") ;; *) REPLACE_GETDTABLESIZE=1 ;; esac else HAVE_GETDTABLESIZE=0 fi ]) # Prerequisites of lib/getdtablesize.c. AC_DEFUN([gl_PREREQ_GETDTABLESIZE], [:]) libffcall-2.4/gnulib-m4/wchar_t.m40000664000000000000000000000146214057155505013667 00000000000000# wchar_t.m4 serial 4 (gettext-0.18.2) dnl Copyright (C) 2002-2003, 2008-2021 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 'wchar_t' type. dnl Prerequisite: AC_PROG_CC AC_DEFUN([gt_TYPE_WCHAR_T], [ AC_CACHE_CHECK([for wchar_t], [gt_cv_c_wchar_t], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include wchar_t foo = (wchar_t)'\0';]], [[]])], [gt_cv_c_wchar_t=yes], [gt_cv_c_wchar_t=no])]) if test $gt_cv_c_wchar_t = yes; then AC_DEFINE([HAVE_WCHAR_T], [1], [Define if you have the 'wchar_t' type.]) fi ]) libffcall-2.4/gnulib-m4/fatal-signal.m40000664000000000000000000000065614057155505014606 00000000000000# fatal-signal.m4 serial 9 dnl Copyright (C) 2003-2004, 2006, 2008-2021 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([gl_FATAL_SIGNAL], [ AC_REQUIRE([gt_TYPE_SIG_ATOMIC_T]) AC_CHECK_HEADERS_ONCE([unistd.h]) gl_PREREQ_SIG_HANDLER_H ]) libffcall-2.4/gnulib-m4/sys_types_h.m40000664000000000000000000000436114057155505014612 00000000000000# sys_types_h.m4 serial 13 dnl Copyright (C) 2011-2021 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], [ AC_REQUIRE([gl_SYS_TYPES_H_DEFAULTS]) 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.]) 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]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_SYS_TYPES_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_SYS_TYPE_H_MODULE_INDICATOR_DEFAULTS], [ ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_SYS_TYPE_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_SYS_TYPES_H_DEFAULTS]) ]) AC_DEFUN([gl_SYS_TYPES_H_DEFAULTS], [ ]) # This works around a buggy version in autoconf <= 2.69. # See # The 2.70 version isn't quoted properly, so override it too. m4_version_prereq([2.70.1], [], [ 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 ])# AC_HEADER_MAJOR ]) libffcall-2.4/gnulib-m4/lock.m40000664000000000000000000000303714057155505013170 00000000000000# lock.m4 serial 14 dnl Copyright (C) 2005-2021 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.4/gnulib-m4/error.m40000664000000000000000000000151014057155505013363 00000000000000#serial 14 # Copyright (C) 1996-1998, 2001-2004, 2009-2021 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. AC_DEFUN([gl_ERROR], [ dnl We don't use AC_FUNC_ERROR_AT_LINE any more, because it is no longer dnl maintained in Autoconf and because it invokes AC_LIBOBJ. AC_CACHE_CHECK([for error_at_line], [ac_cv_lib_error_at_line], [AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[error_at_line (0, 0, "", 0, "an error occurred");]])], [ac_cv_lib_error_at_line=yes], [ac_cv_lib_error_at_line=no])]) ]) # Prerequisites of lib/error.c. AC_DEFUN([gl_PREREQ_ERROR], [ AC_REQUIRE([AC_FUNC_STRERROR_R]) : ]) libffcall-2.4/gnulib-m4/gnulib-comp.m40000664000000000000000000004471314057155512014460 00000000000000# DO NOT EDIT! GENERATED AUTOMATICALLY! # Copyright (C) 2002-2021 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 alloca-opt: # Code from module ansi-c++-opt: AC_REQUIRE([gl_ANSI_CXX]) # Code from module asyncsafe-spin: # Code from module attribute: # Code from module basename-lgpl: # Code from module c99: # Code from module clean-temp-simple: # Code from module cloexec: # Code from module close: # Code from module double-slash-root: # Code from module dup2: # Code from module errno: # Code from module error: # Code from module extensions: # Code from module extern-inline: # Code from module fatal-signal: # Code from module fcntl: # Code from module fcntl-h: # Code from module fd-hook: # Code from module filename: # Code from module fstat: # Code from module getdtablesize: # Code from module getprogname: # Code from module gettext-h: # Code from module host-cpu-c-abi: # Code from module idx: # Code from module include_next: # Code from module intprops: # Code from module largefile: AC_REQUIRE([AC_SYS_LARGEFILE]) # Code from module limits-h: # Code from module linkedhash-list: # Code from module list: # Code from module lock: # Code from module malloca: # Code from module msvc-inval: # Code from module msvc-nothrow: # Code from module multiarch: # Code from module nocrash: # Code from module open: # Code from module pathmax: # Code from module raise: # Code from module rmdir: # Code from module sigaction: # Code from module signal-h: # Code from module sigprocmask: # Code from module size_max: # Code from module snippet/_Noreturn: # Code from module snippet/arg-nonnull: # Code from module snippet/c++defs: # Code from module snippet/warn-on-use: # Code from module sparcv8+: gl_SPARC_V8PLUS # Code from module ssize_t: # Code from module stat: # Code from module stat-time: # Code from module std-gnu11: # Code from module stdbool: # Code from module stddef: # Code from module stdint: # Code from module stdio: # Code from module stdnoreturn: # Code from module strerror: # Code from module strerror-override: # Code from module string: # Code from module sys_stat: # Code from module sys_types: # Code from module thread-optim: # Code from module threadlib: gl_THREADLIB_EARLY # Code from module time: # Code from module unistd: # Code from module verify: # Code from module windows-mutex: # Code from module windows-once: # Code from module windows-recmutex: # Code from module windows-rwlock: # Code from module windows-spin: # Code from module xalloc-oversized: # Code from module xsize: ]) # 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], []) m4_pushdef([GL_MACRO_PREFIX], [gl]) m4_pushdef([GL_MODULE_INDICATOR_PREFIX], [GL]) gl_COMMON gl_source_base='gnulib-lib' gl_FUNC_ALLOCA AC_REQUIRE([AC_C_INLINE]) AC_CHECK_HEADERS_ONCE([pthread.h]) AC_DEFINE([SIGNAL_SAFE_LIST], [1], [Define if lists must be signal-safe.]) gl_MODULE_INDICATOR_FOR_TESTS([cloexec]) gl_FUNC_CLOSE if test $REPLACE_CLOSE = 1; then AC_LIBOBJ([close]) fi gl_UNISTD_MODULE_INDICATOR([close]) gl_DOUBLE_SLASH_ROOT gl_FUNC_DUP2 if test $REPLACE_DUP2 = 1; then AC_LIBOBJ([dup2]) gl_PREREQ_DUP2 fi gl_UNISTD_MODULE_INDICATOR([dup2]) gl_HEADER_ERRNO_H gl_ERROR if test $ac_cv_lib_error_at_line = no; then AC_LIBOBJ([error]) gl_PREREQ_ERROR fi m4_ifdef([AM_XGETTEXT_OPTION], [AM_][XGETTEXT_OPTION([--flag=error:3:c-format]) AM_][XGETTEXT_OPTION([--flag=error_at_line:5:c-format])]) AC_REQUIRE([gl_EXTERN_INLINE]) gl_FATAL_SIGNAL gl_FUNC_FCNTL if test $HAVE_FCNTL = 0 || test $REPLACE_FCNTL = 1; then AC_LIBOBJ([fcntl]) fi gl_FCNTL_MODULE_INDICATOR([fcntl]) gl_FCNTL_H gl_FCNTL_H_REQUIRE_DEFAULTS gl_FUNC_FSTAT if test $REPLACE_FSTAT = 1; then AC_LIBOBJ([fstat]) case "$host_os" in mingw*) AC_LIBOBJ([stat-w32]) ;; esac gl_PREREQ_FSTAT fi gl_SYS_STAT_MODULE_INDICATOR([fstat]) gl_FUNC_GETDTABLESIZE if test $HAVE_GETDTABLESIZE = 0 || test $REPLACE_GETDTABLESIZE = 1; then AC_LIBOBJ([getdtablesize]) gl_PREREQ_GETDTABLESIZE fi gl_UNISTD_MODULE_INDICATOR([getdtablesize]) gl_FUNC_GETPROGNAME AC_SUBST([LIBINTL]) AC_SUBST([LTLIBINTL]) AC_REQUIRE([gl_HOST_CPU_C_ABI]) AC_REQUIRE([gl_LARGEFILE]) gl_LIMITS_H gl_LOCK gl_MODULE_INDICATOR([lock]) gl_MALLOCA AC_REQUIRE([gl_MSVC_INVAL]) if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then AC_LIBOBJ([msvc-inval]) fi AC_REQUIRE([gl_MSVC_NOTHROW]) if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then AC_LIBOBJ([msvc-nothrow]) fi gl_MODULE_INDICATOR([msvc-nothrow]) gl_MULTIARCH gl_FUNC_OPEN if test $REPLACE_OPEN = 1; then AC_LIBOBJ([open]) gl_PREREQ_OPEN fi gl_FCNTL_MODULE_INDICATOR([open]) gl_PATHMAX gl_FUNC_RAISE if test $HAVE_RAISE = 0 || test $REPLACE_RAISE = 1; then AC_LIBOBJ([raise]) gl_PREREQ_RAISE fi gl_SIGNAL_MODULE_INDICATOR([raise]) gl_FUNC_RMDIR if test $REPLACE_RMDIR = 1; then AC_LIBOBJ([rmdir]) fi gl_UNISTD_MODULE_INDICATOR([rmdir]) gl_SIGACTION if test $HAVE_SIGACTION = 0; then AC_LIBOBJ([sigaction]) gl_PREREQ_SIGACTION fi gl_SIGNAL_MODULE_INDICATOR([sigaction]) gl_SIGNAL_H gl_SIGNAL_H_REQUIRE_DEFAULTS gl_SIGNALBLOCKING if test $HAVE_POSIX_SIGNALBLOCKING = 0; then AC_LIBOBJ([sigprocmask]) gl_PREREQ_SIGPROCMASK fi gl_SIGNAL_MODULE_INDICATOR([sigprocmask]) gl_SIZE_MAX gt_TYPE_SSIZE_T gl_FUNC_STAT if test $REPLACE_STAT = 1; then AC_LIBOBJ([stat]) case "$host_os" in mingw*) AC_LIBOBJ([stat-w32]) ;; esac gl_PREREQ_STAT fi gl_SYS_STAT_MODULE_INDICATOR([stat]) gl_STAT_TIME gl_STAT_BIRTHTIME AM_STDBOOL_H gl_STDDEF_H gl_STDDEF_H_REQUIRE_DEFAULTS gl_STDINT_H gl_STDIO_H gl_STDIO_H_REQUIRE_DEFAULTS dnl No need to create extra modules for these functions. Everyone who uses dnl likely needs them. gl_STDIO_MODULE_INDICATOR([fscanf]) gl_MODULE_INDICATOR([fscanf]) gl_STDIO_MODULE_INDICATOR([scanf]) gl_MODULE_INDICATOR([scanf]) gl_STDIO_MODULE_INDICATOR([fgetc]) gl_STDIO_MODULE_INDICATOR([getc]) gl_STDIO_MODULE_INDICATOR([getchar]) gl_STDIO_MODULE_INDICATOR([fgets]) gl_STDIO_MODULE_INDICATOR([fread]) dnl No need to create extra modules for these functions. Everyone who uses dnl likely needs them. gl_STDIO_MODULE_INDICATOR([fprintf]) gl_STDIO_MODULE_INDICATOR([printf]) gl_STDIO_MODULE_INDICATOR([vfprintf]) gl_STDIO_MODULE_INDICATOR([vprintf]) gl_STDIO_MODULE_INDICATOR([fputc]) gl_STDIO_MODULE_INDICATOR([putc]) gl_STDIO_MODULE_INDICATOR([putchar]) gl_STDIO_MODULE_INDICATOR([fputs]) gl_STDIO_MODULE_INDICATOR([puts]) gl_STDIO_MODULE_INDICATOR([fwrite]) gl_STDNORETURN_H gl_FUNC_STRERROR if test $REPLACE_STRERROR = 1; then AC_LIBOBJ([strerror]) fi gl_MODULE_INDICATOR([strerror]) gl_STRING_MODULE_INDICATOR([strerror]) AC_REQUIRE([gl_HEADER_ERRNO_H]) AC_REQUIRE([gl_FUNC_STRERROR_0]) if test -n "$ERRNO_H" || test $REPLACE_STRERROR_0 = 1; then AC_LIBOBJ([strerror-override]) gl_PREREQ_SYS_H_WINSOCK2 fi gl_STRING_H gl_STRING_H_REQUIRE_DEFAULTS gl_SYS_STAT_H gl_SYS_STAT_H_REQUIRE_DEFAULTS AC_PROG_MKDIR_P gl_SYS_TYPES_H gl_SYS_TYPES_H_REQUIRE_DEFAULTS AC_PROG_MKDIR_P AC_CHECK_HEADERS([sys/single_threaded.h]) AC_REQUIRE([gl_THREADLIB]) gl_TIME_H gl_TIME_H_REQUIRE_DEFAULTS gl_UNISTD_H gl_UNISTD_H_REQUIRE_DEFAULTS 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 AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) AC_LIBOBJ([windows-spin]) ;; esac gl_XSIZE # 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_MODULE_INDICATOR_PREFIX]) m4_popdef([GL_MACRO_PREFIX]) 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], []) m4_pushdef([GL_MACRO_PREFIX], [gltests]) m4_pushdef([GL_MODULE_INDICATOR_PREFIX], [GL]) 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([GL_MODULE_INDICATOR_PREFIX]) m4_popdef([GL_MACRO_PREFIX]) 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], [ lib/_Noreturn.h lib/alloca.in.h lib/arg-nonnull.h lib/asyncsafe-spin.c lib/asyncsafe-spin.h lib/attribute.h lib/basename-lgpl.c lib/basename-lgpl.h lib/c++defs.h lib/clean-temp-private.h lib/clean-temp-simple.c lib/clean-temp-simple.h lib/cloexec.c lib/cloexec.h lib/close.c lib/dup2.c lib/errno.in.h lib/error.c lib/error.h lib/fatal-signal.c lib/fatal-signal.h lib/fcntl.c lib/fcntl.in.h lib/fd-hook.c lib/fd-hook.h lib/filename.h lib/fstat.c lib/getdtablesize.c lib/getprogname.c lib/getprogname.h lib/gettext.h lib/gl_anyhash1.h lib/gl_anyhash2.h lib/gl_anyhash_primes.h lib/gl_anylinked_list1.h lib/gl_anylinked_list2.h lib/gl_linkedhash_list.c lib/gl_linkedhash_list.h lib/gl_list.c lib/gl_list.h lib/glthread/lock.c lib/glthread/lock.h lib/glthread/threadlib.c lib/idx.h lib/intprops.h lib/limits.in.h lib/malloca.c lib/malloca.h lib/msvc-inval.c lib/msvc-inval.h lib/msvc-nothrow.c lib/msvc-nothrow.h lib/open.c lib/pathmax.h lib/raise.c lib/rmdir.c lib/sig-handler.c lib/sig-handler.h lib/sigaction.c lib/signal.in.h lib/sigprocmask.c lib/size_max.h lib/stat-time.c lib/stat-time.h lib/stat-w32.c lib/stat-w32.h lib/stat.c lib/stdbool.in.h lib/stddef.in.h lib/stdint.in.h lib/stdio.in.h lib/stdnoreturn.in.h lib/strerror-override.c lib/strerror-override.h lib/strerror.c lib/string.in.h lib/sys_stat.in.h lib/sys_types.in.h lib/thread-optim.h lib/time.in.h lib/unistd.c lib/unistd.in.h lib/verify.h lib/warn-on-use.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 lib/windows-spin.c lib/windows-spin.h lib/xalloc-oversized.h lib/xsize.c lib/xsize.h m4/00gnulib.m4 m4/absolute-header.m4 m4/alloca.m4 m4/ansi-c++.m4 m4/asm-underscore.m4 m4/close.m4 m4/double-slash-root.m4 m4/dup2.m4 m4/eealloc.m4 m4/errno_h.m4 m4/error.m4 m4/extensions.m4 m4/extern-inline.m4 m4/fatal-signal.m4 m4/fcntl-o.m4 m4/fcntl.m4 m4/fcntl_h.m4 m4/fstat.m4 m4/getdtablesize.m4 m4/getprogname.m4 m4/gnulib-common.m4 m4/host-cpu-c-abi.m4 m4/include_next.m4 m4/largefile.m4 m4/limits-h.m4 m4/lock.m4 m4/malloca.m4 m4/mode_t.m4 m4/msvc-inval.m4 m4/msvc-nothrow.m4 m4/multiarch.m4 m4/nocrash.m4 m4/off_t.m4 m4/open-cloexec.m4 m4/open-slash.m4 m4/open.m4 m4/pathmax.m4 m4/pid_t.m4 m4/pthread_rwlock_rdlock.m4 m4/raise.m4 m4/rmdir.m4 m4/sig_atomic_t.m4 m4/sigaction.m4 m4/signal_h.m4 m4/signalblocking.m4 m4/size_max.m4 m4/sparcv8+.m4 m4/ssize_t.m4 m4/stat-time.m4 m4/stat.m4 m4/std-gnu11.m4 m4/stdbool.m4 m4/stddef_h.m4 m4/stdint.m4 m4/stdio_h.m4 m4/stdnoreturn.m4 m4/strerror.m4 m4/string_h.m4 m4/sys_socket_h.m4 m4/sys_stat_h.m4 m4/sys_types_h.m4 m4/threadlib.m4 m4/time_h.m4 m4/unistd_h.m4 m4/warn-on-use.m4 m4/wchar_t.m4 m4/wint_t.m4 m4/xsize.m4 m4/zzgnulib.m4 ]) libffcall-2.4/gnulib-m4/off_t.m40000664000000000000000000000100614057155505013327 00000000000000# off_t.m4 serial 1 dnl Copyright (C) 2012-2021 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.4/gnulib-m4/signalblocking.m40000664000000000000000000000156214057155505015227 00000000000000# signalblocking.m4 serial 17 dnl Copyright (C) 2001-2002, 2006-2021 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 available signal blocking primitives. Three different APIs exist: # 1) POSIX: sigemptyset, sigaddset, sigprocmask # 2) SYSV: sighold, sigrelse # 3) BSD: sigblock, sigsetmask # For simplicity, here we check only for the POSIX signal blocking. AC_DEFUN([gl_SIGNALBLOCKING], [ AC_REQUIRE([gl_SIGNAL_H_DEFAULTS]) AC_REQUIRE([gl_CHECK_TYPE_SIGSET_T]) HAVE_POSIX_SIGNALBLOCKING=0 if test "$gl_cv_type_sigset_t" = yes; then AC_CHECK_FUNC([sigprocmask], [HAVE_POSIX_SIGNALBLOCKING=1]) fi ]) # Prerequisites of lib/sigprocmask.c. AC_DEFUN([gl_PREREQ_SIGPROCMASK], [:]) libffcall-2.4/gnulib-m4/double-slash-root.m40000664000000000000000000000312514057155505015601 00000000000000# double-slash-root.m4 serial 4 -*- Autoconf -*- dnl Copyright (C) 2006, 2008-2021 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([gl_DOUBLE_SLASH_ROOT], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_CACHE_CHECK([whether // is distinct from /], [gl_cv_double_slash_root], [ if test x"$cross_compiling" = xyes ; then # When cross-compiling, there is no way to tell whether // is special # short of a list of hosts. However, the only known hosts to date # that have a distinct // are Apollo DomainOS (too old to port to), # Cygwin, and z/OS. If anyone knows of another system for which // has # special semantics and is distinct from /, please report it to # . case $host in *-cygwin | i370-ibm-openedition) gl_cv_double_slash_root=yes ;; *) # Be optimistic and assume that / and // are the same when we # don't know. gl_cv_double_slash_root='unknown, assuming no' ;; esac else set x `ls -di / // 2>/dev/null` if test "$[2]" = "$[4]" && wc //dev/null >/dev/null 2>&1; then gl_cv_double_slash_root=no else gl_cv_double_slash_root=yes fi fi]) if test "$gl_cv_double_slash_root" = yes; then AC_DEFINE([DOUBLE_SLASH_IS_DISTINCT_ROOT], [1], [Define to 1 if // is a file system root distinct from /.]) fi ]) libffcall-2.4/gnulib-m4/include_next.m40000664000000000000000000002103714057155505014721 00000000000000# include_next.m4 serial 26 dnl Copyright (C) 2006-2021 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]) dnl HP NonStop systems, which define __TANDEM, limit the line length dnl after including some system header files. AC_CACHE_CHECK([whether source code line length is unlimited], [gl_cv_source_line_length_unlimited], [AC_EGREP_CPP([choke me], [ #ifdef __TANDEM choke me #endif ], [gl_cv_source_line_length_unlimited=no], [gl_cv_source_line_length_unlimited=yes]) ]) if test $gl_cv_source_line_length_unlimited = no; 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]) ]) 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])[>], [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.4/gnulib-m4/fcntl-o.m40000664000000000000000000001123614057155505013602 00000000000000# fcntl-o.m4 serial 7 dnl Copyright (C) 2006, 2009-2021 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 Written by Paul Eggert. AC_PREREQ([2.60]) # Test whether the flags O_NOATIME and O_NOFOLLOW actually work. # Define HAVE_WORKING_O_NOATIME to 1 if O_NOATIME works, or to 0 otherwise. # Define HAVE_WORKING_O_NOFOLLOW to 1 if O_NOFOLLOW works, or to 0 otherwise. AC_DEFUN([gl_FCNTL_O_FLAGS], [ dnl Persuade glibc to define O_NOATIME and O_NOFOLLOW. AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles AC_CHECK_HEADERS_ONCE([unistd.h]) AC_CHECK_FUNCS_ONCE([symlink]) AC_CACHE_CHECK([for working fcntl.h], [gl_cv_header_working_fcntl_h], [AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[#include #include #if HAVE_UNISTD_H # include #else /* on Windows with MSVC */ # include # include # defined sleep(n) _sleep ((n) * 1000) #endif #include ]GL_MDA_DEFINES[ #ifndef O_NOATIME #define O_NOATIME 0 #endif #ifndef O_NOFOLLOW #define O_NOFOLLOW 0 #endif static int const constants[] = { O_CREAT, O_EXCL, O_NOCTTY, O_TRUNC, O_APPEND, O_NONBLOCK, O_SYNC, O_ACCMODE, O_RDONLY, O_RDWR, O_WRONLY }; ]], [[ int result = !constants; #if HAVE_SYMLINK { static char const sym[] = "conftest.sym"; if (symlink ("/dev/null", sym) != 0) result |= 2; else { int fd = open (sym, O_WRONLY | O_NOFOLLOW | O_CREAT, 0); if (fd >= 0) { close (fd); result |= 4; } } if (unlink (sym) != 0 || symlink (".", sym) != 0) result |= 2; else { int fd = open (sym, O_RDONLY | O_NOFOLLOW); if (fd >= 0) { close (fd); result |= 4; } } unlink (sym); } #endif { static char const file[] = "confdefs.h"; int fd = open (file, O_RDONLY | O_NOATIME); if (fd < 0) result |= 8; else { struct stat st0; if (fstat (fd, &st0) != 0) result |= 16; else { char c; sleep (1); if (read (fd, &c, 1) != 1) result |= 24; else { if (close (fd) != 0) result |= 32; else { struct stat st1; if (stat (file, &st1) != 0) result |= 40; else if (st0.st_atime != st1.st_atime) result |= 64; } } } } } return result;]])], [gl_cv_header_working_fcntl_h=yes], [case $? in #( 4) gl_cv_header_working_fcntl_h='no (bad O_NOFOLLOW)';; #( 64) gl_cv_header_working_fcntl_h='no (bad O_NOATIME)';; #( 68) gl_cv_header_working_fcntl_h='no (bad O_NOATIME, O_NOFOLLOW)';; #( *) gl_cv_header_working_fcntl_h='no';; esac], [case "$host_os" in # Guess 'no' on native Windows. mingw*) gl_cv_header_working_fcntl_h='no' ;; *) gl_cv_header_working_fcntl_h=cross-compiling ;; esac ]) ]) case $gl_cv_header_working_fcntl_h in #( *O_NOATIME* | no | cross-compiling) ac_val=0;; #( *) ac_val=1;; esac AC_DEFINE_UNQUOTED([HAVE_WORKING_O_NOATIME], [$ac_val], [Define to 1 if O_NOATIME works.]) case $gl_cv_header_working_fcntl_h in #( *O_NOFOLLOW* | no | cross-compiling) ac_val=0;; #( *) ac_val=1;; esac AC_DEFINE_UNQUOTED([HAVE_WORKING_O_NOFOLLOW], [$ac_val], [Define to 1 if O_NOFOLLOW works.]) ]) libffcall-2.4/gnulib-m4/wint_t.m40000664000000000000000000000343314057155505013544 00000000000000# wint_t.m4 serial 11 dnl Copyright (C) 2003, 2007-2021 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( [[#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 large enough], [gl_cv_type_wint_t_large_enough], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include int verify[sizeof (wint_t) < sizeof (int) ? -1 : 1]; ]])], [gl_cv_type_wint_t_large_enough=yes], [gl_cv_type_wint_t_large_enough=no])]) if test $gl_cv_type_wint_t_large_enough = no; then GNULIBHEADERS_OVERRIDE_WINT_T=1 else GNULIBHEADERS_OVERRIDE_WINT_T=0 fi else GNULIBHEADERS_OVERRIDE_WINT_T=0 fi AC_SUBST([GNULIBHEADERS_OVERRIDE_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.4/gnulib-m4/absolute-header.m40000664000000000000000000001015114057155505015277 00000000000000# absolute-header.m4 serial 17 dnl Copyright (C) 2006-2021 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 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])[>], [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.4/gnulib-m4/extensions.m40000664000000000000000000002033314057155505014435 00000000000000# serial 22 -*- Autoconf -*- # Enable extensions on systems that normally disable them. # Copyright (C) 2003, 2006-2021 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. dnl Define to empty for the benefit of Autoconf 2.69 and earlier, so that dnl AC_USE_SYSTEM_EXTENSIONS (below) can be used unchanged from Autoconf 2.70+. m4_ifndef([AC_CHECK_INCLUDES_DEFAULT], [AC_DEFUN([AC_CHECK_INCLUDES_DEFAULT], [])]) # This definition of AC_USE_SYSTEM_EXTENSIONS is stolen from git # Autoconf. Perhaps we can remove this once we can assume Autoconf # is recent-enough 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. m4_version_prereq([2.70.1], [], [ # AC_USE_SYSTEM_EXTENSIONS # ------------------------ # Enable extensions on systems that normally disable them, # typically due to standards-conformance issues. # We unconditionally define as many of the known feature-enabling # as possible, reserving conditional behavior for macros that are # known to cause problems on some platforms (such as __EXTENSIONS__). AC_DEFUN_ONCE([AC_USE_SYSTEM_EXTENSIONS], [AC_BEFORE([$0], [AC_PREPROC_IFELSE])dnl AC_BEFORE([$0], [AC_COMPILE_IFELSE])dnl AC_BEFORE([$0], [AC_LINK_IFELSE])dnl AC_BEFORE([$0], [AC_RUN_IFELSE])dnl AC_BEFORE([$0], [AC_CHECK_INCLUDES_DEFAULT])dnl dnl #undef in AH_VERBATIM gets replaced with #define by AC_DEFINE. dnl Use a different key than __EXTENSIONS__, as that name broke existing dnl configure.ac when using autoheader 2.62. dnl The macros below are in alphabetical order ignoring leading _ or __ dnl prefixes. 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 general extensions on Solaris. */ #ifndef __EXTENSIONS__ # undef __EXTENSIONS__ #endif /* Enable GNU extensions on systems that have them. */ #ifndef _GNU_SOURCE # undef _GNU_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 /* Identify the host operating system as Minix. This macro does not affect the system headers' behavior. A future release of Autoconf may stop defining this macro. */ #ifndef _MINIX # undef _MINIX #endif /* Enable general extensions on NetBSD. Enable NetBSD compatibility extensions on Minix. */ #ifndef _NETBSD_SOURCE # undef _NETBSD_SOURCE #endif /* Enable OpenBSD compatibility extensions on NetBSD. Oddly enough, this does nothing on OpenBSD. */ #ifndef _OPENBSD_SOURCE # undef _OPENBSD_SOURCE #endif /* Define to 1 if needed for POSIX-compatible behavior. */ #ifndef _POSIX_SOURCE # undef _POSIX_SOURCE #endif /* Define to 2 if needed for POSIX-compatible behavior. */ #ifndef _POSIX_1_SOURCE # undef _POSIX_1_SOURCE #endif /* Enable POSIX-compatible threading 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. Define to 500 only if necessary to make mbstate_t available. */ #ifndef _XOPEN_SOURCE # undef _XOPEN_SOURCE #endif ])dnl AC_REQUIRE([AC_CHECK_INCLUDES_DEFAULT])dnl _AC_CHECK_HEADER_ONCE([wchar.h]) _AC_CHECK_HEADER_ONCE([minix/config.h]) dnl Defining __EXTENSIONS__ may break the system headers on some systems. dnl (FIXME: Which ones?) 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])]) dnl HP-UX 11.11 defines mbstate_t only if _XOPEN_SOURCE is defined to dnl 500, regardless of whether compiling with -Ae or -D_HPUX_SOURCE=1. dnl But defining _XOPEN_SOURCE may turn *off* extensions on platforms dnl not covered by turn-on-extensions macros (notably Dragonfly, Free, dnl and OpenBSD, which don't have any equivalent of _NETBSD_SOURCE) so dnl it should only be defined when necessary. AC_CACHE_CHECK([whether _XOPEN_SOURCE should be defined], [ac_cv_should_define__xopen_source], [ac_cv_should_define__xopen_source=no AS_IF([test $ac_cv_header_wchar_h = yes], [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])])])]) AC_DEFINE([_ALL_SOURCE]) AC_DEFINE([_DARWIN_C_SOURCE]) AC_DEFINE([_GNU_SOURCE]) AC_DEFINE([_HPUX_ALT_XOPEN_SOCKET_API]) 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]) AS_IF([test $ac_cv_header_minix_config_h = yes], [MINIX=yes AC_DEFINE([_MINIX]) AC_DEFINE([_POSIX_SOURCE]) AC_DEFINE([_POSIX_1_SOURCE], [2])], [MINIX=]) AS_IF([test $ac_cv_safe_to_define___extensions__ = yes], [AC_DEFINE([__EXTENSIONS__])]) AS_IF([test $ac_cv_should_define__xopen_source = yes], [AC_DEFINE([_XOPEN_SOURCE], [500])]) ])# 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], [ AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) dnl On OpenBSD 6.8 with GCC, the include files contain a couple of dnl definitions that are only activated with an explicit -D_ISOC11_SOURCE. dnl That's because this version of GCC (4.2.1) supports the option dnl '-std=gnu99' but not the option '-std=gnu11'. AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in openbsd*) AC_DEFINE([_ISOC11_SOURCE], [1], [Define to enable the declarations of ISO C 11 types and functions.]) ;; esac ]) libffcall-2.4/gnulib-m4/nocrash.m40000664000000000000000000001055514057155505013700 00000000000000# nocrash.m4 serial 5 dnl Copyright (C) 2005, 2009-2021 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 https://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 https://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.4/gnulib-m4/asm-underscore.m40000664000000000000000000000527014057155505015170 00000000000000# asm-underscore.m4 serial 5 dnl Copyright (C) 2010-2021 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 ], [dnl Microsoft's 'cl' and 'clang-cl' produce an .asm file, whereas 'clang' dnl produces a .s file. Need to distinguish 'clang' and 'clang-cl'. rm -f conftest* echo 'int dummy;' > conftest.c AC_TRY_COMMAND(${CC-cc} $CFLAGS $CPPFLAGS -c conftest.c) >/dev/null 2>&1 if test -f conftest.o; then gl_asmext='s' gl_c_asm_opt='-S' else gl_asmext='asm' gl_c_asm_opt='-c -Fa' fi rm -f conftest* ], [gl_asmext='s' gl_c_asm_opt='-S' ]) ]) libffcall-2.4/gnulib-m4/warn-on-use.m40000664000000000000000000000423014057155505014407 00000000000000# warn-on-use.m4 serial 9 dnl Copyright (C) 2010-2021 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. # gl_WARN_ON_USE_PREPARE(INCLUDES, NAMES) # --------------------------------------- # If the module 'posixcheck' is in use: # # For each whitespace-separated element in the list of NAMES, define # HAVE_RAW_DECL_name if the function has a declaration among INCLUDES # even after being undefined as a macro. # # See warn-on-use.h for some hints on how to poison function names, as # well as ideas on poisoning global variables and macros. NAMES may # include global variables, but remember that only functions work with # _GL_WARN_ON_USE. Typically, INCLUDES only needs to list a single # header, but if the replacement header pulls in other headers because # some systems declare functions in the wrong header, then INCLUDES # should do likewise. # # It is generally safe to assume declarations for functions declared # in the intersection of C89 and C11 (such as printf) without # needing gl_WARN_ON_USE_PREPARE. AC_DEFUN([gl_WARN_ON_USE_PREPARE], [ m4_ifdef([gl_POSIXCHECK], [m4_foreach_w([gl_decl], [$2], [AH_TEMPLATE([HAVE_RAW_DECL_]AS_TR_CPP(m4_defn([gl_decl])), [Define to 1 if ]m4_defn([gl_decl])[ is declared even after undefining macros.])])dnl for gl_func in m4_flatten([$2]); do AS_VAR_PUSHDEF([gl_Symbol], [gl_cv_have_raw_decl_$gl_func])dnl AC_CACHE_CHECK([whether $gl_func is declared without a macro], [gl_Symbol], [AC_COMPILE_IFELSE([AC_LANG_PROGRAM([$1], [[#undef $gl_func (void) $gl_func;]])], [AS_VAR_SET([gl_Symbol], [yes])], [AS_VAR_SET([gl_Symbol], [no])])]) AS_VAR_IF([gl_Symbol], [yes], [AC_DEFINE_UNQUOTED(AS_TR_CPP([HAVE_RAW_DECL_$gl_func]), [1]) dnl shortcut - if the raw declaration exists, then set a cache dnl variable to allow skipping any later AC_CHECK_DECL efforts eval ac_cv_have_decl_$gl_func=yes]) AS_VAR_POPDEF([gl_Symbol])dnl done ]) ]) libffcall-2.4/gnulib-m4/pid_t.m40000664000000000000000000000261014057155505013333 00000000000000# pid_t.m4 serial 4 dnl Copyright (C) 2020-2021 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. # The following implementation works around a problem in autoconf <= 2.69. m4_version_prereq([2.70], [], [ dnl Define pid_t if the headers don't define it. AC_DEFUN([AC_TYPE_PID_T], [ AC_CHECK_TYPE([pid_t], [], [dnl On 64-bit native Windows, define it to the equivalent of 'intptr_t' dnl (= 'long long' = '__int64'), because that is the return type dnl of the _spawnv* functions dnl dnl and the argument type of the _cwait function dnl . dnl Otherwise (on 32-bit Windows and on old Unix platforms), define it dnl to 'int'. AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ #if defined _WIN64 && !defined __CYGWIN__ LLP64 #endif ]]) ], [gl_pid_type='int'], [gl_pid_type='__int64']) AC_DEFINE_UNQUOTED([pid_t], [$gl_pid_type], [Define as a signed integer type capable of holding a process identifier.]) ], [AC_INCLUDES_DEFAULT]) ]) ])# m4_version_prereq 2.70 libffcall-2.4/gnulib-m4/fcntl.m40000664000000000000000000001217214057155505013346 00000000000000# fcntl.m4 serial 11 dnl Copyright (C) 2009-2021 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. # For now, this module ensures that fcntl() # - supports F_DUPFD correctly # - supports or emulates F_DUPFD_CLOEXEC # - supports F_GETFD # Still to be ported to mingw: # - F_SETFD # - F_GETFL, F_SETFL # - F_GETOWN, F_SETOWN # - F_GETLK, F_SETLK, F_SETLKW AC_DEFUN([gl_FUNC_FCNTL], [ dnl Persuade glibc to expose F_DUPFD_CLOEXEC. AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) AC_REQUIRE([gl_FCNTL_H_DEFAULTS]) AC_REQUIRE([AC_CANONICAL_HOST]) AC_CHECK_FUNCS_ONCE([fcntl]) if test $ac_cv_func_fcntl = no; then gl_REPLACE_FCNTL else dnl cygwin 1.5.x F_DUPFD has wrong errno, and allows negative target dnl haiku alpha 2 F_DUPFD has wrong errno AC_CACHE_CHECK([whether fcntl handles F_DUPFD correctly], [gl_cv_func_fcntl_f_dupfd_works], [AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[#include #include #include #include #include ]GL_MDA_DEFINES[ #ifndef RLIM_SAVED_CUR # define RLIM_SAVED_CUR RLIM_INFINITY #endif #ifndef RLIM_SAVED_MAX # define RLIM_SAVED_MAX RLIM_INFINITY #endif ]], [[int result = 0; int bad_fd = INT_MAX; struct rlimit rlim; if (getrlimit (RLIMIT_NOFILE, &rlim) == 0 && 0 <= rlim.rlim_cur && rlim.rlim_cur <= INT_MAX && rlim.rlim_cur != RLIM_INFINITY && rlim.rlim_cur != RLIM_SAVED_MAX && rlim.rlim_cur != RLIM_SAVED_CUR) bad_fd = rlim.rlim_cur; if (fcntl (0, F_DUPFD, -1) != -1) result |= 1; if (errno != EINVAL) result |= 2; if (fcntl (0, F_DUPFD, bad_fd) != -1) result |= 4; if (errno != EINVAL) result |= 8; /* On OS/2 kLIBC, F_DUPFD does not work on a directory fd */ { int fd; fd = open (".", O_RDONLY); if (fd == -1) result |= 16; else if (fcntl (fd, F_DUPFD, STDERR_FILENO + 1) == -1) result |= 32; close (fd); } return result;]])], [gl_cv_func_fcntl_f_dupfd_works=yes], [gl_cv_func_fcntl_f_dupfd_works=no], [case $host_os in aix* | cygwin* | haiku*) gl_cv_func_fcntl_f_dupfd_works="guessing no" ;; *) gl_cv_func_fcntl_f_dupfd_works="guessing yes" ;; esac])]) case $gl_cv_func_fcntl_f_dupfd_works in *yes) ;; *) gl_REPLACE_FCNTL AC_DEFINE([FCNTL_DUPFD_BUGGY], [1], [Define this to 1 if F_DUPFD behavior does not match POSIX]) ;; esac dnl Many systems lack F_DUPFD_CLOEXEC. dnl NetBSD 9.0 declares F_DUPFD_CLOEXEC but it works only like F_DUPFD. AC_CACHE_CHECK([whether fcntl understands F_DUPFD_CLOEXEC], [gl_cv_func_fcntl_f_dupfd_cloexec], [AC_RUN_IFELSE( [AC_LANG_SOURCE( [[#include #include int main (int argc, char *argv[]) { if (argc == 1) /* parent process */ { if (fcntl (1, F_DUPFD_CLOEXEC, 10) < 0) return 1; return execl ("./conftest", "./conftest", "child", NULL); } else /* child process */ return (fcntl (10, F_GETFL) < 0 ? 0 : 42); } ]]) ], [AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[ #ifdef __linux__ /* The Linux kernel only added F_DUPFD_CLOEXEC in 2.6.24, so we always replace it to support the semantics on older kernels that failed with EINVAL. */ choke me #endif ]])], [gl_cv_func_fcntl_f_dupfd_cloexec=yes], [gl_cv_func_fcntl_f_dupfd_cloexec="needs runtime check"]) ], [gl_cv_func_fcntl_f_dupfd_cloexec=no], [case "$host_os" in # Guess no on NetBSD. netbsd*) gl_cv_func_fcntl_f_dupfd_cloexec="guessing no" ;; *) gl_cv_func_fcntl_f_dupfd_cloexec="$gl_cross_guess_normal" ;; esac ]) ]) case "$gl_cv_func_fcntl_f_dupfd_cloexec" in *yes) ;; *) gl_REPLACE_FCNTL dnl No witness macro needed for this bug. ;; esac fi dnl Replace fcntl() for supporting the gnulib-defined fchdir() function, dnl to keep fchdir's bookkeeping up-to-date. m4_ifdef([gl_FUNC_FCHDIR], [ gl_TEST_FCHDIR if test $HAVE_FCHDIR = 0; then gl_REPLACE_FCNTL fi ]) ]) AC_DEFUN([gl_REPLACE_FCNTL], [ AC_REQUIRE([gl_FCNTL_H_DEFAULTS]) AC_CHECK_FUNCS_ONCE([fcntl]) if test $ac_cv_func_fcntl = no; then HAVE_FCNTL=0 else REPLACE_FCNTL=1 fi ]) libffcall-2.4/gnulib-m4/sigaction.m40000664000000000000000000000232514057155505014217 00000000000000# sigaction.m4 serial 7 dnl Copyright (C) 2008-2021 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 if sigaction interface is present. AC_DEFUN([gl_SIGACTION], [ AC_REQUIRE([gl_SIGNAL_H_DEFAULTS]) AC_CHECK_FUNCS_ONCE([sigaction]) if test $ac_cv_func_sigaction = yes; then AC_CHECK_MEMBERS([struct sigaction.sa_sigaction], , , [[#include ]]) if test $ac_cv_member_struct_sigaction_sa_sigaction = no; then HAVE_STRUCT_SIGACTION_SA_SIGACTION=0 fi else HAVE_SIGACTION=0 fi ]) # Prerequisites of the part of lib/signal.in.h and of lib/sigaction.c. AC_DEFUN([gl_PREREQ_SIGACTION], [ AC_REQUIRE([gl_SIGNAL_H_DEFAULTS]) AC_REQUIRE([AC_C_RESTRICT]) AC_REQUIRE([AC_TYPE_UID_T]) AC_REQUIRE([gl_PREREQ_SIG_HANDLER_H]) AC_CHECK_FUNCS_ONCE([sigaltstack siginterrupt]) AC_CHECK_TYPES([siginfo_t], [], [], [[ #include ]]) if test $ac_cv_type_siginfo_t = no; then HAVE_SIGINFO_T=0 fi ]) # Prerequisites of lib/sig-handler.h. AC_DEFUN([gl_PREREQ_SIG_HANDLER_H], [:]) libffcall-2.4/gnulib-m4/extern-inline.m40000664000000000000000000001157414057155505015026 00000000000000dnl 'extern inline' a la ISO C99. dnl Copyright 2012-2021 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([gl_EXTERN_INLINE], [ AH_VERBATIM([extern_inline], [/* Please see the Gnulib manual for how to use these macros. Suppress extern inline with HP-UX cc, as it appears to be broken; see . Suppress extern inline with Sun C in standards-conformance mode, as it mishandles inline functions that call each other. E.g., for 'inline void f (void) { } inline void g (void) { f (); }', c99 incorrectly complains 'reference to static identifier "f" in extern inline function'. This bug was observed with Sun C 5.12 SunOS_i386 2011/11/16. Suppress extern inline (with or without __attribute__ ((__gnu_inline__))) on configurations that mistakenly use 'static inline' to implement functions or macros in standard C headers like . For example, if isdigit is mistakenly implemented via a static inline function, a program containing an extern inline function that calls isdigit may not work since the C standard prohibits extern inline functions from calling static functions (ISO C 99 section 6.7.4.(3). This bug is known to occur on: OS X 10.8 and earlier; see: https://lists.gnu.org/r/bug-gnulib/2012-12/msg00023.html DragonFly; see http://muscles.dragonflybsd.org/bulk/clang-master-potential/20141111_102002/logs/ah-tty-0.3.12.log FreeBSD; see: https://lists.gnu.org/r/bug-gnulib/2014-07/msg00104.html OS X 10.9 has a macro __header_inline indicating the bug is fixed for C and for clang but remains for g++; see . Assume DragonFly and FreeBSD will be similar. GCC 4.3 and above with -std=c99 or -std=gnu99 implements ISO C99 inline semantics, unless -fgnu89-inline is used. It defines a macro __GNUC_STDC_INLINE__ to indicate this situation or a macro __GNUC_GNU_INLINE__ to indicate the opposite situation. GCC 4.2 with -std=c99 or -std=gnu99 implements the GNU C inline semantics but warns, unless -fgnu89-inline is used: warning: C99 inline functions are not supported; using GNU89 warning: to disable this warning use -fgnu89-inline or the gnu_inline function attribute It defines a macro __GNUC_GNU_INLINE__ to indicate this situation. */ #if (((defined __APPLE__ && defined __MACH__) \ || defined __DragonFly__ || defined __FreeBSD__) \ && (defined __header_inline \ ? (defined __cplusplus && defined __GNUC_STDC_INLINE__ \ && ! defined __clang__) \ : ((! defined _DONT_USE_CTYPE_INLINE_ \ && (defined __GNUC__ || defined __cplusplus)) \ || (defined _FORTIFY_SOURCE && 0 < _FORTIFY_SOURCE \ && defined __GNUC__ && ! defined __cplusplus)))) # define _GL_EXTERN_INLINE_STDHEADER_BUG #endif #if ((__GNUC__ \ ? defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ \ : (199901L <= __STDC_VERSION__ \ && !defined __HP_cc \ && !defined __PGI \ && !(defined __SUNPRO_C && __STDC__))) \ && !defined _GL_EXTERN_INLINE_STDHEADER_BUG) # define _GL_INLINE inline # define _GL_EXTERN_INLINE extern inline # define _GL_EXTERN_INLINE_IN_USE #elif (2 < __GNUC__ + (7 <= __GNUC_MINOR__) && !defined __STRICT_ANSI__ \ && !defined _GL_EXTERN_INLINE_STDHEADER_BUG) # if defined __GNUC_GNU_INLINE__ && __GNUC_GNU_INLINE__ /* __gnu_inline__ suppresses a GCC 4.2 diagnostic. */ # define _GL_INLINE extern inline __attribute__ ((__gnu_inline__)) # else # define _GL_INLINE extern inline # endif # define _GL_EXTERN_INLINE extern # define _GL_EXTERN_INLINE_IN_USE #else # define _GL_INLINE static _GL_UNUSED # define _GL_EXTERN_INLINE static _GL_UNUSED #endif /* In GCC 4.6 (inclusive) to 5.1 (exclusive), suppress bogus "no previous prototype for 'FOO'" and "no previous declaration for 'FOO'" diagnostics, when FOO is an inline function in the header; see and . */ #if __GNUC__ == 4 && 6 <= __GNUC_MINOR__ # if defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ # define _GL_INLINE_HEADER_CONST_PRAGMA # else # define _GL_INLINE_HEADER_CONST_PRAGMA \ _Pragma ("GCC diagnostic ignored \"-Wsuggest-attribute=const\"") # endif # define _GL_INLINE_HEADER_BEGIN \ _Pragma ("GCC diagnostic push") \ _Pragma ("GCC diagnostic ignored \"-Wmissing-prototypes\"") \ _Pragma ("GCC diagnostic ignored \"-Wmissing-declarations\"") \ _GL_INLINE_HEADER_CONST_PRAGMA # define _GL_INLINE_HEADER_END \ _Pragma ("GCC diagnostic pop") #else # define _GL_INLINE_HEADER_BEGIN # define _GL_INLINE_HEADER_END #endif]) ]) libffcall-2.4/gnulib-m4/dup2.m40000664000000000000000000000723614057155505013117 00000000000000#serial 27 dnl Copyright (C) 2002, 2005, 2007, 2009-2021 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([gl_FUNC_DUP2], [ AC_REQUIRE([gl_UNISTD_H_DEFAULTS]) AC_REQUIRE([AC_CANONICAL_HOST]) AC_CACHE_CHECK([whether dup2 works], [gl_cv_func_dup2_works], [AC_RUN_IFELSE([ AC_LANG_PROGRAM( [[#include #include #include #include #include ]GL_MDA_DEFINES[ #ifndef RLIM_SAVED_CUR # define RLIM_SAVED_CUR RLIM_INFINITY #endif #ifndef RLIM_SAVED_MAX # define RLIM_SAVED_MAX RLIM_INFINITY #endif ]], [[int result = 0; int bad_fd = INT_MAX; struct rlimit rlim; if (getrlimit (RLIMIT_NOFILE, &rlim) == 0 && 0 <= rlim.rlim_cur && rlim.rlim_cur <= INT_MAX && rlim.rlim_cur != RLIM_INFINITY && rlim.rlim_cur != RLIM_SAVED_MAX && rlim.rlim_cur != RLIM_SAVED_CUR) bad_fd = rlim.rlim_cur; #ifdef FD_CLOEXEC if (fcntl (1, F_SETFD, FD_CLOEXEC) == -1) result |= 1; #endif if (dup2 (1, 1) != 1) result |= 2; #ifdef FD_CLOEXEC if (fcntl (1, F_GETFD) != FD_CLOEXEC) result |= 4; #endif close (0); if (dup2 (0, 0) != -1) result |= 8; /* Many gnulib modules require POSIX conformance of EBADF. */ if (dup2 (2, bad_fd) == -1 && errno != EBADF) result |= 16; /* Flush out some cygwin core dumps. */ if (dup2 (2, -1) != -1 || errno != EBADF) result |= 32; dup2 (2, 255); dup2 (2, 256); /* On OS/2 kLIBC, dup2() does not work on a directory fd. */ { int fd = open (".", O_RDONLY); if (fd == -1) result |= 64; else if (dup2 (fd, fd + 1) == -1) result |= 128; close (fd); } return result;]]) ], [gl_cv_func_dup2_works=yes], [gl_cv_func_dup2_works=no], [case "$host_os" in mingw*) # on this platform, dup2 always returns 0 for success gl_cv_func_dup2_works="guessing no" ;; cygwin*) # on cygwin 1.5.x, dup2(1,1) returns 0 gl_cv_func_dup2_works="guessing no" ;; aix* | freebsd*) # on AIX 7.1 and FreeBSD 6.1, dup2 (1,toobig) gives EMFILE, # not EBADF. gl_cv_func_dup2_works="guessing no" ;; haiku*) # on Haiku alpha 2, dup2(1, 1) resets FD_CLOEXEC. gl_cv_func_dup2_works="guessing no" ;; *-android*) # implemented using dup3(), which fails if oldfd == newfd gl_cv_func_dup2_works="guessing no" ;; os2*) # on OS/2 kLIBC, dup2() does not work on a directory fd. gl_cv_func_dup2_works="guessing no" ;; *) gl_cv_func_dup2_works="guessing yes" ;; esac]) ]) case "$gl_cv_func_dup2_works" in *yes) ;; *) REPLACE_DUP2=1 AC_CHECK_FUNCS([setdtablesize]) ;; esac dnl Replace dup2() for supporting the gnulib-defined fchdir() function, dnl to keep fchdir's bookkeeping up-to-date. m4_ifdef([gl_FUNC_FCHDIR], [ gl_TEST_FCHDIR if test $HAVE_FCHDIR = 0; then REPLACE_DUP2=1 fi ]) ]) # Prerequisites of lib/dup2.c. AC_DEFUN([gl_PREREQ_DUP2], []) libffcall-2.4/gnulib-m4/strerror.m40000664000000000000000000000716214057155505014125 00000000000000# strerror.m4 serial 22 dnl Copyright (C) 2002, 2007-2021 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([gl_FUNC_STRERROR], [ AC_REQUIRE([gl_STRING_H_DEFAULTS]) AC_REQUIRE([gl_HEADER_ERRNO_H]) AC_REQUIRE([gl_FUNC_STRERROR_0]) AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles m4_ifdef([gl_FUNC_STRERROR_R_WORKS], [ AC_REQUIRE([gl_FUNC_STRERROR_R_WORKS]) ]) if test "$ERRNO_H:$REPLACE_STRERROR_0" = :0; then AC_CACHE_CHECK([for working strerror function], [gl_cv_func_working_strerror], [AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[if (!*strerror (-2)) return 1;]])], [gl_cv_func_working_strerror=yes], [gl_cv_func_working_strerror=no], [case "$host_os" in # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_working_strerror="guessing yes" ;; # Guess yes on musl systems. *-musl*) gl_cv_func_working_strerror="guessing yes" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_working_strerror="$gl_cross_guess_normal" ;; esac ]) ]) case "$gl_cv_func_working_strerror" in *yes) ;; *) dnl The system's strerror() fails to return a string for out-of-range dnl integers. Replace it. REPLACE_STRERROR=1 ;; esac m4_ifdef([gl_FUNC_STRERROR_R_WORKS], [ dnl If the system's strerror_r or __xpg_strerror_r clobbers strerror's dnl buffer, we must replace strerror. case "$gl_cv_func_strerror_r_works" in *no) REPLACE_STRERROR=1 ;; esac ]) else dnl The system's strerror() cannot know about the new errno values we add dnl to , or any fix for strerror(0). Replace it. REPLACE_STRERROR=1 fi ]) dnl Detect if strerror(0) passes (that is, does not set errno, and does not dnl return a string that matches strerror(-1)). AC_DEFUN([gl_FUNC_STRERROR_0], [ AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles REPLACE_STRERROR_0=0 AC_CACHE_CHECK([whether strerror(0) succeeds], [gl_cv_func_strerror_0_works], [AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[#include #include ]], [[int result = 0; char *str; errno = 0; str = strerror (0); if (!*str) result |= 1; if (errno) result |= 2; if (strstr (str, "nknown") || strstr (str, "ndefined")) result |= 4; return result;]])], [gl_cv_func_strerror_0_works=yes], [gl_cv_func_strerror_0_works=no], [case "$host_os" in # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_strerror_0_works="guessing yes" ;; # Guess yes on musl systems. *-musl*) gl_cv_func_strerror_0_works="guessing yes" ;; # Guess yes on native Windows. mingw*) gl_cv_func_strerror_0_works="guessing yes" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_strerror_0_works="$gl_cross_guess_normal" ;; esac ]) ]) case "$gl_cv_func_strerror_0_works" in *yes) ;; *) REPLACE_STRERROR_0=1 AC_DEFINE([REPLACE_STRERROR_0], [1], [Define to 1 if strerror(0) does not return a message implying success.]) ;; esac ]) libffcall-2.4/gnulib-m4/size_max.m40000664000000000000000000000547614057155505014070 00000000000000# size_max.m4 serial 12 dnl Copyright (C) 2003, 2005-2006, 2008-2021 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]) AC_DEFUN([gl_SIZE_MAX], [ AC_CHECK_HEADERS([stdint.h]) dnl First test whether the system already has SIZE_MAX. AC_CACHE_CHECK([for SIZE_MAX], [gl_cv_size_max], [ gl_cv_size_max=no AC_EGREP_CPP([Found it], [ #include #if HAVE_STDINT_H #include #endif #ifdef SIZE_MAX Found it #endif ], [gl_cv_size_max=yes]) if test $gl_cv_size_max != yes; then dnl Define it ourselves. Here we assume that the type 'size_t' is not wider dnl than the type 'unsigned long'. Try hard to find a definition that can dnl be used in a preprocessor #if, i.e. doesn't contain a cast. AC_COMPUTE_INT([size_t_bits_minus_1], [sizeof (size_t) * CHAR_BIT - 1], [#include #include ], [size_t_bits_minus_1=]) AC_COMPUTE_INT([fits_in_uint], [sizeof (size_t) <= sizeof (unsigned int)], [#include ], [fits_in_uint=]) if test -n "$size_t_bits_minus_1" && test -n "$fits_in_uint"; then if test $fits_in_uint = 1; then dnl Even though SIZE_MAX fits in an unsigned int, it must be of type dnl 'unsigned long' if the type 'size_t' is the same as 'unsigned long'. AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include extern size_t foo; extern unsigned long foo; ]], [[]])], [fits_in_uint=0]) fi dnl We cannot use 'expr' to simplify this expression, because 'expr' dnl works only with 'long' integers in the host environment, while we dnl might be cross-compiling from a 32-bit platform to a 64-bit platform. if test $fits_in_uint = 1; then gl_cv_size_max="(((1U << $size_t_bits_minus_1) - 1) * 2 + 1)" else gl_cv_size_max="(((1UL << $size_t_bits_minus_1) - 1) * 2 + 1)" fi else dnl Shouldn't happen, but who knows... gl_cv_size_max='((size_t)~(size_t)0)' fi fi ]) if test "$gl_cv_size_max" != yes; then AC_DEFINE_UNQUOTED([SIZE_MAX], [$gl_cv_size_max], [Define as the maximum value of type 'size_t', if the system doesn't define it.]) fi dnl Don't redefine SIZE_MAX in config.h if config.h is re-included after dnl . Remember that the #undef in AH_VERBATIM gets replaced with dnl #define by AC_DEFINE_UNQUOTED. AH_VERBATIM([SIZE_MAX], [/* Define as the maximum value of type 'size_t', if the system doesn't define it. */ #ifndef SIZE_MAX # undef SIZE_MAX #endif]) ]) libffcall-2.4/gnulib-m4/open-slash.m40000664000000000000000000000345514057155505014315 00000000000000# open-slash.m4 serial 2 dnl Copyright (C) 2007-2021 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 Tests whether open() and creat() recognize a trailing slash. dnl Sets gl_cv_func_open_slash. AC_DEFUN([gl_OPEN_TRAILING_SLASH_BUG], [ AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles dnl open("foo/") should not create a file when the file name has a dnl trailing slash. FreeBSD only has the problem on symlinks. AC_CHECK_FUNCS_ONCE([lstat]) AC_CACHE_CHECK([whether open recognizes a trailing slash], [gl_cv_func_open_slash], [# Assume that if we have lstat, we can also check symlinks. if test $ac_cv_func_lstat = yes; then touch conftest.tmp ln -s conftest.tmp conftest.lnk fi AC_RUN_IFELSE( [AC_LANG_SOURCE([[ #include #if HAVE_UNISTD_H # include #endif ]GL_MDA_DEFINES[ int main () { int result = 0; #if HAVE_LSTAT if (open ("conftest.lnk/", O_RDONLY) != -1) result |= 1; #endif if (open ("conftest.sl/", O_CREAT, 0600) >= 0) result |= 2; return result; }]])], [gl_cv_func_open_slash=yes], [gl_cv_func_open_slash=no], [ changequote(,)dnl case "$host_os" in freebsd* | aix* | hpux* | solaris2.[0-9] | solaris2.[0-9].*) gl_cv_func_open_slash="guessing no" ;; *) gl_cv_func_open_slash="guessing yes" ;; esac changequote([,])dnl ]) rm -f conftest.sl conftest.tmp conftest.lnk ]) case "$gl_cv_func_open_slash" in *no) AC_DEFINE([OPEN_TRAILING_SLASH_BUG], [1], [Define to 1 if open() fails to recognize a trailing slash.]) ;; esac ]) libffcall-2.4/gnulib-m4/unistd_h.m40000664000000000000000000003123514057155505014056 00000000000000# unistd_h.m4 serial 88 dnl Copyright (C) 2006-2021 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 Written by Simon Josefsson, Bruno Haible. AC_DEFUN_ONCE([gl_UNISTD_H], [ dnl Ensure to expand the default settings once only, before all statements dnl that occur in other macros. AC_REQUIRE([gl_UNISTD_H_DEFAULTS]) gl_CHECK_NEXT_HEADERS([unistd.h]) if test $ac_cv_header_unistd_h = yes; then HAVE_UNISTD_H=1 else HAVE_UNISTD_H=0 fi AC_SUBST([HAVE_UNISTD_H]) dnl Ensure the type pid_t gets defined. AC_REQUIRE([AC_TYPE_PID_T]) dnl Determine WINDOWS_64_BIT_OFF_T. AC_REQUIRE([gl_TYPE_OFF_T]) dnl Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use. gl_WARN_ON_USE_PREPARE([[ #if HAVE_UNISTD_H # include #endif /* Some systems declare various items in the wrong headers. */ #if !(defined __GLIBC__ && !defined __UCLIBC__) # include # include # include # if defined _WIN32 && ! defined __CYGWIN__ # include # endif #endif ]], [access chdir chown copy_file_range dup dup2 dup3 environ euidaccess execl execle execlp execv execve execvp execvpe faccessat fchdir fchownat fdatasync fsync ftruncate getcwd getdomainname getdtablesize getentropy getgroups gethostname getlogin getlogin_r getpagesize getpass getusershell setusershell endusershell group_member isatty lchown link linkat lseek pipe pipe2 pread pwrite readlink readlinkat rmdir sethostname sleep symlink symlinkat truncate ttyname_r unlink unlinkat usleep]) AC_REQUIRE([AC_C_RESTRICT]) AC_CHECK_DECLS_ONCE([execvpe]) if test $ac_cv_have_decl_execvpe = no; then HAVE_DECL_EXECVPE=0 fi ]) # gl_UNISTD_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_UNISTD_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_UNISTD_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_UNISTD_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_UNISTD_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_ACCESS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_CHDIR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_CHOWN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_CLOSE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_COPY_FILE_RANGE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_DUP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_DUP2]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_DUP3]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_ENVIRON]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EUIDACCESS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECLE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECLP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECV]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECVE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECVP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXECVPE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FACCESSAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FCHDIR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FCHOWNAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FDATASYNC]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FSYNC]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FTRUNCATE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETCWD]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETDOMAINNAME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETDTABLESIZE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETENTROPY]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETGROUPS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETHOSTNAME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETLOGIN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETLOGIN_R]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETOPT_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETPAGESIZE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETPASS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETUSERSHELL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GROUP_MEMBER]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_ISATTY]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LCHOWN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LINK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LINKAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LSEEK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PIPE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PIPE2]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PREAD]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PWRITE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_READ]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_READLINK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_READLINKAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RMDIR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SETHOSTNAME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SLEEP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SYMLINK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SYMLINKAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TRUNCATE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TTYNAME_R]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_UNISTD_H_NONBLOCKING]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_UNISTD_H_SIGPIPE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_UNLINK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_UNLINKAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_USLEEP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_WRITE]) dnl Support Microsoft deprecated alias function names by default. gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_ACCESS], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_CHDIR], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_CLOSE], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_DUP], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_DUP2], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECL], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECLE], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECLP], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECV], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECVE], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECVP], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_EXECVPE], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_GETCWD], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_GETPID], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_ISATTY], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_LSEEK], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_READ], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_RMDIR], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_SWAB], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_UNLINK], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_WRITE], [1]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_UNISTD_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_UNISTD_H_DEFAULTS]) ]) AC_DEFUN([gl_UNISTD_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. HAVE_CHOWN=1; AC_SUBST([HAVE_CHOWN]) HAVE_COPY_FILE_RANGE=1; AC_SUBST([HAVE_COPY_FILE_RANGE]) HAVE_DUP3=1; AC_SUBST([HAVE_DUP3]) HAVE_EUIDACCESS=1; AC_SUBST([HAVE_EUIDACCESS]) HAVE_EXECVPE=1; AC_SUBST([HAVE_EXECVPE]) HAVE_FACCESSAT=1; AC_SUBST([HAVE_FACCESSAT]) HAVE_FCHDIR=1; AC_SUBST([HAVE_FCHDIR]) HAVE_FCHOWNAT=1; AC_SUBST([HAVE_FCHOWNAT]) HAVE_FDATASYNC=1; AC_SUBST([HAVE_FDATASYNC]) HAVE_FSYNC=1; AC_SUBST([HAVE_FSYNC]) HAVE_FTRUNCATE=1; AC_SUBST([HAVE_FTRUNCATE]) HAVE_GETDTABLESIZE=1; AC_SUBST([HAVE_GETDTABLESIZE]) HAVE_GETENTROPY=1; AC_SUBST([HAVE_GETENTROPY]) HAVE_GETGROUPS=1; AC_SUBST([HAVE_GETGROUPS]) HAVE_GETHOSTNAME=1; AC_SUBST([HAVE_GETHOSTNAME]) HAVE_GETLOGIN=1; AC_SUBST([HAVE_GETLOGIN]) HAVE_GETPAGESIZE=1; AC_SUBST([HAVE_GETPAGESIZE]) HAVE_GETPASS=1; AC_SUBST([HAVE_GETPASS]) HAVE_GROUP_MEMBER=1; AC_SUBST([HAVE_GROUP_MEMBER]) HAVE_LCHOWN=1; AC_SUBST([HAVE_LCHOWN]) HAVE_LINK=1; AC_SUBST([HAVE_LINK]) HAVE_LINKAT=1; AC_SUBST([HAVE_LINKAT]) HAVE_PIPE=1; AC_SUBST([HAVE_PIPE]) HAVE_PIPE2=1; AC_SUBST([HAVE_PIPE2]) HAVE_PREAD=1; AC_SUBST([HAVE_PREAD]) HAVE_PWRITE=1; AC_SUBST([HAVE_PWRITE]) HAVE_READLINK=1; AC_SUBST([HAVE_READLINK]) HAVE_READLINKAT=1; AC_SUBST([HAVE_READLINKAT]) HAVE_SETHOSTNAME=1; AC_SUBST([HAVE_SETHOSTNAME]) HAVE_SLEEP=1; AC_SUBST([HAVE_SLEEP]) HAVE_SYMLINK=1; AC_SUBST([HAVE_SYMLINK]) HAVE_SYMLINKAT=1; AC_SUBST([HAVE_SYMLINKAT]) HAVE_UNLINKAT=1; AC_SUBST([HAVE_UNLINKAT]) HAVE_USLEEP=1; AC_SUBST([HAVE_USLEEP]) HAVE_DECL_ENVIRON=1; AC_SUBST([HAVE_DECL_ENVIRON]) HAVE_DECL_EXECVPE=1; AC_SUBST([HAVE_DECL_EXECVPE]) HAVE_DECL_FCHDIR=1; AC_SUBST([HAVE_DECL_FCHDIR]) HAVE_DECL_FDATASYNC=1; AC_SUBST([HAVE_DECL_FDATASYNC]) HAVE_DECL_GETDOMAINNAME=1; AC_SUBST([HAVE_DECL_GETDOMAINNAME]) HAVE_DECL_GETLOGIN=1; AC_SUBST([HAVE_DECL_GETLOGIN]) HAVE_DECL_GETLOGIN_R=1; AC_SUBST([HAVE_DECL_GETLOGIN_R]) HAVE_DECL_GETPAGESIZE=1; AC_SUBST([HAVE_DECL_GETPAGESIZE]) HAVE_DECL_GETUSERSHELL=1; AC_SUBST([HAVE_DECL_GETUSERSHELL]) HAVE_DECL_SETHOSTNAME=1; AC_SUBST([HAVE_DECL_SETHOSTNAME]) HAVE_DECL_TRUNCATE=1; AC_SUBST([HAVE_DECL_TRUNCATE]) HAVE_DECL_TTYNAME_R=1; AC_SUBST([HAVE_DECL_TTYNAME_R]) HAVE_OS_H=0; AC_SUBST([HAVE_OS_H]) HAVE_SYS_PARAM_H=0; AC_SUBST([HAVE_SYS_PARAM_H]) REPLACE_ACCESS=0; AC_SUBST([REPLACE_ACCESS]) REPLACE_CHOWN=0; AC_SUBST([REPLACE_CHOWN]) REPLACE_CLOSE=0; AC_SUBST([REPLACE_CLOSE]) REPLACE_DUP=0; AC_SUBST([REPLACE_DUP]) REPLACE_DUP2=0; AC_SUBST([REPLACE_DUP2]) REPLACE_EXECL=0; AC_SUBST([REPLACE_EXECL]) REPLACE_EXECLE=0; AC_SUBST([REPLACE_EXECLE]) REPLACE_EXECLP=0; AC_SUBST([REPLACE_EXECLP]) REPLACE_EXECV=0; AC_SUBST([REPLACE_EXECV]) REPLACE_EXECVE=0; AC_SUBST([REPLACE_EXECVE]) REPLACE_EXECVP=0; AC_SUBST([REPLACE_EXECVP]) REPLACE_EXECVPE=0; AC_SUBST([REPLACE_EXECVPE]) REPLACE_FACCESSAT=0; AC_SUBST([REPLACE_FACCESSAT]) REPLACE_FCHOWNAT=0; AC_SUBST([REPLACE_FCHOWNAT]) REPLACE_FTRUNCATE=0; AC_SUBST([REPLACE_FTRUNCATE]) REPLACE_GETCWD=0; AC_SUBST([REPLACE_GETCWD]) REPLACE_GETDOMAINNAME=0; AC_SUBST([REPLACE_GETDOMAINNAME]) REPLACE_GETDTABLESIZE=0; AC_SUBST([REPLACE_GETDTABLESIZE]) REPLACE_GETLOGIN_R=0; AC_SUBST([REPLACE_GETLOGIN_R]) REPLACE_GETGROUPS=0; AC_SUBST([REPLACE_GETGROUPS]) REPLACE_GETPAGESIZE=0; AC_SUBST([REPLACE_GETPAGESIZE]) REPLACE_GETPASS=0; AC_SUBST([REPLACE_GETPASS]) REPLACE_ISATTY=0; AC_SUBST([REPLACE_ISATTY]) REPLACE_LCHOWN=0; AC_SUBST([REPLACE_LCHOWN]) REPLACE_LINK=0; AC_SUBST([REPLACE_LINK]) REPLACE_LINKAT=0; AC_SUBST([REPLACE_LINKAT]) REPLACE_LSEEK=0; AC_SUBST([REPLACE_LSEEK]) REPLACE_PREAD=0; AC_SUBST([REPLACE_PREAD]) REPLACE_PWRITE=0; AC_SUBST([REPLACE_PWRITE]) REPLACE_READ=0; AC_SUBST([REPLACE_READ]) REPLACE_READLINK=0; AC_SUBST([REPLACE_READLINK]) REPLACE_READLINKAT=0; AC_SUBST([REPLACE_READLINKAT]) REPLACE_RMDIR=0; AC_SUBST([REPLACE_RMDIR]) REPLACE_SLEEP=0; AC_SUBST([REPLACE_SLEEP]) REPLACE_SYMLINK=0; AC_SUBST([REPLACE_SYMLINK]) REPLACE_SYMLINKAT=0; AC_SUBST([REPLACE_SYMLINKAT]) REPLACE_TRUNCATE=0; AC_SUBST([REPLACE_TRUNCATE]) REPLACE_TTYNAME_R=0; AC_SUBST([REPLACE_TTYNAME_R]) REPLACE_UNLINK=0; AC_SUBST([REPLACE_UNLINK]) REPLACE_UNLINKAT=0; AC_SUBST([REPLACE_UNLINKAT]) REPLACE_USLEEP=0; AC_SUBST([REPLACE_USLEEP]) REPLACE_WRITE=0; AC_SUBST([REPLACE_WRITE]) UNISTD_H_HAVE_SYS_RANDOM_H=0; AC_SUBST([UNISTD_H_HAVE_SYS_RANDOM_H]) UNISTD_H_HAVE_WINSOCK2_H=0; AC_SUBST([UNISTD_H_HAVE_WINSOCK2_H]) UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS=0; AC_SUBST([UNISTD_H_HAVE_WINSOCK2_H_AND_USE_SOCKETS]) ]) libffcall-2.4/gnulib-m4/stdint.m40000664000000000000000000004302714057155505013550 00000000000000# stdint.m4 serial 60 dnl Copyright (C) 2001-2021 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 For backward compatibility. Some packages may still be testing these dnl macros. AC_DEFINE([HAVE_LONG_LONG_INT], [1], [Define to 1 if the system has the type 'long long int'.]) AC_DEFINE([HAVE_UNSIGNED_LONG_LONG_INT], [1], [Define to 1 if the system has the type '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 . AC_CHECK_HEADERS_ONCE([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 . AC_CHECK_HEADERS_ONCE([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__ || 4 <= __clang_major__ || 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 and FreeBSD 13.0/arm64. */ 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. dnl If not, there would be problems when stdint.h is included from C++. AC_CACHE_CHECK([whether stdint.h works without ISO C predefines], [gl_cv_header_stdint_without_STDC_macros], [gl_cv_header_stdint_without_STDC_macros=no 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_without_STDC_macros=yes]) ]) if test $gl_cv_header_stdint_without_STDC_macros = no; 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], [[ #include #include #if HAVE_WCHAR_H # 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 $GNULIBHEADERS_OVERRIDE_WINT_T = 1; then BITSIZEOF_WINT_T=32 fi ]) libffcall-2.4/gnulib-m4/00gnulib.m40000664000000000000000000000701114057155505013654 00000000000000# 00gnulib.m4 serial 8 dnl Copyright (C) 2009-2021 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 the clang fix has dnl been included in Autoconf. # The following definitions arrange to use a compiler option # -Werror=implicit-function-declaration in AC_CHECK_DECL, when the # compiler is clang. Without it, clang implicitly declares "known" # library functions in C mode, but not in C++ mode, which would cause # Gnulib to omit a declaration and thus later produce an error in C++ # mode. As of clang 9.0, these "known" functions are identified through # LIBBUILTIN invocations in the LLVM source file # llvm/tools/clang/include/clang/Basic/Builtins.def. # It's not possible to AC_REQUIRE the extra tests from AC_CHECK_DECL, # because AC_CHECK_DECL, like other Autoconf built-ins, is not supposed # to AC_REQUIRE anything: some configure.ac files have their first # AC_CHECK_DECL executed conditionally. Therefore append the extra tests # to AC_PROG_CC. AC_DEFUN([gl_COMPILER_CLANG], [ dnl AC_REQUIRE([AC_PROG_CC]) AC_CACHE_CHECK([whether the compiler is clang], [gl_cv_compiler_clang], [dnl Use _AC_COMPILE_IFELSE instead of AC_EGREP_CPP, to avoid error dnl "circular dependency of AC_LANG_COMPILER(C)" if AC_PROG_CC has dnl not yet been invoked. _AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[ #ifdef __clang__ barfbarf #endif ]],[[]]) ], [gl_cv_compiler_clang=no], [gl_cv_compiler_clang=yes]) ]) ]) AC_DEFUN([gl_COMPILER_PREPARE_CHECK_DECL], [ dnl AC_REQUIRE([AC_PROG_CC]) dnl AC_REQUIRE([gl_COMPILER_CLANG]) AC_CACHE_CHECK([for compiler option needed when checking for declarations], [gl_cv_compiler_check_decl_option], [if test $gl_cv_compiler_clang = yes; then dnl Test whether the compiler supports the option dnl '-Werror=implicit-function-declaration'. save_ac_compile="$ac_compile" ac_compile="$ac_compile -Werror=implicit-function-declaration" dnl Use _AC_COMPILE_IFELSE instead of AC_COMPILE_IFELSE, to avoid a dnl warning "AC_COMPILE_IFELSE was called before AC_USE_SYSTEM_EXTENSIONS". _AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[]],[[]])], [gl_cv_compiler_check_decl_option='-Werror=implicit-function-declaration'], [gl_cv_compiler_check_decl_option=none]) ac_compile="$save_ac_compile" else gl_cv_compiler_check_decl_option=none fi ]) if test "x$gl_cv_compiler_check_decl_option" != xnone; then ac_compile_for_check_decl="$ac_compile $gl_cv_compiler_check_decl_option" else ac_compile_for_check_decl="$ac_compile" fi ]) dnl Redefine _AC_CHECK_DECL_BODY so that it references ac_compile_for_check_decl dnl instead of ac_compile. If, for whatever reason, the override of AC_PROG_CC dnl in zzgnulib.m4 is inactive, use the original ac_compile. m4_define([_AC_CHECK_DECL_BODY], [ ac_save_ac_compile="$ac_compile" if test -n "$ac_compile_for_check_decl"; then ac_compile="$ac_compile_for_check_decl" fi] m4_defn([_AC_CHECK_DECL_BODY])[ ac_compile="$ac_save_ac_compile" ]) # 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.4/gnulib-m4/stdnoreturn.m40000664000000000000000000000374514057155505014635 00000000000000# Check for stdnoreturn.h that conforms to C11. dnl Copyright 2012-2021 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 #if defined _WIN32 && !defined __CYGWIN__ # include #endif /* 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.4/gnulib-m4/fcntl_h.m40000664000000000000000000000520614057155505013655 00000000000000# serial 20 # Configure fcntl.h. dnl Copyright (C) 2006-2007, 2009-2021 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 Written by Paul Eggert. AC_DEFUN_ONCE([gl_FCNTL_H], [ AC_REQUIRE([gl_FCNTL_H_DEFAULTS]) AC_REQUIRE([gl_FCNTL_O_FLAGS]) gl_NEXT_HEADERS([fcntl.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 Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use, if it is not common dnl enough to be declared everywhere. gl_WARN_ON_USE_PREPARE([[#include ]], [fcntl openat]) ]) # gl_FCNTL_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_FCNTL_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_FCNTL_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_FCNTL_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_FCNTL_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_CREAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FCNTL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_NONBLOCKING]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_OPEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_OPENAT]) dnl Support Microsoft deprecated alias function names by default. gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_CREAT], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_OPEN], [1]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_FCNTL_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_FCNTL_H_DEFAULTS]) ]) AC_DEFUN([gl_FCNTL_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. HAVE_FCNTL=1; AC_SUBST([HAVE_FCNTL]) HAVE_OPENAT=1; AC_SUBST([HAVE_OPENAT]) REPLACE_CREAT=0; AC_SUBST([REPLACE_CREAT]) REPLACE_FCNTL=0; AC_SUBST([REPLACE_FCNTL]) REPLACE_OPEN=0; AC_SUBST([REPLACE_OPEN]) REPLACE_OPENAT=0; AC_SUBST([REPLACE_OPENAT]) ]) libffcall-2.4/gnulib-m4/close.m40000664000000000000000000000222114057155505013337 00000000000000# close.m4 serial 9 dnl Copyright (C) 2008-2021 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([gl_FUNC_CLOSE], [ AC_REQUIRE([gl_UNISTD_H_DEFAULTS]) m4_ifdef([gl_MSVC_INVAL], [ AC_REQUIRE([gl_MSVC_INVAL]) if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then REPLACE_CLOSE=1 fi ]) m4_ifdef([gl_PREREQ_SYS_H_WINSOCK2], [ gl_PREREQ_SYS_H_WINSOCK2 if test $UNISTD_H_HAVE_WINSOCK2_H = 1; then dnl Even if the 'socket' module is not used here, another part of the dnl application may use it and pass file descriptors that refer to dnl sockets to the close() function. So enable the support for sockets. REPLACE_CLOSE=1 fi ]) dnl Replace close() for supporting the gnulib-defined fchdir() function, dnl to keep fchdir's bookkeeping up-to-date. m4_ifdef([gl_FUNC_FCHDIR], [ if test $REPLACE_CLOSE = 0; then gl_TEST_FCHDIR if test $HAVE_FCHDIR = 0; then REPLACE_CLOSE=1 fi fi ]) ]) libffcall-2.4/gnulib-m4/zzgnulib.m40000664000000000000000000000152214057155505014101 00000000000000# zzgnulib.m4 serial 1 dnl Copyright (C) 2020-2021 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 after all other dnl package- or gnulib-provided .m4 files - at least for those packages dnl that redefine AC_PROG_CC. dnl Redefine AC_PROG_CC so that it ends with invocations of gl_COMPILER_CLANG dnl and gl_COMPILER_PREPARE_CHECK_DECL. m4_define([AC_PROG_CC], m4_defn([AC_PROG_CC])[ gl_COMPILER_CLANG gl_COMPILER_PREPARE_CHECK_DECL ]) # gl_ZZGNULIB # ----------- # Witness macro that this file has been included. Needed to force # Automake to include this file after all other gnulib .m4 files. AC_DEFUN([gl_ZZGNULIB]) libffcall-2.4/gnulib-m4/stdio_h.m40000664000000000000000000002624214057155505013674 00000000000000# stdio_h.m4 serial 56 dnl Copyright (C) 2007-2021 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_STDIO_H], [ AC_REQUIRE([gl_STDIO_H_DEFAULTS]) AH_VERBATIM([MINGW_ANSI_STDIO], [/* Use GNU style printf and scanf. */ #ifndef __USE_MINGW_ANSI_STDIO # undef __USE_MINGW_ANSI_STDIO #endif ]) AC_DEFINE([__USE_MINGW_ANSI_STDIO]) gl_NEXT_HEADERS([stdio.h]) dnl Determine whether __USE_MINGW_ANSI_STDIO makes printf and dnl inttypes.h behave like gnu instead of system; we must give our dnl printf wrapper the right attribute to match. AC_CACHE_CHECK([which flavor of printf attribute matches inttypes macros], [gl_cv_func_printf_attribute_flavor], [AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[ #define __STDC_FORMAT_MACROS 1 #include #include /* For non-mingw systems, compilation will trivially succeed. For mingw, compilation will succeed for older mingw (system printf, "I64d") and fail for newer mingw (gnu printf, "lld"). */ #if (defined _WIN32 && ! defined __CYGWIN__) && \ (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 4)) extern char PRIdMAX_probe[sizeof PRIdMAX == sizeof "I64d" ? 1 : -1]; #endif ]])], [gl_cv_func_printf_attribute_flavor=system], [gl_cv_func_printf_attribute_flavor=gnu])]) if test "$gl_cv_func_printf_attribute_flavor" = gnu; then AC_DEFINE([GNULIB_PRINTF_ATTRIBUTE_FLAVOR_GNU], [1], [Define to 1 if printf and friends should be labeled with attribute "__gnu_printf__" instead of "__printf__"]) fi dnl This ifdef is necessary to avoid an error "missing file lib/stdio-read.c" dnl "expected source file, required through AC_LIBSOURCES, not found". It is dnl also an optimization, to avoid performing a configure check whose result dnl is not used. But it does not make the test of GNULIB_STDIO_H_NONBLOCKING dnl or GNULIB_NONBLOCKING redundant. m4_ifdef([gl_NONBLOCKING_IO], [ gl_NONBLOCKING_IO if test $gl_cv_have_nonblocking != yes; then REPLACE_STDIO_READ_FUNCS=1 AC_LIBOBJ([stdio-read]) fi ]) dnl This ifdef is necessary to avoid an error "missing file lib/stdio-write.c" dnl "expected source file, required through AC_LIBSOURCES, not found". It is dnl also an optimization, to avoid performing a configure check whose result dnl is not used. But it does not make the test of GNULIB_STDIO_H_SIGPIPE or dnl GNULIB_SIGPIPE redundant. m4_ifdef([gl_SIGNAL_SIGPIPE], [ gl_SIGNAL_SIGPIPE if test $gl_cv_header_signal_h_SIGPIPE != yes; then REPLACE_STDIO_WRITE_FUNCS=1 AC_LIBOBJ([stdio-write]) fi ]) dnl This ifdef is necessary to avoid an error "missing file lib/stdio-write.c" dnl "expected source file, required through AC_LIBSOURCES, not found". It is dnl also an optimization, to avoid performing a configure check whose result dnl is not used. But it does not make the test of GNULIB_STDIO_H_NONBLOCKING dnl or GNULIB_NONBLOCKING redundant. m4_ifdef([gl_NONBLOCKING_IO], [ gl_NONBLOCKING_IO if test $gl_cv_have_nonblocking != yes; then REPLACE_STDIO_WRITE_FUNCS=1 AC_LIBOBJ([stdio-write]) fi ]) dnl Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use, and which is not dnl guaranteed by both C89 and C11. gl_WARN_ON_USE_PREPARE([[#include ]], [dprintf fpurge fseeko ftello getdelim getline gets pclose popen renameat snprintf tmpfile vdprintf vsnprintf]) AC_REQUIRE([AC_C_RESTRICT]) AC_CHECK_DECLS_ONCE([fcloseall]) if test $ac_cv_have_decl_fcloseall = no; then HAVE_DECL_FCLOSEALL=0 fi ]) # gl_STDIO_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_STDIO_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_STDIO_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_STDIO_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_STDIO_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_DPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FCLOSE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FDOPEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FFLUSH]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FGETC]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FGETS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FOPEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FPRINTF_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FPURGE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FPUTC]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FPUTS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FREAD]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FREOPEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FSCANF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FSEEK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FSEEKO]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FTELL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FTELLO]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FWRITE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETC]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETCHAR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETDELIM]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETLINE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_OBSTACK_PRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_OBSTACK_PRINTF_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PCLOSE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PERROR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_POPEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PRINTF_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PUTC]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PUTCHAR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_PUTS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_REMOVE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RENAME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RENAMEAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SCANF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SNPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SPRINTF_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STDIO_H_NONBLOCKING]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STDIO_H_SIGPIPE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TMPFILE]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VASPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VFSCANF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VSCANF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VDPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VFPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VFPRINTF_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VPRINTF_POSIX]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VSNPRINTF]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_VSPRINTF_POSIX]) dnl Support Microsoft deprecated alias function names by default. gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_FCLOSEALL], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_FDOPEN], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_FILENO], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_GETW], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_PUTW], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_TEMPNAM], [1]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_STDIO_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_STDIO_H_DEFAULTS]) ]) AC_DEFUN([gl_STDIO_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. HAVE_DECL_FCLOSEALL=1; AC_SUBST([HAVE_DECL_FCLOSEALL]) HAVE_DECL_FPURGE=1; AC_SUBST([HAVE_DECL_FPURGE]) HAVE_DECL_FSEEKO=1; AC_SUBST([HAVE_DECL_FSEEKO]) HAVE_DECL_FTELLO=1; AC_SUBST([HAVE_DECL_FTELLO]) HAVE_DECL_GETDELIM=1; AC_SUBST([HAVE_DECL_GETDELIM]) HAVE_DECL_GETLINE=1; AC_SUBST([HAVE_DECL_GETLINE]) HAVE_DECL_OBSTACK_PRINTF=1; AC_SUBST([HAVE_DECL_OBSTACK_PRINTF]) HAVE_DECL_SNPRINTF=1; AC_SUBST([HAVE_DECL_SNPRINTF]) HAVE_DECL_VSNPRINTF=1; AC_SUBST([HAVE_DECL_VSNPRINTF]) HAVE_DPRINTF=1; AC_SUBST([HAVE_DPRINTF]) HAVE_FSEEKO=1; AC_SUBST([HAVE_FSEEKO]) HAVE_FTELLO=1; AC_SUBST([HAVE_FTELLO]) HAVE_PCLOSE=1; AC_SUBST([HAVE_PCLOSE]) HAVE_POPEN=1; AC_SUBST([HAVE_POPEN]) HAVE_RENAMEAT=1; AC_SUBST([HAVE_RENAMEAT]) HAVE_VASPRINTF=1; AC_SUBST([HAVE_VASPRINTF]) HAVE_VDPRINTF=1; AC_SUBST([HAVE_VDPRINTF]) REPLACE_DPRINTF=0; AC_SUBST([REPLACE_DPRINTF]) REPLACE_FCLOSE=0; AC_SUBST([REPLACE_FCLOSE]) REPLACE_FDOPEN=0; AC_SUBST([REPLACE_FDOPEN]) REPLACE_FFLUSH=0; AC_SUBST([REPLACE_FFLUSH]) REPLACE_FOPEN=0; AC_SUBST([REPLACE_FOPEN]) REPLACE_FPRINTF=0; AC_SUBST([REPLACE_FPRINTF]) REPLACE_FPURGE=0; AC_SUBST([REPLACE_FPURGE]) REPLACE_FREOPEN=0; AC_SUBST([REPLACE_FREOPEN]) REPLACE_FSEEK=0; AC_SUBST([REPLACE_FSEEK]) REPLACE_FSEEKO=0; AC_SUBST([REPLACE_FSEEKO]) REPLACE_FTELL=0; AC_SUBST([REPLACE_FTELL]) REPLACE_FTELLO=0; AC_SUBST([REPLACE_FTELLO]) REPLACE_GETDELIM=0; AC_SUBST([REPLACE_GETDELIM]) REPLACE_GETLINE=0; AC_SUBST([REPLACE_GETLINE]) REPLACE_OBSTACK_PRINTF=0; AC_SUBST([REPLACE_OBSTACK_PRINTF]) REPLACE_PERROR=0; AC_SUBST([REPLACE_PERROR]) REPLACE_POPEN=0; AC_SUBST([REPLACE_POPEN]) REPLACE_PRINTF=0; AC_SUBST([REPLACE_PRINTF]) REPLACE_REMOVE=0; AC_SUBST([REPLACE_REMOVE]) REPLACE_RENAME=0; AC_SUBST([REPLACE_RENAME]) REPLACE_RENAMEAT=0; AC_SUBST([REPLACE_RENAMEAT]) REPLACE_SNPRINTF=0; AC_SUBST([REPLACE_SNPRINTF]) REPLACE_SPRINTF=0; AC_SUBST([REPLACE_SPRINTF]) REPLACE_STDIO_READ_FUNCS=0; AC_SUBST([REPLACE_STDIO_READ_FUNCS]) REPLACE_STDIO_WRITE_FUNCS=0; AC_SUBST([REPLACE_STDIO_WRITE_FUNCS]) REPLACE_TMPFILE=0; AC_SUBST([REPLACE_TMPFILE]) REPLACE_VASPRINTF=0; AC_SUBST([REPLACE_VASPRINTF]) REPLACE_VDPRINTF=0; AC_SUBST([REPLACE_VDPRINTF]) REPLACE_VFPRINTF=0; AC_SUBST([REPLACE_VFPRINTF]) REPLACE_VPRINTF=0; AC_SUBST([REPLACE_VPRINTF]) REPLACE_VSNPRINTF=0; AC_SUBST([REPLACE_VSNPRINTF]) REPLACE_VSPRINTF=0; AC_SUBST([REPLACE_VSPRINTF]) ]) libffcall-2.4/gnulib-m4/sparcv8+.m40000664000000000000000000000316414057155505013702 00000000000000# sparcv8+.m4 serial 1 dnl Copyright (C) 2020-2021 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 When compiling for SPARC in 32-bit mode, make sure that instructions for dnl SPARC v8+ are accepted. This is necessary for multiprocessing (for dnl instructions like 'membar' or 'cas'). All SPARC CPUs made since 1993 dnl support this instruction set. But GCC in its default configuration, in dnl 32-bit mode (64-bit mode assumes SPARC v9 or newer), still defaults to dnl SPARC v7 instruction set: "By default (unless configured otherwise), GCC dnl generates code for the V7 variant of the SPARC architecture." See dnl dnl AC_DEFUN([gl_SPARC_V8PLUS], [ AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_cpu" in sparc*) if test -n "$GCC"; then AC_CACHE_CHECK([whether SPARC v8+ instructions are supported], [gl_cv_sparc_v8plus], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[]], [[asm volatile ("membar 2");]])], [gl_cv_sparc_v8plus=yes], [gl_cv_sparc_v8plus=no]) ]) if test $gl_cv_sparc_v8plus = no; then dnl Strangely enough, '-mv8plus' does not have the desired effect. dnl But '-mcpu=v9' does. CC="$CC -mcpu=v9" CXX="$CXX -mcpu=v9" fi fi ;; esac ]) libffcall-2.4/gnulib-m4/msvc-nothrow.m40000664000000000000000000000053014057155505014701 00000000000000# msvc-nothrow.m4 serial 1 dnl Copyright (C) 2011-2021 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([gl_MSVC_NOTHROW], [ AC_REQUIRE([gl_MSVC_INVAL]) ]) libffcall-2.4/gnulib-m4/open-cloexec.m40000664000000000000000000000132314057155505014615 00000000000000# Test whether O_CLOEXEC is defined. dnl Copyright 2017-2021 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([gl_PREPROC_O_CLOEXEC], [ AC_CACHE_CHECK([for O_CLOEXEC], [gl_cv_macro_O_CLOEXEC], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM([[#include #ifndef O_CLOEXEC choke me; #endif ]], [[return O_CLOEXEC;]])], [gl_cv_macro_O_CLOEXEC=yes], [gl_cv_macro_O_CLOEXEC=no])]) ]) libffcall-2.4/gnulib-m4/time_h.m40000664000000000000000000001602414057155505013505 00000000000000# Configure a more-standard replacement for . # Copyright (C) 2000-2001, 2003-2007, 2009-2021 Free Software Foundation, Inc. # serial 18 # 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. # Written by Paul Eggert and Jim Meyering. AC_DEFUN_ONCE([gl_TIME_H], [ dnl Ensure to expand the default settings once only, before all statements dnl that occur in other macros. AC_REQUIRE([gl_TIME_H_DEFAULTS]) gl_NEXT_HEADERS([time.h]) AC_REQUIRE([gl_CHECK_TYPE_STRUCT_TIMESPEC]) AC_REQUIRE([AC_C_RESTRICT]) AC_CACHE_CHECK([for TIME_UTC in ], [gl_cv_time_h_has_TIME_UTC], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[static int x = TIME_UTC; x++;]])], [gl_cv_time_h_has_TIME_UTC=yes], [gl_cv_time_h_has_TIME_UTC=no])]) if test $gl_cv_time_h_has_TIME_UTC = yes; then TIME_H_DEFINES_TIME_UTC=1 else TIME_H_DEFINES_TIME_UTC=0 fi AC_SUBST([TIME_H_DEFINES_TIME_UTC]) ]) dnl Check whether 'struct timespec' is declared dnl in time.h, sys/time.h, pthread.h, or unistd.h. AC_DEFUN([gl_CHECK_TYPE_STRUCT_TIMESPEC], [ AC_CHECK_HEADERS_ONCE([sys/time.h]) AC_CACHE_CHECK([for struct timespec in ], [gl_cv_sys_struct_timespec_in_time_h], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[static struct timespec x; x.tv_sec = x.tv_nsec;]])], [gl_cv_sys_struct_timespec_in_time_h=yes], [gl_cv_sys_struct_timespec_in_time_h=no])]) TIME_H_DEFINES_STRUCT_TIMESPEC=0 SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=0 PTHREAD_H_DEFINES_STRUCT_TIMESPEC=0 UNISTD_H_DEFINES_STRUCT_TIMESPEC=0 if test $gl_cv_sys_struct_timespec_in_time_h = yes; then TIME_H_DEFINES_STRUCT_TIMESPEC=1 else AC_CACHE_CHECK([for struct timespec in ], [gl_cv_sys_struct_timespec_in_sys_time_h], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[static struct timespec x; x.tv_sec = x.tv_nsec;]])], [gl_cv_sys_struct_timespec_in_sys_time_h=yes], [gl_cv_sys_struct_timespec_in_sys_time_h=no])]) if test $gl_cv_sys_struct_timespec_in_sys_time_h = yes; then SYS_TIME_H_DEFINES_STRUCT_TIMESPEC=1 else AC_CACHE_CHECK([for struct timespec in ], [gl_cv_sys_struct_timespec_in_pthread_h], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[static struct timespec x; x.tv_sec = x.tv_nsec;]])], [gl_cv_sys_struct_timespec_in_pthread_h=yes], [gl_cv_sys_struct_timespec_in_pthread_h=no])]) if test $gl_cv_sys_struct_timespec_in_pthread_h = yes; then PTHREAD_H_DEFINES_STRUCT_TIMESPEC=1 else AC_CACHE_CHECK([for struct timespec in ], [gl_cv_sys_struct_timespec_in_unistd_h], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[static struct timespec x; x.tv_sec = x.tv_nsec;]])], [gl_cv_sys_struct_timespec_in_unistd_h=yes], [gl_cv_sys_struct_timespec_in_unistd_h=no])]) if test $gl_cv_sys_struct_timespec_in_unistd_h = yes; then UNISTD_H_DEFINES_STRUCT_TIMESPEC=1 fi fi fi fi AC_SUBST([TIME_H_DEFINES_STRUCT_TIMESPEC]) AC_SUBST([SYS_TIME_H_DEFINES_STRUCT_TIMESPEC]) AC_SUBST([PTHREAD_H_DEFINES_STRUCT_TIMESPEC]) AC_SUBST([UNISTD_H_DEFINES_STRUCT_TIMESPEC]) ]) # gl_TIME_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_TIME_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_TIME_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_TIME_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_TIME_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_CTIME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKTIME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LOCALTIME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_NANOSLEEP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRFTIME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRPTIME]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIMEGM]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIMESPEC_GET]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIME_R]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TIME_RZ]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_TZSET]) dnl Support Microsoft deprecated alias function names by default. gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_TZSET], [1]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_TIME_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_TIME_H_DEFAULTS]) ]) AC_DEFUN([gl_TIME_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. HAVE_DECL_LOCALTIME_R=1; AC_SUBST([HAVE_DECL_LOCALTIME_R]) HAVE_NANOSLEEP=1; AC_SUBST([HAVE_NANOSLEEP]) HAVE_STRPTIME=1; AC_SUBST([HAVE_STRPTIME]) HAVE_TIMEGM=1; AC_SUBST([HAVE_TIMEGM]) HAVE_TIMESPEC_GET=1; AC_SUBST([HAVE_TIMESPEC_GET]) dnl Even GNU libc does not have timezone_t yet. HAVE_TIMEZONE_T=0; AC_SUBST([HAVE_TIMEZONE_T]) dnl If another module says to replace or to not replace, do that. dnl Otherwise, replace only if someone compiles with -DGNULIB_PORTCHECK; dnl this lets maintainers check for portability. REPLACE_CTIME=GNULIB_PORTCHECK; AC_SUBST([REPLACE_CTIME]) REPLACE_LOCALTIME_R=GNULIB_PORTCHECK; AC_SUBST([REPLACE_LOCALTIME_R]) REPLACE_MKTIME=GNULIB_PORTCHECK; AC_SUBST([REPLACE_MKTIME]) REPLACE_NANOSLEEP=GNULIB_PORTCHECK; AC_SUBST([REPLACE_NANOSLEEP]) REPLACE_STRFTIME=GNULIB_PORTCHECK; AC_SUBST([REPLACE_STRFTIME]) REPLACE_TIMEGM=GNULIB_PORTCHECK; AC_SUBST([REPLACE_TIMEGM]) REPLACE_TZSET=GNULIB_PORTCHECK; AC_SUBST([REPLACE_TZSET]) dnl Hack so that the time module doesn't depend on the sys_time module. dnl First, default GNULIB_GETTIMEOFDAY to 0 if sys_time is absent. : ${GNULIB_GETTIMEOFDAY=0}; AC_SUBST([GNULIB_GETTIMEOFDAY]) dnl Second, it's OK to not use GNULIB_PORTCHECK for REPLACE_GMTIME dnl and REPLACE_LOCALTIME, as portability to Solaris 2.6 and earlier dnl is no longer a big deal. REPLACE_GMTIME=0; AC_SUBST([REPLACE_GMTIME]) REPLACE_LOCALTIME=0; AC_SUBST([REPLACE_LOCALTIME]) ]) libffcall-2.4/gnulib-m4/string_h.m40000664000000000000000000001567714057155505014072 00000000000000# Configure a GNU-like replacement for . # Copyright (C) 2007-2021 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. # serial 32 # Written by Paul Eggert. AC_DEFUN_ONCE([gl_STRING_H], [ dnl Ensure to expand the default settings once only, before all statements dnl that occur in other macros. AC_REQUIRE([gl_STRING_H_DEFAULTS]) gl_NEXT_HEADERS([string.h]) dnl Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use, and which is not dnl guaranteed by C89. gl_WARN_ON_USE_PREPARE([[#include ]], [ffsl ffsll memmem mempcpy memrchr rawmemchr stpcpy stpncpy strchrnul strdup strncat strndup strnlen strpbrk strsep strcasestr strtok_r strerror_r strerrorname_np sigabbrev_np sigdescr_np strsignal strverscmp]) AC_REQUIRE([AC_C_RESTRICT]) ]) # gl_STRING_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_STRING_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_STRING_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_STRING_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_STRING_H_MODULE_INDICATOR_DEFAULTS], [ gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_EXPLICIT_BZERO]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FFSL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FFSLL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MEMCHR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MEMMEM]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MEMPCPY]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MEMRCHR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_RAWMEMCHR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STPCPY]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STPNCPY]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRCHRNUL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRDUP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRNCAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRNDUP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRNLEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRPBRK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRSEP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRSTR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRCASESTR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRTOK_R]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSLEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSNLEN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSCHR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSRCHR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSSTR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSCASECMP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSNCASECMP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSPCASECMP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSCASESTR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSCSPN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSPBRK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSSPN]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSSEP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MBSTOK_R]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRERROR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRERROR_R]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRERRORNAME_NP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SIGABBREV_NP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_SIGDESCR_NP]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRSIGNAL]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STRVERSCMP]) dnl Support Microsoft deprecated alias function names by default. gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_MEMCCPY], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_STRDUP], [1]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_STRING_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_STRING_H_DEFAULTS]) ]) AC_DEFUN([gl_STRING_H_DEFAULTS], [ HAVE_MBSLEN=0; AC_SUBST([HAVE_MBSLEN]) dnl Assume proper GNU behavior unless another module says otherwise. HAVE_EXPLICIT_BZERO=1; AC_SUBST([HAVE_EXPLICIT_BZERO]) HAVE_FFSL=1; AC_SUBST([HAVE_FFSL]) HAVE_FFSLL=1; AC_SUBST([HAVE_FFSLL]) HAVE_DECL_MEMMEM=1; AC_SUBST([HAVE_DECL_MEMMEM]) HAVE_MEMPCPY=1; AC_SUBST([HAVE_MEMPCPY]) HAVE_DECL_MEMRCHR=1; AC_SUBST([HAVE_DECL_MEMRCHR]) HAVE_RAWMEMCHR=1; AC_SUBST([HAVE_RAWMEMCHR]) HAVE_STPCPY=1; AC_SUBST([HAVE_STPCPY]) HAVE_STPNCPY=1; AC_SUBST([HAVE_STPNCPY]) HAVE_STRCHRNUL=1; AC_SUBST([HAVE_STRCHRNUL]) HAVE_DECL_STRDUP=1; AC_SUBST([HAVE_DECL_STRDUP]) HAVE_DECL_STRNDUP=1; AC_SUBST([HAVE_DECL_STRNDUP]) HAVE_DECL_STRNLEN=1; AC_SUBST([HAVE_DECL_STRNLEN]) HAVE_STRPBRK=1; AC_SUBST([HAVE_STRPBRK]) HAVE_STRSEP=1; AC_SUBST([HAVE_STRSEP]) HAVE_STRCASESTR=1; AC_SUBST([HAVE_STRCASESTR]) HAVE_DECL_STRTOK_R=1; AC_SUBST([HAVE_DECL_STRTOK_R]) HAVE_DECL_STRERROR_R=1; AC_SUBST([HAVE_DECL_STRERROR_R]) HAVE_STRERRORNAME_NP=1; AC_SUBST([HAVE_STRERRORNAME_NP]) HAVE_SIGABBREV_NP=1; AC_SUBST([HAVE_SIGABBREV_NP]) HAVE_SIGDESCR_NP=1; AC_SUBST([HAVE_SIGDESCR_NP]) HAVE_DECL_STRSIGNAL=1; AC_SUBST([HAVE_DECL_STRSIGNAL]) HAVE_STRVERSCMP=1; AC_SUBST([HAVE_STRVERSCMP]) REPLACE_FFSLL=0; AC_SUBST([REPLACE_FFSLL]) REPLACE_MEMCHR=0; AC_SUBST([REPLACE_MEMCHR]) REPLACE_MEMMEM=0; AC_SUBST([REPLACE_MEMMEM]) REPLACE_STPNCPY=0; AC_SUBST([REPLACE_STPNCPY]) REPLACE_STRCHRNUL=0; AC_SUBST([REPLACE_STRCHRNUL]) REPLACE_STRDUP=0; AC_SUBST([REPLACE_STRDUP]) REPLACE_STRNCAT=0; AC_SUBST([REPLACE_STRNCAT]) REPLACE_STRNDUP=0; AC_SUBST([REPLACE_STRNDUP]) REPLACE_STRNLEN=0; AC_SUBST([REPLACE_STRNLEN]) REPLACE_STRSTR=0; AC_SUBST([REPLACE_STRSTR]) REPLACE_STRCASESTR=0; AC_SUBST([REPLACE_STRCASESTR]) REPLACE_STRTOK_R=0; AC_SUBST([REPLACE_STRTOK_R]) REPLACE_STRERROR=0; AC_SUBST([REPLACE_STRERROR]) REPLACE_STRERROR_R=0; AC_SUBST([REPLACE_STRERROR_R]) REPLACE_STRERRORNAME_NP=0; AC_SUBST([REPLACE_STRERRORNAME_NP]) REPLACE_STRSIGNAL=0; AC_SUBST([REPLACE_STRSIGNAL]) UNDEFINE_STRTOK_R=0; AC_SUBST([UNDEFINE_STRTOK_R]) ]) libffcall-2.4/gnulib-m4/raise.m40000664000000000000000000000177114057155505013346 00000000000000# raise.m4 serial 4 dnl Copyright (C) 2011-2021 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([gl_FUNC_RAISE], [ AC_REQUIRE([gl_SIGNAL_H_DEFAULTS]) AC_REQUIRE([AC_CANONICAL_HOST]) AC_CHECK_FUNCS([raise]) if test $ac_cv_func_raise = no; then HAVE_RAISE=0 else m4_ifdef([gl_MSVC_INVAL], [ AC_REQUIRE([gl_MSVC_INVAL]) if test $HAVE_MSVC_INVALID_PARAMETER_HANDLER = 1; then REPLACE_RAISE=1 fi ]) m4_ifdef([gl_SIGNALBLOCKING], [ gl_SIGNALBLOCKING if test $HAVE_POSIX_SIGNALBLOCKING = 0; then m4_ifdef([gl_SIGNAL_SIGPIPE], [ gl_SIGNAL_SIGPIPE if test $gl_cv_header_signal_h_SIGPIPE != yes; then REPLACE_RAISE=1 fi ], [:]) fi ]) fi ]) # Prerequisites of lib/raise.c. AC_DEFUN([gl_PREREQ_RAISE], [:]) libffcall-2.4/gnulib-m4/stat.m40000664000000000000000000000545714057155505013223 00000000000000# serial 18 # Copyright (C) 2009-2021 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. AC_DEFUN([gl_FUNC_STAT], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_SYS_STAT_H_DEFAULTS]) AC_CHECK_FUNCS_ONCE([lstat]) case "$host_os" in mingw*) dnl On this platform, the original stat() returns st_atime, st_mtime, dnl st_ctime values that are affected by the time zone. REPLACE_STAT=1 ;; *) dnl AIX 7.1, Solaris 9, mingw64 mistakenly succeed on stat("file/"). dnl (For mingw, this is due to a broken stat() override in libmingwex.a.) dnl FreeBSD 7.2 mistakenly succeeds on stat("link-to-file/"). AC_CACHE_CHECK([whether stat handles trailing slashes on files], [gl_cv_func_stat_file_slash], [touch conftest.tmp # Assume that if we have lstat, we can also check symlinks. if test $ac_cv_func_lstat = yes; then ln -s conftest.tmp conftest.lnk fi AC_RUN_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[int result = 0; struct stat st; if (!stat ("conftest.tmp/", &st)) result |= 1; #if HAVE_LSTAT if (!stat ("conftest.lnk/", &st)) result |= 2; #endif return result; ]])], [gl_cv_func_stat_file_slash=yes], [gl_cv_func_stat_file_slash=no], [case "$host_os" in # Guess yes on Linux systems. linux-* | linux) gl_cv_func_stat_file_slash="guessing yes" ;; # Guess yes on glibc systems. *-gnu* | gnu*) gl_cv_func_stat_file_slash="guessing yes" ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_func_stat_file_slash="$gl_cross_guess_normal" ;; esac ]) rm -f conftest.tmp conftest.lnk]) case $gl_cv_func_stat_file_slash in *no) REPLACE_STAT=1 AC_DEFINE([REPLACE_FUNC_STAT_FILE], [1], [Define to 1 if stat needs help when passed a file name with a trailing slash]);; esac case $host_os in dnl Solaris stat can return a negative tv_nsec. solaris*) REPLACE_FSTAT=1 ;; esac ;; esac ]) # Prerequisites of lib/stat.c and lib/stat-w32.c. AC_DEFUN([gl_PREREQ_STAT], [ AC_REQUIRE([gl_SYS_STAT_H]) AC_REQUIRE([gl_PREREQ_STAT_W32]) : ]) # Prerequisites of lib/stat-w32.c. AC_DEFUN([gl_PREREQ_STAT_W32], [ AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) AC_CHECK_HEADERS([sdkddkver.h]) ;; esac ]) libffcall-2.4/gnulib-m4/gnulib-cache.m40000664000000000000000000000403514061422173014551 00000000000000# Copyright (C) 2002-2021 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 \ # clean-temp-simple \ # host-cpu-c-abi \ # lock \ # nocrash \ # stdint \ # stdnoreturn # Specification in the form of a few gnulib-tool.m4 macro invocations: gl_LOCAL_DIR([]) gl_MODULES([ ansi-c++-opt clean-temp-simple host-cpu-c-abi lock 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.4/gnulib-m4/stdbool.m40000664000000000000000000000763514057155505013716 00000000000000# Check for stdbool.h that conforms to C99. dnl Copyright (C) 2002-2006, 2009-2021 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. #serial 8 # Prepare for substituting if it is not supported. AC_DEFUN([AM_STDBOOL_H], [ AC_REQUIRE([AC_CHECK_HEADER_STDBOOL]) AC_REQUIRE([AC_CANONICAL_HOST]) dnl On some platforms, does not exist or does not conform to C99. dnl On Solaris 10 with CC=cc CXX=CC, exists but is not usable dnl in C++ mode (and no exists). In this case, we use our dnl replacement, also in C mode (for binary compatibility between C and C++). if test "$ac_cv_header_stdbool_h" = yes; then case "$host_os" in solaris*) if test -z "$GCC"; then STDBOOL_H='stdbool.h' else STDBOOL_H='' fi ;; *) STDBOOL_H='' ;; esac else STDBOOL_H='stdbool.h' fi AC_SUBST([STDBOOL_H]) AM_CONDITIONAL([GL_GENERATE_STDBOOL_H], [test -n "$STDBOOL_H"]) if test "$ac_cv_type__Bool" = yes; then HAVE__BOOL=1 else HAVE__BOOL=0 fi AC_SUBST([HAVE__BOOL]) ]) # AM_STDBOOL_H will be renamed to gl_STDBOOL_H in the future. AC_DEFUN([gl_STDBOOL_H], [AM_STDBOOL_H]) # This version of the macro is needed in autoconf <= 2.68. AC_DEFUN([AC_CHECK_HEADER_STDBOOL], [AC_CACHE_CHECK([for stdbool.h that conforms to C99], [ac_cv_header_stdbool_h], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[ #include #ifdef __cplusplus typedef bool Bool; #else typedef _Bool Bool; #ifndef bool "error: bool is not defined" #endif #ifndef false "error: false is not defined" #endif #if false "error: false is not 0" #endif #ifndef true "error: true is not defined" #endif #if true != 1 "error: true is not 1" #endif #endif #ifndef __bool_true_false_are_defined "error: __bool_true_false_are_defined is not defined" #endif struct s { Bool s: 1; Bool t; bool u: 1; bool v; } s; char a[true == 1 ? 1 : -1]; char b[false == 0 ? 1 : -1]; char c[__bool_true_false_are_defined == 1 ? 1 : -1]; char d[(bool) 0.5 == true ? 1 : -1]; /* See body of main program for 'e'. */ char f[(Bool) 0.0 == false ? 1 : -1]; char g[true]; char h[sizeof (Bool)]; char i[sizeof s.t]; enum { j = false, k = true, l = false * true, m = true * 256 }; /* The following fails for HP aC++/ANSI C B3910B A.05.55 [Dec 04 2003]. */ Bool n[m]; char o[sizeof n == m * sizeof n[0] ? 1 : -1]; char p[-1 - (Bool) 0 < 0 && -1 - (bool) 0 < 0 ? 1 : -1]; /* Catch a bug in an HP-UX C compiler. See https://gcc.gnu.org/ml/gcc-patches/2003-12/msg02303.html https://lists.gnu.org/r/bug-coreutils/2005-11/msg00161.html */ Bool q = true; Bool *pq = &q; bool *qq = &q; ]], [[ bool e = &s; *pq |= q; *pq |= ! q; *qq |= q; *qq |= ! q; /* Refer to every declared value, to avoid compiler optimizations. */ return (!a + !b + !c + !d + !e + !f + !g + !h + !i + !!j + !k + !!l + !m + !n + !o + !p + !q + !pq + !qq); ]])], [ac_cv_header_stdbool_h=yes], [ac_cv_header_stdbool_h=no])]) AC_CHECK_TYPES([_Bool]) ]) libffcall-2.4/gnulib-m4/gnulib-common.m40000664000000000000000000007200414060666001014776 00000000000000# gnulib-common.m4 serial 66 dnl Copyright (C) 2007-2021 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_PREREQ([2.62]) # gl_COMMON # is expanded unconditionally through gnulib-tool magic. AC_DEFUN([gl_COMMON], [ dnl Use AC_REQUIRE here, so that the code is expanded once only. AC_REQUIRE([gl_00GNULIB]) AC_REQUIRE([gl_COMMON_BODY]) AC_REQUIRE([gl_ZZGNULIB]) ]) AC_DEFUN([gl_COMMON_BODY], [ AH_VERBATIM([_GL_GNUC_PREREQ], [/* True if the compiler says it groks GNU C version MAJOR.MINOR. */ #if defined __GNUC__ && defined __GNUC_MINOR__ # define _GL_GNUC_PREREQ(major, minor) \ ((major) < __GNUC__ + ((minor) <= __GNUC_MINOR__)) #else # define _GL_GNUC_PREREQ(major, minor) 0 #endif ]) AH_VERBATIM([_Noreturn], [/* The _Noreturn keyword of C11. */ #ifndef _Noreturn # if (defined __cplusplus \ && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ || (defined _MSC_VER && 1900 <= _MSC_VER)) \ && 0) /* [[noreturn]] is not practically usable, because with it the syntax extern _Noreturn void func (...); would not be valid; such a declaration would only be valid with 'extern' and '_Noreturn' swapped, or without the 'extern' keyword. However, some AIX system header files and several gnulib header files use precisely this syntax with 'extern'. */ # define _Noreturn [[noreturn]] # elif ((!defined __cplusplus || defined __clang__) \ && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ || (!defined __STRICT_ANSI__ \ && (_GL_GNUC_PREREQ (4, 7) \ || (defined __apple_build_version__ \ ? 6000000 <= __apple_build_version__ \ : 3 < __clang_major__ + (5 <= __clang_minor__)))))) /* _Noreturn works as-is. */ # elif _GL_GNUC_PREREQ (2, 8) || defined __clang__ || 0x5110 <= __SUNPRO_C # define _Noreturn __attribute__ ((__noreturn__)) # elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) # define _Noreturn __declspec (noreturn) # else # define _Noreturn # endif #endif ]) AH_VERBATIM([isoc99_inline], [/* 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]) AH_VERBATIM([attribute], [/* Attributes. */ #if (defined __has_attribute \ && (!defined __clang_minor__ \ || 3 < __clang_major__ + (5 <= __clang_minor__))) # define _GL_HAS_ATTRIBUTE(attr) __has_attribute (__##attr##__) #else # define _GL_HAS_ATTRIBUTE(attr) _GL_ATTR_##attr # define _GL_ATTR_alloc_size _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_always_inline _GL_GNUC_PREREQ (3, 2) # define _GL_ATTR_artificial _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_cold _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_const _GL_GNUC_PREREQ (2, 95) # define _GL_ATTR_deprecated _GL_GNUC_PREREQ (3, 1) # define _GL_ATTR_diagnose_if 0 # define _GL_ATTR_error _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_externally_visible _GL_GNUC_PREREQ (4, 1) # define _GL_ATTR_fallthrough _GL_GNUC_PREREQ (7, 0) # define _GL_ATTR_format _GL_GNUC_PREREQ (2, 7) # define _GL_ATTR_leaf _GL_GNUC_PREREQ (4, 6) # ifdef _ICC # define _GL_ATTR_may_alias 0 # else # define _GL_ATTR_may_alias _GL_GNUC_PREREQ (3, 3) # endif # define _GL_ATTR_malloc _GL_GNUC_PREREQ (3, 0) # define _GL_ATTR_noinline _GL_GNUC_PREREQ (3, 1) # define _GL_ATTR_nonnull _GL_GNUC_PREREQ (3, 3) # define _GL_ATTR_nonstring _GL_GNUC_PREREQ (8, 0) # define _GL_ATTR_nothrow _GL_GNUC_PREREQ (3, 3) # define _GL_ATTR_packed _GL_GNUC_PREREQ (2, 7) # define _GL_ATTR_pure _GL_GNUC_PREREQ (2, 96) # define _GL_ATTR_returns_nonnull _GL_GNUC_PREREQ (4, 9) # define _GL_ATTR_sentinel _GL_GNUC_PREREQ (4, 0) # define _GL_ATTR_unused _GL_GNUC_PREREQ (2, 7) # define _GL_ATTR_warn_unused_result _GL_GNUC_PREREQ (3, 4) #endif ]dnl There is no _GL_ATTRIBUTE_ALIGNED; use stdalign's _Alignas instead. [ #if _GL_HAS_ATTRIBUTE (alloc_size) # define _GL_ATTRIBUTE_ALLOC_SIZE(args) __attribute__ ((__alloc_size__ args)) #else # define _GL_ATTRIBUTE_ALLOC_SIZE(args) #endif #if _GL_HAS_ATTRIBUTE (always_inline) # define _GL_ATTRIBUTE_ALWAYS_INLINE __attribute__ ((__always_inline__)) #else # define _GL_ATTRIBUTE_ALWAYS_INLINE #endif #if _GL_HAS_ATTRIBUTE (artificial) # define _GL_ATTRIBUTE_ARTIFICIAL __attribute__ ((__artificial__)) #else # define _GL_ATTRIBUTE_ARTIFICIAL #endif /* Avoid __attribute__ ((cold)) on MinGW; see thread starting at . Also, Oracle Studio 12.6 requires 'cold' not '__cold__'. */ #if _GL_HAS_ATTRIBUTE (cold) && !defined __MINGW32__ # ifndef __SUNPRO_C # define _GL_ATTRIBUTE_COLD __attribute__ ((__cold__)) # else # define _GL_ATTRIBUTE_COLD __attribute__ ((cold)) # endif #else # define _GL_ATTRIBUTE_COLD #endif #if _GL_HAS_ATTRIBUTE (const) # define _GL_ATTRIBUTE_CONST __attribute__ ((__const__)) #else # define _GL_ATTRIBUTE_CONST #endif #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_DEPRECATED [[__deprecated__]] #elif _GL_HAS_ATTRIBUTE (deprecated) # define _GL_ATTRIBUTE_DEPRECATED __attribute__ ((__deprecated__)) #else # define _GL_ATTRIBUTE_DEPRECATED #endif #if _GL_HAS_ATTRIBUTE (error) # define _GL_ATTRIBUTE_ERROR(msg) __attribute__ ((__error__ (msg))) # define _GL_ATTRIBUTE_WARNING(msg) __attribute__ ((__warning__ (msg))) #elif _GL_HAS_ATTRIBUTE (diagnose_if) # define _GL_ATTRIBUTE_ERROR(msg) __attribute__ ((__diagnose_if__ (1, msg, "error"))) # define _GL_ATTRIBUTE_WARNING(msg) __attribute__ ((__diagnose_if__ (1, msg, "warning"))) #else # define _GL_ATTRIBUTE_ERROR(msg) # define _GL_ATTRIBUTE_WARNING(msg) #endif #if _GL_HAS_ATTRIBUTE (externally_visible) # define _GL_ATTRIBUTE_EXTERNALLY_VISIBLE __attribute__ ((externally_visible)) #else # define _GL_ATTRIBUTE_EXTERNALLY_VISIBLE #endif /* FALLTHROUGH is special, because it always expands to something. */ #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_FALLTHROUGH [[__fallthrough__]] #elif _GL_HAS_ATTRIBUTE (fallthrough) # define _GL_ATTRIBUTE_FALLTHROUGH __attribute__ ((__fallthrough__)) #else # define _GL_ATTRIBUTE_FALLTHROUGH ((void) 0) #endif #if _GL_HAS_ATTRIBUTE (format) # define _GL_ATTRIBUTE_FORMAT(spec) __attribute__ ((__format__ spec)) #else # define _GL_ATTRIBUTE_FORMAT(spec) #endif #if _GL_HAS_ATTRIBUTE (leaf) # define _GL_ATTRIBUTE_LEAF __attribute__ ((__leaf__)) #else # define _GL_ATTRIBUTE_LEAF #endif /* Oracle Studio 12.6 mishandles may_alias despite __has_attribute OK. */ #if _GL_HAS_ATTRIBUTE (may_alias) && !defined __SUNPRO_C # define _GL_ATTRIBUTE_MAY_ALIAS __attribute__ ((__may_alias__)) #else # define _GL_ATTRIBUTE_MAY_ALIAS #endif #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]] #elif _GL_HAS_ATTRIBUTE (unused) # define _GL_ATTRIBUTE_MAYBE_UNUSED __attribute__ ((__unused__)) #else # define _GL_ATTRIBUTE_MAYBE_UNUSED #endif /* Earlier spellings of this macro. */ #define _GL_UNUSED _GL_ATTRIBUTE_MAYBE_UNUSED #define _UNUSED_PARAMETER_ _GL_ATTRIBUTE_MAYBE_UNUSED #if _GL_HAS_ATTRIBUTE (malloc) # define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__)) #else # define _GL_ATTRIBUTE_MALLOC #endif #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]] #elif _GL_HAS_ATTRIBUTE (warn_unused_result) # define _GL_ATTRIBUTE_NODISCARD __attribute__ ((__warn_unused_result__)) #else # define _GL_ATTRIBUTE_NODISCARD #endif #if _GL_HAS_ATTRIBUTE (noinline) # define _GL_ATTRIBUTE_NOINLINE __attribute__ ((__noinline__)) #else # define _GL_ATTRIBUTE_NOINLINE #endif #if _GL_HAS_ATTRIBUTE (nonnull) # define _GL_ATTRIBUTE_NONNULL(args) __attribute__ ((__nonnull__ args)) #else # define _GL_ATTRIBUTE_NONNULL(args) #endif #if _GL_HAS_ATTRIBUTE (nonstring) # define _GL_ATTRIBUTE_NONSTRING __attribute__ ((__nonstring__)) #else # define _GL_ATTRIBUTE_NONSTRING #endif /* There is no _GL_ATTRIBUTE_NORETURN; use _Noreturn instead. */ #if _GL_HAS_ATTRIBUTE (nothrow) && !defined __cplusplus # define _GL_ATTRIBUTE_NOTHROW __attribute__ ((__nothrow__)) #else # define _GL_ATTRIBUTE_NOTHROW #endif #if _GL_HAS_ATTRIBUTE (packed) # define _GL_ATTRIBUTE_PACKED __attribute__ ((__packed__)) #else # define _GL_ATTRIBUTE_PACKED #endif #if _GL_HAS_ATTRIBUTE (pure) # define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) #else # define _GL_ATTRIBUTE_PURE #endif #if _GL_HAS_ATTRIBUTE (returns_nonnull) # define _GL_ATTRIBUTE_RETURNS_NONNULL __attribute__ ((__returns_nonnull__)) #else # define _GL_ATTRIBUTE_RETURNS_NONNULL #endif #if _GL_HAS_ATTRIBUTE (sentinel) # define _GL_ATTRIBUTE_SENTINEL(pos) __attribute__ ((__sentinel__ pos)) #else # define _GL_ATTRIBUTE_SENTINEL(pos) #endif ]dnl There is no _GL_ATTRIBUTE_VISIBILITY; see m4/visibility.m4 instead. [ /* To support C++ as well as C, use _GL_UNUSED_LABEL with trailing ';'. */ #if !defined __cplusplus || _GL_GNUC_PREREQ (4, 5) # define _GL_UNUSED_LABEL _GL_ATTRIBUTE_MAYBE_UNUSED #else # define _GL_UNUSED_LABEL #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 ]) AH_VERBATIM([micro_optimizations], [/* _GL_CMP (n1, n2) performs a three-valued comparison on n1 vs. n2, where n1 and n2 are expressions without side effects, that evaluate to real numbers (excluding NaN). It returns 1 if n1 > n2 0 if n1 == n2 -1 if n1 < n2 The naïve code (n1 > n2 ? 1 : n1 < n2 ? -1 : 0) produces a conditional jump with nearly all GCC versions up to GCC 10. This variant (n1 < n2 ? -1 : n1 > n2) produces a conditional with many GCC versions up to GCC 9. The better code (n1 > n2) - (n1 < n2) from Hacker's Delight § 2-9 avoids conditional jumps in all GCC versions >= 3.4. */ #define _GL_CMP(n1, n2) (((n1) > (n2)) - ((n1) < (n2))) ]) dnl Hint which direction to take regarding cross-compilation guesses: dnl When a user installs a program on a platform they are not intimately dnl familiar with, --enable-cross-guesses=conservative is the appropriate dnl choice. It implements the "If we don't know, assume the worst" principle. dnl However, when an operating system developer (on a platform which is not dnl yet known to gnulib) builds packages for their platform, they want to dnl expose, not hide, possible platform bugs; in this case, dnl --enable-cross-guesses=risky is the appropriate choice. dnl Sets the variables dnl gl_cross_guess_normal (to be used when 'yes' is good and 'no' is bad), dnl gl_cross_guess_inverted (to be used when 'no' is good and 'yes' is bad). AC_ARG_ENABLE([cross-guesses], [AS_HELP_STRING([--enable-cross-guesses={conservative|risky}], [specify policy for cross-compilation guesses])], [if test "x$enableval" != xconservative && test "x$enableval" != xrisky; then AC_MSG_WARN([invalid argument supplied to --enable-cross-guesses]) enableval=conservative fi gl_cross_guesses="$enableval"], [gl_cross_guesses=conservative]) if test $gl_cross_guesses = risky; then gl_cross_guess_normal="guessing yes" gl_cross_guess_inverted="guessing no" else gl_cross_guess_normal="guessing no" gl_cross_guess_inverted="guessing yes" fi 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_INIT_VARIABLE([variablename]) # gl_MODULE_INDICATOR_INIT_VARIABLE([variablename], [initialvalue]) # initializes the shell variable that indicates the presence of the given module # as a C preprocessor expression. AC_DEFUN([gl_MODULE_INDICATOR_INIT_VARIABLE], [ GL_MODULE_INDICATOR_PREFIX[]_[$1]=m4_if([$2], , [0], [$2]) AC_SUBST(GL_MODULE_INDICATOR_PREFIX[]_[$1]) ]) # 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( [GL_MODULE_INDICATOR_PREFIX[]_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]) ]) # gl_PROG_CC_C99 # Modifies the value of the shell variable CC in an attempt to make $CC # understand ISO C99 source code. AC_DEFUN([gl_PROG_CC_C99], [ dnl Just use AC_PROG_CC_C99. dnl When AC_PROG_CC_C99 and AC_PROG_CC_STDC are used together, the substituted dnl value of CC will contain the C99 enabling options twice. But this is only dnl a cosmetic problem. dnl With Autoconf >= 2.70, use AC_PROG_CC since it implies AC_PROG_CC_C99; dnl this avoids a "warning: The macro `AC_PROG_CC_C99' is obsolete." m4_version_prereq([2.70], [AC_REQUIRE([AC_PROG_CC])], [AC_REQUIRE([AC_PROG_CC_C99])]) ]) # 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.70 Autoconf and overrides the # AC_C_RESTRICT macro from autoconf 2.60..2.70. m4_version_prereq([2.70.1], [], [ AC_DEFUN([AC_C_RESTRICT], [AC_CACHE_CHECK([for C/C++ restrict keyword], [ac_cv_c_restrict], [ac_cv_c_restrict=no # Put '__restrict__' first, to avoid problems with glibc and non-GCC; see: # https://lists.gnu.org/archive/html/bug-autoconf/2016-02/msg00006.html # Put 'restrict' last, because C++ lacks it. 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 only directly. */ #undef restrict /* Work around a bug in older versions of Sun C++, which did not #define __restrict__ or support _Restrict or __restrict__ even though the corresponding Sun C compiler ended up with "#define restrict _Restrict" or "#define restrict __restrict__" in the previous line. This workaround can be removed once we assume Oracle Developer Studio 12.5 (2016) or later. */ #if defined __SUNPRO_CC && !defined __RESTRICT && !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 ]) # A temporary file descriptor. # Must be less than 10, because dash 0.5.8 does not support redirections # with multi-digit file descriptors. m4_define([GL_TMP_FD], 9) # gl_SILENT(command) # executes command, but without the normal configure output. # This is useful when you want to invoke AC_CACHE_CHECK (or AC_CHECK_FUNC etc.) # inside another AC_CACHE_CHECK. AC_DEFUN([gl_SILENT], [ exec GL_TMP_FD>&AS_MESSAGE_FD AS_MESSAGE_FD>/dev/null $1 exec AS_MESSAGE_FD>&GL_TMP_FD GL_TMP_FD>&- ]) # 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], [ gl_SILENT([ AC_CACHE_VAL([$1], [$2]) ]) ]) # gl_CC_ALLOW_WARNINGS # sets and substitutes a variable GL_CFLAG_ALLOW_WARNINGS, to a $(CC) option # that reverts a preceding '-Werror' option, if available. # This is expected to be '-Wno-error' on gcc, clang (except clang/MSVC), xlclang # and empty otherwise. AC_DEFUN([gl_CC_ALLOW_WARNINGS], [ AC_REQUIRE([AC_PROG_CC]) AC_CACHE_CHECK([for C compiler option to allow warnings], [gl_cv_cc_wallow], [rm -f conftest* echo 'int dummy;' > conftest.c AC_TRY_COMMAND([${CC-cc} $CFLAGS $CPPFLAGS -c conftest.c 2>conftest1.err]) >/dev/null AC_TRY_COMMAND([${CC-cc} $CFLAGS $CPPFLAGS -Wno-error -c conftest.c 2>conftest2.err]) >/dev/null dnl Test the number of error output lines, because AIX xlc accepts the dnl option '-Wno-error', just to produce a warning dnl "Option -Wno-error was incorrectly specified. The option will be ignored." dnl afterwards. if test $? = 0 && test `wc -l < conftest1.err` = `wc -l < conftest2.err`; then gl_cv_cc_wallow='-Wno-error' else gl_cv_cc_wallow=none fi rm -f conftest* ]) case "$gl_cv_cc_wallow" in none) GL_CFLAG_ALLOW_WARNINGS='' ;; *) GL_CFLAG_ALLOW_WARNINGS="$gl_cv_cc_wallow" ;; esac AC_SUBST([GL_CFLAG_ALLOW_WARNINGS]) ]) # gl_CXX_ALLOW_WARNINGS # sets and substitutes a variable GL_CXXFLAG_ALLOW_WARNINGS, to a $(CC) option # that reverts a preceding '-Werror' option, if available. AC_DEFUN([gl_CXX_ALLOW_WARNINGS], [ dnl Requires AC_PROG_CXX or gl_PROG_ANSI_CXX. if test -n "$CXX" && test "$CXX" != no; then AC_CACHE_CHECK([for C++ compiler option to allow warnings], [gl_cv_cxx_wallow], [rm -f conftest* echo 'int dummy;' > conftest.cc AC_TRY_COMMAND([${CXX-c++} $CXXFLAGS $CPPFLAGS -c conftest.cc 2>conftest1.err]) >/dev/null AC_TRY_COMMAND([${CXX-c++} $CXXFLAGS $CPPFLAGS -Wno-error -c conftest.cc 2>conftest2.err]) >/dev/null dnl Test the number of error output lines, because AIX xlC accepts the dnl option '-Wno-error', just to produce a warning dnl "Option -Wno-error was incorrectly specified. The option will be ignored." dnl afterwards. if test $? = 0 && test `wc -l < conftest1.err` = `wc -l < conftest2.err`; then gl_cv_cxx_wallow='-Wno-error' else gl_cv_cxx_wallow=none fi rm -f conftest* ]) case "$gl_cv_cxx_wallow" in none) GL_CXXFLAG_ALLOW_WARNINGS='' ;; *) GL_CXXFLAG_ALLOW_WARNINGS="$gl_cv_cxx_wallow" ;; esac else GL_CXXFLAG_ALLOW_WARNINGS='' fi AC_SUBST([GL_CXXFLAG_ALLOW_WARNINGS]) ]) dnl Expands to some code for use in .c programs that, on native Windows, defines dnl the Microsoft deprecated alias function names to the underscore-prefixed dnl actual function names. With this macro, these function names are available dnl without linking with '-loldnames' and without generating warnings. dnl Usage: Use it after all system header files are included. dnl #include <...> dnl #include <...> dnl ]GL_MDA_DEFINES[ dnl ... AC_DEFUN([GL_MDA_DEFINES],[ AC_REQUIRE([_GL_MDA_DEFINES]) [$gl_mda_defines] ]) AC_DEFUN([_GL_MDA_DEFINES], [gl_mda_defines=' #if defined _WIN32 && !defined __CYGWIN__ #define access _access #define chdir _chdir #define chmod _chmod #define close _close #define creat _creat #define dup _dup #define dup2 _dup2 #define ecvt _ecvt #define execl _execl #define execle _execle #define execlp _execlp #define execv _execv #define execve _execve #define execvp _execvp #define execvpe _execvpe #define fcloseall _fcloseall #define fcvt _fcvt #define fdopen _fdopen #define fileno _fileno #define gcvt _gcvt #define getcwd _getcwd #define getpid _getpid #define getw _getw #define isatty _isatty #define j0 _j0 #define j1 _j1 #define jn _jn #define lfind _lfind #define lsearch _lsearch #define lseek _lseek #define memccpy _memccpy #define mkdir _mkdir #define mktemp _mktemp #define open _open #define putenv _putenv #define putw _putw #define read _read #define rmdir _rmdir #define strdup _strdup #define swab _swab #define tempnam _tempnam #define tzset _tzset #define umask _umask #define unlink _unlink #define utime _utime #define wcsdup _wcsdup #define write _write #define y0 _y0 #define y1 _y1 #define yn _yn #endif ' ]) libffcall-2.4/gnulib-m4/stddef_h.m40000664000000000000000000000715714057155505014027 00000000000000# stddef_h.m4 serial 11 dnl Copyright (C) 2009-2021 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 A placeholder for , for platforms that have issues. AC_DEFUN_ONCE([gl_STDDEF_H], [ AC_REQUIRE([gl_STDDEF_H_DEFAULTS]) AC_REQUIRE([gt_TYPE_WCHAR_T]) dnl Persuade OpenBSD to declare max_align_t. AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) STDDEF_H= dnl Test whether the type max_align_t exists and whether its alignment dnl "is as great as is supported by the implementation in all contexts". AC_CACHE_CHECK([for good max_align_t], [gl_cv_type_max_align_t], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include unsigned int s = sizeof (max_align_t); #if defined __GNUC__ || defined __clang__ || defined __IBM__ALIGNOF__ int check1[2 * (__alignof__ (double) <= __alignof__ (max_align_t)) - 1]; int check2[2 * (__alignof__ (long double) <= __alignof__ (max_align_t)) - 1]; #endif typedef struct { char a; max_align_t b; } max_helper; typedef struct { char a; long b; } long_helper; typedef struct { char a; double b; } double_helper; typedef struct { char a; long double b; } long_double_helper; int check3[2 * (offsetof (long_helper, b) <= offsetof (max_helper, b)) - 1]; int check4[2 * (offsetof (double_helper, b) <= offsetof (max_helper, b)) - 1]; int check5[2 * (offsetof (long_double_helper, b) <= offsetof (max_helper, b)) - 1]; ]])], [gl_cv_type_max_align_t=yes], [gl_cv_type_max_align_t=no]) ]) if test $gl_cv_type_max_align_t = no; then HAVE_MAX_ALIGN_T=0 STDDEF_H=stddef.h fi if test $gt_cv_c_wchar_t = no; then HAVE_WCHAR_T=0 STDDEF_H=stddef.h fi AC_CACHE_CHECK([whether NULL can be used in arbitrary expressions], [gl_cv_decl_null_works], [AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[#include int test[2 * (sizeof NULL == sizeof (void *)) -1]; ]])], [gl_cv_decl_null_works=yes], [gl_cv_decl_null_works=no])]) if test $gl_cv_decl_null_works = no; then REPLACE_NULL=1 STDDEF_H=stddef.h fi AC_SUBST([STDDEF_H]) AM_CONDITIONAL([GL_GENERATE_STDDEF_H], [test -n "$STDDEF_H"]) if test -n "$STDDEF_H"; then gl_NEXT_HEADERS([stddef.h]) fi ]) # gl_STDDEF_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_STDDEF_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_STDDEF_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_STDDEF_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_STDDEF_H_MODULE_INDICATOR_DEFAULTS], [ ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_STDDEF_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_STDDEF_H_DEFAULTS]) ]) AC_DEFUN([gl_STDDEF_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. REPLACE_NULL=0; AC_SUBST([REPLACE_NULL]) HAVE_MAX_ALIGN_T=1; AC_SUBST([HAVE_MAX_ALIGN_T]) HAVE_WCHAR_T=1; AC_SUBST([HAVE_WCHAR_T]) ]) libffcall-2.4/gnulib-m4/errno_h.m40000664000000000000000000000573614057155505013704 00000000000000# errno_h.m4 serial 13 dnl Copyright (C) 2004, 2006, 2008-2021 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_PREREQ([2.61]) AC_DEFUN_ONCE([gl_HEADER_ERRNO_H], [ AC_REQUIRE([AC_PROG_CC]) AC_CACHE_CHECK([for complete errno.h], [gl_cv_header_errno_h_complete], [ AC_EGREP_CPP([booboo],[ #include #if !defined ETXTBSY booboo #endif #if !defined ENOMSG booboo #endif #if !defined EIDRM booboo #endif #if !defined ENOLINK booboo #endif #if !defined EPROTO booboo #endif #if !defined EMULTIHOP booboo #endif #if !defined EBADMSG booboo #endif #if !defined EOVERFLOW booboo #endif #if !defined ENOTSUP booboo #endif #if !defined ENETRESET booboo #endif #if !defined ECONNABORTED booboo #endif #if !defined ESTALE booboo #endif #if !defined EDQUOT booboo #endif #if !defined ECANCELED booboo #endif #if !defined EOWNERDEAD booboo #endif #if !defined ENOTRECOVERABLE booboo #endif #if !defined EILSEQ booboo #endif ], [gl_cv_header_errno_h_complete=no], [gl_cv_header_errno_h_complete=yes]) ]) if test $gl_cv_header_errno_h_complete = yes; then ERRNO_H='' else gl_NEXT_HEADERS([errno.h]) ERRNO_H='errno.h' fi AC_SUBST([ERRNO_H]) AM_CONDITIONAL([GL_GENERATE_ERRNO_H], [test -n "$ERRNO_H"]) gl_REPLACE_ERRNO_VALUE([EMULTIHOP]) gl_REPLACE_ERRNO_VALUE([ENOLINK]) gl_REPLACE_ERRNO_VALUE([EOVERFLOW]) ]) # Assuming $1 = EOVERFLOW. # The EOVERFLOW errno value ought to be defined in , according to # POSIX. But some systems (like OpenBSD 4.0 or AIX 3) don't define it, and # some systems (like OSF/1) define it when _XOPEN_SOURCE_EXTENDED is defined. # Check for the value of EOVERFLOW. # Set the variables EOVERFLOW_HIDDEN and EOVERFLOW_VALUE. AC_DEFUN([gl_REPLACE_ERRNO_VALUE], [ if test -n "$ERRNO_H"; then AC_CACHE_CHECK([for ]$1[ value], [gl_cv_header_errno_h_]$1, [ AC_EGREP_CPP([yes],[ #include #ifdef ]$1[ yes #endif ], [gl_cv_header_errno_h_]$1[=yes], [gl_cv_header_errno_h_]$1[=no]) if test $gl_cv_header_errno_h_]$1[ = no; then AC_EGREP_CPP([yes],[ #define _XOPEN_SOURCE_EXTENDED 1 #include #ifdef ]$1[ yes #endif ], [gl_cv_header_errno_h_]$1[=hidden]) if test $gl_cv_header_errno_h_]$1[ = hidden; then dnl The macro exists but is hidden. dnl Define it to the same value. AC_COMPUTE_INT([gl_cv_header_errno_h_]$1, $1, [ #define _XOPEN_SOURCE_EXTENDED 1 #include /* The following two lines are a workaround against an autoconf-2.52 bug. */ #include #include ]) fi fi ]) case $gl_cv_header_errno_h_]$1[ in yes | no) ]$1[_HIDDEN=0; ]$1[_VALUE= ;; *) ]$1[_HIDDEN=1; ]$1[_VALUE="$gl_cv_header_errno_h_]$1[" ;; esac AC_SUBST($1[_HIDDEN]) AC_SUBST($1[_VALUE]) fi ]) libffcall-2.4/gnulib-m4/sys_stat_h.m40000664000000000000000000001205414057155505014417 00000000000000# sys_stat_h.m4 serial 41 -*- Autoconf -*- dnl Copyright (C) 2006-2021 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 Eric Blake. dnl Provide a GNU-like . AC_DEFUN_ONCE([gl_SYS_STAT_H], [ AC_REQUIRE([gl_SYS_STAT_H_DEFAULTS]) dnl Check for broken stat macros. AC_REQUIRE([AC_HEADER_STAT]) gl_CHECK_NEXT_HEADERS([sys/stat.h]) dnl Ensure the type mode_t gets defined. AC_REQUIRE([AC_TYPE_MODE_T]) dnl Whether to enable precise timestamps in 'struct stat'. m4_ifdef([gl_WINDOWS_STAT_TIMESPEC], [ AC_REQUIRE([gl_WINDOWS_STAT_TIMESPEC]) ], [ WINDOWS_STAT_TIMESPEC=0 ]) AC_SUBST([WINDOWS_STAT_TIMESPEC]) dnl Whether to ensure that struct stat.st_size is 64-bit wide. m4_ifdef([gl_LARGEFILE], [ AC_REQUIRE([gl_LARGEFILE]) ], [ WINDOWS_64_BIT_ST_SIZE=0 ]) AC_SUBST([WINDOWS_64_BIT_ST_SIZE]) dnl Define types that are supposed to be defined in or dnl . AC_CHECK_TYPE([nlink_t], [], [AC_DEFINE([nlink_t], [int], [Define to the type of st_nlink in struct stat, or a supertype.])], [#include #include ]) dnl Check for declarations of anything we want to poison if the dnl corresponding gnulib module is not in use. gl_WARN_ON_USE_PREPARE([[#include ]], [fchmodat fstat fstatat futimens getumask lchmod lstat mkdirat mkfifo mkfifoat mknod mknodat stat utimensat]) AC_REQUIRE([AC_C_RESTRICT]) ]) # gl_SYS_STAT_MODULE_INDICATOR([modulename]) # sets the shell variable that indicates the presence of the given module # to a C preprocessor expression that will evaluate to 1. # This macro invocation must not occur in macros that are AC_REQUIREd. AC_DEFUN([gl_SYS_STAT_MODULE_INDICATOR], [ dnl Ensure to expand the default settings once only. gl_SYS_STAT_H_REQUIRE_DEFAULTS gl_MODULE_INDICATOR_SET_VARIABLE([$1]) dnl Define it also as a C macro, for the benefit of the unit tests. gl_MODULE_INDICATOR_FOR_TESTS([$1]) ]) # Initializes the default values for AC_SUBSTed shell variables. # This macro must not be AC_REQUIREd. It must only be invoked, and only # outside of macros or in macros that are not AC_REQUIREd. AC_DEFUN([gl_SYS_STAT_H_REQUIRE_DEFAULTS], [ m4_defun(GL_MODULE_INDICATOR_PREFIX[_SYS_STAT_H_MODULE_INDICATOR_DEFAULTS], [ gl_UNISTD_H_REQUIRE_DEFAULTS dnl for REPLACE_FCHDIR gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FCHMODAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FSTAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FSTATAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_FUTIMENS]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_GETUMASK]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LCHMOD]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_LSTAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKDIR]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKDIRAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKFIFO]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKFIFOAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKNOD]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MKNODAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_STAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_UTIMENSAT]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_OVERRIDES_STRUCT_STAT]) dnl Support Microsoft deprecated alias function names by default. gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_CHMOD], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_MKDIR], [1]) gl_MODULE_INDICATOR_INIT_VARIABLE([GNULIB_MDA_UMASK], [1]) ]) m4_require(GL_MODULE_INDICATOR_PREFIX[_SYS_STAT_H_MODULE_INDICATOR_DEFAULTS]) AC_REQUIRE([gl_SYS_STAT_H_DEFAULTS]) ]) AC_DEFUN([gl_SYS_STAT_H_DEFAULTS], [ dnl Assume proper GNU behavior unless another module says otherwise. HAVE_FCHMODAT=1; AC_SUBST([HAVE_FCHMODAT]) HAVE_FSTATAT=1; AC_SUBST([HAVE_FSTATAT]) HAVE_FUTIMENS=1; AC_SUBST([HAVE_FUTIMENS]) HAVE_GETUMASK=1; AC_SUBST([HAVE_GETUMASK]) HAVE_LCHMOD=1; AC_SUBST([HAVE_LCHMOD]) HAVE_LSTAT=1; AC_SUBST([HAVE_LSTAT]) HAVE_MKDIRAT=1; AC_SUBST([HAVE_MKDIRAT]) HAVE_MKFIFO=1; AC_SUBST([HAVE_MKFIFO]) HAVE_MKFIFOAT=1; AC_SUBST([HAVE_MKFIFOAT]) HAVE_MKNOD=1; AC_SUBST([HAVE_MKNOD]) HAVE_MKNODAT=1; AC_SUBST([HAVE_MKNODAT]) HAVE_UTIMENSAT=1; AC_SUBST([HAVE_UTIMENSAT]) REPLACE_FCHMODAT=0; AC_SUBST([REPLACE_FCHMODAT]) REPLACE_FSTAT=0; AC_SUBST([REPLACE_FSTAT]) REPLACE_FSTATAT=0; AC_SUBST([REPLACE_FSTATAT]) REPLACE_FUTIMENS=0; AC_SUBST([REPLACE_FUTIMENS]) REPLACE_LSTAT=0; AC_SUBST([REPLACE_LSTAT]) REPLACE_MKDIR=0; AC_SUBST([REPLACE_MKDIR]) REPLACE_MKFIFO=0; AC_SUBST([REPLACE_MKFIFO]) REPLACE_MKFIFOAT=0; AC_SUBST([REPLACE_MKFIFOAT]) REPLACE_MKNOD=0; AC_SUBST([REPLACE_MKNOD]) REPLACE_MKNODAT=0; AC_SUBST([REPLACE_MKNODAT]) REPLACE_STAT=0; AC_SUBST([REPLACE_STAT]) REPLACE_UTIMENSAT=0; AC_SUBST([REPLACE_UTIMENSAT]) ]) libffcall-2.4/gnulib-m4/pthread_rwlock_rdlock.m40000664000000000000000000001546314057155505016614 00000000000000# pthread_rwlock_rdlock.m4 serial 4 dnl Copyright (C) 2017-2021 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 https://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 does not provide this guarantee (and never will on Linux), see dnl https://sourceware.org/bugzilla/show_bug.cgi?id=13701 dnl https://bugzilla.redhat.com/show_bug.cgi?id=1410052 AC_DEFUN([gl_PTHREAD_RWLOCK_RDLOCK_PREFER_WRITER], [ AC_REQUIRE([gl_THREADLIB_EARLY]) AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles 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], [case "$host_os" in # Guess no on glibc systems. *-gnu* | gnu*) gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" ;; # Guess no on musl systems. *-musl*) gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" ;; # Guess no on bionic systems. *-android*) gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" ;; # Guess yes on native Windows with the mingw-w64 winpthreads library. # Guess no on native Windows with the gnulib windows-rwlock module. mingw*) if test "$gl_use_threads" = yes || test "$gl_use_threads" = posix; then gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing yes" else gl_cv_pthread_rwlock_rdlock_prefer_writer="guessing no" fi ;; # If we don't know, obey --enable-cross-guesses. *) gl_cv_pthread_rwlock_rdlock_prefer_writer="$gl_cross_guess_normal" ;; esac ]) 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.4/gnulib-m4/host-cpu-c-abi.m40000664000000000000000000005363214057155505014761 00000000000000# host-cpu-c-abi.m4 serial 14 dnl Copyright (C) 2002-2021 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[34567]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 __LP64__ 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 < declares fseeko # and ftello in C++ mode as well. AC_DEFUN([gl_SET_LARGEFILE_SOURCE], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_FUNC_FSEEKO case "$host_os" in hpux*) AC_DEFINE([_LARGEFILE_SOURCE], [1], [Define to 1 to make fseeko visible on some hosts (e.g. glibc 2.2).]) ;; esac ]) # The following implementation works around a problem in autoconf <= 2.69; # AC_SYS_LARGEFILE does not configure for large inodes on Mac OS X 10.5, # or configures them incorrectly in some cases. m4_version_prereq([2.70], [], [ # _AC_SYS_LARGEFILE_TEST_INCLUDES # ------------------------------- m4_define([_AC_SYS_LARGEFILE_TEST_INCLUDES], [#include /* Check that off_t can represent 2**63 - 1 correctly. We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ #define LARGE_OFF_T (((off_t) 1 << 31 << 31) - 1 + ((off_t) 1 << 31 << 31)) int off_t_is_large[[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]];[]dnl ]) # _AC_SYS_LARGEFILE_MACRO_VALUE(C-MACRO, VALUE, # CACHE-VAR, # DESCRIPTION, # PROLOGUE, [FUNCTION-BODY]) # -------------------------------------------------------- m4_define([_AC_SYS_LARGEFILE_MACRO_VALUE], [AC_CACHE_CHECK([for $1 value needed for large files], [$3], [while :; do m4_ifval([$6], [AC_LINK_IFELSE], [AC_COMPILE_IFELSE])( [AC_LANG_PROGRAM([$5], [$6])], [$3=no; break]) m4_ifval([$6], [AC_LINK_IFELSE], [AC_COMPILE_IFELSE])( [AC_LANG_PROGRAM([#define $1 $2 $5], [$6])], [$3=$2; break]) $3=unknown break done]) case $$3 in #( no | unknown) ;; *) AC_DEFINE_UNQUOTED([$1], [$$3], [$4]);; esac rm -rf conftest*[]dnl ])# _AC_SYS_LARGEFILE_MACRO_VALUE # AC_SYS_LARGEFILE # ---------------- # By default, many hosts won't let programs access large files; # one must use special compiler options to get large-file access to work. # For more details about this brain damage please see: # http://www.unix.org/version2/whatsnew/lfs20mar.html # Additionally, on Linux file systems with 64-bit inodes a file that happens # to have a 64-bit inode number cannot be accessed by 32-bit applications on # Linux x86/x86_64. This can occur with file systems such as XFS and NFS. AC_DEFUN([AC_SYS_LARGEFILE], [AC_ARG_ENABLE(largefile, [ --disable-largefile omit support for large files]) if test "$enable_largefile" != no; then AC_CACHE_CHECK([for special C compiler options needed for large files], ac_cv_sys_largefile_CC, [ac_cv_sys_largefile_CC=no if test "$GCC" != yes; then ac_save_CC=$CC while :; do # IRIX 6.2 and later do not support large files by default, # so use the C compiler's -n32 option if that helps. AC_LANG_CONFTEST([AC_LANG_PROGRAM([_AC_SYS_LARGEFILE_TEST_INCLUDES])]) AC_COMPILE_IFELSE([], [break]) CC="$CC -n32" AC_COMPILE_IFELSE([], [ac_cv_sys_largefile_CC=' -n32'; break]) break done CC=$ac_save_CC rm -f conftest.$ac_ext fi]) if test "$ac_cv_sys_largefile_CC" != no; then CC=$CC$ac_cv_sys_largefile_CC fi _AC_SYS_LARGEFILE_MACRO_VALUE(_FILE_OFFSET_BITS, 64, ac_cv_sys_file_offset_bits, [Number of bits in a file offset, on hosts where this is settable.], [_AC_SYS_LARGEFILE_TEST_INCLUDES]) if test $ac_cv_sys_file_offset_bits = unknown; then _AC_SYS_LARGEFILE_MACRO_VALUE(_LARGE_FILES, 1, ac_cv_sys_large_files, [Define for large files, on AIX-style hosts.], [_AC_SYS_LARGEFILE_TEST_INCLUDES]) fi fi ])# AC_SYS_LARGEFILE ])# m4_version_prereq 2.70 # Enable large files on systems where this is implemented by Gnulib, not by the # system headers. # Set the variables WINDOWS_64_BIT_OFF_T, WINDOWS_64_BIT_ST_SIZE if Gnulib # overrides ensure that off_t or 'struct size.st_size' are 64-bit, respectively. AC_DEFUN([gl_LARGEFILE], [ AC_REQUIRE([AC_CANONICAL_HOST]) case "$host_os" in mingw*) dnl Native Windows. dnl mingw64 defines off_t to a 64-bit type already, if dnl _FILE_OFFSET_BITS=64, which is ensured by AC_SYS_LARGEFILE. AC_CACHE_CHECK([for 64-bit off_t], [gl_cv_type_off_t_64], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include int verify_off_t_size[sizeof (off_t) >= 8 ? 1 : -1]; ]], [[]])], [gl_cv_type_off_t_64=yes], [gl_cv_type_off_t_64=no]) ]) if test $gl_cv_type_off_t_64 = no; then WINDOWS_64_BIT_OFF_T=1 else WINDOWS_64_BIT_OFF_T=0 fi dnl Some mingw versions define, if _FILE_OFFSET_BITS=64, 'struct stat' dnl to 'struct _stat32i64' or 'struct _stat64' (depending on dnl _USE_32BIT_TIME_T), which has a 32-bit st_size member. AC_CACHE_CHECK([for 64-bit st_size], [gl_cv_member_st_size_64], [AC_COMPILE_IFELSE( [AC_LANG_PROGRAM( [[#include struct stat buf; int verify_st_size_size[sizeof (buf.st_size) >= 8 ? 1 : -1]; ]], [[]])], [gl_cv_member_st_size_64=yes], [gl_cv_member_st_size_64=no]) ]) if test $gl_cv_member_st_size_64 = no; then WINDOWS_64_BIT_ST_SIZE=1 else WINDOWS_64_BIT_ST_SIZE=0 fi ;; *) dnl Nothing to do on gnulib's side. dnl A 64-bit off_t is dnl - already the default on Mac OS X, FreeBSD, NetBSD, OpenBSD, IRIX, dnl OSF/1, Cygwin, dnl - enabled by _FILE_OFFSET_BITS=64 (ensured by AC_SYS_LARGEFILE) on dnl glibc, HP-UX, Solaris, dnl - enabled by _LARGE_FILES=1 (ensured by AC_SYS_LARGEFILE) on AIX, dnl - impossible to achieve on Minix 3.1.8. WINDOWS_64_BIT_OFF_T=0 WINDOWS_64_BIT_ST_SIZE=0 ;; esac ]) libffcall-2.4/gnulib-m4/pathmax.m40000664000000000000000000000215514057155505013702 00000000000000# pathmax.m4 serial 11 dnl Copyright (C) 2002-2003, 2005-2006, 2009-2021 Free Software Foundation, dnl 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([gl_PATHMAX], [ dnl Prerequisites of lib/pathmax.h. AC_CHECK_HEADERS_ONCE([sys/param.h]) ]) # Expands to a piece of C program that defines PATH_MAX in the same way as # "pathmax.h" will do. AC_DEFUN([gl_PATHMAX_SNIPPET], [[ /* Arrange to define PATH_MAX, like "pathmax.h" does. */ #if HAVE_UNISTD_H # include #endif #include #if defined HAVE_SYS_PARAM_H && !defined PATH_MAX && !defined MAXPATHLEN # include #endif #if !defined PATH_MAX && defined MAXPATHLEN # define PATH_MAX MAXPATHLEN #endif #ifdef __hpux # undef PATH_MAX # define PATH_MAX 1024 #endif #if defined _WIN32 && ! defined __CYGWIN__ # undef PATH_MAX # define PATH_MAX 260 #endif ]]) # Prerequisites of gl_PATHMAX_SNIPPET. AC_DEFUN([gl_PATHMAX_SNIPPET_PREREQ], [ AC_CHECK_HEADERS_ONCE([unistd.h sys/param.h]) ]) libffcall-2.4/gnulib-m4/mode_t.m40000664000000000000000000000234214057155505013505 00000000000000# mode_t.m4 serial 2 dnl Copyright (C) 2009-2021 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. # For using mode_t, it's sufficient to use AC_TYPE_MODE_T and # include . # Define PROMOTED_MODE_T to the type that is the result of "default argument # promotion" (ISO C 6.5.2.2.(6)) of the type mode_t. AC_DEFUN([gl_PROMOTED_TYPE_MODE_T], [ AC_REQUIRE([AC_TYPE_MODE_T]) AC_CACHE_CHECK([for promoted mode_t type], [gl_cv_promoted_mode_t], [ dnl Assume mode_t promotes to 'int' if and only if it is smaller than 'int', dnl and to itself otherwise. This assumption is not guaranteed by the ISO C dnl standard, but we don't know of any real-world counterexamples. AC_COMPILE_IFELSE([AC_LANG_PROGRAM([[#include ]], [[typedef int array[2 * (sizeof (mode_t) < sizeof (int)) - 1];]])], [gl_cv_promoted_mode_t='int'], [gl_cv_promoted_mode_t='mode_t']) ]) AC_DEFINE_UNQUOTED([PROMOTED_MODE_T], [$gl_cv_promoted_mode_t], [Define to the type that is the result of default argument promotions of type mode_t.]) ]) libffcall-2.4/gnulib-m4/threadlib.m40000664000000000000000000005501014057155505014174 00000000000000# threadlib.m4 serial 30 dnl Copyright (C) 2005-2021 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.60]) dnl The general structure of the multithreading modules in gnulib is that we dnl have three set of modules: dnl dnl * POSIX API: dnl pthread, which combines dnl pthread-h dnl pthread-thread dnl pthread-once dnl pthread-mutex dnl pthread-rwlock dnl pthread-cond dnl pthread-tss dnl pthread-spin dnl sched_yield dnl dnl * ISO C API: dnl threads, which combines dnl threads-h dnl thrd dnl mtx dnl cnd dnl tss dnl dnl * Gnulib API, with an implementation that can be chosen at configure dnl time through the option --enable-threads=... dnl thread dnl lock dnl cond dnl tls dnl yield dnl dnl They are independent, except for the fact that dnl - the implementation of the ISO C API may use the POSIX (or some other dnl platform dependent) API, dnl - the implementation of the Gnulib API may use the POSIX or ISO C or dnl some other platform dependent API, depending on the --enable-threads dnl option. dnl dnl This file contains macros for all of these APIs! dnl ============================================================================ dnl Macros for all thread APIs AC_DEFUN([gl_ANYTHREADLIB_EARLY], [ AC_REQUIRE([AC_CANONICAL_HOST]) if test -z "$gl_anythreadlib_early_done"; then 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 gl_anythreadlib_early_done=done fi ]) dnl Checks whether the compiler and linker support weak declarations of symbols. AC_DEFUN([gl_WEAK_SYMBOLS], [ AC_REQUIRE([AC_CANONICAL_HOST]) 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 dnl Test for a bug in FreeBSD 11: A link error occurs when using a weak dnl symbol and linking against a shared library that has a dependency on dnl the shared library that defines the symbol. case "$gl_cv_have_weak" in *yes) case "$host_os" in freebsd* | dragonfly* | midnightbsd*) : > conftest1.c $CC $CPPFLAGS $CFLAGS $LDFLAGS -fPIC -shared -o libempty.so conftest1.c -lpthread >&AS_MESSAGE_LOG_FD 2>&1 cat < conftest2.c #include #pragma weak pthread_mutexattr_gettype int main () { return (pthread_mutexattr_gettype != NULL); } EOF $CC $CPPFLAGS $CFLAGS $LDFLAGS -o conftest conftest2.c libempty.so >&AS_MESSAGE_LOG_FD 2>&1 \ || gl_cv_have_weak=no rm -f conftest1.c libempty.so conftest2.c conftest ;; esac ;; esac ]) case "$gl_cv_have_weak" in *yes) AC_DEFINE([HAVE_WEAK_SYMBOLS], [1], [Define to 1 if the compiler and linker support weak declarations of symbols.]) ;; esac ]) dnl ============================================================================ dnl Macros for the POSIX API dnl gl_PTHREADLIB dnl ------------- dnl Tests for the libraries needs for using the POSIX threads API. dnl Sets the variable LIBPTHREAD to the linker options for use in a Makefile. dnl Sets the variable LIBPMULTITHREAD, for programs that really need dnl multithread functionality. The difference between LIBPTHREAD and dnl LIBPMULTITHREAD is that on platforms supporting weak symbols, typically dnl LIBPTHREAD is empty whereas LIBPMULTITHREAD is not. dnl Sets the variable LIB_SCHED_YIELD to the linker options needed to use the dnl sched_yield() function. dnl Adds to CPPFLAGS the flag -D_REENTRANT or -D_THREAD_SAFE if needed for dnl multithread-safe programs. dnl Defines the C macro HAVE_PTHREAD_API if (at least parts of) the POSIX dnl threads API is available. dnl The guts of gl_PTHREADLIB. Needs to be expanded only once. AC_DEFUN([gl_PTHREADLIB_BODY], [ AC_REQUIRE([gl_ANYTHREADLIB_EARLY]) if test -z "$gl_pthreadlib_body_done"; then gl_pthread_api=no LIBPTHREAD= LIBPMULTITHREAD= # On OSF/1, the compiler needs the flag -pthread or -D_REENTRANT so that # it groks . It's added above, in gl_ANYTHREADLIB_EARLY. 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 # 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_pthread_api=yes LIBPTHREAD=$gl_pthread LIBPMULTITHREAD=$gl_pthread]) LIBS=$save_LIBS test $gl_pthread_api = yes && 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 $gl_pthread_api = yes && test -z "$LIBPTHREAD"; 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], [LIBPMULTITHREAD=-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 $gl_pthread_api != yes; then # Some library is needed. Try libpthread and libc_r. AC_CHECK_LIB([pthread], [pthread_kill], [gl_pthread_api=yes LIBPTHREAD=-lpthread LIBPMULTITHREAD=-lpthread]) if test $gl_pthread_api != yes; then # For FreeBSD 4. AC_CHECK_LIB([c_r], [pthread_kill], [gl_pthread_api=yes LIBPTHREAD=-lc_r LIBPMULTITHREAD=-lc_r]) fi fi fi AC_MSG_CHECKING([whether POSIX threads API is available]) AC_MSG_RESULT([$gl_pthread_api]) AC_SUBST([LIBPTHREAD]) AC_SUBST([LIBPMULTITHREAD]) if test $gl_pthread_api = yes; then AC_DEFINE([HAVE_PTHREAD_API], [1], [Define if you have the header and the POSIX threads API.]) fi dnl On some systems, sched_yield is in librt, rather than in libpthread. AC_LINK_IFELSE( [AC_LANG_PROGRAM( [[#include ]], [[sched_yield ();]])], [LIB_SCHED_YIELD= ], [dnl Solaris 7...10 has sched_yield in librt, not in libpthread or libc. AC_CHECK_LIB([rt], [sched_yield], [LIB_SCHED_YIELD=-lrt], [dnl Solaris 2.5.1, 2.6 has sched_yield in libposix4, not librt. AC_CHECK_LIB([posix4], [sched_yield], [LIB_SCHED_YIELD=-lposix4])]) ]) AC_SUBST([LIB_SCHED_YIELD]) gl_pthreadlib_body_done=done fi ]) AC_DEFUN([gl_PTHREADLIB], [ AC_REQUIRE([gl_ANYTHREADLIB_EARLY]) gl_PTHREADLIB_BODY ]) dnl ============================================================================ dnl Macros for the ISO C API dnl gl_STDTHREADLIB dnl --------------- dnl Tests for the libraries needs for using the ISO C threads API. dnl Sets the variable LIBSTDTHREAD to the linker options for use in a Makefile. dnl Adds to CPPFLAGS the flag -D_REENTRANT or -D_THREAD_SAFE if needed for dnl multithread-safe programs. dnl Defines the C macro HAVE_THREADS_H if (at least parts of) the ISO C threads dnl API is available. dnl The guts of gl_STDTHREADLIB. Needs to be expanded only once. AC_DEFUN([gl_STDTHREADLIB_BODY], [ AC_REQUIRE([gl_ANYTHREADLIB_EARLY]) AC_REQUIRE([AC_CANONICAL_HOST]) if test -z "$gl_stdthreadlib_body_done"; then AC_CHECK_HEADERS_ONCE([threads.h]) case "$host_os" in mingw*) LIBSTDTHREAD= ;; *) gl_PTHREADLIB_BODY if test $ac_cv_header_threads_h = yes; then dnl glibc >= 2.29 has thrd_create in libpthread. dnl FreeBSD >= 10 has thrd_create in libstdthreads; this library depends dnl on libpthread (for the symbol 'pthread_mutexattr_gettype'). dnl AIX >= 7.1 and Solaris >= 11.4 have thrd_create in libc. AC_CHECK_FUNCS([thrd_create]) if test $ac_cv_func_thrd_create = yes; then LIBSTDTHREAD= else AC_CHECK_LIB([stdthreads], [thrd_create], [ LIBSTDTHREAD='-lstdthreads -lpthread' ], [ dnl Guess that thrd_create is in libpthread. LIBSTDTHREAD="$LIBPMULTITHREAD" ]) fi else dnl Libraries needed by thrd.c, mtx.c, cnd.c, tss.c. LIBSTDTHREAD="$LIBPMULTITHREAD $LIB_SCHED_YIELD" fi ;; esac AC_SUBST([LIBSTDTHREAD]) AC_MSG_CHECKING([whether ISO C threads API is available]) AC_MSG_RESULT([$ac_cv_header_threads_h]) gl_stdthreadlib_body_done=done fi ]) AC_DEFUN([gl_STDTHREADLIB], [ AC_REQUIRE([gl_ANYTHREADLIB_EARLY]) gl_STDTHREADLIB_BODY ]) dnl ============================================================================ dnl Macros for the Gnulib API dnl gl_THREADLIB dnl ------------ dnl Tests for a multithreading library to be used. dnl If the configure.ac contains a definition of the gl_THREADLIB_DEFAULT_NO dnl (it must be placed before the invocation of gl_THREADLIB_EARLY!), then the dnl default is 'no', otherwise it is system dependent. In both cases, the user dnl can change the choice through the options --enable-threads=choice or dnl --disable-threads. dnl Defines at most one of the macros USE_ISOC_THREADS, USE_POSIX_THREADS, dnl USE_ISOC_AND_POSIX_THREADS, USE_WINDOWS_THREADS. dnl The choice --enable-threads=isoc+posix is available only on platforms that dnl have both the ISO C and the POSIX threads APIs. It has the effect of using dnl the ISO C API for most things and the POSIX API only for creating and dnl controlling threads (because there is no equivalent to pthread_atfork in dnl the ISO C API). dnl Sets the variables LIBTHREAD and LTLIBTHREAD to the linker options for use dnl in a Makefile (LIBTHREAD for use without libtool, LTLIBTHREAD for use with dnl libtool). dnl Sets the variables LIBMULTITHREAD and LTLIBMULTITHREAD similarly, for dnl programs that really need multithread functionality. The difference dnl between LIBTHREAD and LIBMULTITHREAD is that on platforms supporting weak dnl symbols, typically LIBTHREAD is empty whereas LIBMULTITHREAD is not. dnl Adds to CPPFLAGS the flag -D_REENTRANT or -D_THREAD_SAFE if needed for dnl multithread-safe programs. dnl Since support for GNU pth was removed, $LTLIBTHREAD and $LIBTHREAD have the dnl same value, and similarly $LTLIBMULTITHREAD and $LIBMULTITHREAD have the dnl same value. Only system libraries are needed. AC_DEFUN([gl_THREADLIB_EARLY], [ AC_REQUIRE([gl_THREADLIB_EARLY_BODY]) ]) dnl The guts of gl_THREADLIB_EARLY. Needs to be expanded only once. AC_DEFUN([gl_THREADLIB_EARLY_BODY], [ dnl Ordering constraints: This macro modifies CPPFLAGS in a way that dnl influences the result of the autoconf tests that test for *_unlocked dnl declarations, on AIX 5 at least. Therefore it must come early. AC_BEFORE([$0], [gl_FUNC_GLIBC_UNLOCKED_IO])dnl AC_BEFORE([$0], [gl_ARGP])dnl AC_REQUIRE([AC_CANONICAL_HOST]) dnl _GNU_SOURCE is needed for pthread_rwlock_t on glibc systems. AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS]) dnl Check for multithreading. m4_ifdef([gl_THREADLIB_DEFAULT_NO], [m4_divert_text([DEFAULTS], [gl_use_threads_default=no])], [m4_divert_text([DEFAULTS], [gl_use_threads_default=])]) m4_divert_text([DEFAULTS], [gl_use_winpthreads_default=]) AC_ARG_ENABLE([threads], AS_HELP_STRING([--enable-threads={isoc|posix|isoc+posix|windows}], [specify multithreading API])m4_ifdef([gl_THREADLIB_DEFAULT_NO], [], [ AS_HELP_STRING([--disable-threads], [build without multithread safety])]), [gl_use_threads=$enableval], [if test -n "$gl_use_threads_default"; then gl_use_threads="$gl_use_threads_default" else changequote(,)dnl case "$host_os" in dnl Disable multithreading by default on OSF/1, because it interferes dnl with fork()/exec(): When msgexec is linked with -lpthread, its dnl child process gets an endless segmentation fault inside execvp(). osf*) gl_use_threads=no ;; dnl Disable multithreading by default on Cygwin 1.5.x, because it has dnl bugs that lead to endless loops or crashes. See dnl . 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" = isoc \ || test "$gl_use_threads" = posix \ || test "$gl_use_threads" = isoc+posix; then # For using or : gl_ANYTHREADLIB_EARLY 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. gl_WEAK_SYMBOLS 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" = isoc || test "$gl_use_threads" = isoc+posix; then AC_CHECK_HEADERS_ONCE([threads.h]) gl_have_isoc_threads="$ac_cv_header_threads_h" fi if test "$gl_use_threads" = yes \ || test "$gl_use_threads" = posix \ || test "$gl_use_threads" = isoc+posix; then gl_PTHREADLIB_BODY LIBTHREAD=$LIBPTHREAD LTLIBTHREAD=$LIBPTHREAD LIBMULTITHREAD=$LIBPMULTITHREAD LTLIBMULTITHREAD=$LIBPMULTITHREAD if test $gl_pthread_api = yes; then if test "$gl_use_threads" = isoc+posix && test "$gl_have_isoc_threads" = yes; then gl_threads_api='isoc+posix' AC_DEFINE([USE_ISOC_AND_POSIX_THREADS], [1], [Define if the combination of the ISO C and POSIX multithreading APIs can be used.]) LIBTHREAD= LTLIBTHREAD= else 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= else case "$host_os" in freebsd* | dragonfly* | midnightbsd*) if test "x$LIBTHREAD" != "x$LIBMULTITHREAD"; then dnl If weak symbols can't tell whether pthread_create(), pthread_key_create() dnl etc. will succeed, we need a runtime test. AC_DEFINE([PTHREAD_IN_USE_DETECTION_HARD], [1], [Define if the pthread_in_use() detection is hard.]) fi ;; esac fi fi fi fi fi if test $gl_threads_api = none; then if test "$gl_use_threads" = isoc && test "$gl_have_isoc_threads" = yes; then gl_STDTHREADLIB_BODY LIBTHREAD=$LIBSTDTHREAD LTLIBTHREAD=$LIBSTDTHREAD LIBMULTITHREAD=$LIBSTDTHREAD LTLIBMULTITHREAD=$LIBSTDTHREAD gl_threads_api=isoc AC_DEFINE([USE_ISOC_THREADS], [1], [Define if the ISO C multithreading library can be used.]) fi fi if test $gl_threads_api = none; 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 ============================================================================ 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.4/gnulib-m4/alloca.m40000664000000000000000000000740014057155505013471 00000000000000# alloca.m4 serial 20 dnl Copyright (C) 2002-2004, 2006-2007, 2009-2021 Free Software Foundation, dnl 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([gl_FUNC_ALLOCA], [ AC_REQUIRE([AC_FUNC_ALLOCA]) if test $ac_cv_func_alloca_works = no; then gl_PREREQ_ALLOCA fi # Define an additional variable used in the Makefile substitution. if test $ac_cv_working_alloca_h = yes; then AC_CACHE_CHECK([for alloca as a compiler built-in], [gl_cv_rpl_alloca], [ AC_EGREP_CPP([Need own alloca], [ #if defined __GNUC__ || defined _AIX || defined _MSC_VER Need own alloca #endif ], [gl_cv_rpl_alloca=yes], [gl_cv_rpl_alloca=no]) ]) if test $gl_cv_rpl_alloca = yes; then dnl OK, alloca can be implemented through a compiler built-in. AC_DEFINE([HAVE_ALLOCA], [1], [Define to 1 if you have 'alloca' after including , a header that may be supplied by this distribution.]) ALLOCA_H=alloca.h else dnl alloca exists as a library function, i.e. it is slow and probably dnl a memory leak. Don't define HAVE_ALLOCA in this case. ALLOCA_H= fi else ALLOCA_H=alloca.h fi AC_SUBST([ALLOCA_H]) AM_CONDITIONAL([GL_GENERATE_ALLOCA_H], [test -n "$ALLOCA_H"]) if test $ac_cv_working_alloca_h = yes; then HAVE_ALLOCA_H=1 else HAVE_ALLOCA_H=0 fi AC_SUBST([HAVE_ALLOCA_H]) ]) # Prerequisites of lib/alloca.c. # STACK_DIRECTION is already handled by AC_FUNC_ALLOCA. AC_DEFUN([gl_PREREQ_ALLOCA], [:]) m4_version_prereq([2.70], [], [ # This works around a bug in autoconf <= 2.68 and has simplifications # from 2.70. See: # https://lists.gnu.org/r/bug-gnulib/2011-06/msg00277.html # https://git.savannah.gnu.org/cgit/autoconf.git/commit/?id=6cd9f12520b0d6f76d3230d7565feba1ecf29497 # https://git.savannah.gnu.org/cgit/autoconf.git/commit/?id=15edf7fd8094fd14a89d9891dd72a9624762597a # _AC_LIBOBJ_ALLOCA # ----------------- # Set up the LIBOBJ replacement of 'alloca'. Well, not exactly # AC_LIBOBJ since we actually set the output variable 'ALLOCA'. # Nevertheless, for Automake, AC_LIBSOURCES it. m4_define([_AC_LIBOBJ_ALLOCA], [# The SVR3 libPW and SVR4 libucb both contain incompatible functions # that cause trouble. Some versions do not even contain alloca or # contain a buggy version. If you still want to use their alloca, # use ar to extract alloca.o from them instead of compiling alloca.c. AC_LIBSOURCES(alloca.c) AC_SUBST([ALLOCA], [\${LIBOBJDIR}alloca.$ac_objext])dnl AC_DEFINE(C_ALLOCA, 1, [Define to 1 if using 'alloca.c'.]) AC_CACHE_CHECK([stack direction for C alloca], [ac_cv_c_stack_direction], [AC_RUN_IFELSE([AC_LANG_SOURCE( [AC_INCLUDES_DEFAULT int find_stack_direction (int *addr, int depth) { int dir, dummy = 0; if (! addr) addr = &dummy; *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1; dir = depth ? find_stack_direction (addr, depth - 1) : 0; return dir + dummy; } int main (int argc, char **argv) { return find_stack_direction (0, argc + !argv + 20) < 0; }])], [ac_cv_c_stack_direction=1], [ac_cv_c_stack_direction=-1], [ac_cv_c_stack_direction=0])]) AH_VERBATIM([STACK_DIRECTION], [/* If using the C implementation of alloca, define if you know the direction of stack growth for your system; otherwise it will be automatically deduced at runtime. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #undef STACK_DIRECTION])dnl AC_DEFINE_UNQUOTED(STACK_DIRECTION, $ac_cv_c_stack_direction) ])# _AC_LIBOBJ_ALLOCA ]) libffcall-2.4/config.h.in0000664000000000000000000011314014061422201012201 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 1 if using 'alloca.c'. */ #undef C_ALLOCA /* Define to 1 if // is a file system root distinct from /. */ #undef DOUBLE_SLASH_IS_DISTINCT_ROOT /* Define this to 1 if F_DUPFD behavior does not match POSIX */ #undef FCNTL_DUPFD_BUGGY /* Define to a C preprocessor expression that evaluates to 1 or 0, depending whether the gnulib module fscanf shall be considered present. */ #undef GNULIB_FSCANF /* 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 a C preprocessor expression that evaluates to 1 or 0, depending whether the gnulib module msvc-nothrow shall be considered present. */ #undef GNULIB_MSVC_NOTHROW /* Define to 1 if printf and friends should be labeled with attribute "__gnu_printf__" instead of "__printf__" */ #undef GNULIB_PRINTF_ATTRIBUTE_FLAVOR_GNU /* Define to a C preprocessor expression that evaluates to 1 or 0, depending whether the gnulib module scanf shall be considered present. */ #undef GNULIB_SCANF /* Define to a C preprocessor expression that evaluates to 1 or 0, depending whether the gnulib module strerror shall be considered present. */ #undef GNULIB_STRERROR /* Define to 1 when the gnulib module cloexec should be tested. */ #undef GNULIB_TEST_CLOEXEC /* Define to 1 when the gnulib module close should be tested. */ #undef GNULIB_TEST_CLOSE /* Define to 1 when the gnulib module dup2 should be tested. */ #undef GNULIB_TEST_DUP2 /* Define to 1 when the gnulib module fcntl should be tested. */ #undef GNULIB_TEST_FCNTL /* Define to 1 when the gnulib module fgetc should be tested. */ #undef GNULIB_TEST_FGETC /* Define to 1 when the gnulib module fgets should be tested. */ #undef GNULIB_TEST_FGETS /* Define to 1 when the gnulib module fprintf should be tested. */ #undef GNULIB_TEST_FPRINTF /* Define to 1 when the gnulib module fputc should be tested. */ #undef GNULIB_TEST_FPUTC /* Define to 1 when the gnulib module fputs should be tested. */ #undef GNULIB_TEST_FPUTS /* Define to 1 when the gnulib module fread should be tested. */ #undef GNULIB_TEST_FREAD /* Define to 1 when the gnulib module fscanf should be tested. */ #undef GNULIB_TEST_FSCANF /* Define to 1 when the gnulib module fstat should be tested. */ #undef GNULIB_TEST_FSTAT /* Define to 1 when the gnulib module fwrite should be tested. */ #undef GNULIB_TEST_FWRITE /* Define to 1 when the gnulib module getc should be tested. */ #undef GNULIB_TEST_GETC /* Define to 1 when the gnulib module getchar should be tested. */ #undef GNULIB_TEST_GETCHAR /* Define to 1 when the gnulib module getdtablesize should be tested. */ #undef GNULIB_TEST_GETDTABLESIZE /* Define to 1 when the gnulib module open should be tested. */ #undef GNULIB_TEST_OPEN /* Define to 1 when the gnulib module printf should be tested. */ #undef GNULIB_TEST_PRINTF /* Define to 1 when the gnulib module putc should be tested. */ #undef GNULIB_TEST_PUTC /* Define to 1 when the gnulib module putchar should be tested. */ #undef GNULIB_TEST_PUTCHAR /* Define to 1 when the gnulib module puts should be tested. */ #undef GNULIB_TEST_PUTS /* Define to 1 when the gnulib module raise should be tested. */ #undef GNULIB_TEST_RAISE /* Define to 1 when the gnulib module rmdir should be tested. */ #undef GNULIB_TEST_RMDIR /* Define to 1 when the gnulib module scanf should be tested. */ #undef GNULIB_TEST_SCANF /* Define to 1 when the gnulib module sigaction should be tested. */ #undef GNULIB_TEST_SIGACTION /* Define to 1 when the gnulib module sigprocmask should be tested. */ #undef GNULIB_TEST_SIGPROCMASK /* Define to 1 when the gnulib module stat should be tested. */ #undef GNULIB_TEST_STAT /* Define to 1 when the gnulib module strerror should be tested. */ #undef GNULIB_TEST_STRERROR /* Define to 1 when the gnulib module vfprintf should be tested. */ #undef GNULIB_TEST_VFPRINTF /* Define to 1 when the gnulib module vprintf should be tested. */ #undef GNULIB_TEST_VPRINTF /* Define to 1 if you have 'alloca' after including , a header that may be supplied by this distribution. */ #undef HAVE_ALLOCA /* Define to 1 if works. */ #undef HAVE_ALLOCA_H /* Define to 1 if you have the declaration of `execvpe', and to 0 if you don't. */ #undef HAVE_DECL_EXECVPE /* Define to 1 if you have the declaration of `fcloseall', and to 0 if you don't. */ #undef HAVE_DECL_FCLOSEALL /* Define to 1 if you have the declaration of `getdtablesize', and to 0 if you don't. */ #undef HAVE_DECL_GETDTABLESIZE /* Define to 1 if you have the declaration of `program_invocation_name', and to 0 if you don't. */ #undef HAVE_DECL_PROGRAM_INVOCATION_NAME /* Define to 1 if you have the declaration of `program_invocation_short_name', and to 0 if you don't. */ #undef HAVE_DECL_PROGRAM_INVOCATION_SHORT_NAME /* Define to 1 if you have the declaration of `strerror_r', and to 0 if you don't. */ #undef HAVE_DECL_STRERROR_R /* Define to 1 if you have the declaration of `__argv', and to 0 if you don't. */ #undef HAVE_DECL___ARGV /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define to 1 if you have the `fcntl' function. */ #undef HAVE_FCNTL /* Define to 1 if you have the `getdtablesize' function. */ #undef HAVE_GETDTABLESIZE /* Define to 1 if you have the `getexecname' function. */ #undef HAVE_GETEXECNAME /* Define to 1 if you have the `getprogname' function. */ #undef HAVE_GETPROGNAME /* 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 /* Define to 1 if you have the `lstat' function. */ #undef HAVE_LSTAT /* Define to 1 if mmap()'s MAP_ANONYMOUS flag is available after including config.h and . */ #undef HAVE_MAP_ANONYMOUS /* Define to 1 if you have the header file. */ #undef HAVE_MINIX_CONFIG_H /* 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 to 1 on MSVC platforms that have the "invalid parameter handler" concept. */ #undef HAVE_MSVC_INVALID_PARAMETER_HANDLER /* Define if you have the header and the POSIX threads API. */ #undef HAVE_PTHREAD_API /* Define to 1 if you have the header file. */ #undef HAVE_PTHREAD_H /* 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 /* Define to 1 if you have the `raise' function. */ #undef HAVE_RAISE /* Define to 1 if you have the header file. */ #undef HAVE_SDKDDKVER_H /* Define to 1 if you have the `setdtablesize' function. */ #undef HAVE_SETDTABLESIZE /* Define to 1 if you have the `sigaction' function. */ #undef HAVE_SIGACTION /* Define to 1 if you have the `sigaltstack' function. */ #undef HAVE_SIGALTSTACK /* Define to 1 if the system has the type `siginfo_t'. */ #undef HAVE_SIGINFO_T /* Define to 1 if you have the `siginterrupt' function. */ #undef HAVE_SIGINTERRUPT /* 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 the system has the type `sigset_t'. */ #undef HAVE_SIGSET_T /* Define to 1 if the system has the type `sig_atomic_t'. */ #undef HAVE_SIG_ATOMIC_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_STDIO_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define if you have `strerror_r'. */ #undef HAVE_STRERROR_R /* 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 `sa_sigaction' is a member of `struct sigaction'. */ #undef HAVE_STRUCT_SIGACTION_SA_SIGACTION /* Define to 1 if `st_atimensec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_ATIMENSEC /* Define to 1 if `st_atimespec.tv_nsec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_ATIMESPEC_TV_NSEC /* Define to 1 if `st_atim.st__tim.tv_nsec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_ATIM_ST__TIM_TV_NSEC /* Define to 1 if `st_atim.tv_nsec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC /* Define to 1 if `st_birthtimensec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_BIRTHTIMENSEC /* Define to 1 if `st_birthtimespec.tv_nsec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_BIRTHTIMESPEC_TV_NSEC /* Define to 1 if `st_birthtim.tv_nsec' is a member of `struct stat'. */ #undef HAVE_STRUCT_STAT_ST_BIRTHTIM_TV_NSEC /* Define to 1 if you have the `symlink' function. */ #undef HAVE_SYMLINK /* 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_PARAM_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SINGLE_THREADED_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_SOCKET_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_TIME_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the `thrd_create' function. */ #undef HAVE_THRD_CREATE /* 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 if you have a global __progname variable */ #undef HAVE_VAR___PROGNAME /* Define to 1 if you have the header file. */ #undef HAVE_WCHAR_H /* Define if you have the 'wchar_t' type. */ #undef HAVE_WCHAR_T /* Define to 1 if the compiler and linker support weak declarations of symbols. */ #undef HAVE_WEAK_SYMBOLS /* Define to 1 if you have the header file. */ #undef HAVE_WINSOCK2_H /* Define if you have the 'wint_t' type. */ #undef HAVE_WINT_T /* have a working mprotect() function */ #undef HAVE_WORKING_MPROTECT /* Define to 1 if O_NOATIME works. */ #undef HAVE_WORKING_O_NOATIME /* Define to 1 if O_NOFOLLOW works. */ #undef HAVE_WORKING_O_NOFOLLOW /* Define to 1 if the system has the type `_Bool'. */ #undef HAVE__BOOL /* Define to 1 if you have the `_set_invalid_parameter_handler' function. */ #undef HAVE__SET_INVALID_PARAMETER_HANDLER /* Version number: (major<<8) + minor */ #undef LIBFFCALL_VERSION /* Define to the sub-directory where libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* If malloc(0) is != NULL, define this to 1. Otherwise define this to 0. */ #undef MALLOC_0_IS_NONNULL /* Define to a substitute value for mmap()'s MAP_ANONYMOUS flag. */ #undef MAP_ANONYMOUS /* Use GNU style printf and scanf. */ #ifndef __USE_MINGW_ANSI_STDIO # undef __USE_MINGW_ANSI_STDIO #endif /* Define to 1 if open() fails to recognize a trailing slash. */ #undef OPEN_TRAILING_SLASH_BUG /* 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 to the type that is the result of default argument promotions of type mode_t. */ #undef PROMOTED_MODE_T /* 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 /* Define to 1 if stat needs help when passed a file name with a trailing slash */ #undef REPLACE_FUNC_STAT_FILE /* Define to 1 if strerror(0) does not return a message implying success. */ #undef REPLACE_STRERROR_0 /* Define if lists must be signal-safe. */ #undef SIGNAL_SAFE_LIST /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'sig_atomic_t'. */ #undef SIG_ATOMIC_T_SUFFIX /* Define as the maximum value of type 'size_t', if the system doesn't define it. */ #ifndef SIZE_MAX # undef SIZE_MAX #endif /* Define to l, ll, u, ul, ull, etc., as suitable for constants of type 'size_t'. */ #undef SIZE_T_SUFFIX /* If using the C implementation of alloca, define if you know the direction of stack growth for your system; otherwise it will be automatically deduced at runtime. STACK_DIRECTION > 0 => grows toward higher addresses STACK_DIRECTION < 0 => grows toward lower addresses STACK_DIRECTION = 0 => direction of growth unknown */ #undef STACK_DIRECTION /* Define to 1 if the `S_IS*' macros in do not work properly. */ #undef STAT_MACROS_BROKEN /* Define to 1 if all of the C90 standard headers exist (not just the ones required in a freestanding environment). This macro is provided for backward compatibility; new code need not use it. */ #undef STDC_HEADERS /* Define to 1 if strerror_r returns char *. */ #undef STRERROR_R_CHAR_P /* Define to 1 if the type of the st_atim member of a struct stat is struct timespec. */ #undef TYPEOF_STRUCT_STAT_ST_ATIM_IS_STRUCT_TIMESPEC /* 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 combination of the ISO C and POSIX multithreading APIs can be used. */ #undef USE_ISOC_AND_POSIX_THREADS /* Define if the ISO C multithreading library can be used. */ #undef USE_ISOC_THREADS /* 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 general extensions on Solaris. */ #ifndef __EXTENSIONS__ # undef __EXTENSIONS__ #endif /* Enable GNU extensions on systems that have them. */ #ifndef _GNU_SOURCE # undef _GNU_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 /* Identify the host operating system as Minix. This macro does not affect the system headers' behavior. A future release of Autoconf may stop defining this macro. */ #ifndef _MINIX # undef _MINIX #endif /* Enable general extensions on NetBSD. Enable NetBSD compatibility extensions on Minix. */ #ifndef _NETBSD_SOURCE # undef _NETBSD_SOURCE #endif /* Enable OpenBSD compatibility extensions on NetBSD. Oddly enough, this does nothing on OpenBSD. */ #ifndef _OPENBSD_SOURCE # undef _OPENBSD_SOURCE #endif /* Define to 1 if needed for POSIX-compatible behavior. */ #ifndef _POSIX_SOURCE # undef _POSIX_SOURCE #endif /* Define to 2 if needed for POSIX-compatible behavior. */ #ifndef _POSIX_1_SOURCE # undef _POSIX_1_SOURCE #endif /* Enable POSIX-compatible threading 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. Define to 500 only if necessary to make mbstate_t available. */ #ifndef _XOPEN_SOURCE # undef _XOPEN_SOURCE #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 /* Number of bits in a file offset, on hosts where this is settable. */ #undef _FILE_OFFSET_BITS /* True if the compiler says it groks GNU C version MAJOR.MINOR. */ #if defined __GNUC__ && defined __GNUC_MINOR__ # define _GL_GNUC_PREREQ(major, minor) \ ((major) < __GNUC__ + ((minor) <= __GNUC_MINOR__)) #else # define _GL_GNUC_PREREQ(major, minor) 0 #endif /* Define to enable the declarations of ISO C 11 types and functions. */ #undef _ISOC11_SOURCE /* Define for large files, on AIX-style hosts. */ #undef _LARGE_FILES /* The _Noreturn keyword of C11. */ #ifndef _Noreturn # if (defined __cplusplus \ && ((201103 <= __cplusplus && !(__GNUC__ == 4 && __GNUC_MINOR__ == 7)) \ || (defined _MSC_VER && 1900 <= _MSC_VER)) \ && 0) /* [[noreturn]] is not practically usable, because with it the syntax extern _Noreturn void func (...); would not be valid; such a declaration would only be valid with 'extern' and '_Noreturn' swapped, or without the 'extern' keyword. However, some AIX system header files and several gnulib header files use precisely this syntax with 'extern'. */ # define _Noreturn [[noreturn]] # elif ((!defined __cplusplus || defined __clang__) \ && (201112 <= (defined __STDC_VERSION__ ? __STDC_VERSION__ : 0) \ || (!defined __STRICT_ANSI__ \ && (_GL_GNUC_PREREQ (4, 7) \ || (defined __apple_build_version__ \ ? 6000000 <= __apple_build_version__ \ : 3 < __clang_major__ + (5 <= __clang_minor__)))))) /* _Noreturn works as-is. */ # elif _GL_GNUC_PREREQ (2, 8) || defined __clang__ || 0x5110 <= __SUNPRO_C # define _Noreturn __attribute__ ((__noreturn__)) # elif 1200 <= (defined _MSC_VER ? _MSC_VER : 0) # define _Noreturn __declspec (noreturn) # else # define _Noreturn # endif #endif /* For standard stat data types on VMS. */ #undef _USE_STD_STAT /* 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 /* Attributes. */ #if (defined __has_attribute \ && (!defined __clang_minor__ \ || 3 < __clang_major__ + (5 <= __clang_minor__))) # define _GL_HAS_ATTRIBUTE(attr) __has_attribute (__##attr##__) #else # define _GL_HAS_ATTRIBUTE(attr) _GL_ATTR_##attr # define _GL_ATTR_alloc_size _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_always_inline _GL_GNUC_PREREQ (3, 2) # define _GL_ATTR_artificial _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_cold _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_const _GL_GNUC_PREREQ (2, 95) # define _GL_ATTR_deprecated _GL_GNUC_PREREQ (3, 1) # define _GL_ATTR_diagnose_if 0 # define _GL_ATTR_error _GL_GNUC_PREREQ (4, 3) # define _GL_ATTR_externally_visible _GL_GNUC_PREREQ (4, 1) # define _GL_ATTR_fallthrough _GL_GNUC_PREREQ (7, 0) # define _GL_ATTR_format _GL_GNUC_PREREQ (2, 7) # define _GL_ATTR_leaf _GL_GNUC_PREREQ (4, 6) # ifdef _ICC # define _GL_ATTR_may_alias 0 # else # define _GL_ATTR_may_alias _GL_GNUC_PREREQ (3, 3) # endif # define _GL_ATTR_malloc _GL_GNUC_PREREQ (3, 0) # define _GL_ATTR_noinline _GL_GNUC_PREREQ (3, 1) # define _GL_ATTR_nonnull _GL_GNUC_PREREQ (3, 3) # define _GL_ATTR_nonstring _GL_GNUC_PREREQ (8, 0) # define _GL_ATTR_nothrow _GL_GNUC_PREREQ (3, 3) # define _GL_ATTR_packed _GL_GNUC_PREREQ (2, 7) # define _GL_ATTR_pure _GL_GNUC_PREREQ (2, 96) # define _GL_ATTR_returns_nonnull _GL_GNUC_PREREQ (4, 9) # define _GL_ATTR_sentinel _GL_GNUC_PREREQ (4, 0) # define _GL_ATTR_unused _GL_GNUC_PREREQ (2, 7) # define _GL_ATTR_warn_unused_result _GL_GNUC_PREREQ (3, 4) #endif #if _GL_HAS_ATTRIBUTE (alloc_size) # define _GL_ATTRIBUTE_ALLOC_SIZE(args) __attribute__ ((__alloc_size__ args)) #else # define _GL_ATTRIBUTE_ALLOC_SIZE(args) #endif #if _GL_HAS_ATTRIBUTE (always_inline) # define _GL_ATTRIBUTE_ALWAYS_INLINE __attribute__ ((__always_inline__)) #else # define _GL_ATTRIBUTE_ALWAYS_INLINE #endif #if _GL_HAS_ATTRIBUTE (artificial) # define _GL_ATTRIBUTE_ARTIFICIAL __attribute__ ((__artificial__)) #else # define _GL_ATTRIBUTE_ARTIFICIAL #endif /* Avoid __attribute__ ((cold)) on MinGW; see thread starting at . Also, Oracle Studio 12.6 requires 'cold' not '__cold__'. */ #if _GL_HAS_ATTRIBUTE (cold) && !defined __MINGW32__ # ifndef __SUNPRO_C # define _GL_ATTRIBUTE_COLD __attribute__ ((__cold__)) # else # define _GL_ATTRIBUTE_COLD __attribute__ ((cold)) # endif #else # define _GL_ATTRIBUTE_COLD #endif #if _GL_HAS_ATTRIBUTE (const) # define _GL_ATTRIBUTE_CONST __attribute__ ((__const__)) #else # define _GL_ATTRIBUTE_CONST #endif #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_DEPRECATED [[__deprecated__]] #elif _GL_HAS_ATTRIBUTE (deprecated) # define _GL_ATTRIBUTE_DEPRECATED __attribute__ ((__deprecated__)) #else # define _GL_ATTRIBUTE_DEPRECATED #endif #if _GL_HAS_ATTRIBUTE (error) # define _GL_ATTRIBUTE_ERROR(msg) __attribute__ ((__error__ (msg))) # define _GL_ATTRIBUTE_WARNING(msg) __attribute__ ((__warning__ (msg))) #elif _GL_HAS_ATTRIBUTE (diagnose_if) # define _GL_ATTRIBUTE_ERROR(msg) __attribute__ ((__diagnose_if__ (1, msg, "error"))) # define _GL_ATTRIBUTE_WARNING(msg) __attribute__ ((__diagnose_if__ (1, msg, "warning"))) #else # define _GL_ATTRIBUTE_ERROR(msg) # define _GL_ATTRIBUTE_WARNING(msg) #endif #if _GL_HAS_ATTRIBUTE (externally_visible) # define _GL_ATTRIBUTE_EXTERNALLY_VISIBLE __attribute__ ((externally_visible)) #else # define _GL_ATTRIBUTE_EXTERNALLY_VISIBLE #endif /* FALLTHROUGH is special, because it always expands to something. */ #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_FALLTHROUGH [[__fallthrough__]] #elif _GL_HAS_ATTRIBUTE (fallthrough) # define _GL_ATTRIBUTE_FALLTHROUGH __attribute__ ((__fallthrough__)) #else # define _GL_ATTRIBUTE_FALLTHROUGH ((void) 0) #endif #if _GL_HAS_ATTRIBUTE (format) # define _GL_ATTRIBUTE_FORMAT(spec) __attribute__ ((__format__ spec)) #else # define _GL_ATTRIBUTE_FORMAT(spec) #endif #if _GL_HAS_ATTRIBUTE (leaf) # define _GL_ATTRIBUTE_LEAF __attribute__ ((__leaf__)) #else # define _GL_ATTRIBUTE_LEAF #endif /* Oracle Studio 12.6 mishandles may_alias despite __has_attribute OK. */ #if _GL_HAS_ATTRIBUTE (may_alias) && !defined __SUNPRO_C # define _GL_ATTRIBUTE_MAY_ALIAS __attribute__ ((__may_alias__)) #else # define _GL_ATTRIBUTE_MAY_ALIAS #endif #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_MAYBE_UNUSED [[__maybe_unused__]] #elif _GL_HAS_ATTRIBUTE (unused) # define _GL_ATTRIBUTE_MAYBE_UNUSED __attribute__ ((__unused__)) #else # define _GL_ATTRIBUTE_MAYBE_UNUSED #endif /* Earlier spellings of this macro. */ #define _GL_UNUSED _GL_ATTRIBUTE_MAYBE_UNUSED #define _UNUSED_PARAMETER_ _GL_ATTRIBUTE_MAYBE_UNUSED #if _GL_HAS_ATTRIBUTE (malloc) # define _GL_ATTRIBUTE_MALLOC __attribute__ ((__malloc__)) #else # define _GL_ATTRIBUTE_MALLOC #endif #if 201710L < __STDC_VERSION__ # define _GL_ATTRIBUTE_NODISCARD [[__nodiscard__]] #elif _GL_HAS_ATTRIBUTE (warn_unused_result) # define _GL_ATTRIBUTE_NODISCARD __attribute__ ((__warn_unused_result__)) #else # define _GL_ATTRIBUTE_NODISCARD #endif #if _GL_HAS_ATTRIBUTE (noinline) # define _GL_ATTRIBUTE_NOINLINE __attribute__ ((__noinline__)) #else # define _GL_ATTRIBUTE_NOINLINE #endif #if _GL_HAS_ATTRIBUTE (nonnull) # define _GL_ATTRIBUTE_NONNULL(args) __attribute__ ((__nonnull__ args)) #else # define _GL_ATTRIBUTE_NONNULL(args) #endif #if _GL_HAS_ATTRIBUTE (nonstring) # define _GL_ATTRIBUTE_NONSTRING __attribute__ ((__nonstring__)) #else # define _GL_ATTRIBUTE_NONSTRING #endif /* There is no _GL_ATTRIBUTE_NORETURN; use _Noreturn instead. */ #if _GL_HAS_ATTRIBUTE (nothrow) && !defined __cplusplus # define _GL_ATTRIBUTE_NOTHROW __attribute__ ((__nothrow__)) #else # define _GL_ATTRIBUTE_NOTHROW #endif #if _GL_HAS_ATTRIBUTE (packed) # define _GL_ATTRIBUTE_PACKED __attribute__ ((__packed__)) #else # define _GL_ATTRIBUTE_PACKED #endif #if _GL_HAS_ATTRIBUTE (pure) # define _GL_ATTRIBUTE_PURE __attribute__ ((__pure__)) #else # define _GL_ATTRIBUTE_PURE #endif #if _GL_HAS_ATTRIBUTE (returns_nonnull) # define _GL_ATTRIBUTE_RETURNS_NONNULL __attribute__ ((__returns_nonnull__)) #else # define _GL_ATTRIBUTE_RETURNS_NONNULL #endif #if _GL_HAS_ATTRIBUTE (sentinel) # define _GL_ATTRIBUTE_SENTINEL(pos) __attribute__ ((__sentinel__ pos)) #else # define _GL_ATTRIBUTE_SENTINEL(pos) #endif /* To support C++ as well as C, use _GL_UNUSED_LABEL with trailing ';'. */ #if !defined __cplusplus || _GL_GNUC_PREREQ (4, 5) # define _GL_UNUSED_LABEL _GL_ATTRIBUTE_MAYBE_UNUSED #else # define _GL_UNUSED_LABEL #endif /* Please see the Gnulib manual for how to use these macros. Suppress extern inline with HP-UX cc, as it appears to be broken; see . Suppress extern inline with Sun C in standards-conformance mode, as it mishandles inline functions that call each other. E.g., for 'inline void f (void) { } inline void g (void) { f (); }', c99 incorrectly complains 'reference to static identifier "f" in extern inline function'. This bug was observed with Sun C 5.12 SunOS_i386 2011/11/16. Suppress extern inline (with or without __attribute__ ((__gnu_inline__))) on configurations that mistakenly use 'static inline' to implement functions or macros in standard C headers like . For example, if isdigit is mistakenly implemented via a static inline function, a program containing an extern inline function that calls isdigit may not work since the C standard prohibits extern inline functions from calling static functions (ISO C 99 section 6.7.4.(3). This bug is known to occur on: OS X 10.8 and earlier; see: https://lists.gnu.org/r/bug-gnulib/2012-12/msg00023.html DragonFly; see http://muscles.dragonflybsd.org/bulk/clang-master-potential/20141111_102002/logs/ah-tty-0.3.12.log FreeBSD; see: https://lists.gnu.org/r/bug-gnulib/2014-07/msg00104.html OS X 10.9 has a macro __header_inline indicating the bug is fixed for C and for clang but remains for g++; see . Assume DragonFly and FreeBSD will be similar. GCC 4.3 and above with -std=c99 or -std=gnu99 implements ISO C99 inline semantics, unless -fgnu89-inline is used. It defines a macro __GNUC_STDC_INLINE__ to indicate this situation or a macro __GNUC_GNU_INLINE__ to indicate the opposite situation. GCC 4.2 with -std=c99 or -std=gnu99 implements the GNU C inline semantics but warns, unless -fgnu89-inline is used: warning: C99 inline functions are not supported; using GNU89 warning: to disable this warning use -fgnu89-inline or the gnu_inline function attribute It defines a macro __GNUC_GNU_INLINE__ to indicate this situation. */ #if (((defined __APPLE__ && defined __MACH__) \ || defined __DragonFly__ || defined __FreeBSD__) \ && (defined __header_inline \ ? (defined __cplusplus && defined __GNUC_STDC_INLINE__ \ && ! defined __clang__) \ : ((! defined _DONT_USE_CTYPE_INLINE_ \ && (defined __GNUC__ || defined __cplusplus)) \ || (defined _FORTIFY_SOURCE && 0 < _FORTIFY_SOURCE \ && defined __GNUC__ && ! defined __cplusplus)))) # define _GL_EXTERN_INLINE_STDHEADER_BUG #endif #if ((__GNUC__ \ ? defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ \ : (199901L <= __STDC_VERSION__ \ && !defined __HP_cc \ && !defined __PGI \ && !(defined __SUNPRO_C && __STDC__))) \ && !defined _GL_EXTERN_INLINE_STDHEADER_BUG) # define _GL_INLINE inline # define _GL_EXTERN_INLINE extern inline # define _GL_EXTERN_INLINE_IN_USE #elif (2 < __GNUC__ + (7 <= __GNUC_MINOR__) && !defined __STRICT_ANSI__ \ && !defined _GL_EXTERN_INLINE_STDHEADER_BUG) # if defined __GNUC_GNU_INLINE__ && __GNUC_GNU_INLINE__ /* __gnu_inline__ suppresses a GCC 4.2 diagnostic. */ # define _GL_INLINE extern inline __attribute__ ((__gnu_inline__)) # else # define _GL_INLINE extern inline # endif # define _GL_EXTERN_INLINE extern # define _GL_EXTERN_INLINE_IN_USE #else # define _GL_INLINE static _GL_UNUSED # define _GL_EXTERN_INLINE static _GL_UNUSED #endif /* In GCC 4.6 (inclusive) to 5.1 (exclusive), suppress bogus "no previous prototype for 'FOO'" and "no previous declaration for 'FOO'" diagnostics, when FOO is an inline function in the header; see and . */ #if __GNUC__ == 4 && 6 <= __GNUC_MINOR__ # if defined __GNUC_STDC_INLINE__ && __GNUC_STDC_INLINE__ # define _GL_INLINE_HEADER_CONST_PRAGMA # else # define _GL_INLINE_HEADER_CONST_PRAGMA \ _Pragma ("GCC diagnostic ignored \"-Wsuggest-attribute=const\"") # endif # define _GL_INLINE_HEADER_BEGIN \ _Pragma ("GCC diagnostic push") \ _Pragma ("GCC diagnostic ignored \"-Wmissing-prototypes\"") \ _Pragma ("GCC diagnostic ignored \"-Wmissing-declarations\"") \ _GL_INLINE_HEADER_CONST_PRAGMA # define _GL_INLINE_HEADER_END \ _Pragma ("GCC diagnostic pop") #else # define _GL_INLINE_HEADER_BEGIN # define _GL_INLINE_HEADER_END #endif /* Define to `int' if doesn't define. */ #undef gid_t /* Define to `__inline__' or `__inline' if that's what the C compiler calls it, or to nothing if 'inline' is not supported under any name. */ #ifndef __cplusplus #undef inline #endif /* 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 /* _GL_CMP (n1, n2) performs a three-valued comparison on n1 vs. n2, where n1 and n2 are expressions without side effects, that evaluate to real numbers (excluding NaN). It returns 1 if n1 > n2 0 if n1 == n2 -1 if n1 < n2 The naïve code (n1 > n2 ? 1 : n1 < n2 ? -1 : 0) produces a conditional jump with nearly all GCC versions up to GCC 10. This variant (n1 < n2 ? -1 : n1 > n2) produces a conditional with many GCC versions up to GCC 9. The better code (n1 > n2) - (n1 < n2) from Hacker's Delight § 2-9 avoids conditional jumps in all GCC versions >= 3.4. */ #define _GL_CMP(n1, n2) (((n1) > (n2)) - ((n1) < (n2))) /* Define to `int' if does not define. */ #undef mode_t /* Define to the type of st_nlink in struct stat, or a supertype. */ #undef nlink_t /* Define as a signed integer type capable of holding a process identifier. */ #undef pid_t /* Define to the equivalent of the C99 'restrict' keyword, or to nothing if this is not supported. Do not define if restrict is supported only directly. */ #undef restrict /* Work around a bug in older versions of Sun C++, which did not #define __restrict__ or support _Restrict or __restrict__ even though the corresponding Sun C compiler ended up with "#define restrict _Restrict" or "#define restrict __restrict__" in the previous line. This workaround can be removed once we assume Oracle Developer Studio 12.5 (2016) or later. */ #if defined __SUNPRO_CC && !defined __RESTRICT && !defined __restrict__ # define _Restrict # define __restrict__ #endif /* Define as an integer type suitable for memory locations that can be accessed atomically even in the presence of asynchronous signals. */ #undef sig_atomic_t /* Define to `unsigned int' if does not define. */ #undef size_t /* Define as a signed type of the same size as size_t. */ #undef ssize_t /* Define to `int' if doesn't define. */ #undef uid_t libffcall-2.4/m4/0000775000000000000000000000000014061422457010573 500000000000000libffcall-2.4/m4/mmap-anon.m40000664000000000000000000000374714014326235012646 00000000000000# mmap-anon.m4 serial 12 dnl Copyright (C) 2005, 2007, 2009-2021 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. # Detect how mmap can be used to create anonymous (not file-backed) memory # mappings. # - On Linux, AIX, OSF/1, Solaris, Cygwin, Interix, Haiku, both MAP_ANONYMOUS # and MAP_ANON exist and have the same value. # - On HP-UX, only MAP_ANONYMOUS exists. # - On Mac OS X, FreeBSD, NetBSD, OpenBSD, Minix, only MAP_ANON exists. # - On IRIX, neither exists, and a file descriptor opened to /dev/zero must be # used. AC_DEFUN_ONCE([gl_FUNC_MMAP_ANON], [ dnl Persuade glibc to define MAP_ANONYMOUS. AC_REQUIRE([gl_USE_SYSTEM_EXTENSIONS]) # Check for mmap(). Don't use AC_FUNC_MMAP, because it checks too much: it # fails on HP-UX 11, because MAP_FIXED mappings do not work. But this is # irrelevant for anonymous mappings. AC_CHECK_FUNC([mmap], [gl_have_mmap=yes], [gl_have_mmap=no]) # Try to allow MAP_ANONYMOUS. gl_have_mmap_anonymous=no if test $gl_have_mmap = yes; then AC_MSG_CHECKING([for MAP_ANONYMOUS]) AC_EGREP_CPP([I cannot identify this map], [ #include #ifdef MAP_ANONYMOUS I cannot identify this map #endif ], [gl_have_mmap_anonymous=yes]) if test $gl_have_mmap_anonymous != yes; then AC_EGREP_CPP([I cannot identify this map], [ #include #ifdef MAP_ANON I cannot identify this map #endif ], [AC_DEFINE([MAP_ANONYMOUS], [MAP_ANON], [Define to a substitute value for mmap()'s MAP_ANONYMOUS flag.]) gl_have_mmap_anonymous=yes]) fi AC_MSG_RESULT([$gl_have_mmap_anonymous]) if test $gl_have_mmap_anonymous = yes; then AC_DEFINE([HAVE_MAP_ANONYMOUS], [1], [Define to 1 if mmap()'s MAP_ANONYMOUS flag is available after including config.h and .]) fi fi ]) libffcall-2.4/m4/endianness.m40000644000000000000000000000446013047617304013106 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.4/m4/libtool.m40000664000000000000000000112522614061422157012427 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* | midnightbsd* | 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* | midnightbsd*) # 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* | midnightbsd*) 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* | midnightbsd*) # 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* | midnightbsd*) _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* | midnightbsd*) # 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.4/m4/ln.m40000664000000000000000000000302613702414015011357 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.4/m4/lt~obsolete.m40000644000000000000000000001377412456256724013351 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.4/m4/cc-gcc.m40000664000000000000000000000203613136760230012071 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.4/m4/codeexec.m40000664000000000000000000005743513702620046012545 00000000000000dnl -*- Autoconf -*- dnl Copyright (C) 1993-2020 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.63]) AC_DEFUN([FFCALL_CODEEXEC], [ AC_REQUIRE([AC_CANONICAL_HOST]) AC_REQUIRE([gl_HOST_CPU_C_ABI]) AC_REQUIRE([gl_FUNC_MMAP_ANON]) AC_CACHE_CHECK([whether code in malloc()ed memory is executable], [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_RUN_IFELSE( [AC_LANG_SOURCE([ 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], [], [whether code in malloc()ed memory is executable]) ;; *no) ;; esac 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 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_CACHE_CHECK([for working mmap with MAP_ANONYMOUS], [ffcall_cv_func_mmap_anonymous], [AC_RUN_IFELSE( [AC_LANG_SOURCE([ 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], [ffcall_cv_func_mmap_anonymous=no], [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* | linux* | solaris*) ffcall_cv_func_mmap_anonymous="guessing yes" ;; *) ffcall_cv_func_mmap_anonymous="guessing no" ;; esac ]) ]) case "$ffcall_cv_func_mmap_anonymous" in *yes) AC_DEFINE([HAVE_MMAP_ANONYMOUS], [1], [ defines MAP_ANONYMOUS and mmaping with MAP_ANONYMOUS works]) ;; *) dnl This is needed for IRIX. AC_CACHE_CHECK([for working mmap of /dev/zero], [ffcall_cv_func_mmap_devzero], [AC_RUN_IFELSE( [AC_LANG_SOURCE([ 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], [ffcall_cv_func_mmap_devzero=no], [dnl When cross-compiling, assume the known behaviour. dnl If we don't know, don't assume anything. 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 ]) ]) case "$ffcall_cv_func_mmap_devzero" in *yes) AC_DEFINE([HAVE_MMAP_DEVZERO], [1], [mmaping of the special device /dev/zero works]) ;; esac ;; esac fi fi 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 /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif /* Declare mprotect(). */ #include char foo; int main () { unsigned long pagesize = getpagesize(); #define page_align(address) (char*)((unsigned long)(address) & -pagesize) ' AC_RUN_IFELSE( [AC_LANG_SOURCE([ [$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_RUN_IFELSE( [AC_LANG_SOURCE([ 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_RUN_IFELSE( [AC_LANG_SOURCE([ 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_RUN_IFELSE( [AC_LANG_SOURCE([ 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_RUN_IFELSE( [AC_LANG_SOURCE([ 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], [1], [have a working mprotect() function]) ;; esac fi 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. 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_RUN_IFELSE( [AC_LANG_SOURCE([[ #include #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif #include /* Declare mprotect(). */ #include 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 || errno == ENOTSUP)) /* mprotect is forbidden to make malloc()ed pages executable that were writable earlier. */ return 2; return 0; } ]]) ], [ffcall_cv_malloc_mprotect_can_exec=yes], [ffcall_cv_malloc_mprotect_can_exec=no], [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_RUN_IFELSE( [AC_LANG_SOURCE([[ #include #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif #include /* Declare mmap(), mprotect(). */ #include #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 HAVE_MMAP_ANONYMOUS p = (char *) mmap (NULL, pagesize, PROT_READ | PROT_WRITE, MAP_PRIVATE | MAP_ANONYMOUS | MAP_VARIABLE, -1, 0); #elif 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 || errno == ENOTSUP)) /* mprotect is forbidden to make mmap()ed pages executable that were writable earlier. */ return 2; return 0; } ]]) ], [ffcall_cv_mmap_mprotect_can_exec=yes], [ffcall_cv_mmap_mprotect_can_exec=no], [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_RUN_IFELSE( [AC_LANG_SOURCE([[ #include #include /* Declare getpagesize(). */ #ifdef HAVE_UNISTD_H #include #endif #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif /* Declare mmap(). */ #include #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], [ffcall_cv_mmap_shared_can_exec=no], [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], [1], [have an mmap() function that, with MAP_SHARED, can make memory pages executable]) ;; esac ;; esac ;; esac ;; esac ;; esac ]) libffcall-2.4/m4/ltversion.m40000644000000000000000000000127312470142720012775 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.4/m4/ltsugar.m40000644000000000000000000001044012456256724012443 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.4/m4/ltoptions.m40000644000000000000000000003426212456256724013025 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.4/m4/as-underscore.m40000664000000000000000000000146713153072350013531 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.4/Makefile.maint0000664000000000000000000001406314026223253012740 00000000000000# maintainer -*-Makefile-*- SHELL = /bin/sh MAKE = make ACLOCAL = aclocal AUTOMAKE = automake AUTOCONF = autoconf AUTOHEADER = autoheader 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 : "Support creating shared libraries on MidnightBSD" wget --execute netrc=off --no-verbose --retry-connrefused --timeout=60 -O libtool-midnightbsd-fix.diff 'https://savannah.gnu.org/patch/download.php?file_id=50595' chmod u+w build-aux/ltmain.sh m4/libtool.m4 head -n 60 < libtool-midnightbsd-fix.diff | patch -p0 build-aux/ltmain.sh tail -n +227 < libtool-midnightbsd-fix.diff | head -n 56 | patch -p0 m4/libtool.m4 rm -f libtool-midnightbsd-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 \ clean-temp-simple \ host-cpu-c-abi \ lock \ 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 GNULIB_FILES = \ m4/mmap-anon.m4 .PHONY : gnulib-imported-files gnulib-imported-files : force if test -n "$$GNULIB_TOOL"; then \ for file in $(GNULIB_FILES); do \ $$GNULIB_TOOL --copy-file $$file || exit $$?; \ done; \ fi # 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.4/trampoline/0000775000000000000000000000000014061422457012425 500000000000000libffcall-2.4/trampoline/trampoline.c0000664000000000000000000017042514026224432014666 00000000000000/* Trampoline construction */ /* * Copyright 1995-2021 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 /* Linux, Hurd, macOS, *BSD, IRIX, Solaris, Cygwin, native Windows */ /* How do we make the trampoline's code executable? */ #if HAVE_WORKING_MPROTECT /* Linux, Hurd, macOS, *BSD, IRIX, Solaris, Cygwin */ #if HAVE_MPROTECT_AFTER_MALLOC_CAN_EXEC > 0 /* Hurd, macOS, *BSD except HardenedBSD, IRIX, Solaris, Cygwin */ /* 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 HAVE_MMAP_SHARED_CAN_EXEC /* Linux, HardenedBSD */ #define EXECUTABLE_VIA_MMAP_FILE_SHARED #else #error "Don't know how to make memory pages executable." #endif #else /* native Windows, very old Linux */ #if HAVE_MMAP_ANONYMOUS /* very old Linux */ /* Use an mmap'ed page. */ #define EXECUTABLE_VIA_MMAP #else #if defined(_WIN32) && ! defined(__CYGWIN__) /* native Windows */ #define EXECUTABLE_VIA_VIRTUALALLOC #else ?? #endif #endif #endif #endif #include /* declares fprintf() */ #include #include /* declares abort(), malloc(), free() */ #ifdef HAVE_UNISTD_H #include /* declares getpagesize() */ #endif /* Define intptr_t, uintptr_t. */ #include /* Declare getpagesize(). */ /* On HP-UX, getpagesize exists, but it is not declared in even if the compiler options -D_HPUX_SOURCE -D_XOPEN_SOURCE=600 are used. */ #ifdef __hpux extern #ifdef __cplusplus "C" #endif int getpagesize (void); #endif /* Declare mprotect(). */ #if defined(EXECUTABLE_VIA_MALLOC_THEN_MPROTECT) || defined(EXECUTABLE_VIA_MMAP_THEN_MPROTECT) #include #include #endif /* Declare mmap(). */ #if defined(EXECUTABLE_VIA_MMAP) || defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #endif /* Declare open(). */ #if defined(EXECUTABLE_VIA_MMAP_FILE_SHARED) #include #include #include #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_VARIABLE whenever you pass an addr == NULL. */ #ifndef MAP_VARIABLE #define MAP_VARIABLE 0 #endif /* Support for instruction cache flush. */ #if defined _WIN32 && !defined __CYGWIN__ # define WIN32_LEAN_AND_MEAN # define WIN32_EXTRA_LEAN # include #elif defined __APPLE__ && defined __MACH__ # include #elif defined _AIX # include #elif defined __sgi # include #else #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 #endif /* Support for multithread-safe coding. */ #include "glthread/lock.h" #if defined(__APPLE__) && defined(__MACH__) /* only needed on macOS */ #define KEEP_TEMP_FILE_VISIBLE /* Support for temporary files that are cleaned up automatically. */ #include "clean-temp-simple.h" #endif #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_FILE_SHARED) /* Variables needed for obtaining memory pages via mmap(). */ static int file_fd; static long file_length; /* Initialization of these variables. */ static void for_mmap_init (void) { { char filename[100]; sprintf(filename, "%s/trampdata-%d-%ld", "/tmp", getpid (), random ()); #if defined(KEEP_TEMP_FILE_VISIBLE) if (register_temporary_file(filename) < 0) { fprintf(stderr,"trampoline: Out of virtual memory!\n"); abort(); } #endif file_fd = open_noinherit (filename, O_CREAT | O_RDWR | O_TRUNC, 0700); if (file_fd < 0) { #if defined(KEEP_TEMP_FILE_VISIBLE) unregister_temporary_file(filename); #endif fprintf(stderr,"trampoline: Cannot open %s!\n",filename); abort(); } #if !defined(KEEP_TEMP_FILE_VISIBLE) /* Remove the file from the file system as soon as possible, to make sure there is no leftover after this process terminates or crashes. On macOS 11.2, this does not work: It would make the mmap call below, with arguments PROT_READ|PROT_EXEC and MAP_SHARED, fail. */ unlink(filename); #endif } file_length = 0; } /* 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) { #if 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 /* Simultaneous execution of this initialization in multiple threads is OK. */ #if defined(EXECUTABLE_VIA_VIRTUALALLOC) /* GetSystemInfo */ SYSTEM_INFO info; GetSystemInfo(&info); pagesize = info.dwPageSize; #else pagesize = getpagesize(); #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 /* 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); #endif #ifdef EXECUTABLE_VIA_MMAP /* 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); #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(
) * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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 * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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(
)) * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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 * jal $0,$25 03 20 00 09 was: 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) = 0x03200009; *(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) == 0x03200009 && \ *(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 (mprotect((void*)start_addr, len, PROT_READ|PROT_WRITE|PROT_EXEC) < 0) { 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. */ /* Use the operating system provided function, when available. */ #if defined _WIN32 && !defined __CYGWIN__ /* Native Windows. FlushInstructionCache */ HANDLE process = GetCurrentProcess (); while (!FlushInstructionCache (process, function_x, TRAMP_CODE_LENGTH)) ; #elif defined __APPLE__ && defined __MACH__ /* macOS */ sys_icache_invalidate (function_x, TRAMP_CODE_LENGTH); #elif defined _AIX /* AIX. */ _sync_cache_range (function_x, TRAMP_CODE_LENGTH); #elif defined __sgi /* IRIX. */ cacheflush (function_x, TRAMP_CODE_LENGTH, ICACHE); #elif defined __sun /* Solaris. */ extern void sync_instruction_memory (char *, size_t); sync_instruction_memory (function_x, TRAMP_CODE_LENGTH); #else /* No operating system provided function. Dispatch according to the CPU. */ #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 #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 gl_lock_lock(freelist_lock); *(char**)function = freelist; freelist = (char*)function; gl_lock_unlock(freelist_lock); /* 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.4/trampoline/cache-alpha-macro.S0000664000000000000000000000066013527105032015711 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.4/trampoline/cache-powerpc64.c0000664000000000000000000000260313347755321015411 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.4/trampoline/cache-sparc64-macro.S0000664000000000000000000000062613527105032016110 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.4/trampoline/tramp-hppa-macro.S0000664000000000000000000000265713347755324015663 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.4/trampoline/tramp-hppa64-macro.S0000664000000000000000000000265713347755323016034 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.4/trampoline/cache-powerpc64-elfv2-linux.s0000664000000000000000000000157113527105032017571 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.4/trampoline/tramp-powerpc64-aix.S0000664000000000000000000000322413347755327016236 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.4/trampoline/cache-hppa-macro.S0000664000000000000000000000114213527105032015550 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.4/trampoline/cache-powerpc-macos.s0000664000000000000000000000061313527105032016342 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.4/trampoline/Makefile.devel0000664000000000000000000002156513527104765015121 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.4/trampoline/Makefile.in0000664000000000000000000002354514057212444014421 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:3: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.4/trampoline/cache-sparc64-linux.s0000664000000000000000000000050213527105032016177 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.4/trampoline/tramp-powerpc-aix.S0000664000000000000000000000311213347755327016060 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.4/trampoline/cache-powerpc.c0000664000000000000000000000307013347755321015236 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.4/trampoline/trampoline.man0000664000000000000000000000570514061422204015211 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.4/trampoline/test1.c0000664000000000000000000000253413347755322013563 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.4/trampoline/cache-sparc-macro.S0000664000000000000000000000065513527105032015740 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.4/trampoline/README0000664000000000000000000000441113347755322013233 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.4/trampoline/test2.c0000664000000000000000000000321213347755322013556 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.4/trampoline/cache-hppa64-linux.s0000664000000000000000000000075413527105032016030 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.4/trampoline/cache-powerpc-linux.s0000664000000000000000000000142213527105032016376 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.4/trampoline/cache-hppa-linux.s0000664000000000000000000000070413527105032015651 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.4/trampoline/cache-sparc.c0000664000000000000000000000215413347755321014671 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.4/trampoline/cache-alpha.c0000664000000000000000000000157213347755320014650 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.4/trampoline/trampoline.h0000664000000000000000000000555313347755327014713 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.4/trampoline/cache-hppa64-macro.S0000664000000000000000000000115713527105032015730 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.4/trampoline/PLATFORMS0000664000000000000000000000433614061241502013633 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, aarch64-apple-darwin20.4.0 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.4/trampoline/test2-c++.cc0000664000000000000000000000132613347755322014273 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.4/trampoline/tramp-ia64-macro.S0000664000000000000000000000245713347755324015474 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.4/trampoline/cache-alpha-linux.s0000664000000000000000000000054013527105032016004 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.4/trampoline/PORTING0000644000000000000000000000701013031471342013377 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.4/trampoline/cache-powerpc64-elfv2-macro.S0000664000000000000000000000157313527105032017475 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.4/trampoline/cache-sparc-linux.s0000664000000000000000000000047513527105032016036 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.4/trampoline/trampoline.30000664000000000000000000000644613136760230014611 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.4/trampoline/trampoline.html0000664000000000000000000001122013136760230015375 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.4/trampoline/Makefile.maint0000664000000000000000000000045013153072372015111 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.4/trampoline/cache.c0000664000000000000000000001031613347755320013561 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.4/trampoline/cache-powerpc-linux-macro.S0000664000000000000000000000135513527105032017442 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.4/trampoline/COPYING0000644000000000000000000004335713026317520013404 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.4/trampoline/cache-hppa.c0000664000000000000000000000414513347755320014512 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.4/COPYING0000644000000000000000000004335713026317516011237 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.4/DEPENDENCIES0000644000000000000000000000404414016707261011743 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 3.1 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, mawk, or nawk, or GNU awk. + Homepage: https://www.gnu.org/software/gawk/ + Download: https://ftp.gnu.org/gnu/gawk/