[_CD4_]<datools7.0>ExprSC25>SCPrivate.mesa!1

SCPrivate.mesa

by Bryan Preas, July 10, 1985 11:48:30 am PDT

Frank Bowers May 21, 1986 5:35:15 pm PDT

last edited by Bryan Preas, April 19, 1987 12:55:45 pm PDT

DIRECTORY

CD, Core, CoreGeometry, DABasics, Rope, Route, RTBasic, RTCoreUtil, RTSets, SC;

SCPrivate: CEDAR DEFINITIONS = {

CompClass: TYPE = {other, logic, io, ft};

DegreeOfConnection: TYPE = {full, min, none};

UpperLowerConnection: TYPE = RECORD [

lower, upper: DegreeOfConnection ← none];

RouteTopology: TYPE = ARRAY MaxChanSr OF UpperLowerConnection;

LRSide: TYPE = DABasics.LRSide;

TBSide: TYPE = DABasics.TBSide;

LRSideSet: TYPE = RTSets.RTSmSet -- OF LRSide -- ;

SideSet: TYPE = RTSets.RTSmSet -- OF ValidSide -- ;

RowSet: TYPE = RTSets.RTMdSet -- OF MaxRowSr -- ;

ChanSet: TYPE = RTSets.RTMdSet -- OF MaxChanSr -- ;

StructureData: TYPE = REF StructureDataRec;

StructureDataRec: TYPE = RECORD [

objects: Objects ← NIL,

instances: Instances ← NIL,

nets: Nets ← NIL];

LayoutData: TYPE = REF LayoutDataRec;

LayoutDataRec: TYPE = RECORD [

totWidth, totHeight, initTotWidth, initTotHeight: SC.Number ← 0,

bpRows: BpRows ← NIL,

lgRows: LgRows ← NIL,

sideChans: SideChans ← [NIL, NIL],

rowChans: RowChans ← NIL,

powerBuses: PowerBuses ← [NIL, NIL],

layoutParms: LayoutParms,

placeDat: REF ANY ← NIL,

globalRoute: REF ANY ← NIL];

Parms: TYPE = REF ParmsRec;

ParmsRec: TYPE = RECORD [

libName: Rope.ROPE ← NIL,

libDesign: CD.Design ← NIL,

ftObject, portObject, vddObject, gndObject: Object ← NIL];

LayoutParms: TYPE = REF LayoutParmsRec;

LayoutParmsRec: TYPE = RECORD [

whichFom: FomType ← wlFom,

useInteriorChanExits: BOOLEAN ← TRUE,

rowDirection: SC.Direction ← horizontal,

powerName: ARRAY LRSide OF Rope.ROPE];

maxObjects: NAT = 100;

maxPinsOnObject: NAT = 100;

MaxObjectsSr: TYPE = NAT[1 .. maxObjects]; -- Object definitions

ZMaxObjectsSr: TYPE = NAT[0 .. maxObjects]; -- Object definitions

Objects: TYPE = REF ObjectsRec;

ObjectsRec: TYPE = RECORD [

ob: ARRAY MaxObjectsSr OF Object ← ALL[NIL]];

Object: TYPE = REF ObjectRec;

ObjectRec: TYPE = RECORD [

objectNum: MaxObjectsSr,

size, orgin: RTBasic.PQPos ← [0, 0],

numPins: NAT ← 0,

pins: ObjectPins ← NIL,

typeClass: CompClass ← other,

numTimesUsed: NAT ← 0,

cdOb: CD.Object ← NIL,

cellType: Core.CellType ← NIL];

ObjectPin: TYPE = REF ObjectPinRec;

ObjectPins: TYPE = REF ObjectPinsRec;

ObjectPinsRec: TYPE = RECORD [

p: SEQUENCE size: NAT OF ObjectPin];

ObjectPinRec: TYPE = RECORD [

pinPos: PinPos,

publicWire: Core.Wire,

rect: SC.Rect ← [0, 0, 0, 0],

layer: SC.Layer,

equivClass: Rope.ROPE ← NIL];

PinPos: TYPE = RECORD [

side: SC.SideOrNone ← none,

depth, location: SC.Number ← 0];

bonding pad and logic component types

maxInstance: NAT = 12000;

MaxInstanceSr: TYPE = NAT[1 .. maxInstance];

ZMaxInstanceSr: TYPE = NAT[0 .. maxInstance];

Instance: TYPE = REF InstanceRec;

InstanceList: TYPE = LIST OF Instance;

Instances: TYPE = REF InstancesRec;

InstancesRec: TYPE = RECORD [

count, numIOs, numLogics, numFts: ZMaxInstanceSr ← 0,

inst: Insts ← NIL];

Insts: TYPE = REF InstsOb;

InstsOb: TYPE = ARRAY MaxInstanceSr OF Instance ← ALL[NIL];

InstanceRec: TYPE = RECORD [

num: MaxInstanceSr,

object: Object ← NIL,

pinNets: PinNets ← NIL,

prePos, curPos, initPos, fnlPos: INT ← 0,

preOrien, curOrien, initOrien, fnlOrien: OrientationOrNone ← 0,

offset: SC.Number ← 0,

whichClass: CompClass,

ftNet: Net ← NIL,

equivPortClass: Rope.ROPE ← NIL,

instDat: REF ANY ← NIL,

compClassSel: SELECT OVERLAID CompClass FROM

ft, logic => [

preRow, curRow, initRow, fnlRow: ZMaxRowSr ← 0],

ftNet: Net ← NIL],

io => [

preSide, curSide, initSide, fnlSide: SC.SideOrNone ← none],

equivPortClass: Rope.ROPE ← NIL],

