/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
H A D | vm.h | 328 cstack.prev = Sg_VM()->cstack; \ 330 Sg_VM()->cstack = &cstack; \ 338 if (Sg_VM()->cstack->prev) { \ 339 Sg_VM()->cstack = Sg_VM()->cstack->prev; \ 340 longjmp(Sg_VM()->cstack->jbuf, 1); \ 347 Sg_VM()->cstack = Sg_VM()->cstack->prev; \ 371 SG_EXTERN SgVM* Sg_VM(); /* get vm */
|
H A D | thread.h | 88 SgVM *vm___ = Sg_VM(); \
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
H A D | vm.c | 249 SgVM* Sg_VM() in Sg_VM() function 289 #define Sg_VM() theVM macro 689 SgVM *vm = Sg_VM(); in Sg_ReportErrorInternal() 711 SgVM *vm = Sg_VM(); in vm_dump_code_rec() 790 SgVM *vm = Sg_VM(); in Sg_CurrentOutputPort() 796 SgVM *vm = Sg_VM(); in Sg_CurrentErrorPort() 802 SgVM *vm = Sg_VM(); in Sg_CurrentInputPort() 814 SgVM *vm = Sg_VM(); in Sg_EnableSandbox() 821 SgVM *vm = Sg_VM(); in Sg_DisableSandbox() 1009 SgVM *vm = Sg_VM(); in Sg_VMPushCC() [all …]
|
H A D | load.c | 64 SgVM *vm = Sg_VM(); in Sg_Load() 91 SgVM *vm = Sg_VM(); in Sg_LoadFromPort() 175 SgVM *vm = Sg_VM(); in lock_dlobj() 256 SgVM *vm = Sg_VM(); in load_dlo() 257 if (SG_VM_LOG_LEVEL(Sg_VM(), SG_INFO_LEVEL)) { in load_dlo() 314 SgVM *vm = Sg_VM(); in Sg_DynLoad()
|
H A D | profiler.c | 79 SgVM *vm = Sg_VM(); in sampler_sample() 130 SgVM *vm = Sg_VM(); in Sg_ProfilerStart() 159 SgVM *vm = Sg_VM(); in Sg_ProfilerStop() 170 SgVM *vm = Sg_VM(); in Sg_ProfilerReset() 186 SgVM *vm = Sg_VM(); in Sg_ProfilerRawResult()
|
H A D | error.c | 75 Sg_VMThrowException(Sg_VM(), errObj, FALSE); in Sg_Error() 83 Sg_VMThrowException(Sg_VM(), errObj, FALSE); in Sg_ReadError() 92 Sg_VMThrowException(Sg_VM(), Sg_Condition(SG_LIST2(err, msgC)), FALSE); in Sg_SystemError() 99 Sg_VMThrowException(Sg_VM(), errObj, FALSE); in Sg_SyntaxError() 273 return Sg_VMThrowException(Sg_VM(), condition, continuableP); in Sg_Raise()
|
H A D | lib_vmdebug.stub | 19 (let* ((vm::SgVM* (Sg_VM))) 27 (let* ((vm::SgVM* (Sg_VM)))
|
H A D | lib_vmdebug.c | 58 {SgVM* vm=Sg_VM(); in sagittarius_vm_debug_source_info() 89 {SgVM* vm=Sg_VM(); in sagittarius_vm_debug_source_info_setX()
|
H A D | lib_vm.stub | 170 (let ((vm::SgVM* (Sg_VM))) 286 (result (SG_VM_IS_SET_FLAG (Sg_VM) SG_R6RS_MODE))) 288 (result (== (logand (ashr (-> (Sg_VM) flags) 8) #xFF) 0))) 290 (result (not (SG_VM_IS_SET_FLAG (Sg_VM) SG_ALLOW_OVERWRITE)))) 292 (result (SG_VM_IS_SET_FLAG (Sg_VM) SG_ERROR_UNBOUND))) 454 (result (SG_VM_IS_SET_FLAG (Sg_VM) SG_NO_INLINE_LOCAL))) 457 (result (SG_VM_IS_SET_FLAG (Sg_VM) SG_NO_LAMBDA_LIFT))) 460 (result (SG_VM_IS_SET_FLAG (Sg_VM) SG_NO_LIBRARY_INLINING))) 463 (result (SG_VM_IS_SET_FLAG (Sg_VM) SG_NO_CONST_INLINING))) 471 (let ((vm::SgVM* (Sg_VM))) [all …]
|
H A D | reader.c | 739 SgVM *vm = Sg_VM(); in read_list() 999 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1011 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1061 SG_VM_SET_FLAG(Sg_VM(), SG_DISABLE_CACHE); in Sg_ApplyDirective() 1084 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1093 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1100 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1117 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1129 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() 1175 SgVM *vm = Sg_VM(); in Sg_ApplyDirective() [all …]
|
H A D | core.c | 251 Sg_ImportLibraryFullSpec(Sg_VM()->currentLibrary, sgsym, in Sg_Init() 438 SgVM *vm = Sg_VM(); in finalizable() 531 SgVM *vm = Sg_VM(); in Sg_Cleanup()
|
H A D | library.c | 254 SgVM *vm_ = Sg_VM(); \ 336 return Sg_MakeChildLibrary(Sg_VM(), name); in Sg_MakeEvalLibrary() 592 SgVM *vm = Sg_VM(); in search_library_unsafe() 692 return get_possible_paths(Sg_VM(), SG_CAR(id_version), FALSE); in Sg_SearchLibraryPath() 807 SgVM *vm = Sg_VM(); in Sg_ImportLibraryFullSpec() 1054 return find_binding(Sg_VM()->sandbox, lib, lib, name, callback); in Sg_FindBinding() 1067 SgVM *vm = Sg_VM(); in Sg_InsertSandboxBinding()
|
H A D | genstub | 98 (cgen-init (format " Sg_VM()->currentLibrary = ~a;" 123 (cgen-init " Sg_VM()->currentLibrary = save;"))) 152 "\n SgObject save = Sg_VM()->currentLibrary;\n"
|
H A D | lib_proc.stub | 64 (not (SG_VM_IS_SET_FLAG (Sg_VM) SG_NO_INLINE_ASM)))))
|
H A D | lib_sagittarius.stub | 145 (result (-> (Sg_VM) exceptionHandlers)) 147 (set! (-> (Sg_VM) exceptionHandlers) handler) 220 (result (-> (Sg_VM) loadPath)) 229 (set! (-> (Sg_VM) loadPath) paths) 263 (result (SG_VM_LOG_LEVEL (Sg_VM) f)))) 271 (when (== (-> (Sg_VM) state) IMPORTING) 272 (set! (-> (Sg_VM) flags) 273 (logand (-> (Sg_VM) flags) 343 (result (-> (Sg_VM) parameters)) 345 (set! (-> (Sg_VM) parameters) other) [all …]
|
H A D | cache.c | 362 SgVM *vm = Sg_VM(); \ 408 SgVM *vm = Sg_VM(); in write_cache() 1102 SgVM *vm = Sg_VM(); in Sg_WriteCache() 2203 return read_cache_from_port(Sg_VM(), in); in Sg_ReadCacheFromPort() 2210 return read_cache_from_port(Sg_VM(), in); in Sg_ReadCacheFromImage() 2215 SgVM *vm = Sg_VM(); in Sg_ReadCache() 2331 SG_VM_SET_FLAG(Sg_VM(), SG_DISABLE_CACHE); in Sg__InitCache()
|
H A D | lib_vm.c | 1205 {SgVM* vm=Sg_VM(); in sagittarius_vm_vm_current_library() 2089 SG_RESULT=(SG_VM_IS_SET_FLAG(Sg_VM(),SG_R6RS_MODE)); in sagittarius_vm_vm_r6rs_modeP() 2107 SG_RESULT=(((((Sg_VM())->flags)>>(8))&(255))==(0)); in sagittarius_vm_vm_core_modeP() 2125 SG_RESULT=((!(SG_VM_IS_SET_FLAG(Sg_VM(),SG_ALLOW_OVERWRITE)))); in sagittarius_vm_vm_no_overwriteP() 2143 SG_RESULT=(SG_VM_IS_SET_FLAG(Sg_VM(),SG_ERROR_UNBOUND)); in sagittarius_vm_vm_error_unboundP() 2570 SG_RESULT=(SG_VM_IS_SET_FLAG(Sg_VM(),SG_NO_INLINE_LOCAL)); in sagittarius_vm_vm_noinline_localsP() 2588 SG_RESULT=(SG_VM_IS_SET_FLAG(Sg_VM(),SG_NO_LAMBDA_LIFT)); in sagittarius_vm_vm_nolambda_liftingP() 2606 SG_RESULT=(SG_VM_IS_SET_FLAG(Sg_VM(),SG_NO_LIBRARY_INLINING)); in sagittarius_vm_vm_nolibrary_inliningP() 2624 SG_RESULT=(SG_VM_IS_SET_FLAG(Sg_VM(),SG_NO_CONST_INLINING)); in sagittarius_vm_vm_noconstant_inliningP() 2692 {SgVM* vm=Sg_VM(); in sagittarius_vm_vm_warn() [all …]
|
H A D | lib_arith.c | 520 SgObject save = Sg_VM()->currentLibrary; in Sg__Init_core_arithmetic() 778 Sg_VM()->currentLibrary = sg__rc_cgen14520.d14528[0]; in Sg__Init_core_arithmetic() 780 Sg_VM()->currentLibrary = save; in Sg__Init_core_arithmetic()
|
H A D | compiler-aux.c | 243 SgObject save = Sg_VM()->currentLibrary; in Sg__Init_sagittarius_compiler_util() 627 Sg_VM()->currentLibrary = sg__rc_cgen8820.d8844[0]; in Sg__Init_sagittarius_compiler_util() 629 Sg_VM()->currentLibrary = save; in Sg__Init_sagittarius_compiler_util()
|
H A D | lib_proc.c | 276 (!(SG_VM_IS_SET_FLAG(Sg_VM(),SG_NO_INLINE_ASM))))); in sagittarius_compiler_procedure_inlineP()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/threads/ |
H A D | threads.c | 46 SgVM *current = Sg_VM(), *vm; in Sg_MakeThread() 194 SgVM *vm = Sg_VM(); in Sg_ThreadSuspend() 242 } else if (target->inspector != Sg_VM() && in Sg_ThreadResume() 278 SgObject e = Sg_MakeThreadInterruptException(Sg_VM()); in Sg_ThreadSleep() 303 SgVM *vm = Sg_VM(); in Sg_ThreadTerminate() 338 SgVM *vm = Sg_VM(); in Sg_ThreadInterrupt()
|
H A D | threads_stub.stub | 60 (define-c-proc current-thread () :no-side-effect Sg_VM) 101 ((SG_UNBOUNDP thread) (set! owner (Sg_VM)))
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/win/ |
H A D | thread.c | 227 SgVM *vm = Sg_VM(); 243 SgVM *vm = Sg_VM(); 351 SgVM *vm = Sg_VM(); in cancel_self() 368 HANDLE selfH = Sg_VM()->thread.thread; in Sg_TerminateThread()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/os/posix/ |
H A D | thread.c | 156 SgVM *vm = Sg_VM(); in ignore_handler()
|
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/ |
H A D | sagittarius-socket.h | 183 SgVM *vm = Sg_VM(); \
|