David N. Williams wrote:
> Josh Grams wrote:
>
> No, PFE isn't dead, and my understanding is that Guido is
> looking at the changes you requested. Apparently other things
> have absorbed most of his energy for quite a while, but I just
> heard from him that now he has a bit more time, and is setting
> up a system that should be more responsive to requests for
> changes.
Excellent, thank you.
> That's good news for me. PFE has been my primary Forth
> environment for several years. One of the strong points of PFE
> is the utter ease with which one can implement new, dynamically
> loadable libraries of words in universal assembly language, AKA
> C. And the ease with which one can write bindings that access
> foreign C or Fortran libraries. I don't want to give that up.
Yeah, it looks like a solid system.
>> The fpnostack module doesn't know about the FLOATING-STACK
>> environment query (should answer 0). This is easy to fix.
>
> Krisha Myneni may well be looking at that as we speak...
>
>> The line numbers for error messages (ABORT etc.) start at zero,
>> not at one as most applications do. This is probably also easy to
>> fix, but I haven't bothered.
OK, I got the cvs version to build, so here's a patch which appears to
fix both. For the line numbers, it might be better to fix block-sub.c
so that they start at one, rather than adding one every place you want
to use the line number, but I wasn't confident that I could find all the
references, so I didn't do that.
--Josh
Index: pfe/exception-sub.c
===================================================================
RCS file: /cvsroot/pfe/pfe-33/pfe/exception-sub.c,v
retrieving revision 1.2
diff -u -r1.2 exception-sub.c
--- pfe/exception-sub.c 11 Aug 2006 22:56:04 -0000 1.2
+++ pfe/exception-sub.c 6 Apr 2008 15:21:09 -0000
@[EMAIL PROTECTED]
-82,7 +82,7 @[EMAIL PROTECTED]
break;
default:
p4_outf ("\nFile %s line %lu: \"%.*s\"\n",
- SOURCE_FILE->name, SOURCE_FILE->n, len, str);
+ SOURCE_FILE->name, SOURCE_FILE->n+1, len, str);
p4_type (TIB, NUMBER_TIB);
n = TO_IN;
}
Index: pfe/fpnostack-ext.c
===================================================================
RCS file: /cvsroot/pfe/pfe-33/pfe/fpnostack-ext.c,v
retrieving revision 1.2
diff -u -r1.2 fpnostack-ext.c
--- pfe/fpnostack-ext.c 11 Aug 2006 22:56:04 -0000 1.2
+++ pfe/fpnostack-ext.c 6 Apr 2008 15:21:10 -0000
@[EMAIL PROTECTED]
-1384,6 +1384,7 @[EMAIL PROTECTED]
P4_INTO ("ENVIRONMENT", 0 ),
P4_OCoN ("FLOATING", 1994 ),
+ P4_OCoN ("FLOATING-STACK", 0 ),
P4_OCoN ("FPNOSTACK-EXT", 1994 ),
P4_FXco ("MAX-FLOAT", p__nofp_max_float ),
P4_XXco ("FPNOSTACK-LOADED", fpnostack_init),
|
