2

如果这是这个问题的错误地方,我很抱歉,请将我重定向到合适的部分。

我对从命令行安装有些生疏,尤其是在 Windows 上。我决定在我的 PC 上安装最新的 Perl 版本,在 Windows 10 下运行。我之前使用 Strawberry Perl 下载安装它,但由于它的几个版本已经过时,我决定删除它并刷新我的技能(哈)手动安装它。我从https://www.perl.org/get.html#win32下载了最新的 Perl 版本,并且一直在阅读 README.win32 以确保我正确安装它。

由于我需要一个编译器,我决定使用Gccdmake。我安装并可以成功运行它们,所以回到安装 Perl。按照说明,我尝试在 Perl 下载文件夹的 win32 子目录中运行 dmake。在此之前,我编辑makefile.mk了这些变量,这些变量未从 Build configuration 部分注释:

INST_DRV/INST_TOP (left as is)
INST_VER *= \5.26.0
USE_MULTI *= define
USE_ITHREADS *= define
USE_IMP_SYS *= define
USE_LARGE_FILES *= define
USE_64_BIT_INT *= define
USE_LONG_DOUBLE *= define
DEFAULT_INC_EXCLUDES_DOT *= define
CCTYPE = GCC
GCCWRAPV *=define
CCHOME *= C:\MinGW
(nothing else changed after this)

当我dmake在目录中运行时,很快就会出现这个错误:

gcc -c  -I.\include -I. -I.. -DWIN32 -DPERLDLL -DPERL_CORE -s -O2 -
D__USE_MINGW_ANSI_STDIO -fwrapv -fno-strict-aliasing
-DPERL_EXTERNAL_GLOB -DPERL_IS_MINIPERL -omini\toke.o  ..\toke.c
In file included from ..\perl.h:3220:0,
                 from ..\toke.c:40:
./win32.h:417:13: error: conflicting types for 'mkstemp'
 extern  int mkstemp(const char *path);
             ^~~~~~~
In file included from ..\perl.h:790:0,
                 from ..\toke.c:40:
c:\mingw\include\stdlib.h:809:30: note: previous definition of 'mkstemp' was here
 __cdecl __MINGW_NOTHROW  int mkstemp (char *__filename_template)
                              ^~~~~~~
In file included from ..\toke.c:40:0:
..\toke.c: In function 'Perl_filter_add':
..\perl.h:1756:20: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 #define PTR2nat(p) (PTRV)(p) /* pointer to integer of PTRSIZE */
                    ^
..\perl.h:1769:28: note: in expansion of macro 'PTR2nat'
 #define FPTR2DPTR(t,p) ((t)PTR2nat(p)) /* function pointer to data pointer */
                            ^~~~~~~
..\toke.c:4397:21: note: in expansion of macro 'FPTR2DPTR'
     IoANY(datasv) = FPTR2DPTR(void *, funcp); /* stash funcp into spare field */
                     ^~~~~~~~~
..\perl.h:1769:25: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 #define FPTR2DPTR(t,p) ((t)PTR2nat(p)) /* function pointer to data pointer */
                         ^
..\toke.c:4397:21: note: in expansion of macro 'FPTR2DPTR'
     IoANY(datasv) = FPTR2DPTR(void *, funcp); /* stash funcp into spare field */
                     ^~~~~~~~~
..\toke.c: In function 'Perl_filter_del':
..\perl.h:1756:20: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 #define PTR2nat(p) (PTRV)(p) /* pointer to integer of PTRSIZE */
                    ^
..\perl.h:1769:28: note: in expansion of macro 'PTR2nat'
 #define FPTR2DPTR(t,p) ((t)PTR2nat(p)) /* function pointer to data pointer */
                            ^~~~~~~
..\toke.c:4463:26: note: in expansion of macro 'FPTR2DPTR'
     if (IoANY(datasv) == FPTR2DPTR(void *, funcp)) {
                          ^~~~~~~~~
..\perl.h:1769:25: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 #define FPTR2DPTR(t,p) ((t)PTR2nat(p)) /* function pointer to data pointer */
                         ^
..\toke.c:4463:26: note: in expansion of macro 'FPTR2DPTR'
     if (IoANY(datasv) == FPTR2DPTR(void *, funcp)) {
                          ^~~~~~~~~
..\toke.c: In function 'Perl_filter_read':
..\perl.h:1756:20: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 #define PTR2nat(p) (PTRV)(p) /* pointer to integer of PTRSIZE */
                    ^
..\perl.h:1768:28: note: in expansion of macro 'PTR2nat'
 #define DPTR2FPTR(t,p) ((t)PTR2nat(p)) /* data pointer to function pointer */
                            ^~~~~~~
..\toke.c:4554:13: note: in expansion of macro 'DPTR2FPTR'
     funcp = DPTR2FPTR(filter_t, IoANY(datasv));
             ^~~~~~~~~
..\perl.h:1768:25: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 #define DPTR2FPTR(t,p) ((t)PTR2nat(p)) /* data pointer to function pointer */
                         ^
..\toke.c:4554:13: note: in expansion of macro 'DPTR2FPTR'
     funcp = DPTR2FPTR(filter_t, IoANY(datasv));
             ^~~~~~~~~
In file included from ..\perl.h:5644:0,
                 from ..\toke.c:40:
..\toke.c: In function 'S_pending_ident':
..\perl.h:1734:26: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 #  define INT2PTR(any,d) (any)(d)
                          ^
..\embed.h:427:59: note: in definition of macro 'newUNOP_AUX'
 #define newUNOP_AUX(a,b,c,d) Perl_newUNOP_AUX(aTHX_ a,b,c,d)
                                                           ^
..\toke.c:8912:37: note: in expansion of macro 'INT2PTR'
                                     INT2PTR(UNOP_AUX_item *,
                                     ^~~~~~~

我事先收到了一堆关于从指针转换为不同大小的整数的警告,但这是它停止并产生错误的地方。我错过了一些明显的东西吗?我有一段时间没有这样做了,所以我希望这是我的一个愚蠢的用户错误!谢谢。

4

1 回答 1

0

尝试获取MinGW 源包,并使用 makepkg-mingw 进行安装以构建它们。

大多数(如果不是全部)都应用了补丁来为 MSYS2/MinGW 环境定制(或修复)它们。

从作者那里下载的 Stock 源代码可能无法像在 Linux 或 OS X 上使用“configure”和“make”那样直接在该环境中编译。

说明是可用的,并且可能还有其他与 Arch Linux 相关的类似说明。

于 2018-02-10T23:37:38.337 回答