]> 4ch.mooo.com Git - 16.git/commitdiff
====REPO AND DEBUG WORK==== i need to make it work with wd again....
authorsparky4 <sparky4@cock.li>
Thu, 29 Jun 2017 23:14:40 +0000 (18:14 -0500)
committersparky4 <sparky4@cock.li>
Thu, 29 Jun 2017 23:14:40 +0000 (18:14 -0500)
DEBUG.16W [new file with mode: 0755]
HEAP.16W [new file with mode: 0755]
MMDUMP.16W [new file with mode: 0755]
make-lowercase [new file with mode: 0755]
makefile
src/util/shbat/runtest.bat

diff --git a/DEBUG.16W b/DEBUG.16W
new file mode 100755 (executable)
index 0000000..c18d8ef
--- /dev/null
+++ b/DEBUG.16W
@@ -0,0 +1,209 @@
+\e[0mSeg:0      Size:8351       Owner:0x0\r
+\e[41;31m+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m\e[0mSeg:209f      Size:256        Owner:0x5dfc\r
+\e[44;34m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:21cd       Size:76 Owner:0x0\r
+\e[41;31m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2219       Size:256        Owner:0x1c32\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2319       Size:256        Owner:0x1c34\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2419       Size:256        Owner:0x1c36\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2519       Size:256        Owner:0x1c38\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2619       Size:256        Owner:0x1c3a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2719       Size:256        Owner:0x1c3c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2819       Size:256        Owner:0x1c3e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2919       Size:256        Owner:0x1c40\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2a19       Size:256        Owner:0x1c42\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2b19       Size:256        Owner:0x1c44\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2c19       Size:256        Owner:0x1c46\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2d19       Size:256        Owner:0x1c48\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2e19       Size:256        Owner:0x1c4a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:2f19       Size:256        Owner:0x1c4c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3019       Size:256        Owner:0x1c4e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3119       Size:256        Owner:0x1c50\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3219       Size:256        Owner:0x1c52\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3319       Size:256        Owner:0x1c54\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3419       Size:256        Owner:0x1c56\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3519       Size:256        Owner:0x1c58\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3619       Size:256        Owner:0x1c5a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3719       Size:256        Owner:0x1c5c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3819       Size:256        Owner:0x1c5e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3919       Size:256        Owner:0x1c60\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3a19       Size:256        Owner:0x1c62\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3b19       Size:256        Owner:0x1c64\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3c19       Size:256        Owner:0x1c66\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3d19       Size:256        Owner:0x1c68\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3e19       Size:256        Owner:0x1c6a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:3f19       Size:256        Owner:0x1c6c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4019       Size:256        Owner:0x1c6e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4119       Size:256        Owner:0x1c70\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4219       Size:256        Owner:0x1c72\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4319       Size:256        Owner:0x1c74\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4419       Size:256        Owner:0x1c76\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4519       Size:256        Owner:0x1c78\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4619       Size:256        Owner:0x1c7a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4719       Size:256        Owner:0x1c7c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4819       Size:256        Owner:0x1c7e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4919       Size:256        Owner:0x1c80\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4a19       Size:256        Owner:0x1c82\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4b19       Size:256        Owner:0x1c84\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4c19       Size:256        Owner:0x1c86\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4d19       Size:256        Owner:0x1c88\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4e19       Size:256        Owner:0x1c8a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:4f19       Size:256        Owner:0x1c8c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5019       Size:256        Owner:0x1c8e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5119       Size:256        Owner:0x1c90\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5219       Size:256        Owner:0x1c92\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5319       Size:256        Owner:0x1c94\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5419       Size:256        Owner:0x1c96\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5519       Size:256        Owner:0x1c98\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5619       Size:256        Owner:0x1c9a\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5719       Size:256        Owner:0x1c9c\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5819       Size:256        Owner:0x1c9e\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5919       Size:256        Owner:0x1ca0\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5a19       Size:256        Owner:0x1ca2\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5b19       Size:256        Owner:0x1ca4\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5c19       Size:256        Owner:0x1ca6\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5d19       Size:256        Owner:0x1ca8\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5e19       Size:256        Owner:0x1caa\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:5f19       Size:256        Owner:0x1cac\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6019       Size:256        Owner:0x1cae\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6119       Size:256        Owner:0x1cb0\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6219       Size:256        Owner:0x1cb2\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6319       Size:256        Owner:0x1cb4\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6419       Size:256        Owner:0x1cb6\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6519       Size:256        Owner:0x1cb8\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6619       Size:256        Owner:0x1cba\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6719       Size:256        Owner:0x1cbc\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6819       Size:256        Owner:0x1cbe\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6919       Size:256        Owner:0x1cc0\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6a19       Size:256        Owner:0x1cc2\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6b19       Size:256        Owner:0x1cc4\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6c19       Size:256        Owner:0x1cc6\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6d19       Size:256        Owner:0x1cc8\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6e19       Size:256        Owner:0x1cca\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:6f19       Size:256        Owner:0x1ccc\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7019       Size:256        Owner:0x1cce\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7119       Size:256        Owner:0x1cd0\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7219       Size:256        Owner:0x1cd2\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7319       Size:256        Owner:0x1cd4\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7419       Size:256        Owner:0x1cd6\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7519       Size:256        Owner:0x1cd8\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7619       Size:256        Owner:0x1cda\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7719       Size:256        Owner:0x1cdc\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7819       Size:256        Owner:0x1cde\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7919       Size:256        Owner:0x1ce0\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7a19       Size:256        Owner:0x1ce2\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7b19       Size:256        Owner:0x1ce4\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7c19       Size:256        Owner:0x1ce6\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7d19       Size:256        Owner:0x1ce8\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7e19       Size:256        Owner:0x1cea\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:7f19       Size:256        Owner:0x1cec\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8019       Size:256        Owner:0x1cee\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8119       Size:256        Owner:0x1cf0\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8219       Size:256        Owner:0x1cf2\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8319       Size:256        Owner:0x1cf4\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8419       Size:256        Owner:0x1cf6\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8519       Size:256        Owner:0x1cf8\r
+\e[45;35m\e[0m\e[42;32m0\r
+\e[0m\e[0mSeg:8619       Size:273        Owner:0x5dfc\r
+\e[44;34m\e[0m\e[42;32m00000000000000000000000000000000000000000000000000000000000000000000000000\r
+\e[0m\e[0mSeg:9e04       Size:25083      Owner:0x0\r
+\e[41;31m\e[0m
\ No newline at end of file
diff --git a/HEAP.16W b/HEAP.16W
new file mode 100755 (executable)
index 0000000..f251371
--- /dev/null
+++ b/HEAP.16W
@@ -0,0 +1,39 @@
+\r
+       == near ==\r
+\r
+  USED block at 120e:e726 of size 12\r
+  USED block at 120e:e732 of size 322\r
+  USED block at 120e:e874 of size 52\r
+  USED block at 120e:e8a8 of size 20\r
+  USED block at 120e:e8bc of size 20\r
+  USED block at 120e:e8d0 of size 20\r
+  USED block at 120e:e8e4 of size 20\r
+  USED block at 120e:e8f8 of size 20\r
+  FREE block at 120e:e90c of size 5872\r
+OK - end of heap\r
+\r
+       == far ==\r
+\r
+  USED block at 220f:0016 of size 136\r
+  FREE block at 220f:009e of size 48840\r
+  USED block at 220f:bf66 of size 20\r
+  FREE block at 220f:bf7a of size 16514\r
+  FREE block at 3210:0016 of size 65510\r
+  FREE block at 4211:0016 of size 65510\r
+  FREE block at 5212:0016 of size 65510\r
+  FREE block at 6213:0016 of size 65510\r
+  FREE block at 7214:0016 of size 65510\r
+  FREE block at 8215:0016 of size 65510\r
+  FREE block at 9216:0016 of size 49174\r
+OK - end of heap\r
+\r
+Memory Type         Total      Used       Free\r
+----------------  --------   --------   --------\r
+Near              6358         486       5872\r
+Far               48992        156       48836\r
+----------------  --------   --------   --------\r
+HC_coreleft = 5870\r
+HC_farcoreleft = 513440\r
+coreleft = 5870\r
+farcoreleft = 513440\r
+stackavail = 31495\r
diff --git a/MMDUMP.16W b/MMDUMP.16W
new file mode 100755 (executable)
index 0000000..87b2a62
Binary files /dev/null and b/MMDUMP.16W differ
diff --git a/make-lowercase b/make-lowercase
new file mode 100755 (executable)
index 0000000..2cd4e2a
--- /dev/null
@@ -0,0 +1,63 @@
+#!/usr/bin/perl
+my $top=`pwd`; chomp $top;
+
+sub vfat_rename($$) {
+    my $from,$to;
+    ($from,$to) = @_;
+
+    # uppercase DOS names with the vfat driver need some forceful convincing
+    # to actually make them lowercase
+    rename($from,"$to.xxx.xx");
+    rename("$to.xxx.xx",$to);
+}
+
+sub scan($) {
+    my $old = `pwd`; chomp $old;
+    my $cur = shift @_;
+    my @x;
+
+    print "scanning $cur\n";
+    chdir($cur) || die;
+
+    opendir(X,".") || return;
+    while (my $name = readdir(X)) {
+        next unless -f $name;
+        my $n = lc($name);
+        next if $n eq $name;
+        print "$name\n";
+        rename($name,$n) || die;
+        vfat_rename($name,$n);
+    }
+    closedir(X);
+
+    opendir(X,".") || return;
+    while (my $name = readdir(X)) {
+        next if $name =~ m/^\.+$/;
+        next if $name eq ".git";
+        next if $name eq ".GIT";
+        next unless -d $name;
+        my $n = lc($name);
+        next if $n eq $name;
+        print "$name\n";
+        rename($name,$n) || die;
+        vfat_rename($name,$n);
+    }
+    closedir(X);
+
+    opendir(X,".") || return;
+    while (my $name = readdir(X)) {
+        next if $name =~ m/^\.+$/;
+        next if $name eq ".git";
+        next if $name eq ".GIT";
+        next unless -d $name;
+        push(@x,$name);
+    }
+    closedir(X);
+    foreach my $name (@x) {
+        scan("$cur/$name");
+    }
+
+    chdir($old) || die;
+}
+
+scan($top);
index 855613858d3ede3e3d7349c1588d6a2e89c0c3ab..82edd300c02cd364076efc5913b903cb02fde2b7 100755 (executable)
--- a/makefile
+++ b/makefile
@@ -115,7 +115,7 @@ WCLQ=-zq
 UPXQ=-qqq
 
 # symbolic debug for wsample/wprof/wd
-D_FLAGS=-d1+
+D_FLAGS=-d2#1+
 
 # stacksize
 STKSIZ=32768
index e39cf78c44d991866d03a52cb8fc7a882478063d..7441000ec49ba26ef22440b8c0165218f7141013 100755 (executable)
@@ -1,3 +1,3 @@
 @echo off\r
-wsample -b=31 xcroll.exe %*\r
+wsample -b=4 xcroll.exe %*\r
 wprof xcroll.smp\r