← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to pcl/c/pcl_fixup.c

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
pcl/c/pcl_fixup.c
 
1
 
 
2
#include "cmpinclude.h"
 
3
#include "pcl_fixup.h"
 
4
void init_pcl_fixup(){do_init(VV);}
 
5
/*      local entry for function PRINT-STD-INSTANCE     */
 
6
 
 
7
static object LI1(V4,V5,V6)
 
8
 
 
9
object V4;object V5;object V6;
 
10
{        VMB1 VMS1 VMV1
 
11
        goto TTL;
 
12
TTL:;
 
13
        base[0]= (V4);
 
14
        base[1]= (V5);
 
15
        vs_top=(vs_base=base+0)+2;
 
16
        (void) (*Lnk0)(Lclptr0);
 
17
        vs_top=sup;
 
18
        {object V7 = vs_base[0];
 
19
        VMR1(V7)}
 
20
        base[0]=base[0];
 
21
        return Cnil;
 
22
}
 
23
static void LnkT0(ptr) object *ptr;{ call_or_link_closure(VV[0],(void **)(void *)&Lnk0,(void **)(void *)&Lclptr0);} /* PRINT-OBJECT */
 
24
 
 
25
#ifdef SYSTEM_SPECIAL_INIT
 
26
SYSTEM_SPECIAL_INIT
 
27
#endif
 
28