Changeset 3038


Ignore:
Timestamp:
Jul 4, 2012, 6:18:52 PM (2 years ago)
Author:
wmb
Message:

PCI bus driver - fixed a problem introduced by svn 3021 (the code change to make phandles relative wasn't complete).

Files:
2 edited

Legend:

Unmodified
Added
Removed
  • dev/pcibus.fth

    r2384 r3038  
    10491049; 
    10501050 
    1051 \ XXX In order to implement put-package-property with standard words, 
    1052 \ we would have to: 
    1053 \ a) Save my-self and set it to 0 
    1054 \ b) Get the package's "reg" property value with get-package-property 
    1055 \ c) Convert the first entry therein to a string of the form "@D,F" 
    1056 \ d) Pass that string to find-device to make that package the active package 
    1057 \ e) Create the property 
    1058 \ f) Restore my-self 
    1059  
    1060 : put-package-property  ( value$ name$ phandle -- ) 
    1061    current token@ >r  context token@ >r   execute  ( value$ name$ ) 
    1062    (property) 
    1063    r> context token!  r> current token! 
    1064 ; 
    1065  
    106610510 value aa-adr 
    106710520 value aa-len 
     
    10691054: finish-aa-property  ( phandle -- ) 
    10701055   aa-len  if 
    1071       >r  aa-adr aa-len  " assigned-addresses"  r> put-package-property 
     1056      >r  aa-adr aa-len  " assigned-addresses"  r> set-package-property 
    10721057   else 
    10731058      drop 
  • ofw/core/ofwcore.fth

    r3021 r3038  
    21612161: get-package-property  ( adr len phandle -- true | adr' len' false ) 
    21622162   (push-package)  get-property  (pop-package) 
     2163; 
     2164 
     2165: set-package-property  ( value$ name$ phandle -- ) 
     2166   current token@ >r  context token@ >r   (select-package)  ( value$ name$ ) 
     2167   (property) 
     2168   r> context token!  r> current token! 
    21632169; 
    21642170 
Note: See TracChangeset for help on using the changeset viewer.