factor: more function messups

db4
Doug Coleman 2015-07-19 20:09:21 -07:00
parent 6e46c08b7e
commit b3e8ecf738
6 changed files with 14 additions and 14 deletions

View File

@ -5,7 +5,7 @@ FROM: alien.libraries => add-library load-library ;
IN: compiler.tests.linkage-errors
! Regression: calling an undefined function would raise a protection fault
FUNCTION: void this_does_not_exist ( ) ;
FUNCTION: void this_does_not_exist ( )
[ this_does_not_exist ] try
@ -26,7 +26,7 @@ FUNCTION: void this_does_not_exist ( ) ;
LIBRARY: no_such_library
FUNCTION: void no_such_function ( ) ;
FUNCTION: void no_such_function ( )
[ no_such_function ] try

View File

@ -3,7 +3,7 @@ USING: math.floats.env alien.syntax alien.c-types compiler.test
tools.test kernel math ;
LIBRARY: libm
FUNCTION: double sqrt ( double x ) ;
FUNCTION: double sqrt ( double x )
[ { } ] [
4.0 [ [ 100 [ dup sqrt drop ] times ] collect-fp-exceptions nip ] compile-call

View File

@ -34,10 +34,10 @@ FUNCTION: void* fftw_malloc ( size_t n )
FUNCTION: fftw_plan fftw_plan_dft_1d ( int n, void* in, void* out, int sign, int flags )
FUNCTION: void fftw_destroy_plan ( fftw_plan )
FUNCTION: void fftw_destroy_plan ( fftw_plan p )
FUNCTION: void fftw_execute ( fftw_plan )
FUNCTION: void fftw_execute ( fftw_plan p )
FUNCTION: void fftw_free ( void* )
FUNCTION: void fftw_free ( void* p )
DESTRUCTOR: fftw_free

View File

@ -107,9 +107,9 @@ FUNCTION: void lua_pushnil ( lua_State* L )
FUNCTION: void lua_pushnumber ( lua_State* L, lua_Number n )
FUNCTION: void lua_pushinteger ( lua_State* L, lua_Integer n )
FUNCTION: void lua_pushlstring ( lua_State* L, char* s, size_t l )
FUNCTION: void lua_pushstring ( lua_State* L, c-string[ascii] )
! FUNCTION: c-string[ascii] lua_pushvfstring ( lua_State* L, c-string[ascii] fmt, va_list argp ) ;
! FUNCTION: c-string[ascii] lua_pushfstring ( lua_State* L, c-string[ascii] fmt, ... ) ;
FUNCTION: void lua_pushstring ( lua_State* L, c-string[ascii] s )
! FUNCTION: c-string[ascii] lua_pushvfstring ( lua_State* L, c-string[ascii] fmt, va_list argp )
! FUNCTION: c-string[ascii] lua_pushfstring ( lua_State* L, c-string[ascii] fmt, ... )
FUNCTION: void lua_pushcclosure ( lua_State* L, lua_CFunction fn, int n )
FUNCTION: void lua_pushboolean ( lua_State* L, int b )
FUNCTION: void lua_pushlightuserdata ( lua_State* L, void* p )

View File

@ -112,7 +112,7 @@ STRUCT: th-huff-code
LIBRARY: theoradec
FUNCTION: c-string th_version_string ( )
FUNCTION: uint th_version_number ( )
FUNCTION: longlong th_granule_frame ( void* encdec, longlong granpos) ;
FUNCTION: longlong th_granule_frame ( void* encdec, longlong granpos )
FUNCTION: int th_packet_isheader ( ogg-packet* op )
FUNCTION: int th_packet_iskeyframe ( ogg-packet* op )
FUNCTION: void th_info_init ( th-info* info )

View File

@ -322,7 +322,7 @@ FUNCTION: int rl_vi_goto_mark ( int arg1, int arg2 )
FUNCTION: int rl_vi_check ( )
FUNCTION: int rl_vi_domove ( int arg1, int* arg2 )
FUNCTION: int rl_vi_bracktype ( int )
FUNCTION: int rl_vi_bracktype ( int i )
FUNCTION: void rl_vi_start_inserting ( int arg1, int arg2, int
arg3 )
@ -348,7 +348,7 @@ FUNCTION: int rl_add_defun ( c-string arg1, rl_command_func_t*
FUNCTION: int rl_bind_key ( int arg1, rl_command_func_t* arg2 )
FUNCTION: int rl_bind_key_in_map ( int arg1, rl_command_func_t*
arg2, Keymap arg3 )
FUNCTION: int rl_unbind_key ( int )
FUNCTION: int rl_unbind_key ( int i )
FUNCTION: int rl_unbind_key_in_map ( int arg1, Keymap arg2 )
FUNCTION: int rl_bind_key_if_unbound ( int arg1,
rl_command_func_t* arg2 )
@ -382,8 +382,8 @@ FUNCTION: int rl_macro_bind ( c-string arg1, c-string arg2,
Keymap arg3 )
FUNCTION: int rl_translate_keyseq ( c-string arg1, c-string
arg2, int* arg3 )
FUNCTION: c-string rl_untranslate_keyseq ( int s )
FUNCTION: rl_command_func_t* rl_named_function ( c-string )
FUNCTION: c-string rl_untranslate_keyseq ( int i )
FUNCTION: rl_command_func_t* rl_named_function ( c-string s )
FUNCTION: rl_command_func_t* rl_function_of_keyseq ( c-string arg1,
Keymap arg2,
int* arg3 )