blob: a3c7c7e06834c0b163597bd9e985e5e1f66efe45 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
diff -Naur librep_0.92.5.orig/src/repint.h librep_0.92.5.new/src/repint.h
--- librep_0.92.5.orig/src/repint.h 2015-06-02 22:44:39.565894699 +0200
+++ librep_0.92.5.new/src/repint.h 2015-06-02 22:46:39.865254294 +0200
@@ -240,27 +240,6 @@
#include "repint_subrs.h"
-/* If using GCC, make inline_Fcons be Fcons that only takes a procedure
- call when the heap needs to grow. */
-
-#if defined __GNUC__ && defined __OPTIMIZE__
-extern __inline__ repv inline_Fcons (repv x, repv y);
-extern __inline__ repv
-inline_Fcons (repv x, repv y)
-{
- rep_cons *c = rep_cons_freelist;
- if (c == 0)
- c = rep_allocate_cons ();
- rep_cons_freelist = rep_CONS (c->cdr);
- rep_used_cons++;
- rep_data_after_gc += sizeof(rep_cons);
-
- c->car = (x);
- c->cdr = (y);
- return rep_CONS_VAL (c);
-}
-#else
# define inline_Fcons Fcons
-#endif
#endif /* REPINT_H */
|