SCPrivate:
CEDAR
DEFINITIONS =
BEGIN
Position: TYPE = D2Basic.Pos;
PQPos: TYPE = RTBasic.PQPos;
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 = RTBasic.LRSide;
TBSide: TYPE = RTBasic.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: 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,
numRows: NAT ← 0,
rowDirection: SC.Direction ← horizontal,
unitsPerLam: SC.Number ← 2,
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 [
count: ZMaxObjectsSr ← 0,
ob: ARRAY MaxObjectsSr OF Object ← ALL[NIL]];
Object: TYPE = REF ObjectRec;
ObjectRec:
TYPE =
RECORD [
name: Rope.ROPE ← NIL,
objectNum: MaxObjectsSr,
size, orgin: RTBasic.PQPos ← [0, 0],
numPins: NAT ← 0,
pins: ObjectPins ← NIL,
typeClass: CompClass ← other,
numTimesUsed: NAT ← 0,
cdOb: CD.Object ← NIL];
ObjectPin: TYPE = REF ObjectPinRec;
ObjectPins: TYPE = REF ObjectPinsRec;
ObjectPinsRec:
TYPE =
RECORD [
p: SEQUENCE size: NAT OF ObjectPin];
ObjectPinRec:
TYPE =
RECORD [
name: Rope.ROPE ← NIL,
pinPos: PinPos,
cdPin: CD.Instance ← NIL,
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 = 9000;
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 [
name: Rope.ROPE,
num: MaxInstanceSr,
object: Object ← NIL,
pinNets: PinNets ← NIL,
prePos, curPos, initPos, fnlPos: ZMaxPosSr ← 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];
PinNets: TYPE = REF PinNetsRec;
PinNetsRec: TYPE = RECORD[n: SEQUENCE size: NAT OF PinNet];
PinNet:
TYPE =
RECORD [
pin: ObjectPin ← NIL,
net: Net ← NIL];
interconnection net types
PinType: TYPE = {compPin, externalPin, ftPin};
maxNets: NAT = 5000;
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 [
count: ZMaxNetsSr ← 0,
nets: NetArrayRef];
NetArray: TYPE = ARRAY MaxNetsSr OF Net ← ALL[NIL];
NetArrayRef: TYPE = REF NetArray;
NetRec:
TYPE =
RECORD [
name: Rope.ROPE ← NIL,
wire: Core.Wire ← NIL, -- Core wire corresponding to this net
num: MaxNetsSr,
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,
pins: NetPinSeq ← NIL -- sequence of instance/pins on net
];
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,
count: ZMaxRowSr ← 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];
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 [
count: ZMaxChanSr ← 0,
chans: ARRAY MaxChanSr OF RowChan ← ALL[NIL]];
RowChanRec:
TYPE =
RECORD [
chanNum: NAT,
initChanWidth, chanWidth, minChanWidth, chanResult, chanPos, wireLength: SC.Number ← 0,
numTracks: NAT ← 0,
numExits: ARRAY LRSide OF ZMaxExitsSr ← [0, 0],
exits: ExitArray ← NIL,
exitCells: ARRAY LRSide OF CD.Object ← ALL[NIL],
routing: Route.RoutingResult ← 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 =
RECORD [
net: Net ← NIL,
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, minSideChanWidth, sideChanResult, sideChanPos, wireLength: SC.Number ← 0,
sideChanTracks: NAT ← 0];
PowerBuses: TYPE = ARRAY LRSide OF PowerBus;
PowerBus: TYPE = REF PowerBusRec;
PowerBusRec:
TYPE =
RECORD [
name: Rope.ROPE ← NIL,
net: Net ← NIL,
onSide: LRSide,
fromTB: TBSide ← top,
width: SC.Number ← 0];
FomType: TYPE = {areaFom, wlFom};
GetStructure:
PROC [handle:
SC.Handle, cellType: Core.CellType,
flattenCellType: RTCoreUtil.FlattenCellTypeProc]
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
OrientImprove: PROC [handle: SC.Handle, whichFom: FomType, maxCycles: INT];
SAInitialPlace:
PROC [handle:
SC.Handle, 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, seed:
INT];
Improve the placement for the instances by simulated annealing.
SCRandomTest: PUBLIC PROCEDURE [handle: SC.Handle, trials, seed: INT];
END.