Home
last modified time | relevance | path

Searched refs:SHARP_F (Results 1 – 25 of 90) sorted by relevance

1234

/dports/lang/mit-scheme/mit-scheme-9.2/src/microcode/
H A Dpros2fs.c50 ? 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 Dmul.c67 : 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 Dutabmd.c85 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 Dutils.c236 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 Dpruxfs.c55 : 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 Dgcloop.c826 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 Dpruxenv.c64 ? SHARP_F
77 ? SHARP_F
90 ? SHARP_F
163 ? SHARP_F
189 ? SHARP_F
253 PRIMITIVE_RETURN (SHARP_F);
H A Dprosfs.c40 ? SHARP_F \
55 ? SHARP_F
74 ? SHARP_F
90 ? SHARP_F
104 ? SHARP_F
193 if ((ARG_REF (3)) != SHARP_F)
H A Dpruxsock.c105 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 Drgxprim.c48 (((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 Duxtrap.c164 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 Dpruxffi.c477 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 Dprntenv.c44 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 Dtterm.c106 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 Dprosio.c94 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 Dlookup.c294 (*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 Dmemmag.c291 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 Dcomutl.c184 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 Dntgui.c255 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 Dprosenv.c71 ? SHARP_F \
76 ? SHARP_F \
204 if (((ARG_REF (1)) == SHARP_F) && ((ARG_REF (2)) == SHARP_F))
238 ? SHARP_F
H A Dnttterm.c75 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 Dpros2pm.c235 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 Dpruxio.c50 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 Dinterp.c95 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 Dpcscobl.c201 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 ; \

1234