File: unstub.c

package info (click to toggle)
rscheme 0.7.2-1.1
  • links: PTS
  • area: main
  • in suites: slink
  • size: 10,672 kB
  • ctags: 12,430
  • sloc: lisp: 37,104; ansic: 29,763; cpp: 2,630; sh: 1,677; makefile: 568; yacc: 202; lex: 175; perl: 33
file content (22 lines) | stat: -rw-r--r-- 755 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
/*-----------------------------------------------------------------*-C-*---
 * File:    handc/unstub/unstub.c
 *
 *          Copyright (C)1997 Donovan Kolbly <d.kolbly@rscheme.org>
 *          as part of the RScheme project, licensed for free use.
 *          See <http://www.rscheme.org/> for the latest information.
 *
 * File version:     1.6
 * File mod date:    1997.11.29 23:10:43
 * System build:     v0.7.2, 97.12.21
 *
 *------------------------------------------------------------------------*/

#include <rscheme/scheme.h>
#include <rscheme/linktype.h>
#include <rscheme/smemory.h>

jump_addr template_unstub( obj the_template )
{
  /* no stubbing, so it's already unstubbed */
  return OBJ_TO_JUMP_ADDR( gvec_ref( the_template, SLOT(0) ) );
}