Home
last modified time | relevance | path

Searched refs:Sg_VM (Results 1 – 25 of 48) sorted by relevance

12

/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/
H A Dvm.h328 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 Dthread.h88 SgVM *vm___ = Sg_VM(); \
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/
H A Dvm.c249 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 Dload.c64 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 Dprofiler.c79 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 Derror.c75 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 Dlib_vmdebug.stub19 (let* ((vm::SgVM* (Sg_VM)))
27 (let* ((vm::SgVM* (Sg_VM)))
H A Dlib_vmdebug.c58 {SgVM* vm=Sg_VM(); in sagittarius_vm_debug_source_info()
89 {SgVM* vm=Sg_VM(); in sagittarius_vm_debug_source_info_setX()
H A Dlib_vm.stub170 (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 Dreader.c739 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 Dcore.c251 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 Dlibrary.c254 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 Dgenstub98 (cgen-init (format " Sg_VM()->currentLibrary = ~a;"
123 (cgen-init " Sg_VM()->currentLibrary = save;")))
152 "\n SgObject save = Sg_VM()->currentLibrary;\n"
H A Dlib_proc.stub64 (not (SG_VM_IS_SET_FLAG (Sg_VM) SG_NO_INLINE_ASM)))))
H A Dlib_sagittarius.stub145 (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 Dcache.c362 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 Dlib_vm.c1205 {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 Dlib_arith.c520 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 Dcompiler-aux.c243 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 Dlib_proc.c276 (!(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 Dthreads.c46 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 Dthreads_stub.stub60 (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 Dthread.c227 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 Dthread.c156 SgVM *vm = Sg_VM(); in ignore_handler()
/dports/lang/sagittarius-scheme/sagittarius-0.9.8/ext/socket/
H A Dsagittarius-socket.h183 SgVM *vm = Sg_VM(); \

12