ports/lang/qscheme/files/patch-asm.c
Tobias Kortkamp c3168d40f9 - Fix build with clang and remove USE_GCC
- Link dynamically with libavcall, libpcre and libgmp and fix build on
  amd64 (and optimistically sparc64 too)
- Remove the devel/libgetline dependency and don't link with libgetline:
  While libgetline provides getline() it has an entirely different
  signature than getline(3).  This make the fgetline builtin function
  unusable and causes e.g. the cat.scm example to segfault.

Approved by:	mat (mentor)
Differential Revision:	https://reviews.freebsd.org/D11352
2017-06-27 15:34:17 +00:00

29 lines
829 B
C

Fix build with clang
asm.c:1343:21: error: function definition is not allowed here
SOBJ prim(char *x) {
^
--- asm.c.orig 2017-06-24 19:10:34 UTC
+++ asm.c
@@ -1334,16 +1334,17 @@ static SOBJ scm_compile_quote(SOBJ icode, SOBJ argl, S
return(icode);
}
+static SOBJ prim(char *x) {
+ int dummy;
+ return(SCM_SYM_VALUE(lookup_atom(scm_mkatom(x),NULL,&dummy,FALSE)));
+}
+
/*-- KKK: should try to compile parial constant list */
SOBJ backquotify(SOBJ ic, SOBJ l, SOBJ env, int level)
{
static SOBJ sym_cons, sym_append, sym_list2, sym_list2vec;
if (sym_cons == NULL) {
- SOBJ prim(char *x) {
- int dummy;
- return(SCM_SYM_VALUE(lookup_atom(scm_mkatom(x),NULL,&dummy,FALSE)));
- }
sym_cons = prim("cons");
sym_list2 = prim("list2");
sym_append = prim("qq-append2");