summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common')
-rw-r--r--Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common47
1 files changed, 46 insertions, 1 deletions
diff --git a/Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common b/Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common
index ef86e62ccd3..54614abae3a 100644
--- a/Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common
+++ b/Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common
@@ -1,6 +1,15 @@
diff -ur pmx-2.7.0.orig/pmx270.for pmx-2.7.0/pmx270.for
--- pmx-2.7.0.orig/pmx270.for 2013-04-03 09:02:49.000000000 +0200
-+++ pmx-2.7.0/pmx270.for 2013-04-11 08:40:51.000000000 +0200
++++ pmx-2.7.0/pmx270.for 2013-04-12 08:47:44.000000000 +0200
+@@ -10904,7 +10904,7 @@
+ end if
+ go to 1
+ end
+- subroutine getmidi(noinst,lineq,iccount,ibarcnt,ibaroff,nbars,
++ subroutine getmidi(noinstarg,lineq,iccount,ibarcnt,ibaroff,nbars,
+ * lenbar,
+ c subroutine getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar,
+ * mtrdenl,first)
@@ -10933,7 +10933,7 @@
* debugmidi
logical debugmidi
@@ -10,6 +19,42 @@ diff -ur pmx-2.7.0.orig/pmx270.for pmx-2.7.0/pmx270.for
integer*2 iinsiv
character*1 durq
character*2 instq
+@@ -11010,7 +11010,7 @@
+ c Instrument numbers or letters. Expect noinst of them.
+ c
+ c do 2 ivx = 1 , nv
+- do 2 ivx = 1 , noinst
++ do 2 ivx = 1 , noinstarg
+ call getchar(lineq,iccount,durq)
+ if (ichar(durq) .gt. 96) then
+ c
+@@ -11055,7 +11055,7 @@
+ c Follow same pattern as for insttrument numbers above.
+ c
+ c do 7 ivx = 1 , nv
+- do 7 ivx = 1 , noinst
++ do 7 ivx = 1 , noinstarg
+ call getchar(lineq,iccount,durq)
+ if (index('123456789',durq) .eq. 0) then
+ call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1,
+@@ -11078,7 +11078,7 @@
+ c Follow same pattern as for instrument numbers above.
+ c
+ c do 8 ivx = 1 , nv
+- do 8 ivx = 1 , noinst
++ do 8 ivx = 1 , noinstarg
+ call getchar(lineq,iccount,durq)
+ if (index('123456789',durq) .eq. 0) then
+ call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1,
+@@ -11101,7 +11101,7 @@
+ c Follow similar pattern as above, but separator is +|-.
+ c
+ c do 9 ivx = 1 , nv
+- do 9 ivx = 1 , noinst
++ do 9 ivx = 1 , noinstarg
+ call getchar(lineq,iccount,durq)
+ ipm = index('-+',durq)
+ if (ipm .eq. 0) then
diff -ur pmx-2.7.0.orig/scor2prt.c pmx-2.7.0/scor2prt.c
--- pmx-2.7.0.orig/scor2prt.c 2013-04-03 08:54:13.000000000 +0200
+++ pmx-2.7.0/scor2prt.c 2013-04-11 08:47:42.000000000 +0200