Thread View: gnu.gcc.bug
1 messages
1 total messages
Started by Guillermo J. Rozas
Tue, 26 Jan 1993 01:10
Bug with gcc 2.3.3 on hp9000s720 hp-ux 8.05
Author: 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 ------------------------------
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads