Snapshot for 0.6.0.
This commit is contained in:
parent
8cae40fc69
commit
4bff8f3027
Binary file not shown.
164
c/scheme48heap.c
164
c/scheme48heap.c
|
@ -69,7 +69,7 @@ static long Simported_bindingsS;
|
||||||
static long Sexported_bindingsS;
|
static long Sexported_bindingsS;
|
||||||
static long Sresumer_recordsS;
|
static long Sresumer_recordsS;
|
||||||
static char SinitializingPS;
|
static char SinitializingPS;
|
||||||
static long Hthe_record_type9260;
|
static long Hthe_record_type9310;
|
||||||
char * s48_ShpS;
|
char * s48_ShpS;
|
||||||
char * s48_SlimitS;
|
char * s48_SlimitS;
|
||||||
|
|
||||||
|
@ -922,8 +922,8 @@ long s48_find_all(long type_123X)
|
||||||
char * merged_arg0K1;
|
char * merged_arg0K1;
|
||||||
char * merged_arg0K0;
|
char * merged_arg0K0;
|
||||||
|
|
||||||
int Hproc923124_return_tag;
|
int Hproc928124_return_tag;
|
||||||
char Hproc9231240_return_value;
|
char Hproc9281240_return_value;
|
||||||
char * start_125X;
|
char * start_125X;
|
||||||
char * end_126X;
|
char * end_126X;
|
||||||
char * next_142X;
|
char * next_142X;
|
||||||
|
@ -948,10 +948,10 @@ long s48_find_all(long type_123X)
|
||||||
s48_ShpS = ((s48_ShpS) + 4);
|
s48_ShpS = ((s48_ShpS) + 4);
|
||||||
merged_arg0K0 = (Snewspace_beginS);
|
merged_arg0K0 = (Snewspace_beginS);
|
||||||
merged_arg0K1 = start_hp_127X;
|
merged_arg0K1 = start_hp_127X;
|
||||||
Hproc923124_return_tag = 0;
|
Hproc928124_return_tag = 0;
|
||||||
goto Hproc923124;
|
goto Hproc928124;
|
||||||
Hproc923124_return_0:
|
Hproc928124_return_0:
|
||||||
v_128X = Hproc9231240_return_value;
|
v_128X = Hproc9281240_return_value;
|
||||||
if (v_128X) {
|
if (v_128X) {
|
||||||
if ((0 < (Simpure_area_countS))) {
|
if ((0 < (Simpure_area_countS))) {
|
||||||
areas_129X = Simpure_areasS;
|
areas_129X = Simpure_areasS;
|
||||||
|
@ -968,10 +968,10 @@ long s48_find_all(long type_123X)
|
||||||
if ((i_132X < count_131X)) {
|
if ((i_132X < count_131X)) {
|
||||||
merged_arg0K0 = (*(areas_129X + i_132X));
|
merged_arg0K0 = (*(areas_129X + i_132X));
|
||||||
merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X)));
|
merged_arg0K1 = ((*(areas_129X + i_132X)) + (*(sizes_130X + i_132X)));
|
||||||
Hproc923124_return_tag = 1;
|
Hproc928124_return_tag = 1;
|
||||||
goto Hproc923124;
|
goto Hproc928124;
|
||||||
Hproc923124_return_1:
|
Hproc928124_return_1:
|
||||||
v_133X = Hproc9231240_return_value;
|
v_133X = Hproc9281240_return_value;
|
||||||
if (v_133X) {
|
if (v_133X) {
|
||||||
arg1K0 = (1 + i_132X);
|
arg1K0 = (1 + i_132X);
|
||||||
goto L5578;}
|
goto L5578;}
|
||||||
|
@ -996,10 +996,10 @@ long s48_find_all(long type_123X)
|
||||||
if ((i_137X < count_136X)) {
|
if ((i_137X < count_136X)) {
|
||||||
merged_arg0K0 = (*(areas_134X + i_137X));
|
merged_arg0K0 = (*(areas_134X + i_137X));
|
||||||
merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X)));
|
merged_arg0K1 = ((*(areas_134X + i_137X)) + (*(sizes_135X + i_137X)));
|
||||||
Hproc923124_return_tag = 2;
|
Hproc928124_return_tag = 2;
|
||||||
goto Hproc923124;
|
goto Hproc928124;
|
||||||
Hproc923124_return_2:
|
Hproc928124_return_2:
|
||||||
v_138X = Hproc9231240_return_value;
|
v_138X = Hproc9281240_return_value;
|
||||||
if (v_138X) {
|
if (v_138X) {
|
||||||
arg1K0 = (1 + i_137X);
|
arg1K0 = (1 + i_137X);
|
||||||
goto L5599;}
|
goto L5599;}
|
||||||
|
@ -1010,7 +1010,7 @@ long s48_find_all(long type_123X)
|
||||||
L5525: {
|
L5525: {
|
||||||
*((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8)));
|
*((long *) start_hp_127X) = (10 + (((((s48_ShpS) - (start_hp_127X + 4)))<<8)));
|
||||||
return (3 + (((long) (start_hp_127X + 4))));}
|
return (3 + (((long) (start_hp_127X + 4))));}
|
||||||
Hproc923124: {
|
Hproc928124: {
|
||||||
start_125X = merged_arg0K0;
|
start_125X = merged_arg0K0;
|
||||||
end_126X = merged_arg0K1;{
|
end_126X = merged_arg0K1;{
|
||||||
type_139X = Sfinding_typeS;
|
type_139X = Sfinding_typeS;
|
||||||
|
@ -1029,23 +1029,23 @@ long s48_find_all(long type_123X)
|
||||||
arg0K0 = next_142X;
|
arg0K0 = next_142X;
|
||||||
goto L4504;}
|
goto L4504;}
|
||||||
else {
|
else {
|
||||||
Hproc9231240_return_value = 0;
|
Hproc9281240_return_value = 0;
|
||||||
goto Hproc923124_return;}}
|
goto Hproc928124_return;}}
|
||||||
else {
|
else {
|
||||||
arg0K0 = next_142X;
|
arg0K0 = next_142X;
|
||||||
goto L4504;}}
|
goto L4504;}}
|
||||||
else {
|
else {
|
||||||
ps_write_string("heap is in an inconsistent state.", (stderr));
|
ps_write_string("heap is in an inconsistent state.", (stderr));
|
||||||
Hproc9231240_return_value = 0;
|
Hproc9281240_return_value = 0;
|
||||||
goto Hproc923124_return;}}
|
goto Hproc928124_return;}}
|
||||||
else {
|
else {
|
||||||
Hproc9231240_return_value = 1;
|
Hproc9281240_return_value = 1;
|
||||||
goto Hproc923124_return;}}
|
goto Hproc928124_return;}}
|
||||||
Hproc923124_return:
|
Hproc928124_return:
|
||||||
switch (Hproc923124_return_tag) {
|
switch (Hproc928124_return_tag) {
|
||||||
case 0: goto Hproc923124_return_0;
|
case 0: goto Hproc928124_return_0;
|
||||||
case 1: goto Hproc923124_return_1;
|
case 1: goto Hproc928124_return_1;
|
||||||
default: goto Hproc923124_return_2;
|
default: goto Hproc928124_return_2;
|
||||||
}}
|
}}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -1450,8 +1450,8 @@ long s48_find_all_records(long record_type_193X)
|
||||||
char * merged_arg0K1;
|
char * merged_arg0K1;
|
||||||
char * merged_arg0K0;
|
char * merged_arg0K0;
|
||||||
|
|
||||||
int Hproc969194_return_tag;
|
int Hproc974194_return_tag;
|
||||||
char Hproc9691940_return_value;
|
char Hproc9741940_return_value;
|
||||||
char * start_195X;
|
char * start_195X;
|
||||||
char * end_196X;
|
char * end_196X;
|
||||||
long obj_213X;
|
long obj_213X;
|
||||||
|
@ -1471,17 +1471,17 @@ long s48_find_all_records(long record_type_193X)
|
||||||
char * *areas_199X;
|
char * *areas_199X;
|
||||||
char v_198X;
|
char v_198X;
|
||||||
char * start_hp_197X;
|
char * start_hp_197X;
|
||||||
{ Hthe_record_type9260 = record_type_193X;
|
{ Hthe_record_type9310 = record_type_193X;
|
||||||
Sfinding_typeS = 8;
|
Sfinding_typeS = 8;
|
||||||
start_hp_197X = s48_ShpS;
|
start_hp_197X = s48_ShpS;
|
||||||
*((long *) (s48_ShpS)) = 0;
|
*((long *) (s48_ShpS)) = 0;
|
||||||
s48_ShpS = ((s48_ShpS) + 4);
|
s48_ShpS = ((s48_ShpS) + 4);
|
||||||
merged_arg0K0 = (Snewspace_beginS);
|
merged_arg0K0 = (Snewspace_beginS);
|
||||||
merged_arg0K1 = start_hp_197X;
|
merged_arg0K1 = start_hp_197X;
|
||||||
Hproc969194_return_tag = 0;
|
Hproc974194_return_tag = 0;
|
||||||
goto Hproc969194;
|
goto Hproc974194;
|
||||||
Hproc969194_return_0:
|
Hproc974194_return_0:
|
||||||
v_198X = Hproc9691940_return_value;
|
v_198X = Hproc9741940_return_value;
|
||||||
if (v_198X) {
|
if (v_198X) {
|
||||||
if ((0 < (Simpure_area_countS))) {
|
if ((0 < (Simpure_area_countS))) {
|
||||||
areas_199X = Simpure_areasS;
|
areas_199X = Simpure_areasS;
|
||||||
|
@ -1498,10 +1498,10 @@ long s48_find_all_records(long record_type_193X)
|
||||||
if ((i_202X < count_201X)) {
|
if ((i_202X < count_201X)) {
|
||||||
merged_arg0K0 = (*(areas_199X + i_202X));
|
merged_arg0K0 = (*(areas_199X + i_202X));
|
||||||
merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X)));
|
merged_arg0K1 = ((*(areas_199X + i_202X)) + (*(sizes_200X + i_202X)));
|
||||||
Hproc969194_return_tag = 1;
|
Hproc974194_return_tag = 1;
|
||||||
goto Hproc969194;
|
goto Hproc974194;
|
||||||
Hproc969194_return_1:
|
Hproc974194_return_1:
|
||||||
v_203X = Hproc9691940_return_value;
|
v_203X = Hproc9741940_return_value;
|
||||||
if (v_203X) {
|
if (v_203X) {
|
||||||
arg1K0 = (1 + i_202X);
|
arg1K0 = (1 + i_202X);
|
||||||
goto L5743;}
|
goto L5743;}
|
||||||
|
@ -1526,10 +1526,10 @@ long s48_find_all_records(long record_type_193X)
|
||||||
if ((i_207X < count_206X)) {
|
if ((i_207X < count_206X)) {
|
||||||
merged_arg0K0 = (*(areas_204X + i_207X));
|
merged_arg0K0 = (*(areas_204X + i_207X));
|
||||||
merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X)));
|
merged_arg0K1 = ((*(areas_204X + i_207X)) + (*(sizes_205X + i_207X)));
|
||||||
Hproc969194_return_tag = 2;
|
Hproc974194_return_tag = 2;
|
||||||
goto Hproc969194;
|
goto Hproc974194;
|
||||||
Hproc969194_return_2:
|
Hproc974194_return_2:
|
||||||
v_208X = Hproc9691940_return_value;
|
v_208X = Hproc9741940_return_value;
|
||||||
if (v_208X) {
|
if (v_208X) {
|
||||||
arg1K0 = (1 + i_207X);
|
arg1K0 = (1 + i_207X);
|
||||||
goto L5764;}
|
goto L5764;}
|
||||||
|
@ -1540,7 +1540,7 @@ long s48_find_all_records(long record_type_193X)
|
||||||
L5690: {
|
L5690: {
|
||||||
*((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8)));
|
*((long *) start_hp_197X) = (10 + (((((s48_ShpS) - (start_hp_197X + 4)))<<8)));
|
||||||
return (3 + (((long) (start_hp_197X + 4))));}
|
return (3 + (((long) (start_hp_197X + 4))));}
|
||||||
Hproc969194: {
|
Hproc974194: {
|
||||||
start_195X = merged_arg0K0;
|
start_195X = merged_arg0K0;
|
||||||
end_196X = merged_arg0K1;{
|
end_196X = merged_arg0K1;{
|
||||||
type_209X = Sfinding_typeS;
|
type_209X = Sfinding_typeS;
|
||||||
|
@ -1554,15 +1554,15 @@ long s48_find_all_records(long record_type_193X)
|
||||||
if ((2 == (3 & d_211X))) {
|
if ((2 == (3 & d_211X))) {
|
||||||
if ((type_209X == (31 & (((d_211X)>>2))))) {
|
if ((type_209X == (31 & (((d_211X)>>2))))) {
|
||||||
obj_213X = 3 + (((long) (addr_210X + 4)));
|
obj_213X = 3 + (((long) (addr_210X + 4)));
|
||||||
if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9260))) {
|
if (((*((long *) (((char *) (-3 + obj_213X))))) == (Hthe_record_type9310))) {
|
||||||
if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
|
if ((((s48_ShpS) + 16) < (s48_SlimitS))) {
|
||||||
*((long *) (s48_ShpS)) = obj_213X;
|
*((long *) (s48_ShpS)) = obj_213X;
|
||||||
s48_ShpS = ((s48_ShpS) + 4);
|
s48_ShpS = ((s48_ShpS) + 4);
|
||||||
arg0K0 = next_212X;
|
arg0K0 = next_212X;
|
||||||
goto L4671;}
|
goto L4671;}
|
||||||
else {
|
else {
|
||||||
Hproc9691940_return_value = 0;
|
Hproc9741940_return_value = 0;
|
||||||
goto Hproc969194_return;}}
|
goto Hproc974194_return;}}
|
||||||
else {
|
else {
|
||||||
arg0K0 = next_212X;
|
arg0K0 = next_212X;
|
||||||
goto L4671;}}
|
goto L4671;}}
|
||||||
|
@ -1571,16 +1571,16 @@ long s48_find_all_records(long record_type_193X)
|
||||||
goto L4671;}}
|
goto L4671;}}
|
||||||
else {
|
else {
|
||||||
ps_write_string("heap is in an inconsistent state.", (stderr));
|
ps_write_string("heap is in an inconsistent state.", (stderr));
|
||||||
Hproc9691940_return_value = 0;
|
Hproc9741940_return_value = 0;
|
||||||
goto Hproc969194_return;}}
|
goto Hproc974194_return;}}
|
||||||
else {
|
else {
|
||||||
Hproc9691940_return_value = 1;
|
Hproc9741940_return_value = 1;
|
||||||
goto Hproc969194_return;}}
|
goto Hproc974194_return;}}
|
||||||
Hproc969194_return:
|
Hproc974194_return:
|
||||||
switch (Hproc969194_return_tag) {
|
switch (Hproc974194_return_tag) {
|
||||||
case 0: goto Hproc969194_return_0;
|
case 0: goto Hproc974194_return_0;
|
||||||
case 1: goto Hproc969194_return_1;
|
case 1: goto Hproc974194_return_1;
|
||||||
default: goto Hproc969194_return_2;
|
default: goto Hproc974194_return_2;
|
||||||
}}
|
}}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -1885,8 +1885,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
char * merged_arg0K0;
|
char * merged_arg0K0;
|
||||||
|
|
||||||
int abort_collection_return_tag;
|
int abort_collection_return_tag;
|
||||||
int Hproc967264_return_tag;
|
int Hproc972264_return_tag;
|
||||||
char Hproc9672640_return_value;
|
char Hproc9722640_return_value;
|
||||||
char * start_265X;
|
char * start_265X;
|
||||||
char * end_266X;
|
char * end_266X;
|
||||||
long h_320X;
|
long h_320X;
|
||||||
|
@ -1991,10 +1991,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
s48_ShpS = ((s48_ShpS) + 4);
|
s48_ShpS = ((s48_ShpS) + 4);
|
||||||
merged_arg0K0 = (Snewspace_beginS);
|
merged_arg0K0 = (Snewspace_beginS);
|
||||||
merged_arg0K1 = start_hp_277X;
|
merged_arg0K1 = start_hp_277X;
|
||||||
Hproc967264_return_tag = 0;
|
Hproc972264_return_tag = 0;
|
||||||
goto Hproc967264;
|
goto Hproc972264;
|
||||||
Hproc967264_return_0:
|
Hproc972264_return_0:
|
||||||
v_278X = Hproc9672640_return_value;
|
v_278X = Hproc9722640_return_value;
|
||||||
if (v_278X) {
|
if (v_278X) {
|
||||||
if ((0 < (Simpure_area_countS))) {
|
if ((0 < (Simpure_area_countS))) {
|
||||||
areas_279X = Simpure_areasS;
|
areas_279X = Simpure_areasS;
|
||||||
|
@ -2011,10 +2011,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
if ((i_282X < count_281X)) {
|
if ((i_282X < count_281X)) {
|
||||||
merged_arg0K0 = (*(areas_279X + i_282X));
|
merged_arg0K0 = (*(areas_279X + i_282X));
|
||||||
merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X)));
|
merged_arg0K1 = ((*(areas_279X + i_282X)) + (*(sizes_280X + i_282X)));
|
||||||
Hproc967264_return_tag = 1;
|
Hproc972264_return_tag = 1;
|
||||||
goto Hproc967264;
|
goto Hproc972264;
|
||||||
Hproc967264_return_1:
|
Hproc972264_return_1:
|
||||||
v_283X = Hproc9672640_return_value;
|
v_283X = Hproc9722640_return_value;
|
||||||
if (v_283X) {
|
if (v_283X) {
|
||||||
arg1K0 = (1 + i_282X);
|
arg1K0 = (1 + i_282X);
|
||||||
goto L5908;}
|
goto L5908;}
|
||||||
|
@ -2040,10 +2040,10 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
if ((i_287X < count_286X)) {
|
if ((i_287X < count_286X)) {
|
||||||
merged_arg0K0 = (*(areas_284X + i_287X));
|
merged_arg0K0 = (*(areas_284X + i_287X));
|
||||||
merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X)));
|
merged_arg0K1 = ((*(areas_284X + i_287X)) + (*(sizes_285X + i_287X)));
|
||||||
Hproc967264_return_tag = 2;
|
Hproc972264_return_tag = 2;
|
||||||
goto Hproc967264;
|
goto Hproc972264;
|
||||||
Hproc967264_return_2:
|
Hproc972264_return_2:
|
||||||
v_288X = Hproc9672640_return_value;
|
v_288X = Hproc9722640_return_value;
|
||||||
if (v_288X) {
|
if (v_288X) {
|
||||||
arg1K0 = (1 + i_287X);
|
arg1K0 = (1 + i_287X);
|
||||||
goto L5929;}
|
goto L5929;}
|
||||||
|
@ -2230,7 +2230,7 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
goto abort_collection;
|
goto abort_collection;
|
||||||
abort_collection_return_1:
|
abort_collection_return_1:
|
||||||
return status_306X;}
|
return status_306X;}
|
||||||
Hproc967264: {
|
Hproc972264: {
|
||||||
start_265X = merged_arg0K0;
|
start_265X = merged_arg0K0;
|
||||||
end_266X = merged_arg0K1;{
|
end_266X = merged_arg0K1;{
|
||||||
type_307X = Sfinding_typeS;
|
type_307X = Sfinding_typeS;
|
||||||
|
@ -2254,8 +2254,8 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
arg0K0 = next_310X;
|
arg0K0 = next_310X;
|
||||||
goto L4853;}
|
goto L4853;}
|
||||||
else {
|
else {
|
||||||
Hproc9672640_return_value = 0;
|
Hproc9722640_return_value = 0;
|
||||||
goto Hproc967264_return;}}
|
goto Hproc972264_return;}}
|
||||||
else {
|
else {
|
||||||
arg0K0 = next_310X;
|
arg0K0 = next_310X;
|
||||||
goto L4853;}}
|
goto L4853;}}
|
||||||
|
@ -2270,16 +2270,16 @@ long s48_write_image(long resume_proc_262X, FILE * port_263X)
|
||||||
goto L4853;}}
|
goto L4853;}}
|
||||||
else {
|
else {
|
||||||
ps_write_string("heap is in an inconsistent state.", (stderr));
|
ps_write_string("heap is in an inconsistent state.", (stderr));
|
||||||
Hproc9672640_return_value = 0;
|
Hproc9722640_return_value = 0;
|
||||||
goto Hproc967264_return;}}
|
goto Hproc972264_return;}}
|
||||||
else {
|
else {
|
||||||
Hproc9672640_return_value = 1;
|
Hproc9722640_return_value = 1;
|
||||||
goto Hproc967264_return;}}
|
goto Hproc972264_return;}}
|
||||||
Hproc967264_return:
|
Hproc972264_return:
|
||||||
switch (Hproc967264_return_tag) {
|
switch (Hproc972264_return_tag) {
|
||||||
case 0: goto Hproc967264_return_0;
|
case 0: goto Hproc972264_return_0;
|
||||||
case 1: goto Hproc967264_return_1;
|
case 1: goto Hproc972264_return_1;
|
||||||
default: goto Hproc967264_return_2;
|
default: goto Hproc972264_return_2;
|
||||||
}}
|
}}
|
||||||
|
|
||||||
abort_collection: {
|
abort_collection: {
|
||||||
|
@ -2353,5 +2353,5 @@ Sgc_countS = 0;
|
||||||
SstatusS = NO_ERRORS;
|
SstatusS = NO_ERRORS;
|
||||||
SeofPS = 0;
|
SeofPS = 0;
|
||||||
SinitializingPS = 1;
|
SinitializingPS = 1;
|
||||||
Hthe_record_type9260 = 1;
|
Hthe_record_type9310 = 1;
|
||||||
}
|
}
|
||||||
|
|
9369
c/scheme48vm.c
9369
c/scheme48vm.c
File diff suppressed because it is too large
Load Diff
37
cig/libcig.c
37
cig/libcig.c
|
@ -1,5 +1,6 @@
|
||||||
/* This is an Scheme48/C interface file,
|
/* This is an Scheme48/C interface file,
|
||||||
** automatically generated by cig.
|
** automatically generated by a hacked version of cig 3.0.
|
||||||
|
step 4
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
|
@ -9,60 +10,80 @@
|
||||||
s48_value df_strlen_or_false(s48_value g1)
|
s48_value df_strlen_or_false(s48_value g1)
|
||||||
{
|
{
|
||||||
extern s48_value strlen_or_false(const char * );
|
extern s48_value strlen_or_false(const char * );
|
||||||
s48_value ret1;
|
s48_value ret1 = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
s48_value r1;
|
s48_value r1;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(ret1);
|
||||||
r1 = strlen_or_false((const char * )AlienVal(g1));
|
r1 = strlen_or_false((const char * )AlienVal(g1));
|
||||||
ret1 = r1;
|
ret1 = r1;
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
return ret1;
|
return ret1;
|
||||||
}
|
}
|
||||||
|
|
||||||
s48_value df_cstring_nullp(s48_value g1)
|
s48_value df_cstring_nullp(s48_value g1)
|
||||||
{
|
{
|
||||||
extern int cstring_nullp(const char * );
|
extern int cstring_nullp(const char * );
|
||||||
s48_value ret1;
|
s48_value ret1 = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
int r1;
|
int r1;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(ret1);
|
||||||
r1 = cstring_nullp((const char * )AlienVal(g1));
|
r1 = cstring_nullp((const char * )AlienVal(g1));
|
||||||
ret1 = ENTER_BOOLEAN(r1);
|
ret1 = ENTER_BOOLEAN(r1);
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
return ret1;
|
return ret1;
|
||||||
}
|
}
|
||||||
|
|
||||||
s48_value df_c2scheme_strcpy_free(s48_value g1, s48_value g2)
|
s48_value df_c2scheme_strcpy_free(s48_value g1, s48_value g2)
|
||||||
{
|
{
|
||||||
extern int c2scheme_strcpy_free(s48_value , char* );
|
extern int c2scheme_strcpy_free(s48_value , char* );
|
||||||
s48_value ret1;
|
s48_value ret1 = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
int r1;
|
int r1;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(ret1);
|
||||||
r1 = c2scheme_strcpy_free(g1, (char* )AlienVal(g2));
|
r1 = c2scheme_strcpy_free(g1, (char* )AlienVal(g2));
|
||||||
ret1 = ENTER_BOOLEAN(r1);
|
ret1 = ENTER_BOOLEAN(r1);
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
return ret1;
|
return ret1;
|
||||||
}
|
}
|
||||||
|
|
||||||
s48_value df_c2scheme_strcpy(s48_value g1, s48_value g2)
|
s48_value df_c2scheme_strcpy(s48_value g1, s48_value g2)
|
||||||
{
|
{
|
||||||
extern int c2scheme_strcpy(s48_value , char* );
|
extern int c2scheme_strcpy(s48_value , char* );
|
||||||
s48_value ret1;
|
s48_value ret1 = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
int r1;
|
int r1;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(ret1);
|
||||||
r1 = c2scheme_strcpy(g1, (char* )AlienVal(g2));
|
r1 = c2scheme_strcpy(g1, (char* )AlienVal(g2));
|
||||||
ret1 = ENTER_BOOLEAN(r1);
|
ret1 = ENTER_BOOLEAN(r1);
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
return ret1;
|
return ret1;
|
||||||
}
|
}
|
||||||
|
|
||||||
s48_value df_c_veclen(s48_value g1)
|
s48_value df_c_veclen(s48_value g1)
|
||||||
{
|
{
|
||||||
extern s48_value c_veclen(long* );
|
extern s48_value c_veclen(long* );
|
||||||
s48_value ret1;
|
s48_value ret1 = S48_FALSE;
|
||||||
|
S48_DECLARE_GC_PROTECT(1);
|
||||||
s48_value r1;
|
s48_value r1;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
S48_GC_PROTECT_1(ret1);
|
||||||
r1 = c_veclen((long* )AlienVal(g1));
|
r1 = c_veclen((long* )AlienVal(g1));
|
||||||
ret1 = r1;
|
ret1 = r1;
|
||||||
|
S48_GC_UNPROTECT();
|
||||||
return ret1;
|
return ret1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -84,7 +105,7 @@ s48_value df_set_strvec_carriers(s48_value g1, s48_value g2)
|
||||||
return S48_FALSE;
|
return S48_FALSE;
|
||||||
}
|
}
|
||||||
|
|
||||||
s48_value s48_init_cig(void)
|
void s48_init_cig(void)
|
||||||
{
|
{
|
||||||
S48_EXPORT_FUNCTION(df_strlen_or_false);
|
S48_EXPORT_FUNCTION(df_strlen_or_false);
|
||||||
S48_EXPORT_FUNCTION(df_cstring_nullp);
|
S48_EXPORT_FUNCTION(df_cstring_nullp);
|
||||||
|
@ -93,6 +114,4 @@ s48_value s48_init_cig(void)
|
||||||
S48_EXPORT_FUNCTION(df_c_veclen);
|
S48_EXPORT_FUNCTION(df_c_veclen);
|
||||||
S48_EXPORT_FUNCTION(df_free);
|
S48_EXPORT_FUNCTION(df_free);
|
||||||
S48_EXPORT_FUNCTION(df_set_strvec_carriers);
|
S48_EXPORT_FUNCTION(df_set_strvec_carriers);
|
||||||
|
|
||||||
return S48_UNSPECIFIC;
|
|
||||||
}
|
}
|
||||||
|
|
|
@ -49,6 +49,7 @@
|
||||||
|
|
||||||
;;; Generally speaking, in the following routines,
|
;;; Generally speaking, in the following routines,
|
||||||
;;; a NULL C string param causes a function to return #f.
|
;;; a NULL C string param causes a function to return #f.
|
||||||
|
(foreign-init-name "cig")
|
||||||
|
|
||||||
(define-foreign %cstring-length-or-false
|
(define-foreign %cstring-length-or-false
|
||||||
(strlen_or_false ((C "const char * ~a") cstr))
|
(strlen_or_false ((C "const char * ~a") cstr))
|
||||||
|
|
5
gdbinit
5
gdbinit
|
@ -4,9 +4,10 @@
|
||||||
|
|
||||||
#Set a breakpoint at label "raise".
|
#Set a breakpoint at label "raise".
|
||||||
#Obtain the proper line number using "egrep -n raise: scheme48vm.c".
|
#Obtain the proper line number using "egrep -n raise: scheme48vm.c".
|
||||||
break scheme48vm.c:5227
|
#break scheme48vm.c:5227
|
||||||
|
|
||||||
display/i $pc
|
#display/i $pc
|
||||||
|
handle SIGALRM nopass
|
||||||
|
|
||||||
define pcont
|
define pcont
|
||||||
echo template id = \
|
echo template id = \
|
||||||
|
|
Loading…
Reference in New Issue