Commit 323139d2 authored by John van Groningen's avatar John van Groningen
Browse files

change errno_address computation for linux

parent 520fef59
......@@ -712,11 +712,6 @@ close fd = code {
errno = load_long (errno_address);
errno_address :: Int;
errno_address = code {
pushD errno
}
EINTR:==4;
exec :: !{#Char} ![{#Char}] !Bool -> (!Int,!Int);
......
......@@ -4,7 +4,7 @@ load_long :: !Int -> Int;
store_long :: !Int !Int -> Int;
store_byte :: !Int !Int -> Int;
errno_address :: Int;
......
......@@ -20,3 +20,8 @@ store_byte p n = code {
pop_b 1
}
errno_address :: Int;
errno_address = code {
ccall __errno_location ":I"
}
......@@ -4,97 +4,5 @@ load_long :: !Int -> Int;
store_long :: !Int !Int -> Int;
store_byte :: !Int !Int -> Int;
errno_address :: Int;
......@@ -39,3 +39,12 @@ store_byte p n = code {
pop_b 1
}
errno_address :: Int;
errno_address = code {
pushD errno
}
/*
errno_address = code {
ccall __errno_location ":I"
}
*/
......@@ -4,6 +4,9 @@ load_long :: !Int -> Int;
store_long :: !Int !Int -> Int;
store_byte :: !Int !Int -> Int;
errno_address :: Int;
......
......@@ -59,3 +59,9 @@ store_byte p n = code {
instruction -533970944 | stb %l0,[%l1]
pop_b 1
}
errno_address :: Int;
errno_address = code {
pushD errno
}
Markdown is supported
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