summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-03-08 21:04:48 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-03-08 21:04:48 +0000
commitdb5cf5a9c391da96933df0f1e349efb8c51e35f9 (patch)
tree86611b4d36797a8b5f61a7f3e9f26263e7f400eb /perl.h
parent1d5472a96cdafb6d0b947d16fd3e5f3ddac8a37b (diff)
downloadperl-db5cf5a9c391da96933df0f1e349efb8c51e35f9.tar.gz
remove bogus symbols from global.sym
p4raw-id: //depot/perl@3095
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h9
1 files changed, 0 insertions, 9 deletions
diff --git a/perl.h b/perl.h
index af64d64fbc..d50a3b6e57 100644
--- a/perl.h
+++ b/perl.h
@@ -1630,7 +1630,6 @@ typedef I32 CHECKPOINT;
#define U_I(what) ((unsigned int)(what))
#define U_L(what) ((U32)(what))
#else
-EXTERN_C U32 cast_ulong _((double));
#define U_S(what) ((U16)cast_ulong((double)(what)))
#define U_I(what) ((unsigned int)cast_ulong((double)(what)))
#define U_L(what) (cast_ulong((double)(what)))
@@ -1641,11 +1640,6 @@ EXTERN_C U32 cast_ulong _((double));
#define I_V(what) ((IV)(what))
#define U_V(what) ((UV)(what))
#else
-START_EXTERN_C
-I32 cast_i32 _((double));
-IV cast_iv _((double));
-UV cast_uv _((double));
-END_EXTERN_C
#define I_32(what) (cast_i32((double)(what)))
#define I_V(what) (cast_iv((double)(what)))
#define U_V(what) (cast_uv((double)(what)))
@@ -2348,9 +2342,6 @@ typedef void *Thread;
#include "pp.h"
#include "proto.h"
-#define Perl_sv_setptrobj(rv,ptr,name) Perl_sv_setref_iv(rv,name,(IV)ptr)
-#define Perl_sv_setptrref(rv,ptr) Perl_sv_setref_iv(rv,Nullch,(IV)ptr)
-
/* The following must follow proto.h as #defines mess up syntax */
#if !defined(PERL_FOR_X2P)