From 21fd1afdfbf45d752a0d6dd30dffb897974400b9 Mon Sep 17 00:00:00 2001 From: wulf Date: Tue, 25 Jul 2000 12:44:33 +0000 Subject: Initial commit of baci-20000725, Ben-Ari Concurrent Interpreter --- lang/baci/patches/patch-aa | 48 ++++++++++++++++++++++++++++++++++++++++++++++ lang/baci/patches/patch-ab | 24 +++++++++++++++++++++++ lang/baci/patches/patch-ac | 13 +++++++++++++ lang/baci/patches/patch-ad | 13 +++++++++++++ lang/baci/patches/patch-ae | 19 ++++++++++++++++++ 5 files changed, 117 insertions(+) create mode 100644 lang/baci/patches/patch-aa create mode 100644 lang/baci/patches/patch-ab create mode 100644 lang/baci/patches/patch-ac create mode 100644 lang/baci/patches/patch-ad create mode 100644 lang/baci/patches/patch-ae (limited to 'lang/baci/patches') diff --git a/lang/baci/patches/patch-aa b/lang/baci/patches/patch-aa new file mode 100644 index 00000000000..d5108f4bfb1 --- /dev/null +++ b/lang/baci/patches/patch-aa @@ -0,0 +1,48 @@ +$NetBSD: patch-aa,v 1.1.1.1 2000/07/25 12:44:34 wulf Exp $ + +--- interp/bainterp.c.orig Mon Jul 24 00:24:03 2000 ++++ interp/bainterp.c Mon Jul 24 00:25:36 2000 +@@ -240,8 +240,8 @@ + else { + ptab[curpr].t--; + h2 = PMAXP1; /* code like chooseproc */ +- h3 = random(h2); +- h4 = 1 + random(PMAX); ++ h3 = __random(h2); ++ h4 = 1 + __random(PMAX); + while (( h2 >= 0 ) && (ptab[h3].suspend != h1 )){ + h3 = (h3+h4) % (PMAXP1); + h2--; +@@ -294,8 +294,8 @@ + else { /* semaphore was initialized */ + ptab[curpr].monitor = 0; + h2 = PMAXP1; +- h3 = random(h2); +- h5 = 1 + random(PMAX); ++ h3 = __random(h2); ++ h5 = 1 + __random(PMAX); + while ((h2 >= 0) && + ((ptab[h3].monitor != h4) || (ptab[h3].suspend >= 0 ))){ + h3 = (h3 + h5) % (PMAXP1); +@@ -319,8 +319,8 @@ + ptab[curpr].active = 0; + stepcount = 0; + h2 = PMAXP1; +- h3 = random(h2); +- h5 = 1 + random(PMAX); ++ h3 = __random(h2); ++ h5 = 1 + __random(PMAX); + while ((h2 >= 0) && + ((ptab[h3].monitor != h4) || (ptab[h3].suspend >=0 ))){ + h3 = (h3 + h5) % (PMAXP1); +@@ -339,8 +339,8 @@ + else { /* monitor sem was OK */ + h1 = s[ptab[curpr].t]; + ptab[curpr].t--; +- h3 = random(PMAXP1); +- h6 = 1 + random(PMAX); ++ h3 = __random(PMAXP1); ++ h6 = 1 + __random(PMAX); + h5 = 0; + minprior = MAXPRIO; + for (h2 = 0; h2 <= PMAX; h2++) { diff --git a/lang/baci/patches/patch-ab b/lang/baci/patches/patch-ab new file mode 100644 index 00000000000..61663648a4f --- /dev/null +++ b/lang/baci/patches/patch-ab @@ -0,0 +1,24 @@ +$NetBSD: patch-ab,v 1.1.1.1 2000/07/25 12:44:34 wulf Exp $ + +--- interp/baiutils.c.orig Mon Jul 24 00:25:52 2000 ++++ interp/baiutils.c Mon Jul 24 00:26:49 2000 +@@ -171,8 +171,8 @@ + + d = PMAXP1; + suspended = active = 0; +- look = random(PMAXP1); +- add = 1 + random(PMAX); /* 1 <= add <= PMAXP1 */ ++ look = __random(PMAXP1); ++ add = 1 + __random(PMAX); /* 1 <= add <= PMAXP1 */ + while ( ((!ptab[look].active) || (ptab[look].suspend>=0) || + (ptab[look].tabix < 0)) && (d >= 0) ){ + /* keep looking until a called process that is active and not +@@ -189,7 +189,7 @@ + ps = deadlock; + } + else { +- stepcount = random(STEPMAXP1); ++ stepcount = __random(STEPMAXP1); + if (ptab[curpr].atomic){ + if (ptab[curpr].suspend >= 0) { + ps = deadlock; diff --git a/lang/baci/patches/patch-ac b/lang/baci/patches/patch-ac new file mode 100644 index 00000000000..d399a23e342 --- /dev/null +++ b/lang/baci/patches/patch-ac @@ -0,0 +1,13 @@ +$NetBSD: patch-ac,v 1.1.1.1 2000/07/25 12:44:34 wulf Exp $ + +--- interp/random.c.orig Mon Jul 24 00:23:32 2000 ++++ interp/random.c Mon Jul 24 00:23:39 2000 +@@ -65,7 +65,7 @@ + useed = temp+seed; /* start user somewhere else */ + } + +-unsigned int random(range) ++unsigned int __random(range) + unsigned int range; + /* returns a pseudo-random unsigned int between 0 and 'range' - 1 */ + { diff --git a/lang/baci/patches/patch-ad b/lang/baci/patches/patch-ad new file mode 100644 index 00000000000..a773a6f5819 --- /dev/null +++ b/lang/baci/patches/patch-ad @@ -0,0 +1,13 @@ +$NetBSD: patch-ad,v 1.1.1.1 2000/07/25 12:44:34 wulf Exp $ + +--- interp/random.h.orig Mon Jul 24 00:18:41 2000 ++++ interp/random.h Mon Jul 24 00:19:01 2000 +@@ -18,7 +18,7 @@ + /* strand(); */ + /* returns a randomly distributed 'random' real between 0 & 2^31 -1 */ + +-extern unsigned random(); ++extern unsigned __random(); + /* random(range); */ + /* returns a 'randomly' chosen integer between 0 and 'range' - 1 */ + diff --git a/lang/baci/patches/patch-ae b/lang/baci/patches/patch-ae new file mode 100644 index 00000000000..21ed409c7c5 --- /dev/null +++ b/lang/baci/patches/patch-ae @@ -0,0 +1,19 @@ +$NetBSD: patch-ae,v 1.1.1.1 2000/07/25 12:44:34 wulf Exp $ + +--- disasm/badautil.c.orig Sun Jul 23 23:42:23 2000 ++++ disasm/badautil.c Sun Jul 23 23:49:07 2000 +@@ -213,13 +213,12 @@ + level--; + } + +-char buf[BUFSIZE]; +- + void show_line(FILE* f, int* cur_ifile) + /* write the source file line inputfile[*cur_ifile].line_no to */ + /* file 'f', indicating the proper file include level. */ + { + int i; ++ char buf[BUFSIZE]; + + for (i = 0; i< level; i++) fputc('>',f); + fgets(buf,BUFSIZE,inputfile[*cur_ifile].f); -- cgit v1.2.3