BSD 4_3 release

[unix-history] / usr / src / ucb / pascal / pdx / cerror.s

diff --git a/usr/src/ucb/pascal/pdx/cerror.s b/usr/src/ucb/pascal/pdx/cerror.s
deleted file mode 120000 (symlink)
index 3c12edfb561795b88a2587f885c17522c4acbc22..0000000000000000000000000000000000000000
--- a/usr/src/ucb/pascal/pdx/cerror.s
+++ /dev/null
@@ -1 +0,0 @@
-cerror.vax
\ No newline at end of file

diff --git a/usr/src/ucb/pascal/pdx/cerror.s b/usr/src/ucb/pascal/pdx/cerror.s
new file mode 100644 (file)
index 0000000000000000000000000000000000000000..a2ac52676015559d2d53e695e61f6ffbdaf7823f
--- /dev/null
+++ b/usr/src/ucb/pascal/pdx/cerror.s
@@ -0,0 +1,29 @@
+#
+# Copyright (c) 1982 Regents of the University of California.
+# All rights reserved.  The Berkeley software License Agreement
+# specifies the terms and conditions for redistribution.
+#
+#      @(#)cerror.s    5.1 (Berkeley) 6/7/85
+#
+# modified version of cerror
+#
+# The idea is that every time an error occurs in a system call
+# I want a special function "syserr" called.  This function will
+# either print a message and exit or do nothing depending on
+# defaults and use of "onsyserr".
+#
+
+.globl cerror
+.comm  _errno,4
+
+cerror:
+       movl    r0,_errno
+       calls   $0,_syserr      # new code
+       mnegl   $1,r0
+       ret
+
+.globl __mycerror              # clumsy way to get this loaded
+
+__mycerror:
+       .word   0
+       ret