Last active
March 24, 2020 13:31
-
-
Save vkz/83216277430b84e5ba8d9406a81529cb to your computer and use it in GitHub Desktop.
Fossil makeheaders defeated by Gambit
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| status_cmd(); | |
| ^ | |
| bld/checkin.h:260:1: error: conflicting types for 'status_cmd' | |
| bld/checkin.h:258:6: note: previous declaration is here | |
| void status_cmd(void); | |
| ^ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* produced from src/checkin.c inserts this snipped */ | |
| #if !(defined(___LINKER_INFO)) | |
| status_cmd(); | |
| void status_cmd(); | |
| #endif |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #ifdef ___LINKER_INFO | |
| ; File: "foo.c", produced by Gambit v4.9.3 | |
| ( | |
| 409003 | |
| (C) | |
| "foo" | |
| (("foo")) | |
| ( | |
| "foo" | |
| ) | |
| ( | |
| ) | |
| ( | |
| "catch-all-errors" | |
| "foo#" | |
| "foo#0" | |
| "foo#1" | |
| "gambit-status" | |
| "pow2" | |
| "twice" | |
| "write-to-string" | |
| ) | |
| ( | |
| "eval-string" | |
| "read-from-string" | |
| ) | |
| ( | |
| "cons" | |
| "map" | |
| "newline" | |
| "read" | |
| "with-exception-catcher" | |
| "with-input-from-string" | |
| "with-output-to-string" | |
| "write" | |
| ) | |
| () | |
| ) | |
| #else | |
| #define ___VERSION 409003 | |
| #define ___MODULE_NAME "foo" | |
| #define ___LINKER_ID ___LNK_foo | |
| #define ___MH_PROC ___H_foo | |
| #define ___SCRIPT_LINE 0 | |
| #define ___SYMCOUNT 1 | |
| #define ___GLOCOUNT 18 | |
| #define ___SUPCOUNT 10 | |
| #define ___CNSCOUNT 4 | |
| #define ___SUBCOUNT 1 | |
| #define ___LBLCOUNT 49 | |
| #define ___MODDESCR ___REF_SUB(0) | |
| #include "gambit.h" | |
| ___NEED_SYM(___S_foo) | |
| ___NEED_GLO(___G_catch_2d_all_2d_errors) | |
| ___NEED_GLO(___G_cons) | |
| ___NEED_GLO(___G_eval_2d_string) | |
| ___NEED_GLO(___G_foo_23_) | |
| ___NEED_GLO(___G_foo_23_0) | |
| ___NEED_GLO(___G_foo_23_1) | |
| ___NEED_GLO(___G_gambit_2d_status) | |
| ___NEED_GLO(___G_map) | |
| ___NEED_GLO(___G_newline) | |
| ___NEED_GLO(___G_pow2) | |
| ___NEED_GLO(___G_read) | |
| ___NEED_GLO(___G_read_2d_from_2d_string) | |
| ___NEED_GLO(___G_twice) | |
| ___NEED_GLO(___G_with_2d_exception_2d_catcher) | |
| ___NEED_GLO(___G_with_2d_input_2d_from_2d_string) | |
| ___NEED_GLO(___G_with_2d_output_2d_to_2d_string) | |
| ___NEED_GLO(___G_write) | |
| ___NEED_GLO(___G_write_2d_to_2d_string) | |
| ___BEGIN_SYM | |
| ___DEF_SYM(0,___S_foo,"foo") | |
| ___END_SYM | |
| #define ___SYM_foo ___SYM(0,___S_foo) | |
| ___BEGIN_GLO | |
| ___DEF_GLO(0,"catch-all-errors") | |
| ___DEF_GLO(1,"eval-string") | |
| ___DEF_GLO(2,"foo#") | |
| ___DEF_GLO(3,"foo#0") | |
| ___DEF_GLO(4,"foo#1") | |
| ___DEF_GLO(5,"gambit-status") | |
| ___DEF_GLO(6,"pow2") | |
| ___DEF_GLO(7,"read-from-string") | |
| ___DEF_GLO(8,"twice") | |
| ___DEF_GLO(9,"write-to-string") | |
| ___DEF_GLO(10,"cons") | |
| ___DEF_GLO(11,"map") | |
| ___DEF_GLO(12,"newline") | |
| ___DEF_GLO(13,"read") | |
| ___DEF_GLO(14,"with-exception-catcher") | |
| ___DEF_GLO(15,"with-input-from-string") | |
| ___DEF_GLO(16,"with-output-to-string") | |
| ___DEF_GLO(17,"write") | |
| ___END_GLO | |
| #define ___GLO_catch_2d_all_2d_errors ___GLO(0,___G_catch_2d_all_2d_errors) | |
| #define ___PRM_catch_2d_all_2d_errors ___PRM(0,___G_catch_2d_all_2d_errors) | |
| #define ___GLO_eval_2d_string ___GLO(1,___G_eval_2d_string) | |
| #define ___PRM_eval_2d_string ___PRM(1,___G_eval_2d_string) | |
| #define ___GLO_foo_23_ ___GLO(2,___G_foo_23_) | |
| #define ___PRM_foo_23_ ___PRM(2,___G_foo_23_) | |
| #define ___GLO_foo_23_0 ___GLO(3,___G_foo_23_0) | |
| #define ___PRM_foo_23_0 ___PRM(3,___G_foo_23_0) | |
| #define ___GLO_foo_23_1 ___GLO(4,___G_foo_23_1) | |
| #define ___PRM_foo_23_1 ___PRM(4,___G_foo_23_1) | |
| #define ___GLO_gambit_2d_status ___GLO(5,___G_gambit_2d_status) | |
| #define ___PRM_gambit_2d_status ___PRM(5,___G_gambit_2d_status) | |
| #define ___GLO_pow2 ___GLO(6,___G_pow2) | |
| #define ___PRM_pow2 ___PRM(6,___G_pow2) | |
| #define ___GLO_read_2d_from_2d_string ___GLO(7,___G_read_2d_from_2d_string) | |
| #define ___PRM_read_2d_from_2d_string ___PRM(7,___G_read_2d_from_2d_string) | |
| #define ___GLO_twice ___GLO(8,___G_twice) | |
| #define ___PRM_twice ___PRM(8,___G_twice) | |
| #define ___GLO_write_2d_to_2d_string ___GLO(9,___G_write_2d_to_2d_string) | |
| #define ___PRM_write_2d_to_2d_string ___PRM(9,___G_write_2d_to_2d_string) | |
| #define ___GLO_cons ___GLO(10,___G_cons) | |
| #define ___PRM_cons ___PRM(10,___G_cons) | |
| #define ___GLO_map ___GLO(11,___G_map) | |
| #define ___PRM_map ___PRM(11,___G_map) | |
| #define ___GLO_newline ___GLO(12,___G_newline) | |
| #define ___PRM_newline ___PRM(12,___G_newline) | |
| #define ___GLO_read ___GLO(13,___G_read) | |
| #define ___PRM_read ___PRM(13,___G_read) | |
| #define ___GLO_with_2d_exception_2d_catcher ___GLO(14,___G_with_2d_exception_2d_catcher) | |
| #define ___PRM_with_2d_exception_2d_catcher ___PRM(14,___G_with_2d_exception_2d_catcher) | |
| #define ___GLO_with_2d_input_2d_from_2d_string ___GLO(15,___G_with_2d_input_2d_from_2d_string) | |
| #define ___PRM_with_2d_input_2d_from_2d_string ___PRM(15,___G_with_2d_input_2d_from_2d_string) | |
| #define ___GLO_with_2d_output_2d_to_2d_string ___GLO(16,___G_with_2d_output_2d_to_2d_string) | |
| #define ___PRM_with_2d_output_2d_to_2d_string ___PRM(16,___G_with_2d_output_2d_to_2d_string) | |
| #define ___GLO_write ___GLO(17,___G_write) | |
| #define ___PRM_write ___PRM(17,___G_write) | |
| ___BEGIN_CNS | |
| ___DEF_CNS(___REF_FIX(1),___REF_CNS(1)) | |
| ,___DEF_CNS(___REF_FIX(2),___REF_CNS(2)) | |
| ,___DEF_CNS(___REF_FIX(3),___REF_CNS(3)) | |
| ,___DEF_CNS(___REF_FIX(4),___REF_NUL) | |
| ___END_CNS | |
| ___DEF_SUB_VEC(___X0,5UL) | |
| ___VEC1(___REF_SYM(0,___S_foo)) | |
| ___VEC1(___REF_PRC(1)) | |
| ___VEC1(___REF_FIX(1)) | |
| ___VEC1(___REF_NUL) | |
| ___VEC1(___REF_FAL) | |
| ___VEC0 | |
| ___BEGIN_SUB | |
| ___DEF_SUB(___X0) | |
| ___END_SUB | |
| #define ___C_LBL_eval_string 29 | |
| extern int power_of_2 (); | |
| extern void status_cmd (); | |
| extern char* eval_string ___P((char* ___arg1),(___arg1) | |
| char* ___arg1;) | |
| { | |
| #define ___NARGS 1 | |
| ___BEGIN_SFUN(___MLBL(___C_LBL_eval_string),char* ___result) | |
| ___BEGIN_SFUN_ARG(1,___ARG1) | |
| ___BEGIN_SFUN_CHARSTRING_TO_SCMOBJ(___arg1,___ARG1,1) | |
| ___BEGIN_SFUN_BODY | |
| ___SFUN_ARG(1,___ARG1) | |
| ___SFUN_CALL | |
| ___BEGIN_SFUN_SCMOBJ_TO_CHARSTRING(___SFUN_RESULT,___result) | |
| ___SFUN_SET_RESULT | |
| ___END_SFUN_SCMOBJ_TO_CHARSTRING(___SFUN_RESULT,___result) | |
| ___END_SFUN_BODY | |
| ___END_SFUN_CHARSTRING_TO_SCMOBJ(___arg1,___ARG1,1) | |
| ___END_SFUN_ARG(1) | |
| ___SFUN_ERROR | |
| ___BEGIN_SFUN_SCMOBJ_TO_CHARSTRING(___SFUN_RESULT,___result) | |
| ___SFUN_SET_RESULT | |
| ___END_SFUN_SCMOBJ_TO_CHARSTRING(___SFUN_RESULT,___result) | |
| ___END_SFUN | |
| return ___result; | |
| #undef ___NARGS | |
| } | |
| #undef ___MD_ALL | |
| #define ___MD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4 | |
| #undef ___MR_ALL | |
| #define ___MR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4 | |
| #undef ___MW_ALL | |
| #define ___MW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4 | |
| ___BEGIN_M_COD | |
| ___BEGIN_M_HLBL | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_foo_23_) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_foo_23_0) | |
| ___DEF_M_HLBL(___L1_foo_23_0) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_foo_23_1) | |
| ___DEF_M_HLBL(___L1_foo_23_1) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_catch_2d_all_2d_errors) | |
| ___DEF_M_HLBL(___L1_catch_2d_all_2d_errors) | |
| ___DEF_M_HLBL(___L2_catch_2d_all_2d_errors) | |
| ___DEF_M_HLBL(___L3_catch_2d_all_2d_errors) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_write_2d_to_2d_string) | |
| ___DEF_M_HLBL(___L1_write_2d_to_2d_string) | |
| ___DEF_M_HLBL(___L2_write_2d_to_2d_string) | |
| ___DEF_M_HLBL(___L3_write_2d_to_2d_string) | |
| ___DEF_M_HLBL(___L4_write_2d_to_2d_string) | |
| ___DEF_M_HLBL(___L5_write_2d_to_2d_string) | |
| ___DEF_M_HLBL(___L6_write_2d_to_2d_string) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_read_2d_from_2d_string) | |
| ___DEF_M_HLBL(___L1_read_2d_from_2d_string) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_twice) | |
| ___DEF_M_HLBL(___L1_twice) | |
| ___DEF_M_HLBL(___L2_twice) | |
| ___DEF_M_HLBL_INTRO | |
| ___DEF_M_HLBL(___L0_eval_2d_string) | |
| ___DEF_M_HLBL(___L1_eval_2d_string) | |
| ___DEF_M_HLBL(___L2_eval_2d_string) | |
| ___DEF_M_HLBL(___L3_eval_2d_string) | |
| ___DEF_M_HLBL(___L4_eval_2d_string) | |
| ___DEF_M_HLBL(___L5_eval_2d_string) | |
| ___DEF_M_HLBL(___L6_eval_2d_string) | |
| ___DEF_M_HLBL(___L7_eval_2d_string) | |
| ___DEF_M_HLBL(___L8_eval_2d_string) | |
| ___DEF_M_HLBL(___L9_eval_2d_string) | |
| ___DEF_M_HLBL(___L10_eval_2d_string) | |
| ___DEF_M_HLBL(___L11_eval_2d_string) | |
| ___DEF_M_HLBL(___L12_eval_2d_string) | |
| ___DEF_M_HLBL(___L13_eval_2d_string) | |
| ___DEF_M_HLBL(___L14_eval_2d_string) | |
| ___DEF_M_HLBL(___L15_eval_2d_string) | |
| ___DEF_M_HLBL(___L16_eval_2d_string) | |
| ___DEF_M_HLBL(___L17_eval_2d_string) | |
| ___DEF_M_HLBL(___L18_eval_2d_string) | |
| ___DEF_M_HLBL(___L19_eval_2d_string) | |
| ___END_M_HLBL | |
| ___BEGIN_M_SW | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_foo_23_ | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 1 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_R0 ___D_R1 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_R0 ___R_R1 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_R1 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_foo_23_) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_foo_23_) | |
| ___IF_NARGS_EQ(0,___NOTHING) | |
| ___WRONG_NARGS(0,0,0,0) | |
| ___DEF_GLBL(___L_foo_23_) | |
| ___SET_GLO(0,___G_catch_2d_all_2d_errors,___PRC(9)) | |
| ___SET_GLO(9,___G_write_2d_to_2d_string,___PRC(14)) | |
| ___SET_GLO(7,___G_read_2d_from_2d_string,___PRC(22)) | |
| ___SET_GLO(6,___G_pow2,___PRC(3)) | |
| ___SET_GLO(5,___G_gambit_2d_status,___PRC(6)) | |
| ___SET_GLO(8,___G_twice,___PRC(25)) | |
| ___SET_GLO(1,___G_eval_2d_string,___PRC(29)) | |
| ___SET_R1(___VOID) | |
| ___JUMPPRM(___NOTHING,___R0) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_foo_23_0 | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 3 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_FP ___D_R0 ___D_R1 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_FP ___R_R0 ___R_R1 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_FP ___W_R0 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_foo_23_0) | |
| ___DEF_P_HLBL(___L1_foo_23_0) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_foo_23_0) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(0,1,0,0) | |
| ___DEF_GLBL(___L_foo_23_0) | |
| ___SET_STK(1,___R1) | |
| ___SET_STK(2,___R0) | |
| ___SET_R0(___LBL(1)) | |
| ___ADJFP(8) | |
| #define ___NARGS 1 | |
| ___BEGIN_CFUN(int ___result) | |
| #define ___ARG1 ___CFUN_ARG(1) | |
| ___BEGIN_CFUN_ARG(1,int ___arg1) | |
| ___BEGIN_CFUN_SCMOBJ_TO_INT(___ARG1,___arg1,1) | |
| ___BEGIN_CFUN_BODY | |
| #undef ___AT_END | |
| ___CFUN_ASSIGN(___result,power_of_2(___arg1)) | |
| #ifndef ___AT_END | |
| #define ___AT_END | |
| #endif | |
| ___BEGIN_CFUN_INT_TO_SCMOBJ(___result,___CFUN_RESULT) | |
| ___CFUN_SET_RESULT | |
| ___END_CFUN_INT_TO_SCMOBJ(___result,___CFUN_RESULT) | |
| ___END_CFUN_BODY | |
| ___END_CFUN_SCMOBJ_TO_INT(___ARG1,___arg1,1) | |
| ___END_CFUN_ARG(1) | |
| #undef ___ARG1 | |
| ___CFUN_ERROR | |
| ___END_CFUN | |
| #undef ___NARGS | |
| ___JUMPPRM(___NOTHING,___R0) | |
| ___DEF_SLBL(1,___L1_foo_23_0) | |
| ___ADJFP(-8) | |
| ___JUMPPRM(___NOTHING,___STK(2)) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_foo_23_1 | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 6 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_FP ___D_R0 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_FP ___R_R0 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_FP ___W_R0 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_foo_23_1) | |
| ___DEF_P_HLBL(___L1_foo_23_1) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_foo_23_1) | |
| ___IF_NARGS_EQ(0,___NOTHING) | |
| ___WRONG_NARGS(0,0,0,0) | |
| ___DEF_GLBL(___L_foo_23_1) | |
| ___SET_STK(1,___R0) | |
| ___SET_R0(___LBL(1)) | |
| ___ADJFP(4) | |
| #define ___NARGS 0 | |
| ___BEGIN_CFUN_VOID | |
| ___BEGIN_CFUN_BODY | |
| #undef ___AT_END | |
| status_cmd(); | |
| #ifndef ___AT_END | |
| #define ___AT_END | |
| #endif | |
| ___CFUN_SET_RESULT_VOID | |
| ___END_CFUN_BODY | |
| ___CFUN_ERROR_VOID | |
| ___END_CFUN_VOID | |
| #undef ___NARGS | |
| ___JUMPPRM(___NOTHING,___R0) | |
| ___DEF_SLBL(1,___L1_foo_23_1) | |
| ___ADJFP(-4) | |
| ___JUMPPRM(___NOTHING,___STK(1)) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_catch_2d_all_2d_errors | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 9 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_FP ___D_R1 ___D_R2 ___D_R4 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_FP ___R_R1 ___R_R2 ___R_R4 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_FP ___W_R1 ___W_R2 ___W_R4 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_catch_2d_all_2d_errors) | |
| ___DEF_P_HLBL(___L1_catch_2d_all_2d_errors) | |
| ___DEF_P_HLBL(___L2_catch_2d_all_2d_errors) | |
| ___DEF_P_HLBL(___L3_catch_2d_all_2d_errors) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_catch_2d_all_2d_errors) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(0,1,0,0) | |
| ___DEF_GLBL(___L_catch_2d_all_2d_errors) | |
| ___SET_STK(1,___R1) | |
| ___SET_R1(___LBL(2)) | |
| ___SET_R2(___STK(1)) | |
| ___ADJFP(1) | |
| ___POLL(1) | |
| ___DEF_SLBL(1,___L1_catch_2d_all_2d_errors) | |
| ___ADJFP(-1) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),14,___G_with_2d_exception_2d_catcher) | |
| ___DEF_SLBL(2,___L2_catch_2d_all_2d_errors) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(2,1,0,0) | |
| ___POLL(3) | |
| ___DEF_SLBL(3,___L3_catch_2d_all_2d_errors) | |
| ___JUMPGLOSAFE(___SET_NARGS(1),9,___G_write_2d_to_2d_string) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_write_2d_to_2d_string | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 14 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R4 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R4 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R4 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_write_2d_to_2d_string) | |
| ___DEF_P_HLBL(___L1_write_2d_to_2d_string) | |
| ___DEF_P_HLBL(___L2_write_2d_to_2d_string) | |
| ___DEF_P_HLBL(___L3_write_2d_to_2d_string) | |
| ___DEF_P_HLBL(___L4_write_2d_to_2d_string) | |
| ___DEF_P_HLBL(___L5_write_2d_to_2d_string) | |
| ___DEF_P_HLBL(___L6_write_2d_to_2d_string) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_write_2d_to_2d_string) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(0,1,0,0) | |
| ___DEF_GLBL(___L_write_2d_to_2d_string) | |
| ___SET_STK(1,___ALLOC_CLO(1UL)) | |
| ___BEGIN_SETUP_CLO(1,___STK(1),3) | |
| ___ADD_CLO_ELEM(0,___R1) | |
| ___END_SETUP_CLO(1) | |
| ___SET_R2(___STK(1)) | |
| ___SET_R1(___NUL) | |
| ___ADJFP(1) | |
| ___CHECK_HEAP(1,4096) | |
| ___DEF_SLBL(1,___L1_write_2d_to_2d_string) | |
| ___POLL(2) | |
| ___DEF_SLBL(2,___L2_write_2d_to_2d_string) | |
| ___ADJFP(-1) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),16,___G_with_2d_output_2d_to_2d_string) | |
| ___DEF_SLBL(3,___L3_write_2d_to_2d_string) | |
| ___IF_NARGS_EQ(0,___NOTHING) | |
| ___WRONG_NARGS(3,0,0,0) | |
| ___SET_STK(1,___R0) | |
| ___SET_R1(___CLO(___R4,1)) | |
| ___ADJFP(4) | |
| ___POLL(4) | |
| ___DEF_SLBL(4,___L4_write_2d_to_2d_string) | |
| ___SET_R0(___LBL(5)) | |
| ___JUMPGLOSAFE(___SET_NARGS(1),17,___G_write) | |
| ___DEF_SLBL(5,___L5_write_2d_to_2d_string) | |
| ___SET_R0(___STK(-3)) | |
| ___POLL(6) | |
| ___DEF_SLBL(6,___L6_write_2d_to_2d_string) | |
| ___ADJFP(-4) | |
| ___JUMPGLOSAFE(___SET_NARGS(0),12,___G_newline) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_read_2d_from_2d_string | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 22 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_FP ___D_R2 ___D_R4 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_FP ___R_R2 ___R_R4 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_R2 ___W_R4 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_read_2d_from_2d_string) | |
| ___DEF_P_HLBL(___L1_read_2d_from_2d_string) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_read_2d_from_2d_string) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(0,1,0,0) | |
| ___DEF_GLBL(___L_read_2d_from_2d_string) | |
| ___SET_R2(___GLO_read) | |
| ___POLL(1) | |
| ___DEF_SLBL(1,___L1_read_2d_from_2d_string) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),15,___G_with_2d_input_2d_from_2d_string) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_twice | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 25 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R4 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R4 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_HEAP ___W_R1 ___W_R2 ___W_R4 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_twice) | |
| ___DEF_P_HLBL(___L1_twice) | |
| ___DEF_P_HLBL(___L2_twice) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_twice) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(0,1,0,0) | |
| ___DEF_GLBL(___L_twice) | |
| ___IF(___EQP(___GLO_cons,___PRM_cons)) | |
| ___GOTO(___L3_twice) | |
| ___END_IF | |
| ___SET_R2(___R1) | |
| ___POLL(1) | |
| ___DEF_SLBL(1,___L1_twice) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),10,___G_cons) | |
| ___DEF_GLBL(___L3_twice) | |
| ___SET_R1(___CONS(___R1,___R1)) | |
| ___CHECK_HEAP(2,4096) | |
| ___DEF_SLBL(2,___L2_twice) | |
| ___JUMPPRM(___NOTHING,___R0) | |
| ___END_P_SW | |
| ___END_P_COD | |
| #undef ___PH_PROC | |
| #define ___PH_PROC ___H_eval_2d_string | |
| #undef ___PH_LBL0 | |
| #define ___PH_LBL0 29 | |
| #undef ___PD_ALL | |
| #define ___PD_ALL ___D_HEAP ___D_FP ___D_R0 ___D_R1 ___D_R2 ___D_R3 ___D_R4 | |
| #undef ___PR_ALL | |
| #define ___PR_ALL ___R_HEAP ___R_FP ___R_R0 ___R_R1 ___R_R2 ___R_R3 ___R_R4 | |
| #undef ___PW_ALL | |
| #define ___PW_ALL ___W_HEAP ___W_FP ___W_R0 ___W_R1 ___W_R2 ___W_R3 ___W_R4 | |
| ___BEGIN_P_COD | |
| ___BEGIN_P_HLBL | |
| ___DEF_P_HLBL_INTRO | |
| ___DEF_P_HLBL(___L0_eval_2d_string) | |
| ___DEF_P_HLBL(___L1_eval_2d_string) | |
| ___DEF_P_HLBL(___L2_eval_2d_string) | |
| ___DEF_P_HLBL(___L3_eval_2d_string) | |
| ___DEF_P_HLBL(___L4_eval_2d_string) | |
| ___DEF_P_HLBL(___L5_eval_2d_string) | |
| ___DEF_P_HLBL(___L6_eval_2d_string) | |
| ___DEF_P_HLBL(___L7_eval_2d_string) | |
| ___DEF_P_HLBL(___L8_eval_2d_string) | |
| ___DEF_P_HLBL(___L9_eval_2d_string) | |
| ___DEF_P_HLBL(___L10_eval_2d_string) | |
| ___DEF_P_HLBL(___L11_eval_2d_string) | |
| ___DEF_P_HLBL(___L12_eval_2d_string) | |
| ___DEF_P_HLBL(___L13_eval_2d_string) | |
| ___DEF_P_HLBL(___L14_eval_2d_string) | |
| ___DEF_P_HLBL(___L15_eval_2d_string) | |
| ___DEF_P_HLBL(___L16_eval_2d_string) | |
| ___DEF_P_HLBL(___L17_eval_2d_string) | |
| ___DEF_P_HLBL(___L18_eval_2d_string) | |
| ___DEF_P_HLBL(___L19_eval_2d_string) | |
| ___END_P_HLBL | |
| ___BEGIN_P_SW | |
| ___DEF_SLBL(0,___L0_eval_2d_string) | |
| ___IF_NARGS_EQ(1,___NOTHING) | |
| ___WRONG_NARGS(0,1,0,0) | |
| ___DEF_GLBL(___L_eval_2d_string) | |
| ___SET_R1(___LBL(2)) | |
| ___POLL(1) | |
| ___DEF_SLBL(1,___L1_eval_2d_string) | |
| ___JUMPGLOSAFE(___SET_NARGS(1),0,___G_catch_2d_all_2d_errors) | |
| ___DEF_SLBL(2,___L2_eval_2d_string) | |
| ___IF_NARGS_EQ(0,___NOTHING) | |
| ___WRONG_NARGS(2,0,0,0) | |
| ___SET_STK(1,___R0) | |
| ___ADJFP(4) | |
| ___POLL(3) | |
| ___DEF_SLBL(3,___L3_eval_2d_string) | |
| ___SET_R0(___LBL(4)) | |
| ___JUMPGLOSAFE(___SET_NARGS(0),5,___G_gambit_2d_status) | |
| ___DEF_SLBL(4,___L4_eval_2d_string) | |
| ___SET_STK(-2,___GLO_twice) | |
| ___SET_STK(-1,___GLO_pow2) | |
| ___IF(___NOT(___EQP(___GLO_map,___PRM_map))) | |
| ___GOTO(___L31_eval_2d_string) | |
| ___END_IF | |
| ___IF(___NOT(___PROCEDUREP(___STK(-1)))) | |
| ___GOTO(___L31_eval_2d_string) | |
| ___END_IF | |
| ___SET_R1(___STK(-1)) | |
| ___SET_R2(___CNS(0)) | |
| ___SET_R0(___LBL(11)) | |
| ___ADJFP(4) | |
| ___IF(___PAIRP(___R2)) | |
| ___GOTO(___L21_eval_2d_string) | |
| ___END_IF | |
| ___GOTO(___L22_eval_2d_string) | |
| ___DEF_GLBL(___L20_eval_2d_string) | |
| ___IF(___NOT(___PAIRP(___R2))) | |
| ___GOTO(___L22_eval_2d_string) | |
| ___END_IF | |
| ___DEF_GLBL(___L21_eval_2d_string) | |
| ___SET_R2(___CDR(___R2)) | |
| ___POLL(5) | |
| ___DEF_SLBL(5,___L5_eval_2d_string) | |
| ___GOTO(___L20_eval_2d_string) | |
| ___DEF_GLBL(___L22_eval_2d_string) | |
| ___IF(___NOT(___NULLP(___R2))) | |
| ___GOTO(___L30_eval_2d_string) | |
| ___END_IF | |
| ___SET_R2(___CNS(0)) | |
| ___POLL(6) | |
| ___DEF_SLBL(6,___L6_eval_2d_string) | |
| ___IF(___PAIRP(___R2)) | |
| ___GOTO(___L23_eval_2d_string) | |
| ___END_IF | |
| ___GOTO(___L26_eval_2d_string) | |
| ___DEF_SLBL(7,___L7_eval_2d_string) | |
| ___SET_STK(-4,___R1) | |
| ___SET_R2(___CDR(___STK(-5))) | |
| ___SET_R1(___STK(-6)) | |
| ___SET_R0(___LBL(9)) | |
| ___IF(___NOT(___PAIRP(___R2))) | |
| ___GOTO(___L26_eval_2d_string) | |
| ___END_IF | |
| ___DEF_GLBL(___L23_eval_2d_string) | |
| ___SET_STK(1,___R0) | |
| ___SET_STK(2,___R1) | |
| ___SET_STK(3,___R2) | |
| ___SET_R1(___CAR(___R2)) | |
| ___ADJFP(8) | |
| ___POLL(8) | |
| ___DEF_SLBL(8,___L8_eval_2d_string) | |
| ___SET_R0(___LBL(7)) | |
| ___JUMPGENSAFE(___SET_NARGS(1),___STK(-6)) | |
| ___DEF_SLBL(9,___L9_eval_2d_string) | |
| ___SET_R1(___CONS(___STK(-4),___R1)) | |
| ___ADJFP(-7) | |
| ___CHECK_HEAP(10,4096) | |
| ___DEF_SLBL(10,___L10_eval_2d_string) | |
| ___ADJFP(-1) | |
| ___JUMPPRM(___NOTHING,___STK(1)) | |
| ___DEF_SLBL(11,___L11_eval_2d_string) | |
| ___IF(___NOT(___EQP(___GLO_map,___PRM_map))) | |
| ___GOTO(___L27_eval_2d_string) | |
| ___END_IF | |
| ___IF(___NOT(___PROCEDUREP(___STK(-6)))) | |
| ___GOTO(___L27_eval_2d_string) | |
| ___END_IF | |
| ___SET_R2(___STK(-6)) | |
| ___SET_R3(___R1) | |
| ___SET_R0(___LBL(14)) | |
| ___ADJFP(-4) | |
| ___IF(___NOT(___PAIRP(___R3))) | |
| ___GOTO(___L25_eval_2d_string) | |
| ___END_IF | |
| ___DEF_GLBL(___L24_eval_2d_string) | |
| ___SET_R3(___CDR(___R3)) | |
| ___POLL(12) | |
| ___DEF_SLBL(12,___L12_eval_2d_string) | |
| ___IF(___PAIRP(___R3)) | |
| ___GOTO(___L24_eval_2d_string) | |
| ___END_IF | |
| ___DEF_GLBL(___L25_eval_2d_string) | |
| ___IF(___NOT(___NULLP(___R3))) | |
| ___GOTO(___L28_eval_2d_string) | |
| ___END_IF | |
| ___SET_STK(1,___R2) | |
| ___SET_R2(___R1) | |
| ___SET_R1(___STK(1)) | |
| ___POLL(13) | |
| ___DEF_SLBL(13,___L13_eval_2d_string) | |
| ___IF(___PAIRP(___R2)) | |
| ___GOTO(___L29_eval_2d_string) | |
| ___END_IF | |
| ___DEF_GLBL(___L26_eval_2d_string) | |
| ___SET_R1(___NUL) | |
| ___JUMPPRM(___NOTHING,___R0) | |
| ___DEF_GLBL(___L27_eval_2d_string) | |
| ___SET_R2(___R1) | |
| ___SET_R1(___STK(-6)) | |
| ___SET_R0(___LBL(14)) | |
| ___ADJFP(-4) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),11,___G_map) | |
| ___DEF_SLBL(14,___L14_eval_2d_string) | |
| ___SET_R0(___STK(-3)) | |
| ___POLL(15) | |
| ___DEF_SLBL(15,___L15_eval_2d_string) | |
| ___ADJFP(-4) | |
| ___JUMPGLOSAFE(___SET_NARGS(1),9,___G_write_2d_to_2d_string) | |
| ___DEF_GLBL(___L28_eval_2d_string) | |
| ___SET_STK(1,___R2) | |
| ___SET_R2(___R1) | |
| ___SET_R1(___STK(1)) | |
| ___ADJFP(1) | |
| ___POLL(16) | |
| ___DEF_SLBL(16,___L16_eval_2d_string) | |
| ___ADJFP(-1) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),11,___G_map) | |
| ___DEF_SLBL(17,___L17_eval_2d_string) | |
| ___SET_STK(-4,___R1) | |
| ___SET_R2(___CDR(___STK(-5))) | |
| ___SET_R1(___STK(-6)) | |
| ___SET_R0(___LBL(9)) | |
| ___IF(___NOT(___PAIRP(___R2))) | |
| ___GOTO(___L26_eval_2d_string) | |
| ___END_IF | |
| ___DEF_GLBL(___L29_eval_2d_string) | |
| ___SET_STK(1,___R0) | |
| ___SET_STK(2,___R1) | |
| ___SET_STK(3,___R2) | |
| ___SET_R1(___CAR(___R2)) | |
| ___ADJFP(8) | |
| ___POLL(18) | |
| ___DEF_SLBL(18,___L18_eval_2d_string) | |
| ___SET_R0(___LBL(17)) | |
| ___JUMPGENSAFE(___SET_NARGS(1),___STK(-6)) | |
| ___DEF_GLBL(___L30_eval_2d_string) | |
| ___SET_R2(___CNS(0)) | |
| ___POLL(19) | |
| ___DEF_SLBL(19,___L19_eval_2d_string) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),11,___G_map) | |
| ___DEF_GLBL(___L31_eval_2d_string) | |
| ___SET_R1(___STK(-1)) | |
| ___SET_R2(___CNS(0)) | |
| ___SET_R0(___LBL(11)) | |
| ___ADJFP(4) | |
| ___JUMPGLOSAFE(___SET_NARGS(2),11,___G_map) | |
| ___END_P_SW | |
| ___END_P_COD | |
| ___END_M_SW | |
| ___END_M_COD | |
| ___BEGIN_LBL | |
| ___DEF_LBL_INTRO(___H_foo_23_,"foo#",___REF_FAL,1,0) | |
| ,___DEF_LBL_PROC(___H_foo_23_,0,-1) | |
| ,___DEF_LBL_INTRO(___H_foo_23_0,"foo#0",___REF_FAL,2,0) | |
| ,___DEF_LBL_PROC(___H_foo_23_0,1,-1) | |
| ,___DEF_LBL_RET(___H_foo_23_0,___IFD(___RETN,2,1,0x3L)) | |
| ,___DEF_LBL_INTRO(___H_foo_23_1,"foo#1",___REF_FAL,2,0) | |
| ,___DEF_LBL_PROC(___H_foo_23_1,0,-1) | |
| ,___DEF_LBL_RET(___H_foo_23_1,___IFD(___RETN,1,0,0x1L)) | |
| ,___DEF_LBL_INTRO(___H_catch_2d_all_2d_errors,0,___REF_FAL,4,0) | |
| ,___DEF_LBL_PROC(___H_catch_2d_all_2d_errors,1,-1) | |
| ,___DEF_LBL_RET(___H_catch_2d_all_2d_errors,___IFD(___RETI,1,4,0x3f0L)) | |
| ,___DEF_LBL_PROC(___H_catch_2d_all_2d_errors,1,-1) | |
| ,___DEF_LBL_RET(___H_catch_2d_all_2d_errors,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_INTRO(___H_write_2d_to_2d_string,0,___REF_FAL,7,0) | |
| ,___DEF_LBL_PROC(___H_write_2d_to_2d_string,1,-1) | |
| ,___DEF_LBL_RET(___H_write_2d_to_2d_string,___IFD(___RETI,1,4,0x3f0L)) | |
| ,___DEF_LBL_RET(___H_write_2d_to_2d_string,___IFD(___RETI,1,4,0x3f0L)) | |
| ,___DEF_LBL_PROC(___H_write_2d_to_2d_string,0,1) | |
| ,___DEF_LBL_RET(___H_write_2d_to_2d_string,___IFD(___RETI,4,0,0x3f1L)) | |
| ,___DEF_LBL_RET(___H_write_2d_to_2d_string,___IFD(___RETN,1,0,0x1L)) | |
| ,___DEF_LBL_RET(___H_write_2d_to_2d_string,___IFD(___RETI,4,4,0x3f0L)) | |
| ,___DEF_LBL_INTRO(___H_read_2d_from_2d_string,0,___REF_FAL,2,0) | |
| ,___DEF_LBL_PROC(___H_read_2d_from_2d_string,1,-1) | |
| ,___DEF_LBL_RET(___H_read_2d_from_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_INTRO(___H_twice,0,___REF_FAL,3,0) | |
| ,___DEF_LBL_PROC(___H_twice,1,-1) | |
| ,___DEF_LBL_RET(___H_twice,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_RET(___H_twice,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_INTRO(___H_eval_2d_string,0,___REF_FAL,20,eval_string) | |
| ,___DEF_LBL_PROC(___H_eval_2d_string,1,-1) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_PROC(___H_eval_2d_string,0,-1) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,4,0,0x3f1L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETN,1,0,0x1L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETN,5,0,0x7L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,8,0,0x3f07L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETN,5,0,0x9L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,1,0,0x3f1L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETN,5,0,0x3L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETN,1,0,0x1L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,4,4,0x3f0L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,1,4,0x3f0L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETN,5,0,0x7L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,8,0,0x3f07L)) | |
| ,___DEF_LBL_RET(___H_eval_2d_string,___IFD(___RETI,0,0,0x3fL)) | |
| ___END_LBL | |
| ___BEGIN_MOD_PRM | |
| ___DEF_MOD_PRM(2,___G_foo_23_,1) | |
| ___DEF_MOD_PRM(3,___G_foo_23_0,3) | |
| ___DEF_MOD_PRM(4,___G_foo_23_1,6) | |
| ___END_MOD_PRM | |
| ___BEGIN_MOD_C_INIT | |
| ___END_MOD_C_INIT | |
| ___BEGIN_MOD_GLO | |
| ___DEF_MOD_GLO(2,___G_foo_23_,1) | |
| ___DEF_MOD_GLO(3,___G_foo_23_0,3) | |
| ___DEF_MOD_GLO(4,___G_foo_23_1,6) | |
| ___END_MOD_GLO | |
| ___BEGIN_MOD_SYM_KEY | |
| ___DEF_MOD_SYM(0,___S_foo,"foo") | |
| ___END_MOD_SYM_KEY | |
| #endif |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment