From eac0c91b725a8339ae574bfc6c18ea54ec228baa Mon Sep 17 00:00:00 2001 From: dos-reis Date: Wed, 23 Nov 2011 00:59:15 +0000 Subject: * interp/define.boot (compile): Take the signature as third argument. Adjust callers. (compDefineFunctor1): Do not bind $functionLocations. (compDefineCapsuleFunction): Do not update. * interp/lisplib.boot (transformOperationAlist): Do not consult $functionLocations. --- src/ChangeLog | 9 +++++++++ src/interp/define.boot | 16 +++++++--------- src/interp/lisplib.boot | 11 ++--------- 3 files changed, 18 insertions(+), 18 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index dd1031b7..1efdc2da 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,12 @@ +2011-11-22 Gabriel Dos Reis + + * interp/define.boot (compile): Take the signature as third argument. + Adjust callers. + (compDefineFunctor1): Do not bind $functionLocations. + (compDefineCapsuleFunction): Do not update. + * interp/lisplib.boot (transformOperationAlist): Do not consult + $functionLocations. + 2011-11-22 Gabriel Dos Reis * interp/define.boot (assignCapsuleFunctionSlot): Move from diff --git a/src/interp/define.boot b/src/interp/define.boot index 537a891e..75e356db 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -1107,7 +1107,7 @@ compDefineCategory2(form,signature,body,m,e,$prefix,$formalArgList) == body:= ["%bind",[[g:= gensym(),body]], ['%store,['%tref,g,0],mkConstructor $form],g] - fun := compile(db,[op',["LAM",sargl,body]]) + fun := compile(db,[op',["LAM",sargl,body]],signature') -- 5. give operator a 'modemap property pairlis := pairList(argl,$FormalMapVariableList) @@ -1412,7 +1412,6 @@ compDefineFunctor1(df is ['DEF,form,signature,body], $NRTdeltaList: local := nil --list of misc. elts used in compiled fncts $NRTdeltaListComp: local := nil --list of compiled forms for $NRTdeltaList $NRTdeltaLength: local := 0 -- =length of block of extra entries in vector - $functionLocations: local := nil --locations of defined functions in source -- Generate slots for arguments first, then implicit parameters, -- then for $NRTaddForm (if any) in compAdd for x in argl repeat getLocalIndex x @@ -1453,7 +1452,7 @@ compDefineFunctor1(df is ['DEF,form,signature,body], lamOrSlam := dbInstanceCache db = nil => 'LAM 'SPADSLAM - fun := compile(db,dbSubstituteFormals(db,[op',[lamOrSlam,argl,body']])) + fun := compile(db,dbSubstituteFormals(db,[op',[lamOrSlam,argl,body']]),signature') --The above statement stops substitutions gettting in one another's way operationAlist := dbSubstituteAllQuantified(db,$lisplibOperationAlist) dbModemaps(db) := modemapsFromFunctor(db,parForm,operationAlist) @@ -1765,7 +1764,6 @@ compDefineCapsuleFunction(db,df is ['DEF,form,signature,body], e := giveFormalParametersValues(argl,e) $signatureOfForm:= signature' --this global is bound in compCapsuleItems - $functionLocations := [[[$op,$signatureOfForm]],:$functionLocations] e:= addDomain(signature'.target,e) e:= compArgumentConditions e @@ -1798,7 +1796,7 @@ compDefineCapsuleFunction(db,df is ['DEF,form,signature,body], body':= replaceExitEtc(T.expr,catchTag,"TAGGEDreturn",$returnMode) body':= addArgumentConditions(body',$op) finalBody:= ["CATCH",catchTag,body'] - compile(db,[$op,["LAM",[:argl,'_$],finalBody]]) + compile(db,[$op,["LAM",[:argl,'_$],finalBody]],signature') $functorStats:= addStats($functorStats,$functionStats) --7. give operator a 'value property @@ -1969,7 +1967,7 @@ putInLocalDomainReferences (def := [opName,[lam,varl,body]]) == def -compile(db,u) == +compile(db,u,signature) == [op,lamExpr] := u if $suffix then $suffix:= $suffix+1 @@ -1979,11 +1977,11 @@ compile(db,u) == [sel for [[DC,:sig],[.,sel]] in get(op,'modemap,$e) | DC='_$ and (opexport:=true) and - (and/[modeEqual(x,y) for x in sig for y in $signatureOfForm])] + (and/[modeEqual(x,y) for x in sig for y in signature])] isLocalFunction op => if opexport then userError ['"%b",op,'"%d",'" is local and exported"] makeSymbol strconc(encodeItem $prefix,'";",encodeItem op) - encodeFunctionName(db,op,$signatureOfForm,'";",$suffix) + encodeFunctionName(db,op,signature,'";",$suffix) where isLocalFunction op == not symbolMember?(op,$formalArgList) and @@ -1998,7 +1996,7 @@ compile(db,u) == -- Let the backend know about this function's type if $insideCapsuleFunctionIfTrue and $optProclaim then - proclaimCapsuleFunction(op',$signatureOfForm) + proclaimCapsuleFunction(op',signature) result:= spadCompileOrSetq(db,stuffToCompile) functionStats:=[0,elapsedTime()] diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 32e00181..50397a50 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -39,10 +39,6 @@ import debug namespace BOOT module lisplib - -++ -$functionLocations := [] - --======================================================================= -- Generate Slot 2 Attribute Alist --======================================================================= @@ -646,11 +642,8 @@ transformOperationAlist operationAlist == impOp in '(CONST Subsumed) => impOp keyedSystemError("S2IL0025",[impOp]) keyedSystemError("S2IL0025",[implementation]) - signatureItem:= - if u:= assoc([op,sig],$functionLocations) then n := [n,:rest u] - [sig,n,condition,kind] - itemList:= [signatureItem,:symbolTarget(op,newAlist)] - newAlist:= insertAlist(op,itemList,newAlist) + itemList := [[sig,n,condition,kind],:symbolTarget(op,newAlist)] + newAlist := insertAlist(op,itemList,newAlist) newAlist sayNonUnique x == -- cgit v1.2.3