projects / p5sagit/p5-mst-13.2.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw (parent: c289d2f)
Fcntl constants speedup
Nicholas Clark [Sun, 17 Dec 2000 16:29:24 +0000 (16:29 +0000)]
Message-ID: <20001217162924.E97668@plum.flirble.org>

Use IVs for the Fcntl constants instead of NVs.

p4raw-id: //depot/perl@8148

ext/Fcntl/Fcntl.pm patch | blob | blame | history
ext/Fcntl/Fcntl.xs patch | blob | blame | history
t/op/goto_xs.t patch | blob | blame | history

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index 92103a1..c68dda1 100644 (file)
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -201,7 +201,7 @@ sub S_ISENFMT  { ( $_[0] & _S_IFMT() ) == S_IFENFMT() }
 
 sub AUTOLOAD {
     (my $constname = $AUTOLOAD) =~ s/.*:://;
-    my $val = constant($constname, 0);
+    my $val = constant($constname);
     if ($! != 0) {
        if ($! =~ /Invalid/ || $!{EINVAL}) {
            $AutoLoader::AUTOLOAD = $AUTOLOAD;
diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index b597e03..21029b2 100644 (file)
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -40,13 +40,13 @@ not_here(char *s)
     return -1;
 }
 
-static double
-constant(char *name, int arg)
+static IV
+constant(char *name)
 {
     errno = 0;
-    switch (*name) {
+    switch (*(name++)) {
     case '_':
-       if (strEQ(name, "_S_IFMT")) /* Yes, on name _S_IFMT return S_IFMT. */
+       if (strEQ(name, "S_IFMT")) /* Yes, on name _S_IFMT return S_IFMT. */
 #ifdef S_IFMT
          return S_IFMT;
 #else
@@ -54,218 +54,219 @@ constant(char *name, int arg)
 #endif
        break;
     case 'F':
-       if (strnEQ(name, "F_", 2)) {
-           if (strEQ(name, "F_ALLOCSP"))
+       if (*name == '_') {
+           name++;
+           if (strEQ(name, "ALLOCSP"))
 #ifdef F_ALLOCSP
                return F_ALLOCSP;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_ALLOCSP64"))
+           if (strEQ(name, "ALLOCSP64"))
 #ifdef F_ALLOCSP64
                return F_ALLOCSP64;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_COMPAT"))
+           if (strEQ(name, "COMPAT"))
 #ifdef F_COMPAT
                return F_COMPAT;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_DUP2FD"))
+           if (strEQ(name, "DUP2FD"))
 #ifdef F_DUP2FD
                return F_DUP2FD;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_DUPFD"))
+           if (strEQ(name, "DUPFD"))
 #ifdef F_DUPFD
                return F_DUPFD;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_EXLCK"))
+           if (strEQ(name, "EXLCK"))
 #ifdef F_EXLCK
                return F_EXLCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_FREESP"))
+           if (strEQ(name, "FREESP"))
 #ifdef F_FREESP
                return F_FREESP;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_FREESP64"))
+           if (strEQ(name, "FREESP64"))
 #ifdef F_FREESP64
                return F_FREESP64;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_FSYNC"))
+           if (strEQ(name, "FSYNC"))
 #ifdef F_FSYNC
                return F_FSYNC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_FSYNC64"))
+           if (strEQ(name, "FSYNC64"))
 #ifdef F_FSYNC64
                return F_FSYNC64;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_GETFD"))
+           if (strEQ(name, "GETFD"))
 #ifdef F_GETFD
                return F_GETFD;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_GETFL"))
+           if (strEQ(name, "GETFL"))
 #ifdef F_GETFL
                return F_GETFL;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_GETLK"))
+           if (strEQ(name, "GETLK"))
 #ifdef F_GETLK
                return F_GETLK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_GETLK64"))
+           if (strEQ(name, "GETLK64"))
 #ifdef F_GETLK64
                return F_GETLK64;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_GETOWN"))
+           if (strEQ(name, "GETOWN"))
 #ifdef F_GETOWN
                return F_GETOWN;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_NODNY"))
+           if (strEQ(name, "NODNY"))
 #ifdef F_NODNY
                return F_NODNY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_POSIX"))
+           if (strEQ(name, "POSIX"))
 #ifdef F_POSIX
                return F_POSIX;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_RDACC"))
+           if (strEQ(name, "RDACC"))
 #ifdef F_RDACC
                return F_RDACC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_RDDNY"))
+           if (strEQ(name, "RDDNY"))
 #ifdef F_RDDNY
                return F_RDDNY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_RDLCK"))
+           if (strEQ(name, "RDLCK"))
 #ifdef F_RDLCK
                return F_RDLCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_RWACC"))
+           if (strEQ(name, "RWACC"))
 #ifdef F_RWACC
                return F_RWACC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_RWDNY"))
+           if (strEQ(name, "RWDNY"))
 #ifdef F_RWDNY
                return F_RWDNY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETFD"))
+           if (strEQ(name, "SETFD"))
 #ifdef F_SETFD
                return F_SETFD;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETFL"))
+           if (strEQ(name, "SETFL"))
 #ifdef F_SETFL
                return F_SETFL;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETLK"))
+           if (strEQ(name, "SETLK"))
 #ifdef F_SETLK
                return F_SETLK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETLK64"))
+           if (strEQ(name, "SETLK64"))
 #ifdef F_SETLK64
                return F_SETLK64;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETLKW"))
+           if (strEQ(name, "SETLKW"))
 #ifdef F_SETLKW
                return F_SETLKW;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETLKW64"))
+           if (strEQ(name, "SETLKW64"))
 #ifdef F_SETLKW64
                return F_SETLKW64;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SETOWN"))
+           if (strEQ(name, "SETOWN"))
 #ifdef F_SETOWN
                return F_SETOWN;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SHARE"))
+           if (strEQ(name, "SHARE"))
 #ifdef F_SHARE
                return F_SHARE;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_SHLCK"))
+           if (strEQ(name, "SHLCK"))
 #ifdef F_SHLCK
                return F_SHLCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_UNLCK"))
+           if (strEQ(name, "UNLCK"))
 #ifdef F_UNLCK
                return F_UNLCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_UNSHARE"))
+           if (strEQ(name, "UNSHARE"))
 #ifdef F_UNSHARE
                return F_UNSHARE;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_WRACC"))
+           if (strEQ(name, "WRACC"))
 #ifdef F_WRACC
                return F_WRACC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_WRDNY"))
+           if (strEQ(name, "WRDNY"))
 #ifdef F_WRDNY
                return F_WRDNY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "F_WRLCK"))
+           if (strEQ(name, "WRLCK"))
 #ifdef F_WRLCK
                return F_WRLCK;
 #else
@@ -274,79 +275,79 @@ constant(char *name, int arg)
            errno = EINVAL;
            return 0;
        }
-        if (strEQ(name, "FAPPEND"))
+        if (strEQ(name, "APPEND"))
 #ifdef FAPPEND
             return FAPPEND;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FASYNC"))
+        if (strEQ(name, "ASYNC"))
 #ifdef FASYNC
             return FASYNC;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FCREAT"))
+        if (strEQ(name, "CREAT"))
 #ifdef FCREAT
             return FCREAT;
 #else
             goto not_there;
 #endif
-       if (strEQ(name, "FD_CLOEXEC"))
+       if (strEQ(name, "D_CLOEXEC"))
 #ifdef FD_CLOEXEC
            return FD_CLOEXEC;
 #else
            goto not_there;
 #endif
-       if (strEQ(name, "FDEFER"))
+       if (strEQ(name, "DEFER"))
 #ifdef FDEFER
            return FDEFER;
 #else
            goto not_there;
 #endif
-        if (strEQ(name, "FDSYNC"))
+        if (strEQ(name, "DSYNC"))
 #ifdef FDSYNC
             return FDSYNC;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FEXCL"))
+        if (strEQ(name, "EXCL"))
 #ifdef FEXCL
             return FEXCL;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FLARGEFILE"))
+        if (strEQ(name, "LARGEFILE"))
 #ifdef FLARGEFILE
             return FLARGEFILE;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FNDELAY"))
+        if (strEQ(name, "NDELAY"))
 #ifdef FNDELAY
             return FNDELAY;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FNONBLOCK"))
+        if (strEQ(name, "NONBLOCK"))
 #ifdef FNONBLOCK
             return FNONBLOCK;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FRSYNC"))
+        if (strEQ(name, "RSYNC"))
 #ifdef FRSYNC
             return FRSYNC;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FSYNC"))
+        if (strEQ(name, "SYNC"))
 #ifdef FSYNC
             return FSYNC;
 #else
             goto not_there;
 #endif
-        if (strEQ(name, "FTRUNC"))
+        if (strEQ(name, "TRUNC"))
 #ifdef FTRUNC
             return FTRUNC;
 #else
@@ -354,28 +355,29 @@ constant(char *name, int arg)
 #endif
        break;
     case 'L':
-       if (strnEQ(name, "LOCK_", 5)) {
+       if (strnEQ(name, "OCK_", 4)) {
            /* We support flock() on systems which don't have it, so
               always supply the constants. */
-           if (strEQ(name, "LOCK_SH"))
+           name += 4;
+           if (strEQ(name, "SH"))
 #ifdef LOCK_SH
                return LOCK_SH;
 #else
                return 1;
 #endif
-           if (strEQ(name, "LOCK_EX"))
+           if (strEQ(name, "EX"))
 #ifdef LOCK_EX
                return LOCK_EX;
 #else
                return 2;
 #endif
-           if (strEQ(name, "LOCK_NB"))
+           if (strEQ(name, "NB"))
 #ifdef LOCK_NB
                return LOCK_NB;
 #else
                return 4;
 #endif
-           if (strEQ(name, "LOCK_UN"))
+           if (strEQ(name, "UN"))
 #ifdef LOCK_UN
                return LOCK_UN;
 #else
@@ -385,188 +387,189 @@ constant(char *name, int arg)
          goto not_there;
        break;
     case 'O':
-       if (strnEQ(name, "O_", 2)) {
-           if (strEQ(name, "O_ACCMODE"))
+       if (name[0] == '_') {
+           name++;
+           if (strEQ(name, "ACCMODE"))
 #ifdef O_ACCMODE
                return O_ACCMODE;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_APPEND"))
+           if (strEQ(name, "APPEND"))
 #ifdef O_APPEND
                return O_APPEND;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_ASYNC"))
+           if (strEQ(name, "ASYNC"))
 #ifdef O_ASYNC
                return O_ASYNC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_BINARY"))
+           if (strEQ(name, "BINARY"))
 #ifdef O_BINARY
                return O_BINARY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_CREAT"))
+           if (strEQ(name, "CREAT"))
 #ifdef O_CREAT
                return O_CREAT;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_DEFER"))
+           if (strEQ(name, "DEFER"))
 #ifdef O_DEFER
                return O_DEFER;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_DIRECT"))
+           if (strEQ(name, "DIRECT"))
 #ifdef O_DIRECT
                return O_DIRECT;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_DIRECTORY"))
+           if (strEQ(name, "DIRECTORY"))
 #ifdef O_DIRECTORY
                return O_DIRECTORY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_DSYNC"))
+           if (strEQ(name, "DSYNC"))
 #ifdef O_DSYNC
                return O_DSYNC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_EXCL"))
+           if (strEQ(name, "EXCL"))
 #ifdef O_EXCL
                return O_EXCL;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_EXLOCK"))
+           if (strEQ(name, "EXLOCK"))
 #ifdef O_EXLOCK
                return O_EXLOCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_LARGEFILE"))
+           if (strEQ(name, "LARGEFILE"))
 #ifdef O_LARGEFILE
                return O_LARGEFILE;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_NDELAY"))
+           if (strEQ(name, "NDELAY"))
 #ifdef O_NDELAY
                return O_NDELAY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_NOCTTY"))
+           if (strEQ(name, "NOCTTY"))
 #ifdef O_NOCTTY
                return O_NOCTTY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_NOFOLLOW"))
+           if (strEQ(name, "NOFOLLOW"))
 #ifdef O_NOFOLLOW
                return O_NOFOLLOW;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_NOINHERIT"))
+           if (strEQ(name, "NOINHERIT"))
 #ifdef O_NOINHERIT
                return O_NOINHERIT;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_NONBLOCK"))
+           if (strEQ(name, "NONBLOCK"))
 #ifdef O_NONBLOCK
                return O_NONBLOCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_RANDOM"))
+           if (strEQ(name, "RANDOM"))
 #ifdef O_RANDOM
                return O_RANDOM;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_RAW"))
+           if (strEQ(name, "RAW"))
 #ifdef O_RAW
                return O_RAW;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_RDONLY"))
+           if (strEQ(name, "RDONLY"))
 #ifdef O_RDONLY
                return O_RDONLY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_RDWR"))
+           if (strEQ(name, "RDWR"))
 #ifdef O_RDWR
                return O_RDWR;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_RSYNC"))
+           if (strEQ(name, "RSYNC"))
 #ifdef O_RSYNC
                return O_RSYNC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_SEQUENTIAL"))
+           if (strEQ(name, "SEQUENTIAL"))
 #ifdef O_SEQUENTIAL
                return O_SEQUENTIAL;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_SHLOCK"))
+           if (strEQ(name, "SHLOCK"))
 #ifdef O_SHLOCK
                return O_SHLOCK;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_SYNC"))
+           if (strEQ(name, "SYNC"))
 #ifdef O_SYNC
                return O_SYNC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_TEMPORARY"))
+           if (strEQ(name, "TEMPORARY"))
 #ifdef O_TEMPORARY
                return O_TEMPORARY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_TEXT"))
+           if (strEQ(name, "TEXT"))
 #ifdef O_TEXT
                return O_TEXT;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_TRUNC"))
+           if (strEQ(name, "TRUNC"))
 #ifdef O_TRUNC
                return O_TRUNC;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_WRONLY"))
+           if (strEQ(name, "WRONLY"))
 #ifdef O_WRONLY
                return O_WRONLY;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_ALIAS"))
+           if (strEQ(name, "ALIAS"))
 #ifdef O_ALIAS
                return O_ALIAS;
 #else
                goto not_there;
 #endif
-           if (strEQ(name, "O_RSRC"))
+           if (strEQ(name, "RSRC"))
 #ifdef O_RSRC
                return O_RSRC;
 #else
@@ -576,171 +579,171 @@ constant(char *name, int arg)
          goto not_there;
        break;
     case 'S':
-      switch (name[1]) {
+      switch (*(name++)) {
       case '_':
-       if (strEQ(name, "S_ISUID"))
+       if (strEQ(name, "ISUID"))
 #ifdef S_ISUID
          return S_ISUID;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_ISGID"))
+       if (strEQ(name, "ISGID"))
 #ifdef S_ISGID
          return S_ISGID;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_ISVTX"))
+       if (strEQ(name, "ISVTX"))
 #ifdef S_ISVTX
          return S_ISVTX;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_ISTXT"))
+       if (strEQ(name, "ISTXT"))
 #ifdef S_ISTXT
          return S_ISTXT;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFREG"))
+       if (strEQ(name, "IFREG"))
 #ifdef S_IFREG
          return S_IFREG;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFDIR"))
+       if (strEQ(name, "IFDIR"))
 #ifdef S_IFDIR
          return S_IFDIR;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFLNK"))
+       if (strEQ(name, "IFLNK"))
 #ifdef S_IFLNK
          return S_IFLNK;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFSOCK"))
+       if (strEQ(name, "IFSOCK"))
 #ifdef S_IFSOCK
          return S_IFSOCK;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFBLK"))
+       if (strEQ(name, "IFBLK"))
 #ifdef S_IFBLK
          return S_IFBLK;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFCHR"))
+       if (strEQ(name, "IFCHR"))
 #ifdef S_IFCHR
          return S_IFCHR;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFIFO"))
+       if (strEQ(name, "IFIFO"))
 #ifdef S_IFIFO
          return S_IFIFO;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IFWHT"))
+       if (strEQ(name, "IFWHT"))
 #ifdef S_IFWHT
          return S_IFWHT;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_ENFMT"))
+       if (strEQ(name, "ENFMT"))
 #ifdef S_ENFMT
          return S_ENFMT;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IRUSR"))
+       if (strEQ(name, "IRUSR"))
 #ifdef S_IRUSR
          return S_IRUSR;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IWUSR"))
+       if (strEQ(name, "IWUSR"))
 #ifdef S_IWUSR
          return S_IWUSR;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IXUSR"))
+       if (strEQ(name, "IXUSR"))
 #ifdef S_IXUSR
          return S_IXUSR;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IRWXU"))
+       if (strEQ(name, "IRWXU"))
 #ifdef S_IRWXU
          return S_IRWXU;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IRGRP"))
+       if (strEQ(name, "IRGRP"))
 #ifdef S_IRGRP
          return S_IRGRP;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IWGRP"))
+       if (strEQ(name, "IWGRP"))
 #ifdef S_IWGRP
          return S_IWGRP;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IXGRP"))
+       if (strEQ(name, "IXGRP"))
 #ifdef S_IXGRP
          return S_IXGRP;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IRWXG"))
+       if (strEQ(name, "IRWXG"))
 #ifdef S_IRWXG
          return S_IRWXG;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IROTH"))
+       if (strEQ(name, "IROTH"))
 #ifdef S_IROTH
          return S_IROTH;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IWOTH"))
+       if (strEQ(name, "IWOTH"))
 #ifdef S_IWOTH
          return S_IWOTH;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IXOTH"))
+       if (strEQ(name, "IXOTH"))
 #ifdef S_IXOTH
          return S_IXOTH;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IRWXO"))
+       if (strEQ(name, "IRWXO"))
 #ifdef S_IRWXO
          return S_IRWXO;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IREAD"))
+       if (strEQ(name, "IREAD"))
 #ifdef S_IREAD
          return S_IREAD;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IWRITE"))
+       if (strEQ(name, "IWRITE"))
 #ifdef S_IWRITE
          return S_IWRITE;
 #else
          goto not_there;
 #endif
-       if (strEQ(name, "S_IEXEC"))
+       if (strEQ(name, "IEXEC"))
 #ifdef S_IEXEC
          return S_IEXEC;
 #else
@@ -748,19 +751,19 @@ constant(char *name, int arg)
 #endif
        break;
       case 'E':
-         if (strEQ(name, "SEEK_CUR"))
+         if (strEQ(name, "EK_CUR"))
 #ifdef SEEK_CUR
            return SEEK_CUR;
 #else
            return 1;
 #endif
-       if (strEQ(name, "SEEK_END"))
+       if (strEQ(name, "EK_END"))
 #ifdef SEEK_END
            return SEEK_END;
 #else
            return 2;
 #endif
-       if (strEQ(name, "SEEK_SET"))
+       if (strEQ(name, "EK_SET"))
 #ifdef SEEK_SET
            return SEEK_SET;
 #else
@@ -780,8 +783,7 @@ not_there:
 
 MODULE = Fcntl         PACKAGE = Fcntl
 
-double
-constant(name,arg)
+IV
+constant(name)
        char *          name
-       int             arg
 
diff --git a/t/op/goto_xs.t b/t/op/goto_xs.t
index cf2cafd..dc8e7d7 100755 (executable)
--- a/t/op/goto_xs.t
+++ b/t/op/goto_xs.t
@@ -35,7 +35,7 @@ $VALID = 'LOCK_SH';
 ### First, we check whether Fcntl::constant returns sane answers.
 # Fcntl::constant("LOCK_SH",0) should always succeed.
 
-$value = Fcntl::constant($VALID,0);
+$value = Fcntl::constant($VALID);
 print((!defined $value)
       ? "not ok 1\n# Sanity check broke, remaining tests will fail.\n"
       : "ok 1\n");
@@ -45,20 +45,20 @@ print((!defined $value)
 # test "goto &function_constant"
 sub goto_const { goto &Fcntl::constant; }
 
-$ret = goto_const($VALID,0);
+$ret = goto_const($VALID);
 print(($ret == $value) ? "ok 2\n" : "not ok 2\n# ($ret != $value)\n");
 
 # test "goto &$function_package_and_name"
 $FNAME1 = 'Fcntl::constant';
 sub goto_name1 { goto &$FNAME1; }
 
-$ret = goto_name1($VALID,0);
+$ret = goto_name1($VALID);
 print(($ret == $value) ? "ok 3\n" : "not ok 3\n# ($ret != $value)\n");
 
 # test "goto &$function_package_and_name" again, with dirtier stack
-$ret = goto_name1($VALID,0);
+$ret = goto_name1($VALID);
 print(($ret == $value) ? "ok 4\n" : "not ok 4\n# ($ret != $value)\n");
-$ret = goto_name1($VALID,0);
+$ret = goto_name1($VALID);
 print(($ret == $value) ? "ok 5\n" : "not ok 5\n# ($ret != $value)\n");
 
 # test "goto &$function_name" from local package
@@ -67,14 +67,14 @@ $FNAME2 = 'constant';
 sub goto_name2 { goto &$FNAME2; }
 package main;
 
-$ret = Fcntl::goto_name2($VALID,0);
+$ret = Fcntl::goto_name2($VALID);
 print(($ret == $value) ? "ok 6\n" : "not ok 6\n# ($ret != $value)\n");
 
 # test "goto &$function_ref"
 $FREF = \&Fcntl::constant;
 sub goto_ref { goto &$FREF; }
 
-$ret = goto_ref($VALID,0);
+$ret = goto_ref($VALID);
 print(($ret == $value) ? "ok 7\n" : "not ok 7\n# ($ret != $value)\n");
 
 ### tests where the args are not on stack but in GvAV(defgv) (ie, @_)
@@ -82,17 +82,17 @@ print(($ret == $value) ? "ok 7\n" : "not ok 7\n# ($ret != $value)\n");
 # test "goto &function_constant" from a sub called without arglist
 sub call_goto_const { &goto_const; }
 
-$ret = call_goto_const($VALID,0);
+$ret = call_goto_const($VALID);
 print(($ret == $value) ? "ok 8\n" : "not ok 8\n# ($ret != $value)\n");
 
 # test "goto &$function_package_and_name" from a sub called without arglist
 sub call_goto_name1 { &goto_name1; }
 
-$ret = call_goto_name1($VALID,0);
+$ret = call_goto_name1($VALID);
 print(($ret == $value) ? "ok 9\n" : "not ok 9\n# ($ret != $value)\n");
 
 # test "goto &$function_ref" from a sub called without arglist
 sub call_goto_ref { &goto_ref; }
 
-$ret = call_goto_ref($VALID,0);
+$ret = call_goto_ref($VALID);
 print(($ret == $value) ? "ok 10\n" : "not ok 10\n# ($ret != $value)\n");
Unnamed repository; edit this file to name it for gitweb.