Commit 672c9c6a authored by Jens Korinth's avatar Jens Korinth
Browse files

Fix paths for platform_global.h and platform_components.h in Tcl

parent 3d61d5a5
......@@ -455,7 +455,7 @@ namespace eval tapasco {
if {$bit < 0 || $bit > 31} { error "Invalid bit index: $bit" }
set flag [expr "(1 << $bit)"]
} else {
set caps_file [open "$::env(TAPASCO_HOME)/platform/common/include/platform_caps.h" "r"]
set caps_file [open "$::env(TAPASCO_HOME)/platform/include/platform_caps.h" "r"]
set caps_cnts [split [read $caps_file] "\n"]
close $caps_file
......@@ -480,7 +480,7 @@ namespace eval tapasco {
}
proc get_platform_num_slots {} {
set f [open "$::env(TAPASCO_HOME)/platform/common/include/platform_global.h" "r"]
set f [open "$::env(TAPASCO_HOME)/platform/include/platform_global.h" "r"]
set fl [split [read $f] "\n"]
foreach line $fl {
if {[regexp {define\s*PLATFORM_NUM_SLOTS\s*(\d+)} $line _ ret]} {
......
......@@ -36,7 +36,7 @@ namespace eval addressmap {
}
proc get_num_slots {} {
set f [open "$::env(TAPASCO_HOME)/platform/common/include/platform_global.h" "r"]
set f [open "$::env(TAPASCO_HOME)/platform/include/platform_global.h" "r"]
set c [read $f]
close $f
regexp {define\s+PLATFORM_NUM_SLOTS\s+(\d+)} $c _ num_slots
......@@ -44,7 +44,7 @@ namespace eval addressmap {
}
proc get_known_platform_components {} {
set f [open "$::env(TAPASCO_HOME)/platform/common/include/platform_components.h" "r"]
set f [open "$::env(TAPASCO_HOME)/platform/include/platform_components.h" "r"]
set fl [split [read $f] "\n"]
foreach line $fl {
if {[regexp {.*(PLATFORM_COMPONENT_[^\s,]*)} $line _ name]} {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment