DIRECTORY
BreakWorldArchitecture,
SPARCArchitecture,
TargetArchitecture,
SPARCBreakWorldUtilities;

SPARCBreakWorldUtilitiesImpl: CEDAR PROGRAM
IMPORTS BreakWorldArchitecture, SPARCArchitecture, TargetArchitecture
EXPORTS SPARCBreakWorldUtilities
~ {

SPARCInstructionFromBreakWorldAddress: PUBLIC PROCEDURE [
address: BreakWorldArchitecture.Address,
displacement: TargetArchitecture.Displacement _ TargetArchitecture.nullDisplacement] 
RETURNS [SPARCArchitecture.SPARCInstruction] ~ {
IF address.IsNullAddress[] THEN {
ERROR BreakWorldArchitecture.Cant[
code: $NullAddress, message: "SPARCInstructionFromBreakWorldAddress[nullAddress]"];
};
{
instruction: SPARCArchitecture.SPARCInstruction ~ 
SPARCArchitecture.SPARCInstructionFromTargetInstruction[
instruction: BreakWorldArchitecture.PeekInstruction[
pc: address, displacement: displacement]];

RETURN [instruction];
};
};

SPARCAddressFromBreakWorldAddress: PUBLIC PROCEDURE [
address: BreakWorldArchitecture.Address,
displacement: TargetArchitecture.Displacement _ TargetArchitecture.nullDisplacement] 
RETURNS [SPARCArchitecture.SPARCAddress] ~ {
IF address.IsNullAddress[] THEN {
ERROR BreakWorldArchitecture.Cant[
code: $NullAddress, message: "SPARCInstructionFromBreakWorldAddress[nullAddress]"];
};
{
targetAddress: TargetArchitecture.Address ~ TargetArchitecture.AddressFromDisplacement[
address: BreakWorldArchitecture.TargetAddressFromBreakWorldAddress[address: address], 
displacement: displacement];
sparcAddress: SPARCArchitecture.SPARCAddress ~ 
SPARCArchitecture.SPARCAddressFromTargetAddress[
address: targetAddress];

RETURN [sparcAddress];
};
};

}.


   ک  
SPARCBreakWorldUtilitiesImpl.mesa
Copyright س 1990 by Xerox Corporation.  All rights reserved.
Peter B. Kessler, April 18, 1990 9:06:00 pm PDT

 ‌تµ  –"cedar" style•NewlineDelimiter
™ codeڑœ!™!Kڑœ
دrœ1™<Kڑœ/™/K™ ڑدk	ک	KکKکKڑœکKڑœکKک ——unitڑدnœ‍œ‍ک+Kڑ‍œ>کEKڑ‍œک KڑœکKک ڑں%œ‍œ‍	œ‚‍œ)کéڑ‍œ‍œک!ڑ‍œک"KڑœSکS—Kک—کڑœ2ک2ک8ڑœ4ک4Kڑœ*ک*———Kک Kڑ‍œکKک—KڑœکKک —ڑں!œ‍œ‍	œ‚‍œ%کلڑ‍œ‍œک!ڑ‍œک"KڑœSکS—Kک—ڑœکڑœWکWKڑœVکVKڑœک—ڑœ/ک/ڑœ0ک0Kڑœک——Kک Kڑ‍œکKک—KڑœکKک —KکKک —Jک — …—    X  ¥  