Skip to content
Snippets Groups Projects
Commit 8480a9b8 authored by cer's avatar cer
Browse files

Makefile.generic Added echo-xm-ucl-xtras rule

misc/xtsupport.c	Replaced #ifdef ultrix by #ifndef sparc
uitils/lisp-utilities.lisp	Use excl::stack-allocated-p on lisps that provide it
parent 2ef5c610
No related branches found
No related tags found
No related merge requests found
# $fiHeader: Makefile.dec3100,v 1.2 93/03/01 15:59:08 cer Exp $
#
# Makefile.hp700 for CLIM 2.0
#
include Makefile.defs
CL=/usr/fi/dcl-devel
#
MOTIFLIB=/usr/lib/Motif1.2/libXm.a
MOTIFLIB_d=/usr/lib/Motif1.2/libXm.a
XTLIB=/usr/lib/X11R5/libXt.a
XLIB=/usr/lib/X11R5/libX11.a
XINCLUDES=-I/usr/include/Motif1.2 -I/usr/include/X11R5
# Make motif only. This is like the dec.
# Perhaps this should be included.
CLIM_FASLS_TO_MAKE = makeclimxmfasls
CLIMOBJS=$(GENERIC_PUBLIC_OBJS) $(XM_PUBLIC_OBJS) $(XM_LICENSED_OBJS)
CLIMFASLS= $(CLIM_XM_FASLS) $(CLIM_GENERIC_FASLS)
INSTALLED_CLIMOBJS=$(GENERIC_PUBLIC_OBJS) $(XM_PUBLIC_OBJS) $(XM_LICENSED_OBJS)
include Makefile.generic
/* $fiHeader: xtsupport.c,v 1.3 93/03/04 19:00:49 colin Exp $ */
/* $fiHeader: xtsupport.c,v 1.4 93/04/02 18:41:04 cer Exp $ */
#ifdef sparc
#include "IntrinsicI.h"
#endif
#ifdef ultrix
#ifndef sparc
unsigned long XtAppIntervalNextTimer(app)
{
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-UTILS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: lisp-utilities.lisp,v 1.28 92/12/16 16:51:08 cer Exp $
;; $fiHeader: lisp-utilities.lisp,v 1.29 93/03/19 09:47:22 cer Exp $
(in-package :clim-utils)
......@@ -567,28 +567,38 @@
(declare (dynamic-extent ,var))
,@body))
#+(and (target-class h r t) (version>= 4 1))
;; Hack to allow compiling CLIM without a dcl.
(eval-when (eval compile)
comp::(def-qc-ll-fcn qc-ll_<u :<u
(with-u-computed
(qc-boolean-compare :ltu u target cc))))
#-(version>= 4 2 7)
(progn
#+(and (target-class h r t) (version>= 4 1))
;; Hack to allow compiling CLIM without a dcl.
(eval-when (eval compile)
comp::(def-qc-ll-fcn qc-ll_<u :<u
(with-u-computed
(qc-boolean-compare :ltu u target cc))))
#+(and (target-class h) (version>= 4 1))
(defun-inline evacuate-list (list)
;; the HP's stack grows toward higher memory
(if (comp::ll :<u (comp::ll :glob-c-value 'sys::c_stackmax) list)
(copy-list list)
list))
#+(and (target-class h) (version>= 4 1))
(defun-inline evacuate-list (list)
;; the HP's stack grows toward higher memory
(if (comp::ll :<u (comp::ll :glob-c-value 'sys::c_stackmax) list)
(copy-list list)
list))
#+(and (target-class r t) (version>= 4 1))
(defun-inline evacuate-list (list)
(if (comp::ll :<u (comp::ll :register :stack-pointer) list)
(copy-list list)
list))
#+(and (target-class r t) (version>= 4 1))
(defun-inline evacuate-list (list)
(if (comp::ll :<u (comp::ll :register :stack-pointer) list)
(copy-list list)
list))
#-(and (target-class h r t) (version>= 4 1))
(defmacro evacuate-list (list) `,list)
)
#-(and (target-class h r t) (version>= 4 1))
(defmacro evacuate-list (list) `,list)
#+(version>= 4 2 7)
(defun-inline evacuate-list (list)
;; the HP's stack grows toward higher memory
(if (excl::stack-allocated-p list)
(copy-list list)
list))
) ;#+Allegro
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment