DIRECTORYAMBridge USING[WordSequence, RemotePD, RemoteGlobalFrameHandle, RemoteFrameHandle, RemoteRef, RemoteSED, RemotePointer],AMTypes USING[TypedVariable],BcdDefs USING[BcdBase],LoadState USING[ModuleIndex],PrincOps USING[GlobalFrame, Frame, SignalDesc, EPRange, BytePC],Rope USING[ROPE],SafeStorage USING[Type],RTCommon USING[Field],RTSymbolDefs USING[SymbolTableBase, BodyIndex, CallableBodyIndex],WorldVM USING[World, Incarnation];RTTypesRemotePrivate: DEFINITIONS= BEGIN OPEN AMBridge, RTSymbolDefs, WorldVM;RemoteError: ERROR[type: RemoteErrorType, message: LONG POINTER TO TEXT _ NIL];RemoteErrorType: TYPE = {addressFault, invalidFrame};EVRange: TYPE = [0..4*PrincOps.EPRange);RemoteTypeToLocal: PROC[world: World, remoteType: CARDINAL]RETURNS[type: SafeStorage.Type];UnwindRemoteIndirectProcDesc: PROC[pd: RemotePD] RETURNS[RemotePD];AcquireCBTHandleFromRemotePD: PROC[pd: RemotePD]RETURNS[stb: SymbolTableBase, cbti: CallableBodyIndex];AcquireSTBFromRemoteGFH: PROC[gfh: RemoteGlobalFrameHandle]RETURNS[stb: SymbolTableBase];GetRemoteGFHeader: PROC[gfh: RemoteGlobalFrameHandle]RETURNS[REF PrincOps.GlobalFrame];GetRemoteFrameHeader: PROC[fh: RemoteFrameHandle] RETURNS[REF PrincOps.Frame];GetRemoteWords: PROC[remotePointer: RemotePointer, nWords: NAT]RETURNS[AMBridge.WordSequence];GetRemoteWord: PROC[remotePointer: RemotePointer] RETURNS[WORD];GetRemoteLC: PROC[remotePointer: RemotePointer] RETURNS[LONG CARDINAL];RemoteStoreWords: PROC[from: LONG POINTER, to: RemotePointer, nWords: NAT];RemoteStoreWord: PROC[to: RemotePointer, value: CARDINAL];RemoteStoreDoubleWord: PROC[to: RemotePointer, value: LONG CARDINAL];RemoteStoreFieldLong: PROC[ptr: RemotePointer,field: RTCommon.Field,value: LONG CARDINAL];ValidateRemoteFrame: PROC[remoteFH: RemoteFrameHandle];GetRemoteReferentType: PROC[remoteRef: RemoteRef]RETURNS[SafeStorage.Type--valid locally--];GetRemoteProcedureType: PROC[remotePD: RemotePD]RETURNS[SafeStorage.Type--valid locally--];GetRemoteSignalType: PROC[remoteSED: RemoteSED]RETURNS[SafeStorage.Type--valid locally--];IsRemoteCatchFrame: PROC[remoteFrameHandle: RemoteFrameHandle, bti: BodyIndex]RETURNS[isCatchFrame: BOOLEAN _ TRUE, revBti: BodyIndex];AcquireBTIFromRemoteFH: PROC[remoteFrameHandle: RemoteFrameHandle, contextPC: BOOL]RETURNS[bti: BodyIndex];RemotePDToName: PROC[pd: RemotePD] RETURNS[Rope.ROPE];RemoteSEDToName: PROC[sed: RemoteSED] RETURNS[Rope.ROPE];RemoteGFHToName: PROC[gfh: RemoteGlobalFrameHandle]RETURNS[Rope.ROPE];ValidateRemoteRef: PROC [ref: RemoteRef];RemoteSignalValues: PROC[tv: AMTypes.TypedVariable--catch Frame--]RETURNS [message: CARDINAL, signal: PrincOps.SignalDesc, world: World];AcquireRemoteBCDAndModule: PROC[gfh: RemoteGlobalFrameHandle]RETURNS[BcdDefs.BcdBase, LoadState.ModuleIndex];AcquireRemoteBCD:PROC[world: World, incarnation: Incarnation, bcd: BcdDefs.BcdBase--remote--]RETURNS[mappedBCD: BcdDefs.BcdBase--local--];ReleaseRemoteBCD: PROC[bcd: BcdDefs.BcdBase];GetRemoteEp: PROC[pc: PrincOps.BytePC,gf: RemoteGlobalFrameHandle,stb: SymbolTableBase]RETURNS[ep: EVRange, start: PrincOps.BytePC];GetRemotePc: PROC[gf: RemoteGlobalFrameHandle, i: EVRange] RETURNS [PrincOps.BytePC];END.    ü  RTTypesRemotePrivate.Mesalast modified on July 7, 1983 3:04 pm by Paul RovnerS I G N A L ST Y P E SP R O C E D U R E SThis really ought to be in AMBridge.raises InvalidRef if ref does not point to the top of a valid object, else returns.Êu  –"cedar" style˜ Iprocšœ™Kšœ4™4K˜ šÏk	˜	Kšœ	œj˜xKšœœ˜Kšœœ
˜Kšœ
œ˜Kšœ	œ2˜@Kšœœœ˜Kšœœ˜Kšœ	œ˜Kšœœ0˜BKšœœ˜"—K˜ Kšœ˜!Kšœœœ!˜-K˜ šœ™Kšœœ!œœœœœ˜OKšœœ ˜5—K™ šœ	™	Kšœ	œ˜(—K™ Kšœ™Kšœ$™$šÏnœœœ˜;Kšœ˜ —K˜ Kšžœœœ˜CK˜ šžœœ˜0Kšœ0˜7—K˜ šžœœ˜;Kšœ˜—K˜ šžœœ˜5Kšœœ˜"—K˜ Kšžœœœœ˜NK˜ šžœœ'œ˜?Kšœ˜—K˜ Kšžœœœœ˜@K˜ Kš
žœœœœœ˜GK˜ Kš
žœœœœœ˜KK˜ Kšžœœœ˜:K˜ Kšžœœœœ˜EK˜ šžœœ˜Kšœ˜Kšœ˜Kšœœ˜Kšœ˜—K˜ Kšžœœ˜7K˜ šžœœ˜1KšœÏcœ˜+—K˜ šžœœ˜0KšœŸœ˜+—K˜ šžœœ˜/KšœŸœ˜+—K˜ šžœœ6˜NKšœœœ˜9—K˜ šžœœ2œ˜SKšœ˜—K˜ Kšžœœœœ˜6K˜ Kšžœœœœ˜9K˜ šžœœ˜3Kšœœ˜—K˜ šžœœ˜)KšœS™S—K˜ šžœœŸœ˜BKšœœ-˜G—K˜ šžœœ˜=Kšœ)˜0—K˜ šžœ˜Kšœ=Ÿ
œ˜LKšœŸ	œ˜-—K˜ Kšžœœ˜-K˜ šžœœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ˜Kšœ&˜-—K˜ Kšžœœ*œ˜UK˜ Kšœ˜K˜ — …—    Æ  7  