TudbuT/isbpl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix issues related to int.new

Browse source
This commit is contained in:
Daniella 2022-05-14 14:42:53 +02:00
parent 3bbdf874f8
commit 2458fad5ff
2 changed files with 18 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
ISBPL.java
View file

@ -44,6 +44,7 @@ public class ISBPL {
private final ISBPLStreamer streamer = new ISBPLStreamer(this);
ArrayList<String> included = new ArrayList<>();
HashMap<String, ISBPLCallable> natives = new HashMap<>();
boolean stopExceptions = false;
private final Object syncMakeThread = new Object();
private ISBPLKeyword getKeyword(String word) {
@ -1514,6 +1515,16 @@ public class ISBPL {
catch (InterruptedException e) {
e.printStackTrace();
}
catch (Throwable t) {
if(debug) System.out.println("Passing exception " + t + " to caller.");
if(stopExceptions) {
t.printStackTrace();
System.out.println("Current Words: ");
System.out.println(Arrays.toString(words));
dump(stack);
}
throw t;
}
}
// Magic, please test before pushing changes!

14
std.isbpl
View file

@ -371,17 +371,17 @@ func anewput {
func areverse {
def arr =arr
def new arr alen anew =new
def newarr arr alen anew =newarr
def i arr alen 1 - =i
def j 0 =j
while { i 0 lt not } {
new j arr i aget aput
newarr j arr i aget aput
j 1 + =j
i 1 - =i
}
new
newarr
}
func strcontains { acontains }
@ -463,11 +463,11 @@ func aadd {
def arr2 =arr2
def arr1 =arr1
def new arr1 alen arr2 alen + anew =new
arr1 new 0 0 arr1 alen acopy =new
arr2 new 0 arr1 alen arr2 alen acopy =new
def newarr arr1 alen arr2 alen + anew =newarr
arr1 newarr 0 0 arr1 alen acopy =newarr
arr2 newarr 0 arr1 alen arr2 alen acopy =newarr
new
newarr
}
def TYPE_SHADOW "shadow" mktype =TYPE_SHADOW