/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/ |
H A D | pros2fs.c | 50 ? SHARP_F 77 ? SHARP_F 95 PRIMITIVE_RETURN (SHARP_F); 116 PRIMITIVE_RETURN (SHARP_F); 128 ? SHARP_F 141 ? SHARP_F 172 if (atime != SHARP_F) 182 if (mtime != SHARP_F) 226 PRIMITIVE_RETURN (SHARP_F); 231 : SHARP_F)); [all …]
|
H A D | mul.c | 67 : SHARP_F); in Mul() 90 : SHARP_F); in Mul() 105 #if (SHARP_F != 0) || (TC_FIXNUM != 0x1A) 221 return (SHARP_F); in Mul() 226 return (SHARP_F); in Mul() 229 return (SHARP_F); in Mul() 238 return (SHARP_F); in Mul()
|
H A D | utabmd.c | 85 SCHEME_OBJECT v = (make_vector (IDENTITY_LENGTH, SHARP_F, true)); in make_microcode_identification_vector() 86 VECTOR_SET (v, ID_RELEASE, SHARP_F); in make_microcode_identification_vector() 138 fixed_objects = (make_vector (N_FIXED_OBJECTS, SHARP_F, false)); in initialize_fixed_objects_vector() 145 STORE_FIXOBJ (SYSTEM_ERROR_VECTOR, SHARP_F); in initialize_fixed_objects_vector() 177 STORE_FIXOBJ (GENERIC_TRAMPOLINE_DIVIDE, SHARP_F); in initialize_fixed_objects_vector() 178 STORE_FIXOBJ (GENERIC_TRAMPOLINE_QUOTIENT, SHARP_F); in initialize_fixed_objects_vector() 179 STORE_FIXOBJ (GENERIC_TRAMPOLINE_REMAINDER, SHARP_F); in initialize_fixed_objects_vector() 180 STORE_FIXOBJ (GENERIC_TRAMPOLINE_MODULO, SHARP_F); in initialize_fixed_objects_vector() 217 ? SHARP_F in names_to_vector()
|
H A D | utils.c | 236 SET_PRIMITIVE (SHARP_F); in canonicalize_primitive_context() 255 SET_PRIMITIVE (SHARP_F); in back_out_of_primitive() 256 SET_EXP (SHARP_F); in back_out_of_primitive() 260 SET_VAL (SHARP_F); in back_out_of_primitive() 650 (Free[RIB_EXP]) = SHARP_F; in make_dummy_history() 651 (Free[RIB_ENV]) = SHARP_F; in make_dummy_history() 697 if (new_hist == SHARP_F) in restore_history() 788 return (SHARP_F); in copy_history() 800 return (SHARP_F); in copy_history() 823 return (SHARP_F); in copy_history() [all …]
|
H A D | pruxfs.c | 55 : SHARP_F); 64 PRIMITIVE_RETURN (SHARP_F); 74 : SHARP_F); 84 : SHARP_F); 94 : SHARP_F); 104 : SHARP_F); 153 : SHARP_F); \ 185 VECTOR_SET (result, 0, SHARP_F); in FILE_ATTRIBUTES_PRIMITIVE()
|
H A D | gcloop.c | 826 return (SHARP_F); in weak_referent_forward() 836 return (SHARP_F); in weak_referent_forward() 841 return (SHARP_F); in weak_referent_forward() 1039 if (new_key == SHARP_F) in update_ephemerons() 1042 ephemeron_list = SHARP_F; in update_ephemerons() 1173 if ((gc_object_references != SHARP_F) in debug_transport_one_word() 1185 if (gc_object_references != SHARP_F) in initialize_gc_object_references() 1203 (*scan++) = SHARP_F; in initialize_gc_object_references() 1213 if (gc_object_references != SHARP_F) in finalize_gc_object_references() 1238 gc_object_references = SHARP_F; in finalize_gc_object_references() [all …]
|
H A D | pruxenv.c | 64 ? SHARP_F 77 ? SHARP_F 90 ? SHARP_F 163 ? SHARP_F 189 ? SHARP_F 253 PRIMITIVE_RETURN (SHARP_F);
|
H A D | prosfs.c | 40 ? SHARP_F \ 55 ? SHARP_F 74 ? SHARP_F 90 ? SHARP_F 104 ? SHARP_F 193 if ((ARG_REF (3)) != SHARP_F)
|
H A D | pruxsock.c | 105 PRIMITIVE_RETURN ((result < 0) ? SHARP_F : (long_to_integer (result))); 139 PRIMITIVE_RETURN (SHARP_F); 165 PRIMITIVE_RETURN (SHARP_F); 181 PRIMITIVE_RETURN (SHARP_F); 197 PRIMITIVE_RETURN (SHARP_F); 336 void * peer_host = (((ARG_REF (2)) == SHARP_F) ? 0 : (arg_host (2))); 340 PRIMITIVE_RETURN (SHARP_F);
|
H A D | rgxprim.c | 48 (((object) == SHARP_F) || \ 56 if ((vector) != SHARP_F) \ 68 ? SHARP_F \ 75 ? SHARP_F \ 82 PRIMITIVE_RETURN (SHARP_F); \ 166 (((ARG_REF (4)) == SHARP_F) ? NULL : (& registers)), \ 222 (((ARG_REF (4)) == SHARP_F) ? NULL : (& registers)), \
|
H A D | uxtrap.c | 164 if (GET_PRIMITIVE != SHARP_F) in soft_reset() 169 (trinfo . extra_trap_info) = SHARP_F; in soft_reset() 174 (trinfo . pc_info_1) = SHARP_F; in soft_reset() 175 (trinfo . pc_info_2) = SHARP_F; in soft_reset() 527 SHARP_F, 528 SHARP_F, 529 SHARP_F 573 : SHARP_F); in setup_trap_frame() 584 : SHARP_F); in setup_trap_frame() 596 SET_EXP (SHARP_F); in setup_trap_frame() [all …]
|
H A D | pruxffi.c | 477 if (c_call_continue == SHARP_F) in callout_seal() 609 static SCM return_to_c = SHARP_F; 620 if (run_callback == SHARP_F) in callback_run_kernel() 624 if (run_callback == SHARP_F || return_to_c == SHARP_F) in callback_run_kernel() 702 SET_EXP (SHARP_F); 895 if (arg == SHARP_F) in pointer_to_scm() 905 return (SHARP_F); in pointer_to_scm() 916 if (arg == SHARP_F) in struct_to_scm() 926 return (SHARP_F); in struct_to_scm() 941 (*Free++) = SHARP_F; in cons_alien() [all …]
|
H A D | prntenv.c | 44 PRIMITIVE_RETURN (SHARP_F); 61 ? SHARP_F 167 SET_PAIR_CDR ((ARG_REF (3)), SHARP_F); 317 PRIMITIVE_RETURN (SHARP_F); 365 if ((ARG_REF (4)) != SHARP_F) 371 = (((ARG_REF (4)) == SHARP_F) 381 (((ARG_REF (4)) == SHARP_F) 386 PRIMITIVE_RETURN (SHARP_F); 410 PRIMITIVE_RETURN (SHARP_F); 439 PRIMITIVE_RETURN (SHARP_F);
|
H A D | tterm.c | 106 PRIMITIVE_RETURN ((result < 0) ? SHARP_F : (long_to_integer (result))); 122 ? SHARP_F 181 BC = (((ARG_REF (4)) == SHARP_F) ? 0 : (STRING_ARG (4))); 182 UP = (((ARG_REF (5)) == SHARP_F) ? 0 : (STRING_ARG (5))); 201 PC = (((ARG_REF (4)) == SHARP_F) ? '\0' : ((STRING_ARG (4)) [0]));
|
H A D | prosio.c | 94 PRIMITIVE_RETURN (SHARP_F); 148 PRIMITIVE_RETURN (SHARP_F); 151 PRIMITIVE_RETURN (SHARP_F); 171 PRIMITIVE_RETURN ((nread < 0) ? SHARP_F : (long_to_integer (nread))); 189 PRIMITIVE_RETURN ((nwritten < 0) ? SHARP_F : (long_to_integer (nwritten))); 230 SCHEME_OBJECT result = (cons (SHARP_F, SHARP_F));
|
H A D | lookup.c | 294 (*value_ret) = SHARP_F; in variable_unassigned_p() 317 (*value_ret) = SHARP_F; in variable_unbound_p() 340 (*value_ret) = SHARP_F; in variable_unreferenceable_p() 488 : SHARP_F); in define_variable() 496 + ((old_cache != SHARP_F) in define_variable() 507 ((old_cache != SHARP_F) in define_variable() 670 (*value_ret) = SHARP_F; in unbind_variable() 686 (*value_ret) = SHARP_F; in unbind_variable() 808 return (SHARP_F); in compiler_var_error() 841 (*value_ret) = SHARP_F; in compiler_unassigned_p_trap() [all …]
|
H A D | memmag.c | 291 if (daemon == SHARP_F) 358 ephemeron_array = (make_vector (length, SHARP_F, false)); in std_gc_pt2() 392 if (! ((collector == SHARP_F) 464 ephemeron_array = (make_vector (length, SHARP_F, false)); in guarantee_extra_ephemeron_space() 490 ephemeron_array = (make_vector (length, SHARP_F, false)); 497 (*Free++) = SHARP_F; /* list */ 498 (*Free++) = SHARP_F; /* queue */
|
H A D | comutl.c | 184 PRIMITIVE_RETURN ((name == 0) ? SHARP_F : (char_pointer_to_string (name))); 193 PRIMITIVE_RETURN ((name == 0) ? SHARP_F : (char_pointer_to_string (name))); 205 PRIMITIVE_RETURN (SHARP_F); 278 ? SHARP_F 282 ? SHARP_F 286 ? SHARP_F
|
H A D | ntgui.c | 255 if (thing==SHARP_F) in scheme_object_to_windows_object() 320 result = SHARP_F; 363 if (general_scheme_wndproc == SHARP_F) in C_to_Scheme_WndProc_2() 414 if (object == SHARP_F) in arg_ulong_default() 863 PRIMITIVE_RETURN (SHARP_F); 865 if (sevent != SHARP_F) 926 result = SHARP_F; in parse_event() 1134 PRIMITIVE_RETURN ( rc ? SHARP_T : SHARP_F); 1146 ? SHARP_T : SHARP_F); 1158 ? SHARP_T : SHARP_F); [all …]
|
H A D | prosenv.c | 71 ? SHARP_F \ 76 ? SHARP_F \ 204 if (((ARG_REF (1)) == SHARP_F) && ((ARG_REF (2)) == SHARP_F)) 238 ? SHARP_F
|
H A D | nttterm.c | 75 BC = (((ARG_REF (4)) == SHARP_F) ? 0 : (STRING_ARG (4))); 76 UP = (((ARG_REF (5)) == SHARP_F) ? 0 : (STRING_ARG (5))); 88 PC = (((ARG_REF (4)) == SHARP_F) ? '\0' : ((STRING_ARG (4)) [0]));
|
H A D | pros2pm.c | 235 SCHEME_OBJECT p = (cons (SHARP_F, SHARP_F)); 256 SCHEME_OBJECT p = (cons (SHARP_F, SHARP_F)); 270 SCHEME_OBJECT p = (cons (SHARP_F, SHARP_F)); 512 return (SHARP_F); in convert_font_metrics() 772 result = SHARP_F; 835 PRIMITIVE_RETURN (SHARP_F); 917 (((ARG_REF (2)) == SHARP_F) 921 PRIMITIVE_RETURN (SHARP_F); 1022 SCHEME_OBJECT result = SHARP_F; 1164 if (result != SHARP_F) [all …]
|
H A D | pruxio.c | 50 if ((ARG_REF (arg)) == SHARP_F) \ 96 = (((ARG_REF (3)) == SHARP_F) ? 0 : (string_vector_arg (3))); 98 = (((ARG_REF (4)) == SHARP_F) ? 0 : (STRING_ARG (4))); 108 if ((ARG_REF (5)) == SHARP_F)
|
H A D | interp.c | 95 SET_EXP (SHARP_F); \ 102 SET_EXP (SHARP_F); \ 147 #define PROCEED_AFTER_PRIMITIVE() SET_PRIMITIVE (SHARP_F) 389 && ((FETCH_EVAL_TRAPPER ()) != SHARP_F)) in Interpret() 565 && ((FETCH_RETURN_TRAPPER ()) != SHARP_F)) in Interpret() 671 ((GET_VAL == SHARP_F) ? COND_ALTERNATIVE : COND_CONSEQUENT); in Interpret() 677 if (GET_VAL != SHARP_F) in Interpret() 790 SCHEME_OBJECT handler = SHARP_F; in Interpret() 794 if (handler == SHARP_F) in Interpret() 835 && ((FETCH_APPLY_TRAPPER ()) != SHARP_F)) in Interpret() [all …]
|
/dports/lang/mit-scheme/mit-scheme-9.2/src/pcsample/ |
H A D | pcscobl.c | 201 Set_Fixed_Obj_Slot (PC_Sample_PCB_Block_Buffer, SHARP_F); \ 202 Set_Fixed_Obj_Slot (PC_Sample_PCB_Offset_Buffer, SHARP_F); \ 203 PCBPB_buffer = SHARP_F ; \ 204 PCBPB_buffer_aux = SHARP_F ; \ 224 Set_Fixed_Obj_Slot (PC_Sample_HCB_Block_Buffer, SHARP_F); \ 225 Set_Fixed_Obj_Slot (PC_Sample_HCB_Offset_Buffer, SHARP_F); \ 226 HCBPB_buffer = SHARP_F ; \ 227 HCBPB_buffer_aux = SHARP_F ; \
|