* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- *
- * $Id$
*/
-#include "defs.h"
-
-#if defined(LINUX)
+#include "defs.h"
#include <fcntl.h>
-#include <sys/stat.h>
-#include <sys/time.h>
-#include <sys/wait.h>
-#include <sys/resource.h>
-#include <sys/utsname.h>
-#include <sys/user.h>
-#include <sys/syscall.h>
-#include <signal.h>
-#include <linux/module.h>
-
-static struct xlat which[] = {
- { 0, "0" },
- { QM_MODULES, "QM_MODULES" },
- { QM_DEPS, "QM_DEPS" },
- { QM_REFS, "QM_REFS" },
- { QM_SYMBOLS, "QM_SYMBOLS" },
- { QM_INFO, "QM_INFO" },
- { 0, NULL },
-};
-static struct xlat modflags[] = {
- { MOD_UNINITIALIZED, "MOD_UNINITIALIZED" },
- { MOD_RUNNING, "MOD_RUNNING" },
- { MOD_DELETED, "MOD_DELETED" },
- { MOD_AUTOCLEAN, "MOD_AUTOCLEAN" },
- { MOD_VISITED, "MOD_VISITED" },
- { MOD_USED_ONCE, "MOD_USED_ONCE" },
- { MOD_JUST_FREED, "MOD_JUST_FREED" },
- { 0, NULL },
-};
+#include "xlat/delete_module_flags.h"
-int
-sys_query_module(tcp)
-struct tcb *tcp;
+SYS_FUNC(delete_module)
{
+ printstr(tcp, tcp->u_arg[0]);
+ tprints(", ");
+ printflags(delete_module_flags, tcp->u_arg[1], "O_???");
- if (exiting(tcp)) {
- printstr(tcp, tcp->u_arg[0], -1);
- tprintf(", ");
- printxval(which, tcp->u_arg[1], "QM_???");
- tprintf(", ");
- if (!verbose(tcp)) {
- tprintf("%#lx, %lu, %#lx", tcp->u_arg[2], tcp->u_arg[3], tcp->u_arg[4]);
- } else if (tcp->u_rval!=0) {
- size_t ret;
- umove(tcp, tcp->u_arg[4], &ret);
- tprintf("%#lx, %lu, %d", tcp->u_arg[2], tcp->u_arg[3], ret);
- } else if (tcp->u_arg[1]==QM_INFO) {
- struct module_info mi;
- size_t ret;
- umove(tcp, tcp->u_arg[2], &mi);
- tprintf("{address=%#lx, size=%lu, flags=", mi.addr, mi.size);
- printflags(modflags, mi.flags);
- tprintf(", usecount=%lu}", mi.usecount);
- umove(tcp, tcp->u_arg[4], &ret);
- tprintf(", %d", ret);
- } else if ((tcp->u_arg[1]==QM_MODULES) ||
- (tcp->u_arg[1]==QM_DEPS) ||
- (tcp->u_arg[1]==QM_REFS)) {
- size_t ret;
-
- umove(tcp, tcp->u_arg[4], &ret);
- tprintf("{");
- if (!abbrev(tcp)) {
- char* data = (char*)malloc(tcp->u_arg[3]);
- char* mod = data;
- size_t idx;
-
- umoven(tcp, tcp->u_arg[2], tcp->u_arg[3], data);
- for (idx=0; idx<ret; idx++) {
- if (idx!=0)
- tprintf(",");
- tprintf(mod);
- mod+=strlen(mod)+1;
- }
- free(data);
- } else
- tprintf(" /* %d entries */ ", ret);
- tprintf("}, %d", ret);
- } else if (tcp->u_arg[1]==QM_SYMBOLS) {
- size_t ret;
- umove(tcp, tcp->u_arg[4], &ret);
- tprintf("{");
- if (!abbrev(tcp)) {
- char* data = (char *)malloc(tcp->u_arg[3]);
- struct module_symbol* sym = (struct module_symbol*)data;
- size_t idx;
-
- umoven(tcp, tcp->u_arg[2], tcp->u_arg[3], data);
- for (idx=0; idx<ret; idx++) {
- tprintf("{name=%s, value=%lu} ", data+(long)sym->name, sym->value);
- sym++;
- }
- free(data);
- } else
- tprintf(" /* %d entries */ ", ret);
- tprintf("}, %d", ret);
- } else {
- printstr(tcp, tcp->u_arg[2], tcp->u_arg[3]);
- tprintf(", %#lx", tcp->u_arg[4]);
- }
- }
- return 0;
+ return RVAL_DECODED;
}
-int
-sys_create_module(tcp)
-struct tcb *tcp;
+SYS_FUNC(init_module)
{
- if (entering(tcp)) {
- printpath(tcp, tcp->u_arg[0]);
- tprintf(", %lu", tcp->u_arg[1]);
- }
- return RVAL_HEX;
+ printaddr_klu(getarg_klu(tcp, 0));
+ tprintf(", %" PRI_klu ", ", getarg_klu(tcp, 1));
+ printstr(tcp, tcp->u_arg[2]);
+
+ return RVAL_DECODED;
}
-int
-sys_init_module(tcp)
-struct tcb *tcp;
+#include "xlat/module_init_flags.h"
+
+SYS_FUNC(finit_module)
{
- if (entering(tcp)) {
- printpath(tcp, tcp->u_arg[0]);
- tprintf(", %#lx", tcp->u_arg[1]);
- }
- return 0;
-}
-#endif /* LINUX */
+ /* file descriptor */
+ printfd(tcp, tcp->u_arg[0]);
+ tprints(", ");
+ /* param_values */
+ printstr(tcp, tcp->u_arg[1]);
+ tprints(", ");
+ /* flags */
+ printflags(module_init_flags, tcp->u_arg[2], "MODULE_INIT_???");
+ return RVAL_DECODED;
+}