ports/devel/afay/files/patch-afay_aflex_src_dfaB.a
John Marino 7b75aba7f3 devel/afay: Fix for gcc49 and add EXAMPLES option
* Add a patch to make gcc49 building this port
* Add EXAMPLES option
* Fix DOCS option
* Simplify installation, respect 80 columns

This means only gnatdroid-arm* depends on gcc47-aux now.
Everything else can be built with gcc49
2014-03-14 10:43:09 +00:00

28 lines
1.1 KiB
Text

--- afay/aflex/src/dfaB.a.orig 2004-10-16 16:41:22.000000000 +0000
+++ afay/aflex/src/dfaB.a
@@ -496,7 +496,11 @@ package body DFA is
NSET(NUMSTATES) := NFA.MKBRANCH(SCBOL(CNT/2), SCSET(CNT/2));
end if;
- DFA.EPSCLOSURE(NSET, NUMSTATES, ACCSET, NACC, HASHVAL, NSET);
+ declare
+ NSET_COPY : INT_PTR := NSET;
+ begin
+ DFA.EPSCLOSURE(NSET_COPY, NUMSTATES, ACCSET, NACC, HASHVAL, NSET);
+ end;
SNSTODS(NSET, NUMSTATES, ACCSET, NACC, HASHVAL, DS, SNSRESULT);
if (SNSRESULT) then
@@ -548,7 +552,11 @@ package body DFA is
if (DUPLIST(SYM) = NIL) then
-- symbol has unique out-transitions
NUMSTATES := SYMFOLLOWSET(DSET, DSIZE, SYM, NSET);
- DFA.EPSCLOSURE(NSET, NUMSTATES, ACCSET, NACC, HASHVAL, NSET);
+ declare
+ NSET_COPY : INT_PTR := NSET;
+ begin
+ DFA.EPSCLOSURE(NSET_COPY, NUMSTATES, ACCSET, NACC, HASHVAL, NSET);
+ end;
SNSTODS(NSET, NUMSTATES, ACCSET, NACC, HASHVAL, NEWDS, SNSRESULT);
if (SNSRESULT) then