Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
mkcl
mkcl
Commits
6e2de16a
Commit
6e2de16a
authored
May 12, 2021
by
Jean-Claude Beaudoin
Browse files
Utility dpp is from now on in pre-retirement with very limited duties, restricted to .dh files.
parent
6193e618
Changes
65
Hide whitespace changes
Inline
Side-by-side
src/Makefile.in
View file @
6e2de16a
...
...
@@ -305,13 +305,13 @@ mkcl_min$(EXE): $(LIBRARIES) mkclmin.@LIBEXT@ c/cinit.o c/all_symbols.o .gdbinit
.gdbinit
:
util/gdbinit
cp
util/gdbinit
$@
c/cinit.o
:
c/GNUmakefile c/cinit.
d
c/mkcl/mkcl.h
c/cinit.o
:
c/GNUmakefile c/cinit.
c
c/mkcl/mkcl.h
cd
c
;
$(MAKE)
GNUmakefile
;
$(MAKE)
-f
GNUmakefile cinit.o
c/all_symbols.o
:
c/GNUmakefile c/all_symbols.
d
c/symbols_list.h c/symbols_list2.h c/mkcl/mkcl.h
c/all_symbols.o
:
c/GNUmakefile c/all_symbols.
c
c/symbols_list.h c/symbols_list2.h c/mkcl/mkcl.h
cd
c
;
$(MAKE)
GNUmakefile
;
$(MAKE)
-f
GNUmakefile all_symbols.o
c/all_symbols2.o
:
c/GNUmakefile c/all_symbols.
d
c/symbols_list.h c/symbols_list2.h c/mkcl/mkcl.h
c/all_symbols2.o
:
c/GNUmakefile c/all_symbols.
c
c/symbols_list.h c/symbols_list2.h c/mkcl/mkcl.h
cd
c
;
$(MAKE)
GNUmakefile
;
$(MAKE)
-f
GNUmakefile all_symbols2.o
lsp/config.lsp
:
lsp/config.pre
...
...
@@ -382,7 +382,7 @@ libmkcc1.a: ../contrib/tinycc/libmkcc1.a
../contrib/tinycc/libmkcc1.a
:
../contrib/tinycc/mkcc$(EXE) ../contrib/tinycc/lib/*.[cS] ../contrib/tinycc/lib/Makefile
cd
../contrib/tinycc
;
$(MAKE)
libmkcc1.a
mkclmin.@LIBEXT@
:
c/GNUmakefile c/mkcl/mkcl.h $(MKCL_HFILES) c/*.
d
c/arch/*.
d
c/*.h
mkclmin.@LIBEXT@
:
c/GNUmakefile c/mkcl/mkcl.h $(MKCL_HFILES) c/*.
c
c/arch/*.
c
c/*.h
cd
c
;
$(MAKE)
GNUmakefile
;
$(MAKE)
-f
GNUmakefile ../mkclmin.@LIBEXT@
mkcltop.@LIBEXT@
:
c/GNUmakefile c/all_symbols2.o
...
...
@@ -585,18 +585,18 @@ realclean: distclean
$(RM)
*
~ c/
*
~ c/arch/
*
~
$(RM)
lsp/
*
~ clos/
*
~ cmp/
*
~
TAGS
:
lsp/*.lsp lsp/config.pre clos/*.lsp cmp/*.lsp cmp/cmpdefs.pre c/*.
d
c/*.h c/arch/*.
d
c/mkcl/*.dh c/mkcl/*.h
TAGS
:
lsp/*.lsp lsp/config.pre clos/*.lsp cmp/*.lsp cmp/cmpdefs.pre c/*.
c
c/*.h c/arch/*.
c
c/mkcl/*.dh c/mkcl/*.h
if
type
etags
>
/dev/null 2>&1
;
then
\
if
etags
--help
|
grep
-q
-e
"--language-force"
;
then
\
etags
-R
lsp/
*
.lsp lsp/config.pre clos/
*
.lsp cmp/
*
.lsp cmp/cmpdefs.pre
--language-force
=
c c/
*
.
d
c/
*
.h c/arch/
*
.
d
c/mkcl/
*
.dh c/mkcl/
*
.h
;
\
etags
-R
lsp/
*
.lsp lsp/config.pre clos/
*
.lsp cmp/
*
.lsp cmp/cmpdefs.pre
--language-force
=
c c/
*
.
c
c/
*
.h c/arch/
*
.
c
c/mkcl/
*
.dh c/mkcl/
*
.h
;
\
else
\
etags
-R
lsp/
*
.lsp lsp/config.pre clos/
*
.lsp cmp/
*
.lsp cmp/cmpdefs.pre
--language
=
c c/
*
.
d
c/
*
.h c/arch/
*
.
d
c/mkcl/
*
.dh c/mkcl/
*
.h
;
\
etags
-R
lsp/
*
.lsp lsp/config.pre clos/
*
.lsp cmp/
*
.lsp cmp/cmpdefs.pre
--language
=
c c/
*
.
c
c/
*
.h c/arch/
*
.
c
c/mkcl/
*
.dh c/mkcl/
*
.h
;
\
fi
\
else
touch
TAGS
;
fi
c/makefile.depend
:
c/*.
d
c/*.h c/arch/*.
d
c/mkcl/mkcl.h $(MKCL_HFILES)
c/makefile.depend
:
c/*.
c
c/*.h c/arch/*.
c
c/mkcl/mkcl.h $(MKCL_HFILES)
cd
c
;
$(MAKE)
makefile.depend
c/GNUmakefile
:
c/Makefile.in c/makefile.depend
...
...
src/aclocal.m4
View file @
6e2de16a
...
...
@@ -828,7 +828,7 @@ AC_DEFUN([MKCL_FFI],[
AC_MSG_CHECKING([whether we can dynamically build calls to C functions])
case "${host_cpu}" in
i686 | i586 | pentium* | athlon* )
EXTRA_OBJS="${EXTRA_OBJS} ffi_x86.o"
EXTRA_OBJS="${EXTRA_OBJS}
arch/
ffi_x86.o"
if test "${enable_asmapply}" = "yes" ; then
EXTRA_OBJS="${EXTRA_OBJS} apply_x86.o"
AC_DEFINE(MKCL_ASM_APPLY)
...
...
@@ -838,25 +838,25 @@ case "${host_cpu}" in
;;
x86_64 )
if test "${CL_FIXNUM_BITS}" = 32 ; then
EXTRA_OBJS="${EXTRA_OBJS} ffi_x86.o"
EXTRA_OBJS="${EXTRA_OBJS}
arch/
ffi_x86.o"
else
case "${host_os}" in
mingw*)
EXTRA_OBJS="${EXTRA_OBJS} ffi_x86_64_w64.o"
EXTRA_OBJS="${EXTRA_OBJS}
arch/
ffi_x86_64_w64.o"
;;
*)
EXTRA_OBJS="${EXTRA_OBJS} ffi_x86_64.o"
EXTRA_OBJS="${EXTRA_OBJS}
arch/
ffi_x86_64.o"
;;
esac
fi
dynamic_ffi=yes
;;
aarch64 )
EXTRA_OBJS="${EXTRA_OBJS} ffi_aarch64.o"
EXTRA_OBJS="${EXTRA_OBJS}
arch/
ffi_aarch64.o"
dynamic_ffi=yes
;;
arm* )
EXTRA_OBJS="${EXTRA_OBJS} ffi_arm.o"
EXTRA_OBJS="${EXTRA_OBJS}
arch/
ffi_arm.o"
dynamic_ffi=yes
;;
*)
...
...
src/c/.gitignore
View file @
6e2de16a
...
...
@@ -2,8 +2,6 @@ GNUmakefile
makefile.depend
dpp
dpp.exe
[a-ce-z][a-z]*.c
disassembler.c
Makefile
symbols_list2.h
/*.s
src/c/Makefile.in
View file @
6e2de16a
...
...
@@ -85,7 +85,7 @@ OBJS = main.o symbol.o package.o list.o \
DCFILES
=
$(OBJS:%.o=%.c)
.SUFFIXES
:
.c .o
.d
.dh
.SUFFIXES
:
.c .o .dh
.PHONY
:
all all2
all
:
...
...
@@ -99,9 +99,6 @@ all2: ../mkclmin.a ../mkcltop.a all_symbols.o all_symbols2.o cinit.o
.c.o
:
$(CC)
$(CFLAGS)
-o
$@
-c
$<
.d.c
:
$(DPP)
$<
$@
.dh.h
:
$(DPP)
$<
$@
...
...
@@ -121,21 +118,6 @@ mkcl/internal.h: $(C_EXPORTED_SYMBOLS_H_IN_MKCL)
#apply_x86.c: arch/apply_x86.d $(DPP)
# $(DPP) $< $@
ffi_x86.c
:
arch/ffi_x86.d $(DPP)
$(DPP)
$<
$@
ffi_x86_64.c
:
arch/ffi_x86_64.d $(DPP)
$(DPP)
$<
$@
ffi_x86_64_w64.c
:
arch/ffi_x86_64_w64.d $(DPP)
$(DPP)
$<
$@
ffi_arm.c
:
arch/ffi_arm.d $(DPP)
$(DPP)
$<
$@
ffi_aarch64.c
:
arch/ffi_aarch64.d $(DPP)
$(DPP)
$<
$@
../mkclmin.a
:
GNUmakefile $(OBJS)
$(RM)
$@
...
...
@@ -152,7 +134,8 @@ clean:
$(RM)
mkcl/gc/
*
.h
$(C_EXPORTED_SYMBOLS_H_IN_MKCL)
distclean
:
clean
$(RM)
$(DPP)
$(DCFILES)
symbols_list2.h all_symbols.c cinit.c
$(RM)
$(DPP)
#
$(DCFILES)
$(RM)
symbols_list2.h
# all_symbols.c cinit.c
$(RM)
GNUmakefile makefile.depend
$(RM)
Makefile
...
...
@@ -182,8 +165,8 @@ unixfsys.o: unixfsys.c
# GCC might break this code
#
ffi_x86.o
:
ffi_x86.c
$(CC)
$(CFLAGS)
-O0
-c
ffi_x86.c
-o
$@
arch/
ffi_x86.o
:
arch/
ffi_x86.c
$(CC)
$(CFLAGS)
-O0
-c
arch
/
ffi_x86.c
-o
$@
#
...
...
@@ -205,7 +188,7 @@ Makefile: Makefile.in ../config.status
#
#
makefile.depend
:
$(DCFILES) *.h arch/*.
d
cinit.c all_symbols.c mkcl/mkcl.h $(MKCL_HFILES)
makefile.depend
:
$(DCFILES) *.h arch/*.
c
cinit.c all_symbols.c mkcl/mkcl.h $(MKCL_HFILES)
$(RM)
makefile.depend
for
i
in
$^
;
do
\
case
$$
i
in
\
...
...
src/c/all_symbols.
d
→
src/c/all_symbols.
c
View file @
6e2de16a
File moved
src/c/alloc_2.
d
→
src/c/alloc_2.
c
View file @
6e2de16a
File moved
src/c/apply.
d
→
src/c/apply.
c
View file @
6e2de16a
File moved
src/c/arch/ffi_aarch64.
d
→
src/c/arch/ffi_aarch64.
c
View file @
6e2de16a
File moved
src/c/arch/ffi_arm.
d
→
src/c/arch/ffi_arm.
c
View file @
6e2de16a
File moved
src/c/arch/ffi_x86.
d
→
src/c/arch/ffi_x86.
c
View file @
6e2de16a
File moved
src/c/arch/ffi_x86_64.
d
→
src/c/arch/ffi_x86_64.
c
View file @
6e2de16a
File moved
src/c/arch/ffi_x86_64_w64.
d
→
src/c/arch/ffi_x86_64_w64.
c
View file @
6e2de16a
File moved
src/c/array.
d
→
src/c/array.
c
View file @
6e2de16a
File moved
src/c/assignment.
d
→
src/c/assignment.
c
View file @
6e2de16a
File moved
src/c/backq.
d
→
src/c/backq.
c
View file @
6e2de16a
...
...
@@ -63,7 +63,7 @@ _mkcl_backq_cdr(MKCL, mkcl_object *px)
return
(
EVAL
);
}
if
(
MKCL_CAR
(
x
)
==
MK_SI_unquote_splice
||
MKCL_CAR
(
x
)
==
MK_SI_unquote_nsplice
)
mkcl_FEerror
(
env
,
",@
@
or ,. has appeared in an illegal position."
,
0
);
mkcl_FEerror
(
env
,
",@ or ,. has appeared in an illegal position."
,
0
);
ax
=
MKCL_CAR
(
x
);
dx
=
MKCL_CDR
(
x
);
a
=
_mkcl_backq_car
(
env
,
&
ax
);
...
...
@@ -244,7 +244,7 @@ backq(MKCL, mkcl_object x)
a
=
_mkcl_backq_car
(
env
,
&
x
);
if
(
a
==
APPEND
||
a
==
NCONC
)
mkcl_FEerror
(
env
,
",@
@
or ,. has appeared in an illegal position."
,
0
);
mkcl_FEerror
(
env
,
",@ or ,. has appeared in an illegal position."
,
0
);
if
(
a
==
QUOTE
)
return
(
kwote
(
env
,
x
));
return
(
x
);
...
...
src/c/big.
d
→
src/c/big.
c
View file @
6e2de16a
File moved
src/c/cfun.
d
→
src/c/cfun.
c
View file @
6e2de16a
...
...
@@ -22,7 +22,7 @@
# include <stdio.h>
#endif
#
include
"cfun_dispatch.
d
"
#include
"cfun_dispatch.
c
"
static
mkcl_object
wrong_num_args_cfun_0
(
MKCL
)
{
...
...
src/c/cfun_dispatch.
d
→
src/c/cfun_dispatch.
c
View file @
6e2de16a
File moved
src/c/character.
d
→
src/c/character.
c
View file @
6e2de16a
File moved
src/c/cinit.
d
→
src/c/cinit.
c
View file @
6e2de16a
File moved
Prev
1
2
3
4
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment