From abac4e2fde37363567a0ae9c7167b47bfb1fa2d1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Wed, 16 Feb 2000 00:39:33 +0100
Subject: [PATCH] Added low_find_lfun().
Rev: src/program.c:1.205
---
src/program.c | 18 +++++++++++++++++-
1 file changed, 17 insertions(+), 1 deletion(-)
diff --git a/src/program.c b/src/program.c
index 177f74e7c1..a4746e9f60 100644
--- a/src/program.c
+++ b/src/program.c
@@ -5,7 +5,7 @@
\*/
/**/
#include "global.h"
-RCSID("$Id: program.c,v 1.204 2000/02/15 22:06:21 hubbe Exp $");
+RCSID("$Id: program.c,v 1.205 2000/02/15 23:39:33 grubba Exp $");
#include "program.h"
#include "object.h"
#include "dynamic_buffer.h"
@@ -2528,6 +2528,22 @@ int really_low_find_shared_string_identifier(struct pike_string *name,
return -1;
}
+int low_find_lfun(struct program *p, int lfun)
+{
+ struct pike_string *tmp = find_string(lfun_names[lfun]);
+ unsigned int flags = 0;
+ if (!tmp) return -1;
+ if ((1 <= lfun) && (lfun < 3)) {
+ /* create() and destroy() are used even if they are static. */
+ flags = SEE_STATIC;
+ }
+ return
+ really_low_find_shared_string_identifier(lfun_name,
+ dmalloc_touch(struct program *,
+ p),
+ flags);
+}
+
/*
* lookup the number of a function in a program given the name in
* a shared_string
--
GitLab