ENDCASE];

OrientationOrNone: TYPE = NAT[0 .. maxOrien];

Orientation: TYPE = OrientationOrNone[1 .. maxOrien];

maxOrien: NAT = 8;

PinNets: TYPE = REF PinNetsRec;

PinNetsRec: TYPE = RECORD[n: SEQUENCE size: NAT OF PinNet];

PinNet: TYPE = REF PinNetRec;

PinNetRec: TYPE = RECORD [

pin: ObjectPin ← NIL,

pinInChan: REF ANY ← NIL, -- SCNewRoutePinsUtil.PinInChan

net: Net ← NIL];

interconnection net types

PinType: TYPE = {compPin, externalPin, ftPin};

maxNets: NAT = 8000;

MaxNetsSr: TYPE = NAT[1 .. maxNets];

ZMaxNetsSr: TYPE = NAT[0 .. maxNets];

Net: TYPE = REF NetRec;

NetList: TYPE = LIST OF Net;

Nets: TYPE = REF NetsRec;

NetsRec: TYPE = RECORD [

nets: NetArrayRef];

NetArray: TYPE = ARRAY MaxNetsSr OF Net ← ALL[NIL];

NetArrayRef: TYPE = REF NetArray;

NetRec: TYPE = RECORD [

wire: Core.Wire ← NIL, -- Core wire corresponding to this net

num: MaxNetsSr,

numberOfRegions: INT ← 0, -- records number of breaks for this net

brokenNets: LIST OF Route.Label ← NIL, -- records names of broken nets

trunkWidth, branchWidth: SC.Number ← 0,

score, oldScore: REAL ← 0.0, -- current and previous placement score

updatedOnTrial: INT ← 0, -- placement trial last updated

externNet: ExtNet ← internalNet,

ftsOnRow: RowSet, -- rows which have ft's on this net

chanExits: ARRAY LRSide OF ChanSet,

routeTopology: RouteTopology, -- global routing

netDat: REF ANY ← NIL,

segsInChan: LIST OF REF ANY ← NIL, -- global route information for a channel

pins: NetPinSeq ← NIL, -- sequence of instance/pins on net

pinList: REF ANY ← NIL, -- pins for net in global routing (LIST OF SCNewRoutePinsUtil.PinInChan)

edgeList: REF ANY ← NIL -- edges for net in global routing (SCNewGlobalRoute.EdgeList)

];

ExtNet: TYPE = {externalNet, internalNet};

NetPinSeq: TYPE = REF NetPinSeqRec;

NetPinSeqRec: TYPE = RECORD [

np: SEQUENCE size: NAT OF NetPin];

NetPin: TYPE = REF NetPinRec;

NetPinRec: TYPE = RECORD [

pinClass: PinType ← compPin,

instance: Instance ← NIL,

pin: ObjectPin ← NIL

];

maxPos: NAT = 1000;

MaxPosSr: TYPE = NAT[1 .. maxPos];

ZMaxPosSr: TYPE = NAT[0 .. maxPos];

bonding pad side and logic row types

BpRow: TYPE = REF BpRowRec;

BpRows: TYPE = REF BpRowsRec;

BpRowsRec: TYPE = ARRAY SC.Side OF BpRow ← ALL[NIL];

BpRowRec: TYPE = RECORD [

bpSpacing: INT ← 0,

size, sideOrg: RTBasic.PQPos ← [0, 0],

dimInvalid: BOOLEAN ← TRUE,

initMaxBpsOnSide, maxBpsOnSide, nBpsOnSide: ZMaxPosSr ← 0,

bpsOnSide: ARRAY MaxPosSr OF Instance ← ALL[NIL],

fnlBpFxd, initBpFxd: BOOLEAN ← FALSE];

maxLgRows: NAT = 50;

MaxRowSr: TYPE = NAT[1 .. maxLgRows];

ZMaxRowSr: TYPE = NAT[0 .. maxLgRows];

LgRow: TYPE = REF LgRowRec;

LgRows: TYPE = REF LgRowsRec;

LgRowsRec: TYPE = RECORD [

horzRowOrg, maxRowWidth: SC.Number ← 0,

numMaxRows: NAT ← 0,

rows: ARRAY MaxRowSr OF LgRow ← ALL[NIL]];

