lang/ghc は i386 限定ということで、とりあえず hugs を動かして見る

cd pkgsrc/lang/hugs
make
sudo make package
rehash

ttyp1:makoto@st4200 15:19:50/060811(~)> hugs
__   __ __  __  ____   ___      _________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2005
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Report bugs to: hugs-bugs@haskell.org
||   || Version: May 2006       _________________________________________

Haskell 98 mode: Restart with command line option -98 to enable extensions

Type :? for help
Hugs> :cd software/hugs
Hugs> :load hello.hs
Main> :main
Hellow World!

Main> :?
LIST OF COMMANDS:  Any command may be abbreviated to :c where
c is the first character in the full name.

:load <filenames>   load modules from specified files
:load               clear all files except prelude
:also <filenames>   read additional modules
:reload             repeat last load command
:edit <filename>    edit file
:edit               edit last module
:module <module>    set module for evaluating expressions
<expr>              evaluate expression
:type <expr>        print type of expression
:?                  display this list of commands
:set <options>      set command line options
:set                help on command line options
:names [pat]        list names currently in scope
:info <names>       describe named objects
:browse <modules>   browse names exported by <modules>
:main <aruments>    run the main function with the given arguments
:find <name>        edit module containing definition of name
:cd dir             change directory
:gc                 force garbage collection
:version            print Hugs version
:quit               exit Hugs interpreter
Main> [Leaving Hugs]
ttyp1:makoto@st4200 15:20:20/060811(~)> cat software/hugs/hello.hs
main = putStrLn "Hellow World!"
ttyp1:makoto@st4200 15:21:17/060811(~)> 

sys/dev/pci/pcidevs

product SYMPHONY        83C553  0x0565  83C553 PCI-ISA Bridge

sys/dev/pci/slide.c

     72 static const struct pciide_product_desc pciide_winbond_products[] =  {
     73         { PCI_PRODUCT_WINBOND_W83C553F_1,
     74           0,
     75           "Winbond W83C553F IDE controller",

(しかし 83C553 と 83C553F は同じものかな ?)

    131 sl82c105_chip_map(struct pciide_softc *sc, struct pci_attach_args *pa)
    ..
    144         /*
    145          * Check to see if we're part of the Winbond 83c553 Southbridge.
    146          * If so, we need to disable DMA on rev. <= 5 of that chip.
    147          */

ちょっと違うような気も。関係ありそうなののは

sys/arch/netwinder/pci/pcib.c
sys/arch/sandpoint/pci/pcib.c