- set AT91_SMC_SETUP [expr ($::AT91_SMC + 0x00 + ((cs)*0x10))]
- set val [expr ($smc_config(nwe_setup) << 0)]
- set val [expr ($val | $smc_config(ncs_write_setup) << 8]
- set val [expr ($val | $smc_config(nrd_setup)) << 16]
- set val [expr ($val | $smc_config(ncs_read_setup) << 24]
+ set AT91_SMC_SETUP [expr {$::AT91_SMC + 0x00 + $cs * 0x10}]
+ set val [expr {$smc_config(nwe_setup) << 0}]
+ set val [expr {$val | $smc_config(ncs_write_setup) << 8}]
+ set val [expr {$val | $smc_config(nrd_setup)) << 16}]
+ set val [expr {$val | $smc_config(ncs_read_setup) << 24}]