LgRowRec: TYPE = RECORD [

size, rowOrg: RTBasic.PQPos ← [0, 0],

dimInvalid: BOOLEAN ← TRUE,

rowNum: NAT,

nLgsOnRow, nFtsOnRow: ZMaxPosSr ← 0,

lgsOnRow: ARRAY MaxPosSr OF Instance ← ALL[NIL],

fnlLgFxd, initLgFxd: BOOLEAN ← FALSE,

cdOb: CD.Object ← NIL,

publics: PublicPinList ← NIL,

weight: NAT ← 0];

maxChans: NAT = maxLgRows + 1;

MaxChanSr: TYPE = NAT[1 .. maxChans];

ZMaxChanSr: TYPE = NAT[0 .. maxChans];

RowChan: TYPE = REF RowChanRec;

RowChans: TYPE = REF RowChansRec;

RowChansRec: TYPE = RECORD [

chans: ARRAY MaxChanSr OF RowChan ← ALL[NIL]];

RowChanRec: TYPE = RECORD [

chanNum: NAT,

initChanWidth, chanWidth, chanPos, wireLength, chanDensity: SC.Number ← 0,

numTracks: NAT ← 0,

numExits: ARRAY LRSide OF ZMaxExitsSr ← [0, 0],

exits: ExitArray ← NIL,

publics: PublicPinList ← NIL,

chanDat: REF ANY ← NIL

];

ExitArrayOb: TYPE = ARRAY LRSide OF ARRAY MaxExitsSr OF Exit;

ExitArray: TYPE = REF ExitArrayOb;

maxExits: NAT = 100;

MaxExitsSr: TYPE = NAT[1 .. maxExits];

ZMaxExitsSr: TYPE = NAT[0 .. maxExits];

Exit: TYPE = REF ExitRec;

ExitRec: TYPE = RECORD [

net: Net ← NIL,

pinInChan: REF ANY ← NIL, -- SCNewRoutePinsUtil.PinInChan

pos: SC.Number ← 0, -- track number

layer: SC.Layer];

SideChan: TYPE = REF SideChanRec;

SideChans: TYPE = ARRAY LRSide OF SideChan;

SideChanRec: TYPE = RECORD [

side: SC.Side,

initSideChanWidth, sideChanWidth, sideChanPos, wireLength: SC.Number ← 0,

sideChanTracks: NAT ← 0];

used to describe the bower nets

PowerBuses: TYPE = ARRAY LRSide OF PowerBus;

PowerBus: TYPE = REF PowerBusRec;

PowerBusRec: TYPE = RECORD [

net: Net ← NIL];

used for decorating public wires on the input cellType

PublicPinList: TYPE ~ LIST OF PublicPin;

PublicPin: TYPE ~ REF PublicPinRec;

PublicPinRec: TYPE ~ RECORD [

wire: Core.Wire,

object: CD.Object,

trans: CD.Transformation];

FomType: TYPE = {areaFom, wlFom};

GetStructure: PROC [handle: SC.Handle, cellType: Core.CellType,

flattenCellType: RTCoreUtil.FlattenCellTypeProc, decoration: CoreGeometry.Decoration]

RETURNS [done: BOOLEAN];

DestroyStructure: PROC [handle: SC.Handle];

SetUpLayout: PROC [handle: SC.Handle, cellType: Core.CellType]

RETURNS [done: BOOLEAN];

DestroyLayout: PROC [handle: SC.Handle];

DetailRoute: PROC [handle: SC.Handle] RETURNS [result: SC.Result];

PosImprove: PROC [handle: SC.Handle, whichFom: FomType, maxCycles: INT];

improve positions of cells on a row

NewPosImprove: PROCEDURE [handle: SC.Handle, whichFom: SCPrivate.FomType, maxCycles: INT];

NewOrientImprove: PUBLIC PROCEDURE [handle: SC.Handle, whichFom: SCPrivate.FomType, maxCycles: INT];

FTImprove: PROC [handle: SC.Handle, whichFom: FomType, maxCycles: INT];

improve positions of the feedthrus on a row

OrientImprove: PROC [handle: SC.Handle, whichFom: FomType, maxCycles: INT];

SAInitialPlace: PROC [handle: SC.Handle, widthFactor: REAL, seed: INT] RETURNS [initialResult: SC.SAInitialResult];

Initialize for simulated annealing improvement.

SAGetParms: PROC [handle: SC.Handle, initialResult: SC.SAInitialResult, cellType: Core.CellType] RETURNS [saParms: SC.SAParms];

determine parameters for simulated placement.

SAPlaceImprove: PROC [handle: SC.Handle, saParms: SC.SAParms, widthFactor: REAL, seed: INT];

Improve the placement for the instances (in pairs) by simulated annealing.

SAPlaceImproveM: PROC [handle: SC.Handle, saParms: SC.SAParms, widthFactor: REAL, seed: INT];

Improve the placement for the instances (one at a time) by simulated annealing.

PlaceImprove: PROC [handle: SC.Handle, maxCycles: INT];

Improve the placement for the instances by exhaustive search.

SCRandomTest: PUBLIC PROCEDURE [handle: SC.Handle, trials, seed: INT];