From 6b9446bf885a41cddab3b52c2f444f5672477557 Mon Sep 17 00:00:00 2001 From: Sam Leffler Date: Sun, 26 Jan 1986 20:33:00 -0800 Subject: [PATCH] improve portability SCCS-vsn: old/libg/libg.tahoe/dbxxx.s 5.3 SCCS-vsn: old/libg/libg.tahoe/dbxxx.s 5.3 --- usr/src/old/libg/libg.tahoe/dbxxx.s | 31 ++++++++++++++++++----------- 1 file changed, 19 insertions(+), 12 deletions(-) diff --git a/usr/src/old/libg/libg.tahoe/dbxxx.s b/usr/src/old/libg/libg.tahoe/dbxxx.s index c16ef6d50d..877ab09e37 100644 --- a/usr/src/old/libg/libg.tahoe/dbxxx.s +++ b/usr/src/old/libg/libg.tahoe/dbxxx.s @@ -1,25 +1,32 @@ -# -# Copyright (c) 1980 Regents of the University of California. -# All rights reserved. The Berkeley software License Agreement -# specifies the terms and conditions for redistribution. -# +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. The Berkeley software License Agreement + * specifies the terms and conditions for redistribution. + */ #ifndef lint -_sccsid:.asciz "@(#)dbxxx.s 5.2 (Berkeley) %G%" +_sccsid:.asciz "@(#)dbxxx.s 5.3 (Berkeley) %G%" #endif not lint +#if defined(vax) +#define CALL(n, f) callg n,*f +#endif +#if defined(tahoe) +#define CALL(n, f) calls n,*f +#endif + .data .comm __dbargs,512 .text .align 1 - .globl __dbsubc -__dbsubc: - callg __dbargs+4,*__dbargs - .globl __dbsubn -__dbsubn: + .globl __dsubc +__dsubc: + CALL(__dbargs+4,__dbargs) + .globl __dsubn +__dsubn: halt .data -# __lg_flag is used by f77_abort to decide whether or not to dump memory +/* __lg_flag is used by f77_abort to decide whether or not to dump memory */ .globl __lg_flag __lg_flag: .long 1 -- 2.20.1