From 6190840eb822b179cdcf6412365d02ad7add0015 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 Nov 1995 21:50:55 +0000 Subject: [PATCH] Reconcile various versions of file-copying primitives. --- v7/src/microcode/pros2fs.c | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) diff --git a/v7/src/microcode/pros2fs.c b/v7/src/microcode/pros2fs.c index bd3bf3351..5c5f005c1 100644 --- a/v7/src/microcode/pros2fs.c +++ b/v7/src/microcode/pros2fs.c @@ -1,6 +1,6 @@ /* -*-C-*- -$Id: pros2fs.c,v 1.13 1995/10/31 08:04:27 cph Exp $ +$Id: pros2fs.c,v 1.14 1995/11/06 21:50:55 cph Exp $ Copyright (c) 1994-95 Massachusetts Institute of Technology @@ -410,16 +410,6 @@ DEFINE_PRIMITIVE ("OS2-DAYLIGHT-SAVINGS-TIME?", Prim_OS2_dst_p, 0, 0, 0) DEFINE_PRIMITIVE ("OS2-COPY-FILE", Prim_OS2_copy_file, 2, 2, 0) { PRIMITIVE_HEADER (2); - { - const char * from = (STRING_ARG (1)); - const char * to = (STRING_ARG (2)); - FILESTATUS3 * info = (OS2_read_file_status (to)); - if ((info != 0) && (((info -> attrFile) & FILE_READONLY) != 0)) - { - (info -> attrFile) &=~ FILE_READONLY; - OS2_write_file_status (to, info); - } - STD_API_CALL (dos_copy, (((PSZ) from), ((PSZ) to), DCPY_EXISTING)); - } + OS_file_copy ((STRING_ARG (1)), (STRING_ARG (2))); PRIMITIVE_RETURN (UNSPECIFIC); } -- 2.25.1