From cf51a0628004989f5b2fc510b2914095ac9ba3c2 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Tue, 12 Jan 1993 19:50:08 +0000 Subject: [PATCH] Add syscall_mktime. --- v7/src/microcode/msdos.h | 14 ++++++++------ v7/src/microcode/utabmd.scm | 5 +++-- v7/src/microcode/ux.h | 8 +++++--- v8/src/microcode/utabmd.scm | 5 +++-- 4 files changed, 19 insertions(+), 13 deletions(-) diff --git a/v7/src/microcode/msdos.h b/v7/src/microcode/msdos.h index 74be61bf7..d4b71851c 100644 --- a/v7/src/microcode/msdos.h +++ b/v7/src/microcode/msdos.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: msdos.h,v 1.3 1992/10/07 06:23:36 jinx Exp $ +$Id: msdos.h,v 1.4 1993/01/12 19:47:44 gjr Exp $ -Copyright (c) 1992 Massachusetts Institute of Technology +Copyright (c) 1992-1993 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -94,7 +94,6 @@ enum syscall_names syscall_listen, syscall_localtime, syscall_lseek, - syscall_lstat, syscall_malloc, syscall_mkdir, syscall_open, @@ -126,9 +125,12 @@ enum syscall_names syscall_unlink, syscall_utime, syscall_vfork, - syscall_write + syscall_write, + syscall_stat, + syscall_lstat, + syscall_mktime }; - + enum syserr_names { syserr_unknown, @@ -172,7 +174,6 @@ enum syserr_names }; extern void EXFUN (error_system_call, (int code, enum syscall_names name)); - #include #include @@ -399,6 +400,7 @@ extern char * EXFUN (getlogin, (void)); #define DOS_lseek lseek #define DOS_malloc malloc #define DOS_mknod mknod +#define DOS_mktime mktime #define DOS_pause pause #define DOS_pipe pipe #define DOS_read read diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index 4c6cb9ab8..d0f8a4aef 100644 --- a/v7/src/microcode/utabmd.scm +++ b/v7/src/microcode/utabmd.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $ +;;; $Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $ ;;; ;;; Copyright (c) 1987-92 Massachusetts Institute of Technology ;;; @@ -633,6 +633,7 @@ WRITE STAT LSTAT + MKTIME )) ;;; [] System-call errors @@ -698,4 +699,4 @@ ;;; This identification string is saved by the system. -"$Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $" \ No newline at end of file +"$Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $" \ No newline at end of file diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h index 8e40555fe..8206f8774 100644 --- a/v7/src/microcode/ux.h +++ b/v7/src/microcode/ux.h @@ -1,8 +1,8 @@ /* -*-C-*- -$Id: ux.h,v 1.38 1992/08/29 13:41:39 jinx Exp $ +$Id: ux.h,v 1.39 1993/01/12 19:47:49 gjr Exp $ -Copyright (c) 1988-1992 Massachusetts Institute of Technology +Copyright (c) 1988-1993 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -125,7 +125,8 @@ enum syscall_names syscall_vfork, syscall_write, syscall_stat, - syscall_lstat + syscall_lstat, + syscall_mktime }; enum syserr_names @@ -738,6 +739,7 @@ extern char * EXFUN (getlogin, (void)); #define UX_lseek lseek #define UX_malloc malloc #define UX_mknod mknod +#define UX_mktime mktime #define UX_pause pause #define UX_pipe pipe #define UX_read read diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm index 4c6cb9ab8..d0f8a4aef 100644 --- a/v8/src/microcode/utabmd.scm +++ b/v8/src/microcode/utabmd.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $ +;;; $Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $ ;;; ;;; Copyright (c) 1987-92 Massachusetts Institute of Technology ;;; @@ -633,6 +633,7 @@ WRITE STAT LSTAT + MKTIME )) ;;; [] System-call errors @@ -698,4 +699,4 @@ ;;; This identification string is saved by the system. -"$Id: utabmd.scm,v 9.64 1992/11/10 03:05:43 cph Exp $" \ No newline at end of file +"$Id: utabmd.scm,v 9.65 1993/01/12 19:50:08 gjr Exp $" \ No newline at end of file -- 2.25.1