projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
From Aleksej,
[pforth]
/
csrc
/
pforth.h
diff --git
a/csrc/pforth.h
b/csrc/pforth.h
index
39a1290
..
70a700a
100644
(file)
--- a/
csrc/pforth.h
+++ b/
csrc/pforth.h
@@
-26,31
+26,32
@@
typedef void *PForthTask;
\r
typedef void *PForthDictionary;
\r
\r
typedef void *PForthTask;
\r
typedef void *PForthDictionary;
\r
\r
-typedef unsigned long ExecToken; /* Execution Token */
\r
-typedef long ThrowCode;
\r
+#include <stdint.h>
\r
+/* Integer types for Forth cells, signed and unsigned: */
\r
+typedef intptr_t cell_t;
\r
+typedef uintptr_t ucell_t;
\r
\r
\r
-#ifndef int32
\r
- typedef long int32;
\r
-#endif
\r
+typedef ucell_t ExecToken; /* Execution Token */
\r
+typedef cell_t ThrowCode;
\r
\r
#ifdef __cplusplus
\r
extern "C" {
\r
#endif
\r
\r
/* Main entry point to pForth. */
\r
\r
#ifdef __cplusplus
\r
extern "C" {
\r
#endif
\r
\r
/* Main entry point to pForth. */
\r
-
int32 pfDoForth( const char *DicName, const char *SourceName, int32
IfInit );
\r
+
cell_t pfDoForth( const char *DicName, const char *SourceName, cell_t
IfInit );
\r
\r
/* Turn off messages. */
\r
\r
/* Turn off messages. */
\r
-void pfSetQuiet(
int32
IfQuiet );
\r
+void pfSetQuiet(
cell_t
IfQuiet );
\r
\r
/* Query message status. */
\r
\r
/* Query message status. */
\r
-
int32
pfQueryQuiet( void );
\r
+
cell_t
pfQueryQuiet( void );
\r
\r
/* Send a message using low level I/O of pForth */
\r
void pfMessage( const char *CString );
\r
\r
/* Create a task used to maintain context of execution. */
\r
\r
/* Send a message using low level I/O of pForth */
\r
void pfMessage( const char *CString );
\r
\r
/* Create a task used to maintain context of execution. */
\r
-PForthTask pfCreateTask(
int32 UserStackDepth, int32
ReturnStackDepth );
\r
+PForthTask pfCreateTask(
cell_t UserStackDepth, cell_t
ReturnStackDepth );
\r
\r
/* Establish this task as the current task. */
\r
void pfSetCurrentTask( PForthTask task );
\r
\r
/* Establish this task as the current task. */
\r
void pfSetCurrentTask( PForthTask task );
\r
@@
-59,10
+60,10
@@
void pfSetCurrentTask( PForthTask task );
void pfDeleteTask( PForthTask task );
\r
\r
/* Build a dictionary with all the basic kernel words. */
\r
void pfDeleteTask( PForthTask task );
\r
\r
/* Build a dictionary with all the basic kernel words. */
\r
-PForthDictionary pfBuildDictionary(
int32 HeaderSize, int32
CodeSize );
\r
+PForthDictionary pfBuildDictionary(
cell_t HeaderSize, cell_t
CodeSize );
\r
\r
/* Create an empty dictionary. */
\r
\r
/* Create an empty dictionary. */
\r
-PForthDictionary pfCreateDictionary(
int32 HeaderSize, int32
CodeSize );
\r
+PForthDictionary pfCreateDictionary(
cell_t HeaderSize, cell_t
CodeSize );
\r
\r
/* Load dictionary from a file. */
\r
PForthDictionary pfLoadDictionary( const char *FileName, ExecToken *EntryPointPtr );
\r
\r
/* Load dictionary from a file. */
\r
PForthDictionary pfLoadDictionary( const char *FileName, ExecToken *EntryPointPtr );
\r