diff options
author | Björn-Egil Dahlberg <egil@erlang.org> | 2012-07-17 12:24:29 +0200 |
---|---|---|
committer | Björn-Egil Dahlberg <egil@erlang.org> | 2012-07-19 20:22:53 +0200 |
commit | 5ba4cddd7192e190f5d6f615e600912ac3ed7720 (patch) | |
tree | 364e59b94c23fe2bb3641f4eb5738ec9e59d859b /erts/preloaded/src/erl_prim_loader.erl | |
parent | 0348e26ea7b6522f4a324bc5010c36b40adf0ed4 (diff) | |
download | otp-5ba4cddd7192e190f5d6f615e600912ac3ed7720.tar.gz otp-5ba4cddd7192e190f5d6f615e600912ac3ed7720.tar.bz2 otp-5ba4cddd7192e190f5d6f615e600912ac3ed7720.zip |
erts: Remove VxWorks from preloaded
Diffstat (limited to 'erts/preloaded/src/erl_prim_loader.erl')
-rw-r--r-- | erts/preloaded/src/erl_prim_loader.erl | 35 |
1 files changed, 1 insertions, 34 deletions
diff --git a/erts/preloaded/src/erl_prim_loader.erl b/erts/preloaded/src/erl_prim_loader.erl index cd5519f537..2d2a7aafbd 100644 --- a/erts/preloaded/src/erl_prim_loader.erl +++ b/erts/preloaded/src/erl_prim_loader.erl @@ -1376,14 +1376,7 @@ pathtype(Name) when is_list(Name) -> {unix, _} -> unix_pathtype(Name); {win32, _} -> - win32_pathtype(Name); - {vxworks, _} -> - case vxworks_first(Name) of - {device, _Rest, _Dev} -> - absolute; - _ -> - relative - end + win32_pathtype(Name) end. unix_pathtype(Name) -> @@ -1420,32 +1413,6 @@ win32_pathtype(Name) -> relative end. -vxworks_first(Name) -> - case Name of - [] -> - {not_device, [], []}; - [$/ | T] -> - vxworks_first2(device, T, [$/]); - [H | T] when is_list(H) -> - vxworks_first(H ++ T); - [H | T] -> - vxworks_first2(not_device, T, [H]) - end. - -vxworks_first2(Devicep, Name, FirstComp) -> - case Name of - [] -> - {Devicep, [], FirstComp}; - [$/ |T ] -> - {Devicep, [$/ | T], FirstComp}; - [$: | T]-> - {device, T, [$: | FirstComp]}; - [H | T] when is_list(H) -> - vxworks_first2(Devicep, H ++ T, FirstComp); - [H | T] -> - vxworks_first2(Devicep, T, [H | FirstComp]) - end. - normalize(Name, Acc) -> case Name of [List | Rest] when is_list(List) -> |