Article View: gnu.gcc.bug
Article #1647Bug with gcc 2.3.3 on hp9000s720 hp-ux 8.05
From: Guillermo J. Rozas
Date: Tue, 26 Jan 1993 01:10
Date: Tue, 26 Jan 1993 01:10
2991 lines
91313 bytes
91313 bytes
The input file is attached at the end of the message.
gcc (and gas) binaries ftp'd from jaguar.cs.utah.edu on Jan 20 1993.
Since I ftp'd binaries, and not sources, I don't know what arguments
were given to configure to build the compiler.
Removing -O makes it work.
Here is the invocation, and output:
gjr@chamartin> gcc -v -O -g -c test.c
Reading specs from /usr/local/lib/gcc-lib/hp700-hpux/2.3.3/specs
gcc version 2.3.3
/usr/local/lib/gcc-lib/hp700-hpux/2.3.3/cpp -lang-c -v -undef -D__GNUC__=2 -Dhppa -Dhp9000s800 -D__hp9000s800 -Dhp9k8 -DPWB -Dhpux -Dunix -D_HPUX_SOURCE -D__hppa__ -D__hp9000s800__ -D__hp9000s800 -D__hp9k8__ -D__PWB__ -D__hpux__ -D__unix__ -D___HPUX_SOURCE__ -D__hppa -D__hp9000s800 -D__hp9000s800 -D__hp9k8 -D__PWB -D__hpux -D__unix -D___HPUX_SOURCE -D__OPTIMIZE__ -g -D__hp9000s700 -D_PA_RISC1_1 -D__hp9000s700 -D_PA_RISC1_1 test.c /usr/tmp/cca21780.i
GNU CPP version 2.3.3 (hppa)
/usr/local/lib/gcc-lib/hp700-hpux/2.3.3/cc1 /usr/tmp/cca21780.i -quiet -dumpbase test.c -g -O -version -o /usr/tmp/cca21780.s
GNU C version 2.3.3 (hppa) compiled by GNU C version 2.3.3.
gcc: Internal compiler error: program cc1 got fatal signal 6
10.5u 0.6s 0:15 73%
PS: The code is machine generated, although pretty-printed by me.
I already have a workaround.
I tried the same command line and file on albert.gnu.ai.mit.edu (gcc
2.3.2) and it compiled succesfully.
------------------------------ test.c ------------------------------
typedef char Boolean;
typedef unsigned long SCHEME_OBJECT;
typedef unsigned short format_word;
extern SCHEME_OBJECT
memory_to_string (long, unsigned char *);
extern SCHEME_OBJECT
memory_to_symbol (long, unsigned char *);
extern SCHEME_OBJECT
make_vector (long, SCHEME_OBJECT, Boolean);
extern SCHEME_OBJECT
cons (SCHEME_OBJECT, SCHEME_OBJECT);
extern SCHEME_OBJECT
search_for_primitive (SCHEME_OBJECT, char *, Boolean, Boolean, int);
extern SCHEME_OBJECT
decl (SCHEME_OBJECT * (*) (SCHEME_OBJECT *), char *);
extern SCHEME_OBJECT
* LiarC_pathnm_92 (SCHEME_OBJECT *),
* LiarC_pathnm_91 (SCHEME_OBJECT *),
* LiarC_pathnm_90 (SCHEME_OBJECT *),
* LiarC_pathnm_89 (SCHEME_OBJECT *),
* LiarC_pathnm_88 (SCHEME_OBJECT *),
* LiarC_pathnm_87 (SCHEME_OBJECT *),
* LiarC_pathnm_86 (SCHEME_OBJECT *),
* LiarC_pathnm_85 (SCHEME_OBJECT *),
* LiarC_pathnm_84 (SCHEME_OBJECT *),
* LiarC_pathnm_83 (SCHEME_OBJECT *),
* LiarC_pathnm_82 (SCHEME_OBJECT *),
* LiarC_pathnm_81 (SCHEME_OBJECT *),
* LiarC_pathnm_80 (SCHEME_OBJECT *),
* LiarC_pathnm_79 (SCHEME_OBJECT *),
* LiarC_pathnm_78 (SCHEME_OBJECT *),
* LiarC_pathnm_77 (SCHEME_OBJECT *),
* LiarC_pathnm_76 (SCHEME_OBJECT *),
* LiarC_pathnm_75 (SCHEME_OBJECT *),
* LiarC_pathnm_74 (SCHEME_OBJECT *),
* LiarC_pathnm_73 (SCHEME_OBJECT *),
* LiarC_pathnm_72 (SCHEME_OBJECT *),
* LiarC_pathnm_71 (SCHEME_OBJECT *),
* LiarC_pathnm_70 (SCHEME_OBJECT *),
* LiarC_pathnm_69 (SCHEME_OBJECT *),
* LiarC_pathnm_68 (SCHEME_OBJECT *),
* LiarC_pathnm_67 (SCHEME_OBJECT *),
* LiarC_pathnm_66 (SCHEME_OBJECT *),
* LiarC_pathnm_65 (SCHEME_OBJECT *),
* LiarC_pathnm_64 (SCHEME_OBJECT *),
* LiarC_pathnm_63 (SCHEME_OBJECT *),
* LiarC_pathnm_62 (SCHEME_OBJECT *),
* LiarC_pathnm_61 (SCHEME_OBJECT *),
* LiarC_pathnm_60 (SCHEME_OBJECT *),
* LiarC_pathnm_59 (SCHEME_OBJECT *),
* LiarC_pathnm_58 (SCHEME_OBJECT *),
* LiarC_pathnm_57 (SCHEME_OBJECT *),
* LiarC_pathnm_56 (SCHEME_OBJECT *),
* LiarC_pathnm_55 (SCHEME_OBJECT *),
* LiarC_pathnm_54 (SCHEME_OBJECT *),
* LiarC_pathnm_53 (SCHEME_OBJECT *),
* LiarC_pathnm_52 (SCHEME_OBJECT *),
* LiarC_pathnm_51 (SCHEME_OBJECT *),
* LiarC_pathnm_50 (SCHEME_OBJECT *),
* LiarC_pathnm_49 (SCHEME_OBJECT *),
* LiarC_pathnm_48 (SCHEME_OBJECT *),
* LiarC_pathnm_47 (SCHEME_OBJECT *),
* LiarC_pathnm_46 (SCHEME_OBJECT *),
* LiarC_pathnm_45 (SCHEME_OBJECT *),
* LiarC_pathnm_44 (SCHEME_OBJECT *),
* LiarC_pathnm_43 (SCHEME_OBJECT *),
* LiarC_pathnm_42 (SCHEME_OBJECT *),
* LiarC_pathnm_41 (SCHEME_OBJECT *),
* LiarC_pathnm_40 (SCHEME_OBJECT *),
* LiarC_pathnm_39 (SCHEME_OBJECT *),
* LiarC_pathnm_38 (SCHEME_OBJECT *),
* LiarC_pathnm_37 (SCHEME_OBJECT *),
* LiarC_pathnm_36 (SCHEME_OBJECT *),
* LiarC_pathnm_35 (SCHEME_OBJECT *),
* LiarC_pathnm_34 (SCHEME_OBJECT *),
* LiarC_pathnm_33 (SCHEME_OBJECT *),
* LiarC_pathnm_32 (SCHEME_OBJECT *),
* LiarC_pathnm_31 (SCHEME_OBJECT *),
* LiarC_pathnm_30 (SCHEME_OBJECT *),
* LiarC_pathnm_29 (SCHEME_OBJECT *),
* LiarC_pathnm_28 (SCHEME_OBJECT *),
* LiarC_pathnm_27 (SCHEME_OBJECT *),
* LiarC_pathnm_26 (SCHEME_OBJECT *),
* LiarC_pathnm_25 (SCHEME_OBJECT *),
* LiarC_pathnm_24 (SCHEME_OBJECT *),
* LiarC_pathnm_23 (SCHEME_OBJECT *),
* LiarC_pathnm_22 (SCHEME_OBJECT *),
* LiarC_pathnm_21 (SCHEME_OBJECT *),
* LiarC_pathnm_20 (SCHEME_OBJECT *),
* LiarC_pathnm_19 (SCHEME_OBJECT *),
* LiarC_pathnm_18 (SCHEME_OBJECT *),
* LiarC_pathnm_17 (SCHEME_OBJECT *),
* LiarC_pathnm_16 (SCHEME_OBJECT *),
* LiarC_pathnm_15 (SCHEME_OBJECT *),
* LiarC_pathnm_14 (SCHEME_OBJECT *),
* LiarC_pathnm_13 (SCHEME_OBJECT *),
* LiarC_pathnm_12 (SCHEME_OBJECT *),
* LiarC_pathnm_11 (SCHEME_OBJECT *),
* LiarC_pathnm_10 (SCHEME_OBJECT *),
* LiarC_pathnm_9 (SCHEME_OBJECT *),
* LiarC_pathnm_8 (SCHEME_OBJECT *),
* LiarC_pathnm_7 (SCHEME_OBJECT *),
* LiarC_pathnm_6 (SCHEME_OBJECT *),
* LiarC_pathnm_5 (SCHEME_OBJECT *),
* LiarC_pathnm_4 (SCHEME_OBJECT *),
* LiarC_pathnm_3 (SCHEME_OBJECT *),
* LiarC_pathnm_2 (SCHEME_OBJECT *),
* LiarC_pathnm_1 (SCHEME_OBJECT *);
static SCHEME_OBJECT *
LiarC_pathnm_data (SCHEME_OBJECT * my_pc)
{
register int
current_C_proc = ((((* ((unsigned long *) (my_pc)))
>> ((8 * (sizeof (unsigned long))) / 2))
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2))
- 1)));
SCHEME_OBJECT
ccBlock92, ccBlock91, ccBlock90, ccBlock89, ccBlock88, ccBlock87,
ccBlock86, ccBlock85, ccBlock84, ccBlock83, ccBlock82, ccBlock81,
ccBlock80, ccBlock79, ccBlock78, ccBlock77, ccBlock76, ccBlock75,
ccBlock74, ccBlock73, ccBlock72, ccBlock71, ccBlock70, ccBlock69,
ccBlock68, ccBlock67, ccBlock66, ccBlock65, ccBlock64, ccBlock63,
ccBlock62, ccBlock61, ccBlock60, ccBlock59, ccBlock58, ccBlock57,
ccBlock56, ccBlock55, ccBlock54, ccBlock53, ccBlock52, ccBlock51,
ccBlock50, ccBlock49, ccBlock48, ccBlock47, ccBlock46, ccBlock45,
ccBlock44, ccBlock43, ccBlock42, ccBlock41, ccBlock40, ccBlock39,
ccBlock38, ccBlock37, ccBlock36, ccBlock35, ccBlock34, ccBlock33,
ccBlock32, ccBlock31, ccBlock30, ccBlock29, ccBlock28, ccBlock27,
ccBlock26, ccBlock25, ccBlock24, ccBlock23, ccBlock22, ccBlock21,
ccBlock20, ccBlock19, ccBlock18, ccBlock17, ccBlock16, ccBlock15,
ccBlock14, ccBlock13, ccBlock12, ccBlock11, ccBlock10, ccBlock9,
ccBlock8, ccBlock7, ccBlock6, ccBlock5, ccBlock4, ccBlock3,
ccBlock2, ccBlock1,
tmpObj7, tmpObj6, tmpObj5, tmpObj4,
tmpObj3, tmpObj2, tmpObj1, tmpObj0;
SCHEME_OBJECT
object = ((make_vector ((168L), 0x00000000, ((Boolean) 1))));
SCHEME_OBJECT *
current_block = ((((SCHEME_OBJECT *)
(((unsigned long) ((object) & 0x03FFFFFF))
| 0x40000000))));
tmpObj0 = ((make_vector ((92), 0x00000000, ((Boolean) 1))));
ccBlock92 = (decl (LiarC_pathnm_92, "LiarC_pathnm_92"));
ccBlock91 = (decl (LiarC_pathnm_91, "LiarC_pathnm_91"));
ccBlock90 = (decl (LiarC_pathnm_90, "LiarC_pathnm_90"));
ccBlock89 = (decl (LiarC_pathnm_89, "LiarC_pathnm_89"));
ccBlock88 = (decl (LiarC_pathnm_88, "LiarC_pathnm_88"));
ccBlock87 = (decl (LiarC_pathnm_87, "LiarC_pathnm_87"));
ccBlock86 = (decl (LiarC_pathnm_86, "LiarC_pathnm_86"));
ccBlock85 = (decl (LiarC_pathnm_85, "LiarC_pathnm_85"));
ccBlock84 = (decl (LiarC_pathnm_84, "LiarC_pathnm_84"));
ccBlock83 = (decl (LiarC_pathnm_83, "LiarC_pathnm_83"));
ccBlock82 = (decl (LiarC_pathnm_82, "LiarC_pathnm_82"));
ccBlock81 = (decl (LiarC_pathnm_81, "LiarC_pathnm_81"));
ccBlock80 = (decl (LiarC_pathnm_80, "LiarC_pathnm_80"));
ccBlock79 = (decl (LiarC_pathnm_79, "LiarC_pathnm_79"));
ccBlock78 = (decl (LiarC_pathnm_78, "LiarC_pathnm_78"));
ccBlock77 = (decl (LiarC_pathnm_77, "LiarC_pathnm_77"));
ccBlock76 = (decl (LiarC_pathnm_76, "LiarC_pathnm_76"));
ccBlock75 = (decl (LiarC_pathnm_75, "LiarC_pathnm_75"));
ccBlock74 = (decl (LiarC_pathnm_74, "LiarC_pathnm_74"));
ccBlock73 = (decl (LiarC_pathnm_73, "LiarC_pathnm_73"));
ccBlock72 = (decl (LiarC_pathnm_72, "LiarC_pathnm_72"));
ccBlock71 = (decl (LiarC_pathnm_71, "LiarC_pathnm_71"));
ccBlock70 = (decl (LiarC_pathnm_70, "LiarC_pathnm_70"));
ccBlock69 = (decl (LiarC_pathnm_69, "LiarC_pathnm_69"));
ccBlock68 = (decl (LiarC_pathnm_68, "LiarC_pathnm_68"));
ccBlock67 = (decl (LiarC_pathnm_67, "LiarC_pathnm_67"));
ccBlock66 = (decl (LiarC_pathnm_66, "LiarC_pathnm_66"));
ccBlock65 = (decl (LiarC_pathnm_65, "LiarC_pathnm_65"));
ccBlock64 = (decl (LiarC_pathnm_64, "LiarC_pathnm_64"));
ccBlock63 = (decl (LiarC_pathnm_63, "LiarC_pathnm_63"));
ccBlock62 = (decl (LiarC_pathnm_62, "LiarC_pathnm_62"));
ccBlock61 = (decl (LiarC_pathnm_61, "LiarC_pathnm_61"));
ccBlock60 = (decl (LiarC_pathnm_60, "LiarC_pathnm_60"));
ccBlock59 = (decl (LiarC_pathnm_59, "LiarC_pathnm_59"));
ccBlock58 = (decl (LiarC_pathnm_58, "LiarC_pathnm_58"));
ccBlock57 = (decl (LiarC_pathnm_57, "LiarC_pathnm_57"));
ccBlock56 = (decl (LiarC_pathnm_56, "LiarC_pathnm_56"));
ccBlock55 = (decl (LiarC_pathnm_55, "LiarC_pathnm_55"));
ccBlock54 = (decl (LiarC_pathnm_54, "LiarC_pathnm_54"));
ccBlock53 = (decl (LiarC_pathnm_53, "LiarC_pathnm_53"));
ccBlock52 = (decl (LiarC_pathnm_52, "LiarC_pathnm_52"));
ccBlock51 = (decl (LiarC_pathnm_51, "LiarC_pathnm_51"));
ccBlock50 = (decl (LiarC_pathnm_50, "LiarC_pathnm_50"));
ccBlock49 = (decl (LiarC_pathnm_49, "LiarC_pathnm_49"));
ccBlock48 = (decl (LiarC_pathnm_48, "LiarC_pathnm_48"));
ccBlock47 = (decl (LiarC_pathnm_47, "LiarC_pathnm_47"));
ccBlock46 = (decl (LiarC_pathnm_46, "LiarC_pathnm_46"));
ccBlock45 = (decl (LiarC_pathnm_45, "LiarC_pathnm_45"));
ccBlock44 = (decl (LiarC_pathnm_44, "LiarC_pathnm_44"));
ccBlock43 = (decl (LiarC_pathnm_43, "LiarC_pathnm_43"));
ccBlock42 = (decl (LiarC_pathnm_42, "LiarC_pathnm_42"));
ccBlock41 = (decl (LiarC_pathnm_41, "LiarC_pathnm_41"));
ccBlock40 = (decl (LiarC_pathnm_40, "LiarC_pathnm_40"));
ccBlock39 = (decl (LiarC_pathnm_39, "LiarC_pathnm_39"));
ccBlock38 = (decl (LiarC_pathnm_38, "LiarC_pathnm_38"));
ccBlock37 = (decl (LiarC_pathnm_37, "LiarC_pathnm_37"));
ccBlock36 = (decl (LiarC_pathnm_36, "LiarC_pathnm_36"));
ccBlock35 = (decl (LiarC_pathnm_35, "LiarC_pathnm_35"));
ccBlock34 = (decl (LiarC_pathnm_34, "LiarC_pathnm_34"));
ccBlock33 = (decl (LiarC_pathnm_33, "LiarC_pathnm_33"));
ccBlock32 = (decl (LiarC_pathnm_32, "LiarC_pathnm_32"));
ccBlock31 = (decl (LiarC_pathnm_31, "LiarC_pathnm_31"));
ccBlock30 = (decl (LiarC_pathnm_30, "LiarC_pathnm_30"));
ccBlock29 = (decl (LiarC_pathnm_29, "LiarC_pathnm_29"));
ccBlock28 = (decl (LiarC_pathnm_28, "LiarC_pathnm_28"));
ccBlock27 = (decl (LiarC_pathnm_27, "LiarC_pathnm_27"));
ccBlock26 = (decl (LiarC_pathnm_26, "LiarC_pathnm_26"));
ccBlock25 = (decl (LiarC_pathnm_25, "LiarC_pathnm_25"));
ccBlock24 = (decl (LiarC_pathnm_24, "LiarC_pathnm_24"));
ccBlock23 = (decl (LiarC_pathnm_23, "LiarC_pathnm_23"));
ccBlock22 = (decl (LiarC_pathnm_22, "LiarC_pathnm_22"));
ccBlock21 = (decl (LiarC_pathnm_21, "LiarC_pathnm_21"));
ccBlock20 = (decl (LiarC_pathnm_20, "LiarC_pathnm_20"));
ccBlock19 = (decl (LiarC_pathnm_19, "LiarC_pathnm_19"));
ccBlock18 = (decl (LiarC_pathnm_18, "LiarC_pathnm_18"));
ccBlock17 = (decl (LiarC_pathnm_17, "LiarC_pathnm_17"));
ccBlock16 = (decl (LiarC_pathnm_16, "LiarC_pathnm_16"));
ccBlock15 = (decl (LiarC_pathnm_15, "LiarC_pathnm_15"));
ccBlock14 = (decl (LiarC_pathnm_14, "LiarC_pathnm_14"));
ccBlock13 = (decl (LiarC_pathnm_13, "LiarC_pathnm_13"));
ccBlock12 = (decl (LiarC_pathnm_12, "LiarC_pathnm_12"));
ccBlock11 = (decl (LiarC_pathnm_11, "LiarC_pathnm_11"));
ccBlock10 = (decl (LiarC_pathnm_10, "LiarC_pathnm_10"));
ccBlock9 = (decl (LiarC_pathnm_9, "LiarC_pathnm_9"));
ccBlock8 = (decl (LiarC_pathnm_8, "LiarC_pathnm_8"));
ccBlock7 = (decl (LiarC_pathnm_7, "LiarC_pathnm_7"));
ccBlock6 = (decl (LiarC_pathnm_6, "LiarC_pathnm_6"));
ccBlock5 = (decl (LiarC_pathnm_5, "LiarC_pathnm_5"));
ccBlock4 = (decl (LiarC_pathnm_4, "LiarC_pathnm_4"));
ccBlock3 = (decl (LiarC_pathnm_3, "LiarC_pathnm_3"));
ccBlock2 = (decl (LiarC_pathnm_2, "LiarC_pathnm_2"));
ccBlock1 = (decl (LiarC_pathnm_1, "LiarC_pathnm_1"));
current_block[1L] = (((((unsigned long) (0x27)) << 26) | (34)));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[3]));
(((format_word *) (¤t_block[3])) [-2]) = (0x8180);
(((format_word *) (¤t_block[3])) [-1]) = (((3) << 1));
} while (0);
current_block [3]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 1)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[5]));
(((format_word *) (¤t_block[5])) [-2]) = (0x8280);
(((format_word *) (¤t_block[5])) [-1]) = (((5) << 1));
} while (0);
current_block [5]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 2)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[7]));
(((format_word *) (¤t_block[7])) [-2]) = (0x8380);
(((format_word *) (¤t_block[7])) [-1]) = (((7) << 1));
} while (0);
current_block [7]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 3)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[9]));
(((format_word *) (¤t_block[9])) [-2]) = (0x8180);
(((format_word *) (¤t_block[9])) [-1]) = (((9) << 1));
} while (0);
current_block [9]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 4)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[11]));
(((format_word *) (¤t_block[11])) [-2]) = (0x8180);
(((format_word *) (¤t_block[11])) [-1]) = (((11) << 1));
} while (0);
current_block [11]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 5)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[13]));
(((format_word *) (¤t_block[13])) [-2]) = (0x8280);
(((format_word *) (¤t_block[13])) [-1]) = (((13) << 1));
} while (0);
current_block [13]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 6)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[15]));
(((format_word *) (¤t_block[15])) [-2]) = (0x9380);
(((format_word *) (¤t_block[15])) [-1]) = (((15) << 1));
} while (0);
current_block [15]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 7)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[17]));
(((format_word *) (¤t_block[17])) [-2]) = (0x8180);
(((format_word *) (¤t_block[17])) [-1]) = (((17) << 1));
} while (0);
current_block [17]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 8)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[19]));
(((format_word *) (¤t_block[19])) [-2]) = (0x8280);
(((format_word *) (¤t_block[19])) [-1]) = (((19) << 1));
} while (0);
current_block [19]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 9)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[21]));
(((format_word *) (¤t_block[21])) [-2]) = (0x8380);
(((format_word *) (¤t_block[21])) [-1]) = (((21) << 1));
} while (0);
current_block [21]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 10)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[23]));
(((format_word *) (¤t_block[23])) [-2]) = (0x8180);
(((format_word *) (¤t_block[23])) [-1]) = (((23) << 1));
} while (0);
current_block [23]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 11)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[25]));
(((format_word *) (¤t_block[25])) [-2]) = (0x8280);
(((format_word *) (¤t_block[25])) [-1]) = (((25) << 1));
} while (0);
current_block [25]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 12)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[27]));
(((format_word *) (¤t_block[27])) [-2]) = (0x8380);
(((format_word *) (¤t_block[27])) [-1]) = (((27) << 1));
} while (0);
current_block [27]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 13)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[29]));
(((format_word *) (¤t_block[29])) [-2]) = (0x8180);
(((format_word *) (¤t_block[29])) [-1]) = (((29) << 1));
} while (0);
current_block [29]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 14)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[31]));
(((format_word *) (¤t_block[31])) [-2]) = (0x8080);
(((format_word *) (¤t_block[31])) [-1]) = (((31) << 1));
} while (0);
current_block [31]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 15)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[33]));
(((format_word *) (¤t_block[33])) [-2]) = (0x8080);
(((format_word *) (¤t_block[33])) [-1]) = (((33) << 1));
} while (0);
current_block [33]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 16)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
do
{
SCHEME_OBJECT * ent = ((SCHEME_OBJECT *) (¤t_block[35]));
(((format_word *) (¤t_block[35])) [-2]) = (0xFFFF);
(((format_word *) (¤t_block[35])) [-1]) = (((35) << 1));
} while (0);
current_block [35]
= (((SCHEME_OBJECT)
(((((unsigned long) current_C_proc)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1))
<< ((8 * (sizeof (unsigned long))) / 2))
| (((unsigned long) 17)
& ((((unsigned long) 1)
<< ((8 * (sizeof (unsigned long))) / 2)) - 1)))));
current_block[36L]
= (((((((unsigned long) ((0x1A))) << 26)
| ((((((((((unsigned long) (0x39)) << 26)
| ((((0x000000))
| (((((0x000000)) == 0x000000)
|| (((0x000000)) == 0x030000))
? (((((2)) << 1)) + (1 - 1))
: ((2)))))))))
& 0x03FFFFFF)))))));
current_block[37]
= ((memory_to_symbol ((36),
((unsigned char *)
"named-structure/set-tag-description!"))));
current_block[37 + 1] = ((SCHEME_OBJECT) (3));
current_block[39]
= ((memory_to_symbol ((24),
((unsigned char *)
"unparser/standard-method"))));
current_block[39 + 1] = ((SCHEME_OBJECT) (3));
current_block[41L]
= (((((((unsigned long) ((0x1A))) << 26)
| ((((((((((unsigned long) (0x39)) << 26)
| ((((0x010000))
| (((((0x010000)) == 0x000000)
|| (((0x010000)) == 0x030000))
? (((((1)) << 1)) + (1 - 1))
: ((1))))))))) & 0x03FFFFFF)))))));
current_block[42]
= ((memory_to_symbol ((9), ((unsigned char *) "host-type"))));
current_block[43L]
= (((((((unsigned long) ((0x1A))) << 26)
| ((((((((((unsigned long) (0x39)) << 26) |
((((0x030000))
| (((((0x030000)) == 0x000000)
|| (((0x030000)) == 0x030000))
? (((((5)) << 1)) + (1 - 1))
: ((5))))))))) & 0x03FFFFFF)))))));
current_block[44]
= ((memory_to_symbol ((32),
((unsigned char *)
"set-record-type-unparser-method!"))));
current_block[44 + 1] = ((SCHEME_OBJECT) (3));
current_block[46]
= ((memory_to_symbol ((24),
((unsigned char *)
"unparser/standard-method"))));
current_block[46 + 1] = ((SCHEME_OBJECT) (2));
current_block[48]
= ((memory_to_symbol ((16),
((unsigned char *) "make-record-type"))));
current_block[48 + 1] = ((SCHEME_OBJECT) (3));
current_block[50]
= ((memory_to_symbol ((26),
((unsigned char *)
"make-define-structure-type"))));
current_block[50 + 1] = ((SCHEME_OBJECT) (6));
current_block[52]
= ((memory_to_symbol ((15), ((unsigned char *) "define-multiple"))));
current_block[52 + 1] = ((SCHEME_OBJECT) (4));
current_block[146] = tmpObj0;
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((91) + 1))])
= ((ccBlock1));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((90) + 1))])
= ((ccBlock2));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((89) + 1))])
= ((ccBlock3));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((88) + 1))])
= ((ccBlock4));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((87) + 1))])
= ((ccBlock5));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((86) + 1))])
= ((ccBlock6));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((85) + 1))])
= ((ccBlock7));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((84) + 1))])
= ((ccBlock8));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((83) + 1))])
= ((ccBlock9));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((82) + 1))])
= ((ccBlock10));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((81) + 1))])
= ((ccBlock11));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((80) + 1))])
= ((ccBlock12));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((79) + 1))])
= ((ccBlock13));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((78) + 1))])
= ((ccBlock14));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((77) + 1))])
= ((ccBlock15));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((76) + 1))])
= ((ccBlock16));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((75) + 1))])
= ((ccBlock17));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((74) + 1))])
= ((ccBlock18));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((73) + 1))])
= ((ccBlock19));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((72) + 1))])
= ((ccBlock20));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((71) + 1))])
= ((ccBlock21));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((70) + 1))])
= ((ccBlock22));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((69) + 1))])
= ((ccBlock23));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((68) + 1))])
= ((ccBlock24));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((67) + 1))])
= ((ccBlock25));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((66) + 1))])
= ((ccBlock26));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((65) + 1))])
= ((ccBlock27));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((64) + 1))])
= ((ccBlock28));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((63) + 1))])
= ((ccBlock29));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((62) + 1))])
= ((ccBlock30));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((61) + 1))])
= ((ccBlock31));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((60) + 1))])
= ((ccBlock32));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((59) + 1))])
= ((ccBlock33));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((58) + 1))])
= ((ccBlock34));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((57) + 1))])
= ((ccBlock35));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((56) + 1))])
= ((ccBlock36));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((55) + 1))])
= ((ccBlock37));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((54) + 1))])
= ((ccBlock38));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((53) + 1))])
= ((ccBlock39));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((52) + 1))])
= ((ccBlock40));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((51) + 1))])
= ((ccBlock41));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((50) + 1))])
= ((ccBlock42));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((49) + 1))])
= ((ccBlock43));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((48) + 1))])
= ((ccBlock44));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((47) + 1))])
= ((ccBlock45));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((46) + 1))])
= ((ccBlock46));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((45) + 1))])
= ((ccBlock47));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((44) + 1))])
= ((ccBlock48));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((43) + 1))])
= ((ccBlock49));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((42) + 1))])
= ((ccBlock50));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((41) + 1))])
= ((ccBlock51));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((40) + 1))])
= ((ccBlock52));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((39) + 1))])
= ((ccBlock53));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((38) + 1))])
= ((ccBlock54));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((37) + 1))])
= ((ccBlock55));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((36) + 1))])
= ((ccBlock56));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((35) + 1))])
= ((ccBlock57));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((34) + 1))])
= ((ccBlock58));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((33) + 1))])
= ((ccBlock59));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((32) + 1))])
= ((ccBlock60));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((31) + 1))])
= ((ccBlock61));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((30) + 1))])
= ((ccBlock62));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((29) + 1))])
= ((ccBlock63));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((28) + 1))])
= ((ccBlock64));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((27) + 1))])
= ((ccBlock65));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((26) + 1))])
= ((ccBlock66));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((25) + 1))])
= ((ccBlock67));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((24) + 1))])
= ((ccBlock68));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((23) + 1))])
= ((ccBlock69));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((22) + 1))])
= ((ccBlock70));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((21) + 1))])
= ((ccBlock71));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((20) + 1))])
= ((ccBlock72));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((19) + 1))])
= ((ccBlock73));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((18) + 1))])
= ((ccBlock74));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((17) + 1))])
= ((ccBlock75));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((16) + 1))])
= ((ccBlock76));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((15) + 1))])
= ((ccBlock77));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((14) + 1))])
= ((ccBlock78));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((13) + 1))])
= ((ccBlock79));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((12) + 1))])
= ((ccBlock80));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((11) + 1))])
= ((ccBlock81));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((10) + 1))])
= ((ccBlock82));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((9) + 1))])
= ((ccBlock83));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((8) + 1))])
= ((ccBlock84));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((7) + 1))])
= ((ccBlock85));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((6) + 1))])
= ((ccBlock86));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((5) + 1))])
= ((ccBlock87));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((4) + 1))])
= ((ccBlock88));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((3) + 1))])
= ((ccBlock89));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((2) + 1))])
= ((ccBlock90));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((1) + 1))])
= ((ccBlock91));
(((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj0)) & 0x03FFFFFF))
| 0x40000000)))) [(((0) + 1))])
= ((ccBlock92));
current_block[145]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock68) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[144]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock69) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[143]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock70) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[142]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock71) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[141]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock72) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[140]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock73) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[139]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock74) & 0x03FFFFFF))
| 0x40000000))))
+ (5))))
& (~(0xC0000000))))))))));
current_block[138]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock75) & 0x03FFFFFF))
| 0x40000000))))
+ (5))))
& (~(0xC0000000))))))))));
current_block[137]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock76) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[136]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock77) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[135]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock78) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[134]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock79) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[133]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock80) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[132]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock81) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[131]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock82) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[130]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock83) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[129]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock84) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[128]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock85) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[127]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock86) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[126]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock87) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[125]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock88) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[124]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock89) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[123]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock90) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[122]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock91) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[121]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock92) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[120]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock64) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[119]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock65) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[118]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock66) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[117]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock67) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[116]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock63) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[115]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock62) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[114]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock61) & 0x03FFFFFF))
| 0x40000000))))
+ (5))))
& (~(0xC0000000))))))))));
current_block[113]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock60) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[112]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock59) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[111]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock58) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[110]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock57) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[109]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock56) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[108]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock55) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[107]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock54) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[106]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock53) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[105]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock52) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[104]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock51) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[103]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock50) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[102]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock49) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[101]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock48) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[100]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock47) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[99]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock46) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[98]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock45) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[97]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock44) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[96]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock43) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[95]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock42) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[94]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock41) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[93]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock40) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[92]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock39) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[91]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock38) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[90]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock37) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[89]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock36) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[88]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock35) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[87]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock34) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[86]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock33) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[85]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock32) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[84]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock31) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[83]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock30) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[82]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock29) & 0x03FFFFFF))
| 0x40000000))))
+ (5))))
& (~(0xC0000000))))))))));
current_block[81]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock28) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[80]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock27) & 0x03FFFFFF))
| 0x40000000))))
+ (5))))
& (~(0xC0000000))))))))));
current_block[79]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock26) & 0x03FFFFFF))
| 0x40000000))))
+ (5))))
& (~(0xC0000000))))))))));
current_block[78]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock25) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[77]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock24) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[76]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock23) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[75]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock22) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[74]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock21) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[73]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock20) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[72]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock19) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[71]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock18) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[70]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock17) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[69]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock16) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[68]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock15) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[67]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock14) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[66]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock13) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[65]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock12) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[64]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock11) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[63]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock10) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[62]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock2) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[61]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock3) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[60]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock4) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[59]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock5) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[58]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock6) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[57]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock7) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[56]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock8) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[55]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock9) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
current_block[54]
= (((((((unsigned long) ((0x28))) << 26)
| ((((SCHEME_OBJECT)
(((unsigned long)
((((((SCHEME_OBJECT *)
(((unsigned long) ((ccBlock1) & 0x03FFFFFF))
| 0x40000000))))
+ (3))))
& (~(0xC0000000))))))))));
tmpObj7 = ((make_vector ((8), 0x00000000, ((Boolean) 1))));
tmpObj4 = ((memory_to_symbol ((9L), ((unsigned char *) "host-type"))));
tmpObj3 = ((make_vector ((58), 0x00000000, ((Boolean) 1))));
tmpObj6 = ((memory_to_symbol ((4L), ((unsigned char *) "host"))));
tmpObj2 = ((make_vector ((4), 0x00000000, ((Boolean) 1))));
tmpObj5 = ((memory_to_symbol ((4L), ((unsigned char *) "name"))));
tmpObj1 = ((make_vector ((28), 0x00000000, ((Boolean) 1))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((0) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"%make-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((1) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"%pathname-host")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((2) + 1))]))
= (((((memory_to_symbol ((16L),
((unsigned char *)
"%pathname-device")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((3) + 1))]))
= (((((memory_to_symbol ((19L),
((unsigned char *)
"%pathname-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((4) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"%pathname-name")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((5) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"%pathname-type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((6) + 1))]))
= (((((memory_to_symbol ((17L),
((unsigned char *)
"%pathname-version")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj7)) & 0x03FFFFFF))
| 0x40000000))))
[(((7) + 1))]))
= (((((memory_to_symbol ((9L),
((unsigned char *)
"pathname?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((0) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"->pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((1) + 1))]))
= (((((memory_to_symbol ((12L),
((unsigned char *)
"pathname-arg")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((2) + 1))]))
= (((((memory_to_symbol ((13L),
((unsigned char *)
"make-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((3) + 1))]))
= (((((memory_to_symbol ((13L),
((unsigned char *)
"pathname-host")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((4) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"pathname-device")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((5) + 1))]))
= (((((memory_to_symbol ((18L),
((unsigned char *)
"pathname-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((6) + 1))]))
= (((((memory_to_symbol ((13L),
((unsigned char *)
"pathname-name")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((7) + 1))]))
= (((((memory_to_symbol ((13L),
((unsigned char *)
"pathname-type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((8) + 1))]))
= (((((memory_to_symbol ((16L),
((unsigned char *)
"pathname-version")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((9) + 1))]))
= (((((memory_to_symbol ((27L),
((unsigned char *)
"pathname-end-of-line-string")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((10) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"pathname=?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((11) + 1))]))
= (((((memory_to_symbol ((18L),
((unsigned char *)
"pathname-absolute?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((12) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"pathname-wild?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((13) + 1))]))
= (((((memory_to_symbol ((17L),
((unsigned char *)
"pathname-simplify")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((14) + 1))]))
= (((((memory_to_symbol ((18L),
((unsigned char *)
"directory-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((15) + 1))]))
= (((((memory_to_symbol ((13L),
((unsigned char *)
"file-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((16) + 1))]))
= (((((memory_to_symbol ((21L),
((unsigned char *)
"pathname-as-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((17) + 1))]))
= (((((memory_to_symbol ((26L),
((unsigned char *)
"directory-pathname-as-file")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((18) + 1))]))
= (((((memory_to_symbol ((19L),
((unsigned char *)
"pathname-new-device")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((19) + 1))]))
= (((((memory_to_symbol ((22L),
((unsigned char *)
"pathname-new-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((20) + 1))]))
= (((((memory_to_symbol ((17L),
((unsigned char *)
"pathname-new-name")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((21) + 1))]))
= (((((memory_to_symbol ((17L),
((unsigned char *)
"pathname-new-type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((22) + 1))]))
= (((((memory_to_symbol ((20L),
((unsigned char *)
"pathname-new-version")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((23) + 1))]))
= (((((memory_to_symbol ((23L),
((unsigned char *)
"pathname-default-device")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((24) + 1))]))
= (((((memory_to_symbol ((26L),
((unsigned char *)
"pathname-default-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((25) + 1))]))
= (((((memory_to_symbol ((21L),
((unsigned char *)
"pathname-default-name")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((26) + 1))]))
= (((((memory_to_symbol ((21L),
((unsigned char *)
"pathname-default-type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((27) + 1))]))
= (((((memory_to_symbol ((24L),
((unsigned char *)
"pathname-default-version")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((28) + 1))]))
= (((((memory_to_symbol ((16L),
((unsigned char *)
"pathname-default")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((29) + 1))]))
= (((((memory_to_symbol ((16L),
((unsigned char *)
"parse-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((30) + 1))]))
= (((((memory_to_symbol ((12L),
((unsigned char *)
"->namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((31) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"file-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((32) + 1))]))
= (((((memory_to_symbol ((20L),
((unsigned char *)
"directory-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((33) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"host-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((34) + 1))]))
= (((((memory_to_symbol ((17L),
((unsigned char *)
"enough-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((35) + 1))]))
= (((((memory_to_symbol ((20L),
((unsigned char *)
"pathname->namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((36) + 1))]))
= (((((memory_to_symbol ((27L),
((unsigned char *)
"*default-pathname-defaults*")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((37) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"merge-pathnames")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((38) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"enough-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((39) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"host-types")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((40) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"local-host")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((41) + 1))]))
= (((tmpObj4)));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((42) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"make-host-type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((43) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"host-type/index")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((44) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"host-type/name")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((45) + 1))]))
= (((((memory_to_symbol ((36L),
((unsigned char *)
"host-type/operation/parse-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((46) + 1))]))
= (((((memory_to_symbol ((40L),
((unsigned char *)
"host-type/operation/pathname->namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((47) + 1))]))
= (((((memory_to_symbol ((33L),
((unsigned char *)
"host-type/operation/make-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((48) + 1))]))
= (((((memory_to_symbol ((34L),
((unsigned char *)
"host-type/operation/pathname-wild?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((49) + 1))]))
= (((((memory_to_symbol ((41L),
((unsigned char *)
"host-type/operation/pathname-as-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((50) + 1))]))
= (((((memory_to_symbol ((46L),
((unsigned char *)
"host-type/operation/directory-pathname-as-file")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((51) + 1))]))
= (((((memory_to_symbol ((38L),
((unsigned char *)
"host-type/operation/pathname->truename")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((52) + 1))]))
= (((((memory_to_symbol ((41L),
((unsigned char *)
"host-type/operation/user-homedir-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((53) + 1))]))
= (((((memory_to_symbol ((38L),
((unsigned char *)
"host-type/operation/init-file-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((54) + 1))]))
= (((((memory_to_symbol ((37L),
((unsigned char *)
"host-type/operation/pathname-simplify")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((55) + 1))]))
= (((((memory_to_symbol ((38L),
((unsigned char *)
"host-type/operation/end-of-line-string")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((56) + 1))]))
= (((((memory_to_symbol ((41L),
((unsigned char *)
"host-type/operation/pathname-canonicalize")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj3)) & 0x03FFFFFF))
| 0x40000000))))
[(((57) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"host-type?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
| 0x40000000))))
[(((0) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"%make-host")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
| 0x40000000))))
[(((1) + 1))]))
= (((((memory_to_symbol ((15L),
((unsigned char *)
"host/type-index")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
| 0x40000000))))
[(((2) + 1))]))
= (((((memory_to_symbol ((9L),
((unsigned char *)
"host/name")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj2)) & 0x03FFFFFF))
| 0x40000000))))
[(((3) + 1))]))
= (((((memory_to_symbol ((5L),
((unsigned char *)
"host?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((0) + 1))]))
= (((((memory_to_symbol ((9L),
((unsigned char *)
"make-host")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((1) + 1))]))
= (((((memory_to_symbol ((9L),
((unsigned char *)
"host/type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((2) + 1))]))
= (((((memory_to_symbol ((6L),
((unsigned char *)
"host=?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((3) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"guarantee-host")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((4) + 1))]))
= (((((memory_to_symbol ((31L),
((unsigned char *)
"host-operation/parse-namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((5) + 1))]))
= (((((memory_to_symbol ((35L),
((unsigned char *)
"host-operation/pathname->namestring")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((6) + 1))]))
= (((((memory_to_symbol ((28L),
((unsigned char *)
"host-operation/make-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((7) + 1))]))
= (((((memory_to_symbol ((29L),
((unsigned char *)
"host-operation/pathname-wild?")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((8) + 1))]))
= (((((memory_to_symbol ((36L),
((unsigned char *)
"host-operation/pathname-as-directory")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((9) + 1))]))
= (((((memory_to_symbol ((41L),
((unsigned char *)
"host-operation/directory-pathname-as-file")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((10) + 1))]))
= (((((memory_to_symbol ((33L),
((unsigned char *)
"host-operation/pathname->truename")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((11) + 1))]))
= (((((memory_to_symbol ((36L),
((unsigned char *)
"host-operation/user-homedir-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((12) + 1))]))
= (((((memory_to_symbol ((33L),
((unsigned char *)
"host-operation/init-file-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((13) + 1))]))
= (((((memory_to_symbol ((32L),
((unsigned char *)
"host-operation/pathname-simplify")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((14) + 1))]))
= (((((memory_to_symbol ((33L),
((unsigned char *)
"host-operation/end-of-line-string")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((15) + 1))]))
= (((((memory_to_symbol ((36L),
((unsigned char *)
"host-operation/pathname-canonicalize")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((16) + 1))]))
= (((((memory_to_symbol ((10L),
((unsigned char *)
"->truename")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((17) + 1))]))
= (((((memory_to_symbol ((21L),
((unsigned char *)
"user-homedir-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((18) + 1))]))
= (((((memory_to_symbol ((18L),
((unsigned char *)
"init-file-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((19) + 1))]))
= (((((memory_to_symbol ((23L),
((unsigned char *)
"system-library-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((20) + 1))]))
= (((((memory_to_symbol ((22L),
((unsigned char *)
"library-directory-path")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((21) + 1))]))
= (((((memory_to_symbol ((33L),
((unsigned char *)
"system-library-directory-pathname")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((22) + 1))]))
= (((((memory_to_symbol ((16L),
((unsigned char *)
"known-host-types")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((23) + 1))]))
= (((((memory_to_symbol ((28L),
((unsigned char *)
"make-unimplemented-host-type")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((24) + 1))]))
= (((((memory_to_symbol ((20L),
((unsigned char *)
"available-host-types")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((25) + 1))]))
= (((((memory_to_symbol ((23L),
((unsigned char *)
"add-pathname-host-type!")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((26) + 1))]))
= (((((memory_to_symbol ((14L),
((unsigned char *)
"reset-package!")))))));
((((((SCHEME_OBJECT *)
(((unsigned long) (((tmpObj1)) & 0x03FFFFFF))
| 0x40000000))))
[(((27) + 1))]))
= (((((memory_to_symbol ((19L),
((unsigned char *)
"initialize-package!")))))));
current_block[168] = 0x20000001;
current_block[167]
= ((memory_to_string
((41L),
(unsigned char *)
"/scheme/users/jawilson/runtime/pathnm.inf")));
current_block[166]
= (cons
((cons
(((memory_to_symbol ((4L), ((unsigned char *) "unix")))),
(long_to_integer (0L)))),
(cons
((cons (((memory_to_symbol ((3L), ((unsigned char *) "dos")))),
(long_to_integer (1L)))),
(cons
((cons (((memory_to_symbol ((3L),
((unsigned char *) "vms")))),
(long_to_integer (2L)))), 0x00000000))))));
current_block[165] = tmpObj1;
current_block[164] = ((memory_to_string ((4L),
(unsigned char *) "host")));
current_block[163]
= (cons (((memory_to_symbol ((10L),
((unsigned char *) "type-index")))),
(cons (tmpObj5, 0x00000000))));
current_block[162] = (cons ((long_to_integer (1L)),
(cons ((long_to_integer (2L)),
0x00000000))));
current_block[161]
= ((memory_to_symbol ((25L),
((unsigned char *)
"#[(runtime pathname)host]"))));
current_block[160] = tmpObj2;
current_block[159] = tmpObj6;
current_block[158]
= ((search_for_primitive (0x00000000, "vector",
((Boolean) 1), ((Boolean) 1), -1)));
current_block[157] = tmpObj3;
current_block[156] = tmpObj4;
current_block[155] =
((memory_to_string ((9L), (unsigned char *) "host-type")));
current_block[154]
= (cons
(((memory_to_symbol ((5L), ((unsigned char *) "index")))),
(cons
(tmpObj5,
(cons
(((memory_to_symbol
((26L),
((unsigned char *) "operation/parse-namestring")))),
(cons
(((memory_to_symbol
((30L),
((unsigned char *) "operation/pathname->namestring")))),
(cons
(((memory_to_symbol
((23L),
((unsigned char *) "operation/make-pathname")))),
(cons
(((memory_to_symbol
((24L),
((unsigned char *) "operation/pathname-wild?")))),
(cons
(((memory_to_symbol
((31L),
((unsigned char *)
"operation/pathname-as-directory")))),
(cons
(((memory_to_symbol
((36L),
((unsigned char *)
"operation/directory-pathname-as-file")))),
(cons
(((memory_to_symbol
((28L),
((unsigned char *)
"operation/pathname->truename")))),
(cons
(((memory_to_symbol
((31L),
((unsigned char *)
"operation/user-homedir-pathname")))),
(cons
(((memory_to_symbol
((28L),
((unsigned char *)
"operation/init-file-pathname")))),
(cons
(((memory_to_symbol
((27L),
((unsigned char *)
"operation/pathname-simplify")))),
(cons
(((memory_to_symbol
((28L),
((unsigned char *)
"operation/end-of-line-string")))),
(cons
(((memory_to_symbol
((31L),
((unsigned char *)
"operation/pathname-canonicalize")))),
0x00000000))))))))))))))))))))))))))));
current_block[153]
= ((memory_to_symbol ((6L), ((unsigned char *) "vector"))));
current_block[152]
= ((memory_to_string ((8L), (unsigned char *) "pathname")));
current_block[151]
= (cons
(tmpObj6,
(cons
(((memory_to_symbol ((6L), ((unsigned char *) "device")))),
(cons
(((memory_to_symbol ((9L), ((unsigned char *) "directory")))),
(cons
(tmpObj5,
(cons
(((memory_to_symbol ((4L), ((unsigned char *) "type")))),
(cons
(((memory_to_symbol
((7L), ((unsigned char *) "version")))),
0x00000000))))))))))));
current_block[150]
= (cons
((long_to_integer (1L)),
(cons
((long_to_integer (2L)),
(cons
((long_to_integer (3L)),
(cons
((long_to_integer (4L)),
(cons
((long_to_integer (5L)),
(cons
((long_to_integer (6L)),
0x00000000))))))))))));
current_block[149]
= ((memory_to_symbol ((29L), ((unsigned char *)
"#[(runtime pathname)pathname]"))));
current_block[148] = tmpObj7;
current_block[147]
= ((memory_to_symbol ((8L), ((unsigned char *) "pathname"))));
return (current_block);
}
------------------------------ end of test.c ------------------------------
Technical Details
Message-ID:
<9301231405.AA27048@life.ai.mit.edu>Path:
arc1-ca.pugleaf.net!sparky!uunet!cis.ohio-state.edu!martigny.ai.mit.edu!gjrShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!cis.ohio-state.edu!martigny.ai.mit.edu!gjr From: gjr@martigny.ai.mit.edu (Guillermo J. Rozas) Newsgroups: gnu.gcc.bug Subject: Bug with gcc 2.3.3 on hp9000s720 hp-ux 8.05 Date: 25 Jan 1993 20:10:08 -0500 Organization: GNUs Not Usenet Lines: 2992 Sender: daemon@cis.ohio-state.edu Approved: bug-gcc@prep.ai.mit.edu Distribution: gnu Message-ID: <9301231405.AA27048@life.ai.mit.edu> Reply-To: gjr@martigny.ai.mit.edu