mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-09 19:00:27 +02:00
Code Activity

Use scm_t_ptrdiff consistently instead of ptrdiff_t

Browse source 
This fixes the following errors in a MinGW cross-build.

libtool: compile:  i586-mingw32msvc-gcc -DHAVE_CONFIG_H -I.. -I.. -I.. -I/usr/local/i586-mingw32msvc/include -I/usr/local/i586-mingw32msvc/include -g -O2 -Wall -Wmissing-prototypes -Werror -MT libguile_la-discouraged.lo -MD -MP -MF .deps/libguile_la-discouraged.Tpo -c discouraged.c  -DDLL_EXPORT -DPIC -o .libs/libguile_la-discouraged.o
discouraged.c:75: error: conflicting types for 'scm_ptrdiff2num'
../libguile/discouraged.h:75: error: previous declaration of 'scm_ptrdiff2num' was here
discouraged.c:123: error: conflicting types for 'scm_num2ptrdiff'
../libguile/discouraged.h:89: error: previous declaration of 'scm_num2ptrdiff' was here

* libguile/discouraged.c (scm_ptrdiff2num, scm_num2ptrdiff): Use
  scm_t_ptrdiff instead of ptrdiff_t.
This commit is contained in:
Neil Jerram 2010-03-02 23:23:52 +00:00
parent a52d8d6fea
commit bf49096fff
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/discouraged.c
View file

@ -71,7 +71,7 @@ scm_size2num (size_t x)
}
SCM
scm_ptrdiff2num (ptrdiff_t x)
scm_ptrdiff2num (scm_t_ptrdiff x)
{
return scm_from_ssize_t (x);
}
@ -118,7 +118,7 @@ scm_num2size (SCM x, unsigned long pos, const char *s_caller)
return scm_to_size_t (x);
}
ptrdiff_t
scm_t_ptrdiff
scm_num2ptrdiff (SCM x, unsigned long pos, const char *s_caller)
{
return scm_to_ssize_t (x);