projects
/
rrq
/
jonesforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
7bd3686
)
Added O_* constants for open(2) syscall
author
rich
<rich>
Sat, 29 Sep 2007 23:11:27 +0000
(23:11 +0000)
committer
rich
<rich>
Sat, 29 Sep 2007 23:11:27 +0000
(23:11 +0000)
jonesforth.S
patch
|
blob
|
history
diff --git
a/jonesforth.S
b/jonesforth.S
index 624eba46460c14f1e560a7eaeaa5072afc854a9c..c885150b0a9348812e337afaefe2b5d8e773613a 100644
(file)
--- a/
jonesforth.S
+++ b/
jonesforth.S
@@
-1,7
+1,7
@@
/* A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
This is PUBLIC DOMAIN (see public domain release statement below).
/* A sometimes minimal FORTH compiler and tutorial for Linux / i386 systems. -*- asm -*-
By Richard W.M. Jones <rich@annexia.org> http://annexia.org/forth
This is PUBLIC DOMAIN (see public domain release statement below).
- $Id: jonesforth.S,v 1.4
0 2007-09-29 22:12:0
7 rich Exp $
+ $Id: jonesforth.S,v 1.4
1 2007-09-29 23:11:2
7 rich Exp $
gcc -m32 -nostdlib -static -Wl,-Ttext,0 -o jonesforth jonesforth.S
*/
gcc -m32 -nostdlib -static -Wl,-Ttext,0 -o jonesforth jonesforth.S
*/
@@
-1167,6
+1167,15
@@
var_\name :
defconst "SYS_WRITE",9,,SYS_WRITE,__NR_write
defconst "SYS_CREAT",9,,SYS_CREAT,__NR_creat
defconst "SYS_WRITE",9,,SYS_WRITE,__NR_write
defconst "SYS_CREAT",9,,SYS_CREAT,__NR_creat
+ defconst "O_RDONLY",8,,__O_RDONLY,0
+ defconst "O_WRONLY",8,,__O_WRONLY,1
+ defconst "O_RDWR",6,,__O_RDWR,2
+ defconst "O_CREAT",7,,__O_CREAT,0100
+ defconst "O_EXCL",6,,__O_EXCL,0200
+ defconst "O_TRUNC",7,,__O_TRUNC,01000
+ defconst "O_APPEND",8,,__O_APPEND,02000
+ defconst "O_NONBLOCK",10,,__O_NONBLOCK,04000
+
/*
RETURN STACK ----------------------------------------------------------------------
/*
RETURN STACK ----------------------------------------------------------------------