void FCPushLit( void ) { //=================== // Process PUSH_LIT F-Code. sym_id sym; sym = GetPtr(); if( sym->lt.flags & (LT_SCB_REQUIRED | LT_SCB_TMP_REFERENCE) ) { XPush( CGBackName( ConstBack( sym ), TY_CHAR ) ); } }
static void Break( RTCODE routine ) { //======================================= // Process PAUSE/STOP statement. call_handle handle; sym_id lit; cg_name arg; handle = InitCall( routine ); lit = GetPtr(); if( lit == NULL ) { arg = CGInteger( 0, TY_LOCAL_POINTER ); } else { arg = CGBackName( ConstBack( lit ), TY_LOCAL_POINTER ); } CGAddParm( handle, arg, TY_LOCAL_POINTER ); CGDone( CGCall( handle ) ); }