ffi 1.9.21 → 1.9.22
Sign up to get free protection for your applications and to get access to all the features.
Potentially problematic release.
This version of ffi might be problematic. Click here for more details.
- checksums.yaml +5 -5
- checksums.yaml.gz.sig +3 -0
- data.tar.gz.sig +0 -0
- data/.gitignore +22 -0
- data/.gitmodules +3 -0
- data/.travis.yml +52 -0
- data/.yardopts +5 -0
- data/Gemfile +15 -0
- data/{spec/ffi/LICENSE.SPECS → LICENSE.SPECS} +1 -1
- data/README.md +1 -1
- data/Rakefile +28 -3
- data/appveyor.yml +22 -0
- data/ext/ffi_c/Call.c +1 -22
- data/ext/ffi_c/Call.h +0 -9
- data/ext/ffi_c/Closure.c +54 -0
- data/ext/ffi_c/{ClosurePool.h → Closure.h} +13 -23
- data/ext/ffi_c/Function.c +16 -25
- data/ext/ffi_c/Function.h +1 -2
- data/ext/ffi_c/FunctionInfo.c +0 -4
- data/ext/ffi_c/MethodHandle.c +33 -268
- data/ext/ffi_c/extconf.rb +3 -3
- data/ext/ffi_c/ffi.c +2 -2
- data/ext/ffi_c/libffi.bsd.mk +3 -3
- data/ext/ffi_c/libffi.darwin.mk +1 -1
- data/ext/ffi_c/libffi.gnu.mk +1 -1
- data/ext/ffi_c/libffi.mk +2 -2
- data/ext/ffi_c/libffi.vc.mk +1 -1
- data/ext/ffi_c/libffi.vc64.mk +1 -1
- data/ext/ffi_c/libffi/.appveyor.yml +48 -0
- data/ext/ffi_c/libffi/.gitignore +36 -0
- data/ext/ffi_c/libffi/.travis.yml +30 -0
- data/ext/ffi_c/libffi/.travis/install.sh +14 -0
- data/ext/ffi_c/libffi/Makefile.am +5 -3
- data/ext/ffi_c/libffi/acinclude.m4 +6 -0
- data/ext/ffi_c/libffi/autogen.sh +1 -1
- data/ext/ffi_c/libffi/config.guess +1466 -0
- data/ext/ffi_c/libffi/config.sub +1836 -0
- data/ext/ffi_c/libffi/configure.ac +2 -2
- data/ext/ffi_c/libffi/configure.host +15 -3
- data/ext/ffi_c/libffi/generate-darwin-source-and-headers.py +11 -15
- data/ext/ffi_c/libffi/include/ffi.h.in +6 -1
- data/ext/ffi_c/libffi/libffi.xcodeproj/project.pbxproj +465 -59
- data/ext/ffi_c/libffi/src/aarch64/ffi.c +33 -10
- data/ext/ffi_c/libffi/src/aarch64/sysv.S +2 -2
- data/ext/ffi_c/libffi/src/arm/ffi.c +12 -1
- data/ext/ffi_c/libffi/src/arm/sysv.S +1 -1
- data/ext/ffi_c/libffi/src/closures.c +143 -97
- data/ext/ffi_c/libffi/src/ia64/unix.S +2 -0
- data/ext/ffi_c/libffi/src/mips/ffi.c +8 -0
- data/ext/ffi_c/libffi/src/mips/ffitarget.h +1 -1
- data/ext/ffi_c/libffi/src/mips/n32.S +2 -0
- data/ext/ffi_c/libffi/src/powerpc/aix.S +239 -1
- data/ext/ffi_c/libffi/src/powerpc/aix_closure.S +250 -3
- data/ext/ffi_c/libffi/src/powerpc/ffi_darwin.c +86 -5
- data/ext/ffi_c/libffi/src/powerpc/ffitarget.h +3 -0
- data/ext/ffi_c/libffi/src/x86/ffi.c +3 -1
- data/ext/ffi_c/libffi/src/x86/ffi64.c +26 -5
- data/ext/ffi_c/libffi/src/x86/sysv.S +2 -2
- data/ext/ffi_c/libffi/src/x86/unix64.S +1 -1
- data/ext/ffi_c/libffi/src/x86/win64.S +1 -1
- data/ext/ffi_c/libffi/testsuite/Makefile.am +2 -1
- data/ext/ffi_c/libffi/testsuite/lib/libffi.exp +2 -1
- data/ext/ffi_c/libffi/testsuite/libffi.call/cls_3float.c +95 -0
- data/ffi.gemspec +14 -1
- data/lib/ffi/library.rb +1 -1
- data/lib/ffi/version.rb +1 -1
- data/samples/getlogin.rb +8 -0
- data/samples/getpid.rb +8 -0
- data/samples/gettimeofday.rb +18 -0
- data/samples/hello.rb +7 -0
- data/samples/inotify.rb +60 -0
- data/samples/pty.rb +76 -0
- data/samples/qsort.rb +21 -0
- data/samples/sample_helper.rb +6 -0
- metadata +59 -81
- metadata.gz.sig +0 -0
- data/ext/ffi_c/ClosurePool.c +0 -283
- data/gen/Rakefile +0 -30
- data/libtest/Benchmark.c +0 -52
- data/libtest/BoolTest.c +0 -34
- data/libtest/BufferTest.c +0 -31
- data/libtest/ClosureTest.c +0 -205
- data/libtest/EnumTest.c +0 -51
- data/libtest/FunctionTest.c +0 -70
- data/libtest/GNUmakefile +0 -149
- data/libtest/GlobalVariable.c +0 -62
- data/libtest/LastErrorTest.c +0 -21
- data/libtest/NumberTest.c +0 -132
- data/libtest/PointerTest.c +0 -63
- data/libtest/ReferenceTest.c +0 -23
- data/libtest/StringTest.c +0 -34
- data/libtest/StructTest.c +0 -243
- data/libtest/UnionTest.c +0 -43
- data/libtest/VariadicTest.c +0 -99
- data/spec/ffi/async_callback_spec.rb +0 -35
- data/spec/ffi/bitmask_spec.rb +0 -575
- data/spec/ffi/bool_spec.rb +0 -32
- data/spec/ffi/buffer_spec.rb +0 -279
- data/spec/ffi/callback_spec.rb +0 -773
- data/spec/ffi/custom_param_type.rb +0 -37
- data/spec/ffi/custom_type_spec.rb +0 -74
- data/spec/ffi/dup_spec.rb +0 -52
- data/spec/ffi/enum_spec.rb +0 -423
- data/spec/ffi/errno_spec.rb +0 -20
- data/spec/ffi/ffi_spec.rb +0 -28
- data/spec/ffi/fixtures/Benchmark.c +0 -52
- data/spec/ffi/fixtures/BitmaskTest.c +0 -51
- data/spec/ffi/fixtures/BoolTest.c +0 -34
- data/spec/ffi/fixtures/BufferTest.c +0 -31
- data/spec/ffi/fixtures/ClosureTest.c +0 -205
- data/spec/ffi/fixtures/EnumTest.c +0 -51
- data/spec/ffi/fixtures/FunctionTest.c +0 -142
- data/spec/ffi/fixtures/GNUmakefile +0 -149
- data/spec/ffi/fixtures/GlobalVariable.c +0 -62
- data/spec/ffi/fixtures/LastErrorTest.c +0 -21
- data/spec/ffi/fixtures/NumberTest.c +0 -132
- data/spec/ffi/fixtures/PipeHelper.h +0 -21
- data/spec/ffi/fixtures/PipeHelperPosix.c +0 -41
- data/spec/ffi/fixtures/PipeHelperWindows.c +0 -72
- data/spec/ffi/fixtures/PointerTest.c +0 -63
- data/spec/ffi/fixtures/ReferenceTest.c +0 -23
- data/spec/ffi/fixtures/StringTest.c +0 -34
- data/spec/ffi/fixtures/StructTest.c +0 -243
- data/spec/ffi/fixtures/UnionTest.c +0 -43
- data/spec/ffi/fixtures/VariadicTest.c +0 -99
- data/spec/ffi/fixtures/classes.rb +0 -438
- data/spec/ffi/function_spec.rb +0 -97
- data/spec/ffi/io_spec.rb +0 -16
- data/spec/ffi/library_spec.rb +0 -286
- data/spec/ffi/long_double.rb +0 -30
- data/spec/ffi/managed_struct_spec.rb +0 -68
- data/spec/ffi/memorypointer_spec.rb +0 -78
- data/spec/ffi/number_spec.rb +0 -247
- data/spec/ffi/platform_spec.rb +0 -114
- data/spec/ffi/pointer_spec.rb +0 -285
- data/spec/ffi/rbx/attach_function_spec.rb +0 -34
- data/spec/ffi/rbx/memory_pointer_spec.rb +0 -198
- data/spec/ffi/rbx/spec_helper.rb +0 -6
- data/spec/ffi/rbx/struct_spec.rb +0 -18
- data/spec/ffi/spec_helper.rb +0 -93
- data/spec/ffi/string_spec.rb +0 -118
- data/spec/ffi/strptr_spec.rb +0 -50
- data/spec/ffi/struct_by_ref_spec.rb +0 -43
- data/spec/ffi/struct_callback_spec.rb +0 -69
- data/spec/ffi/struct_initialize_spec.rb +0 -35
- data/spec/ffi/struct_packed_spec.rb +0 -50
- data/spec/ffi/struct_spec.rb +0 -882
- data/spec/ffi/typedef_spec.rb +0 -91
- data/spec/ffi/union_spec.rb +0 -67
- data/spec/ffi/variadic_spec.rb +0 -132
- data/spec/spec.opts +0 -4
@@ -1,142 +0,0 @@
|
|
1
|
-
/*
|
2
|
-
* Copyright (c) 2007 Wayne Meissner. All rights reserved.
|
3
|
-
*
|
4
|
-
* For licensing, see LICENSE.SPECS
|
5
|
-
*/
|
6
|
-
|
7
|
-
#ifdef _WIN32
|
8
|
-
#include <windows.h>
|
9
|
-
#endif
|
10
|
-
|
11
|
-
#ifndef _WIN32
|
12
|
-
#include <unistd.h>
|
13
|
-
#include <pthread.h>
|
14
|
-
#include <stdarg.h>
|
15
|
-
#include <stdlib.h>
|
16
|
-
#endif
|
17
|
-
|
18
|
-
#include "PipeHelper.h"
|
19
|
-
|
20
|
-
int testAdd(int a, int b)
|
21
|
-
{
|
22
|
-
return a + b;
|
23
|
-
};
|
24
|
-
|
25
|
-
int testFunctionAdd(int a, int b, int (*f)(int, int))
|
26
|
-
{
|
27
|
-
return f(a, b);
|
28
|
-
};
|
29
|
-
|
30
|
-
struct testBlockingData {
|
31
|
-
FD_TYPE pipe1[2];
|
32
|
-
FD_TYPE pipe2[2];
|
33
|
-
};
|
34
|
-
|
35
|
-
struct testBlockingData *testBlockingOpen()
|
36
|
-
{
|
37
|
-
struct testBlockingData *self = malloc(sizeof(struct testBlockingData));
|
38
|
-
|
39
|
-
if( pipeHelperCreatePipe(self->pipe1) == -1 ) return NULL;
|
40
|
-
if( pipeHelperCreatePipe(self->pipe2) == -1 ) return NULL;
|
41
|
-
return self;
|
42
|
-
}
|
43
|
-
|
44
|
-
char testBlockingWR(struct testBlockingData *self, char c) {
|
45
|
-
if( pipeHelperWriteChar(self->pipe1[1], c) != 1)
|
46
|
-
return 0;
|
47
|
-
return pipeHelperReadChar(self->pipe2[0], 10);
|
48
|
-
}
|
49
|
-
|
50
|
-
char testBlockingRW(struct testBlockingData *self, char c) {
|
51
|
-
char d = pipeHelperReadChar(self->pipe1[0], 10);
|
52
|
-
if( pipeHelperWriteChar(self->pipe2[1], c) != 1)
|
53
|
-
return 0;
|
54
|
-
return d;
|
55
|
-
}
|
56
|
-
|
57
|
-
void testBlockingClose(struct testBlockingData *self) {
|
58
|
-
pipeHelperClosePipe(self->pipe1[0]);
|
59
|
-
pipeHelperClosePipe(self->pipe1[1]);
|
60
|
-
pipeHelperClosePipe(self->pipe2[0]);
|
61
|
-
pipeHelperClosePipe(self->pipe2[1]);
|
62
|
-
free(self);
|
63
|
-
}
|
64
|
-
|
65
|
-
static int sum_varargs(va_list args) {
|
66
|
-
char sum = 0;
|
67
|
-
int arg;
|
68
|
-
while ((arg = va_arg(args, int)) != 0) {
|
69
|
-
sum += arg;
|
70
|
-
}
|
71
|
-
va_end(args);
|
72
|
-
return sum;
|
73
|
-
}
|
74
|
-
|
75
|
-
/* Write c to pipe1 and return the value read from pipe2, or 0 if there’s
|
76
|
-
* an error such as a timeout, or if c does not equal the sum of the
|
77
|
-
* zero-terminated list of char arguments. */
|
78
|
-
char testBlockingWRva(struct testBlockingData *self, char c, ...) {
|
79
|
-
va_list args;
|
80
|
-
va_start(args, c);
|
81
|
-
if (sum_varargs(args) != c) {
|
82
|
-
return 0;
|
83
|
-
}
|
84
|
-
|
85
|
-
if( pipeHelperWriteChar(self->pipe1[1], c) != 1)
|
86
|
-
return 0;
|
87
|
-
return pipeHelperReadChar(self->pipe2[0], 10);
|
88
|
-
}
|
89
|
-
|
90
|
-
char testBlockingRWva(struct testBlockingData *self, char c, ...) {
|
91
|
-
va_list args;
|
92
|
-
va_start(args, c);
|
93
|
-
if (sum_varargs(args) != c) {
|
94
|
-
return 0;
|
95
|
-
}
|
96
|
-
|
97
|
-
char d = pipeHelperReadChar(self->pipe1[0], 10);
|
98
|
-
if( pipeHelperWriteChar(self->pipe2[1], c) != 1)
|
99
|
-
return 0;
|
100
|
-
return d;
|
101
|
-
}
|
102
|
-
|
103
|
-
struct async_data {
|
104
|
-
void (*fn)(int);
|
105
|
-
int value;
|
106
|
-
};
|
107
|
-
|
108
|
-
static void* asyncThreadCall(void *data)
|
109
|
-
{
|
110
|
-
struct async_data* d = (struct async_data *) data;
|
111
|
-
if (d != NULL && d->fn != NULL) {
|
112
|
-
(*d->fn)(d->value);
|
113
|
-
}
|
114
|
-
|
115
|
-
return NULL;
|
116
|
-
}
|
117
|
-
|
118
|
-
void testAsyncCallback(void (*fn)(int), int value)
|
119
|
-
{
|
120
|
-
#ifndef _WIN32
|
121
|
-
pthread_t t;
|
122
|
-
struct async_data d;
|
123
|
-
d.fn = fn;
|
124
|
-
d.value = value;
|
125
|
-
pthread_create(&t, NULL, asyncThreadCall, &d);
|
126
|
-
pthread_join(t, NULL);
|
127
|
-
#else
|
128
|
-
(*fn)(value);
|
129
|
-
#endif
|
130
|
-
}
|
131
|
-
|
132
|
-
#if defined(_WIN32) && !defined(_WIN64)
|
133
|
-
struct StructUCDP {
|
134
|
-
unsigned char a1;
|
135
|
-
double a2;
|
136
|
-
void *a3;
|
137
|
-
};
|
138
|
-
|
139
|
-
void __stdcall testStdcallManyParams(long *a1, char a2, short int a3, int a4, __int64 a5,
|
140
|
-
struct StructUCDP a6, struct StructUCDP *a7, float a8, double a9) {
|
141
|
-
}
|
142
|
-
#endif
|
@@ -1,149 +0,0 @@
|
|
1
|
-
# -*- makefile -*-
|
2
|
-
|
3
|
-
ifeq ($(OS),)
|
4
|
-
BUILD_OS := $(shell uname -s | tr '[:upper:]' '[:lower:]')
|
5
|
-
OS := $(BUILD_OS)
|
6
|
-
endif
|
7
|
-
|
8
|
-
ifeq ($(CPU),)
|
9
|
-
CPU := $(shell uname -m | sed -e 's/i[345678]86/i386/')
|
10
|
-
endif
|
11
|
-
|
12
|
-
PLATFORM = $(CPU)-$(OS)
|
13
|
-
|
14
|
-
ifeq ($(OS), sunos)
|
15
|
-
OS = solaris
|
16
|
-
endif
|
17
|
-
|
18
|
-
SRC_DIR = .
|
19
|
-
BUILD_DIR ?= .
|
20
|
-
TEST_BUILD_DIR = .
|
21
|
-
# Set defaults to unix (linux/solaris/bsd)
|
22
|
-
PREFIX = lib
|
23
|
-
LIBEXT ?= so
|
24
|
-
LIBNAME = $(PREFIX)test.$(LIBEXT)
|
25
|
-
|
26
|
-
export MACOSX_DEPLOYMENT_TARGET=10.4
|
27
|
-
|
28
|
-
CCACHE := $(strip $(realpath $(shell which ccache 2> /dev/null)))
|
29
|
-
|
30
|
-
TEST_SRCS = $(wildcard $(SRC_DIR)/*.c)
|
31
|
-
TEST_OBJS := $(patsubst $(SRC_DIR)/%.c, $(TEST_BUILD_DIR)/%.o, $(TEST_SRCS))
|
32
|
-
|
33
|
-
#
|
34
|
-
# Compiler/linker flags from:
|
35
|
-
# http://weblogs.java.net/blog/kellyohair/archive/2006/01/compilation_of_1.html
|
36
|
-
JFLAGS = -fno-omit-frame-pointer -fno-strict-aliasing
|
37
|
-
OFLAGS = -O2 $(JFLAGS)
|
38
|
-
WFLAGS = -W -Wall -Wno-unused -Wno-parentheses
|
39
|
-
PICFLAGS = -fPIC
|
40
|
-
SOFLAGS = -shared
|
41
|
-
LDFLAGS += $(SOFLAGS)
|
42
|
-
|
43
|
-
IFLAGS = -I"$(BUILD_DIR)"
|
44
|
-
CFLAGS = $(OFLAGS) $(WFLAGS) $(IFLAGS) $(PICFLAGS) -D_REENTRANT
|
45
|
-
|
46
|
-
ifneq ($(strip $(findstring $(OS), win32, mingw, cygwin)),)
|
47
|
-
# For cygwin => win32-native builds, strip out cygwin deps
|
48
|
-
ifneq ($(findstring cygwin, $(BUILD_OS)),)
|
49
|
-
CC += -mno-cygwin -mwin32
|
50
|
-
LDFLAGS += -mno-cygwin -Wl,--add-stdcall-alias
|
51
|
-
endif
|
52
|
-
PICFLAGS=
|
53
|
-
LIBEXT=dll
|
54
|
-
CC = gcc
|
55
|
-
endif
|
56
|
-
|
57
|
-
ifeq ($(OS), darwin)
|
58
|
-
ifneq ($(findstring $(CPU),ppc),)
|
59
|
-
ARCHFLAGS += -arch ppc
|
60
|
-
endif
|
61
|
-
ifneq ($(findstring $(CPU),i386 x86_64),)
|
62
|
-
ARCHFLAGS += -arch i386 -arch x86_64
|
63
|
-
endif
|
64
|
-
CFLAGS += $(ARCHFLAGS) -DTARGET_RT_MAC_CFM=0
|
65
|
-
CFLAGS += -fno-common
|
66
|
-
LDFLAGS = $(ARCHFLAGS) -dynamiclib
|
67
|
-
# link against the universal libraries on ppc machines
|
68
|
-
LDFLAGS += -L$(MACSDK)/usr/lib
|
69
|
-
LIBEXT = dylib
|
70
|
-
FFI_CFLAGS += -isysroot $(MACSDK)
|
71
|
-
PICFLAGS =
|
72
|
-
SOFLAGS =
|
73
|
-
endif
|
74
|
-
|
75
|
-
ifeq ($(OS), linux)
|
76
|
-
SOFLAGS += -Wl,-soname,$(LIBNAME)
|
77
|
-
endif
|
78
|
-
|
79
|
-
ifeq ($(OS), solaris)
|
80
|
-
CC = /usr/sfw/bin/gcc -std=c99
|
81
|
-
LD = /usr/ccs/bin/ld
|
82
|
-
SOFLAGS = -shared -static-libgcc
|
83
|
-
endif
|
84
|
-
|
85
|
-
ifeq ($(OS), aix)
|
86
|
-
LIBEXT = a
|
87
|
-
SOFLAGS = -shared -static-libgcc
|
88
|
-
PICFLAGS += -pthread
|
89
|
-
endif
|
90
|
-
|
91
|
-
ifneq ($(findstring bsd, $(OS)),)
|
92
|
-
SOFLAGS = -shared -static-libgcc
|
93
|
-
CFLAGS += -pthread
|
94
|
-
LDFLAGS += -pthread
|
95
|
-
endif
|
96
|
-
|
97
|
-
ifeq ($(CPU), i386)
|
98
|
-
MODEL = 32
|
99
|
-
endif
|
100
|
-
|
101
|
-
ifeq ($(CPU), sparcv9)
|
102
|
-
MODEL = 64
|
103
|
-
endif
|
104
|
-
|
105
|
-
ifeq ($(CPU), amd64)
|
106
|
-
MODEL = 64
|
107
|
-
endif
|
108
|
-
|
109
|
-
ifeq ($(CPU), x86_64)
|
110
|
-
MODEL = 64
|
111
|
-
endif
|
112
|
-
|
113
|
-
ifeq ($(CPU), ppc64)
|
114
|
-
MODEL = 64
|
115
|
-
endif
|
116
|
-
|
117
|
-
ifeq ($(CPU), powerpc64)
|
118
|
-
MODEL = 64
|
119
|
-
endif
|
120
|
-
|
121
|
-
MODELFLAG =
|
122
|
-
ifneq ($(MODEL),)
|
123
|
-
MODELFLAG = -m$(MODEL)
|
124
|
-
endif
|
125
|
-
|
126
|
-
# On platforms (linux, solaris) that support both 32bit and 64bit, force building for one or the other
|
127
|
-
ifneq ($(or $(findstring linux, $(OS)), $(findstring solaris, $(OS))),)
|
128
|
-
# Change the CC/LD instead of CFLAGS/LDFLAGS, incase other things in the flags
|
129
|
-
# makes the libffi build choke
|
130
|
-
CC += $(MODELFLAG)
|
131
|
-
LD += $(MODELFLAG)
|
132
|
-
endif
|
133
|
-
|
134
|
-
LIBTEST = $(LIBNAME)
|
135
|
-
|
136
|
-
all: $(LIBTEST)
|
137
|
-
|
138
|
-
$(TEST_BUILD_DIR)/%.o : $(SRC_DIR)/%.c
|
139
|
-
@mkdir -p $(@D)
|
140
|
-
$(CCACHE) $(CC) $(CFLAGS) -c $< -o $@
|
141
|
-
|
142
|
-
$(LIBTEST): $(TEST_OBJS)
|
143
|
-
$(CC) -o $@ $(LDFLAGS) $(TEST_OBJS) -lm
|
144
|
-
|
145
|
-
clean::
|
146
|
-
# nothing to do - ant will delete the build dir
|
147
|
-
|
148
|
-
debug::
|
149
|
-
@echo "SRCS=$(TEST_SRCS)"
|
@@ -1,62 +0,0 @@
|
|
1
|
-
/*
|
2
|
-
* Copyright (c) 2007 Wayne Meissner. All rights reserved.
|
3
|
-
*
|
4
|
-
* For licensing, see LICENSE.SPECS
|
5
|
-
*/
|
6
|
-
|
7
|
-
#include <sys/types.h>
|
8
|
-
#include <stdint.h>
|
9
|
-
|
10
|
-
typedef int8_t s8;
|
11
|
-
typedef uint8_t u8;
|
12
|
-
typedef int16_t s16;
|
13
|
-
typedef uint16_t u16;
|
14
|
-
typedef int32_t s32;
|
15
|
-
typedef uint32_t u32;
|
16
|
-
typedef int64_t s64;
|
17
|
-
typedef uint64_t u64;
|
18
|
-
typedef signed long sL;
|
19
|
-
typedef unsigned long uL;
|
20
|
-
typedef float f32;
|
21
|
-
typedef double f64;
|
22
|
-
#if !defined(__OpenBSD__)
|
23
|
-
typedef unsigned long ulong;
|
24
|
-
#endif
|
25
|
-
typedef void* pointer;
|
26
|
-
typedef void* P;
|
27
|
-
|
28
|
-
#define GVAR(T) \
|
29
|
-
extern T gvar_##T; \
|
30
|
-
T gvar_##T = (T) -1; \
|
31
|
-
T gvar_##T##_get() { return gvar_##T; }; \
|
32
|
-
void gvar_##T##_set(T v) { gvar_##T = v; }
|
33
|
-
|
34
|
-
GVAR(s8);
|
35
|
-
GVAR(u8);
|
36
|
-
GVAR(s16);
|
37
|
-
GVAR(u16);
|
38
|
-
GVAR(s32);
|
39
|
-
GVAR(u32);
|
40
|
-
GVAR(s64);
|
41
|
-
GVAR(u64);
|
42
|
-
GVAR(long);
|
43
|
-
GVAR(ulong);
|
44
|
-
GVAR(pointer);
|
45
|
-
|
46
|
-
struct gstruct {
|
47
|
-
long data;
|
48
|
-
};
|
49
|
-
|
50
|
-
struct gstruct gvar_gstruct = { -1 };
|
51
|
-
|
52
|
-
struct gstruct*
|
53
|
-
gvar_gstruct_get(void)
|
54
|
-
{
|
55
|
-
return &gvar_gstruct;
|
56
|
-
}
|
57
|
-
|
58
|
-
void
|
59
|
-
gvar_gstruct_set(const struct gstruct* val)
|
60
|
-
{
|
61
|
-
gvar_gstruct = *val;
|
62
|
-
}
|
@@ -1,21 +0,0 @@
|
|
1
|
-
/*
|
2
|
-
* Copyright (c) 2007 Wayne Meissner. All rights reserved.
|
3
|
-
*
|
4
|
-
* For licensing, see LICENSE.SPECS
|
5
|
-
*/
|
6
|
-
|
7
|
-
#if defined(_WIN32) || defined(__WIN32__)
|
8
|
-
# include <windows.h>
|
9
|
-
#else
|
10
|
-
# include <errno.h>
|
11
|
-
#endif
|
12
|
-
|
13
|
-
int setLastError(int error) {
|
14
|
-
#if defined(_WIN32) || defined(__WIN32__)
|
15
|
-
SetLastError(error);
|
16
|
-
#else
|
17
|
-
errno = error;
|
18
|
-
#endif
|
19
|
-
return -1;
|
20
|
-
}
|
21
|
-
|
@@ -1,132 +0,0 @@
|
|
1
|
-
/*
|
2
|
-
* Copyright (c) 2007 Wayne Meissner. All rights reserved.
|
3
|
-
*
|
4
|
-
* For licensing, see LICENSE.SPECS
|
5
|
-
*/
|
6
|
-
|
7
|
-
#include <sys/types.h>
|
8
|
-
#include <stdio.h>
|
9
|
-
#include <string.h>
|
10
|
-
#include <stdint.h>
|
11
|
-
|
12
|
-
#if defined(__sparc) && defined(__sun__)
|
13
|
-
#define fix_mem_access __asm("ta 6")
|
14
|
-
#else
|
15
|
-
#define fix_mem_access
|
16
|
-
#endif
|
17
|
-
|
18
|
-
typedef int8_t s8;
|
19
|
-
typedef uint8_t u8;
|
20
|
-
typedef int16_t s16;
|
21
|
-
typedef uint16_t u16;
|
22
|
-
typedef int32_t s32;
|
23
|
-
typedef uint32_t u32;
|
24
|
-
typedef int64_t s64;
|
25
|
-
typedef uint64_t u64;
|
26
|
-
typedef signed long sL;
|
27
|
-
typedef unsigned long uL;
|
28
|
-
typedef float f32;
|
29
|
-
typedef double f64;
|
30
|
-
typedef long double f128;
|
31
|
-
#if !defined(__OpenBSD__)
|
32
|
-
typedef unsigned long ulong;
|
33
|
-
#endif
|
34
|
-
|
35
|
-
#define ADD(T) T add_##T(T arg1, T arg2) { return arg1 + arg2; }
|
36
|
-
#define SUB(T) T sub_##T(T arg1, T arg2) { return arg1 - arg2; }
|
37
|
-
#define MUL(T) T mul_##T(T arg1, T arg2) { return arg1 * arg2; }
|
38
|
-
#define DIV(T) T div_##T(T arg1, T arg2) { return arg1 / arg2; }
|
39
|
-
#define RET(T) T ret_##T(T arg1) { return arg1; }
|
40
|
-
#define SET(T) static T T##_;void set_##T(T arg1) { T##_ = arg1; }
|
41
|
-
#define GET(T) T get_##T() { return T##_; }
|
42
|
-
typedef char* ptr;
|
43
|
-
#define TEST(T) ADD(T) SUB(T) MUL(T) DIV(T) RET(T) SET(T) GET(T)
|
44
|
-
TEST(s8);
|
45
|
-
TEST(u8);
|
46
|
-
TEST(s16);
|
47
|
-
TEST(u16);
|
48
|
-
TEST(s32);
|
49
|
-
TEST(u32);
|
50
|
-
TEST(s64);
|
51
|
-
TEST(u64);
|
52
|
-
TEST(float);
|
53
|
-
TEST(double);
|
54
|
-
TEST(long);
|
55
|
-
TEST(ulong);
|
56
|
-
TEST(f128);
|
57
|
-
|
58
|
-
#define ADD2(R, T1, T2) R add_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 + arg2; }
|
59
|
-
#define SUB2(R, T1, T2) R sub_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 - arg2; }
|
60
|
-
#define MUL2(R, T1, T2) R mul_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 * arg2; }
|
61
|
-
#define DIV2(R, T1, T2) R div_##T1##T2##_##R(T1 arg1, T2 arg2) { return arg1 / arg2; }
|
62
|
-
|
63
|
-
#define T2__(R, T1, T2) ADD2(R, T1, T2) SUB2(R, T1, T2) MUL2(R, T1, T2) DIV2(R, T1, T2)
|
64
|
-
#define T2_(R, T1) \
|
65
|
-
T2__(R, T1, s8) T2__(R, T1, u8) \
|
66
|
-
T2__(R, T1, s16) T2__(R, T1, u16) \
|
67
|
-
T2__(R, T1, s32) T2__(R, T1, u32) \
|
68
|
-
T2__(R, T1, sL) T2__(R, T1, uL) \
|
69
|
-
T2__(R, T1, s64) T2__(R, T1, u64) \
|
70
|
-
|
71
|
-
#define TEST2(R) \
|
72
|
-
T2_(R, s8) T2_(R, u8) T2_(R, s16) T2_(R, u16) T2_(R, s32) T2_(R, u32) \
|
73
|
-
T2_(R, sL) T2_(R, uL) T2_(R, s64) T2_(R, u64)
|
74
|
-
|
75
|
-
#ifdef notyet
|
76
|
-
TEST2(s32)
|
77
|
-
TEST2(u32)
|
78
|
-
TEST2(s64)
|
79
|
-
TEST2(u64)
|
80
|
-
#endif
|
81
|
-
|
82
|
-
#define ADD3(R, T1, T2, T3) R add_##T1##T2##T3##_##R(T1 arg1, T2 arg2, T3 arg3) { return arg1 + arg2 + arg3; }
|
83
|
-
#define pack_f32(buf, v) do { float f = v; memcpy((buf), &f, sizeof(f)); } while(0)
|
84
|
-
#define pack_f64(buf, v) do { double f = v; memcpy((buf), &f, sizeof(f)); } while(0)
|
85
|
-
#define pack_int(buf, v) do { *(buf) = v; } while(0)
|
86
|
-
#define pack_s8 pack_int
|
87
|
-
#define pack_u8 pack_int
|
88
|
-
#define pack_s16 pack_int
|
89
|
-
#define pack_u16 pack_int
|
90
|
-
#define pack_s32 pack_int
|
91
|
-
#define pack_u32 pack_int
|
92
|
-
#define pack_s64 pack_int
|
93
|
-
#define pack_u64 pack_int
|
94
|
-
#define pack_sL pack_int
|
95
|
-
#define pack_uL pack_int
|
96
|
-
|
97
|
-
#define PACK3(R, T1, T2, T3) void pack_##T1##T2##T3##_##R(T1 arg1, T2 arg2, T3 arg3, R* r) { \
|
98
|
-
fix_mem_access; \
|
99
|
-
pack_##T1(&r[0], arg1); \
|
100
|
-
pack_##T2(&r[1], arg2); \
|
101
|
-
pack_##T3(&r[2], arg3); \
|
102
|
-
}
|
103
|
-
|
104
|
-
#define T3___(R, T1, T2, T3) PACK3(R, T1, T2, T3) /* SUB2(R, T1, T2) MUL2(R, T1, T2) DIV2(R, T1, T2) */
|
105
|
-
#define T3__(R, T1, T2) \
|
106
|
-
T3___(R, T1, T2, s8) T3___(R, T1, T2, u8) \
|
107
|
-
T3___(R, T1, T2, s16) T3___(R, T1, T2, u16) \
|
108
|
-
T3___(R, T1, T2, s32) T3___(R, T1, T2, u32) \
|
109
|
-
T3___(R, T1, T2, sL) T3___(R, T1, T2, uL) \
|
110
|
-
T3___(R, T1, T2, s64) T3___(R, T1, T2, u64) \
|
111
|
-
T3___(R, T1, T2, f32) T3___(R, T1, T2, f64) \
|
112
|
-
|
113
|
-
#define T3_(R, T1) \
|
114
|
-
T3__(R, T1, s8) T3__(R, T1, u8) \
|
115
|
-
T3__(R, T1, s16) T3__(R, T1, u16) \
|
116
|
-
T3__(R, T1, s32) T3__(R, T1, u32) \
|
117
|
-
T3__(R, T1, sL) T3__(R, T1, uL) \
|
118
|
-
T3__(R, T1, s64) T3__(R, T1, u64) \
|
119
|
-
T3__(R, T1, f32) T3__(R, T1, f64) \
|
120
|
-
|
121
|
-
#define TEST3(R) \
|
122
|
-
T3_(R, s8) T3_(R, u8) T3_(R, s16) T3_(R, u16) T3_(R, s32) T3_(R, u32) \
|
123
|
-
T3_(R, sL) T3_(R, uL) T3_(R, s64) T3_(R, u64) T3_(R, f32) T3_(R, f64)
|
124
|
-
|
125
|
-
TEST3(s64)
|
126
|
-
|
127
|
-
void
|
128
|
-
foo6(intptr_t i1, intptr_t i2, intptr_t i3, intptr_t i4, intptr_t i5, intptr_t i6) { }
|
129
|
-
|
130
|
-
void
|
131
|
-
foo5(intptr_t i1, intptr_t i2, intptr_t i3, intptr_t i4, intptr_t i5) { }
|
132
|
-
|