diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/genapply/GenApply.hs | 4 | ||||
| -rw-r--r-- | utils/runstdtest/runstdtest.prl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/utils/genapply/GenApply.hs b/utils/genapply/GenApply.hs index 9d0febb59f..eb29e2d4ef 100644 --- a/utils/genapply/GenApply.hs +++ b/utils/genapply/GenApply.hs @@ -426,12 +426,12 @@ formalParam V _ = empty formalParam arg n = formalParamType arg <> space <> text "arg" <> int n <> text ", " -formalParamType arg | isPtr arg = text "\"ptr\"" <> space <> argRep arg - | otherwise = argRep arg +formalParamType arg = argRep arg argRep F = text "F_" argRep D = text "D_" argRep L = text "L_" +argRep P = text "gcptr" argRep _ = text "W_" genApply regstatus args = diff --git a/utils/runstdtest/runstdtest.prl b/utils/runstdtest/runstdtest.prl index 555e1eca59..039c2534e4 100644 --- a/utils/runstdtest/runstdtest.prl +++ b/utils/runstdtest/runstdtest.prl @@ -249,7 +249,7 @@ else $PostScriptLines hit='NO' for out_file in @PgmStdoutFile ; do - if sed "s/\\r\$//" $TmpPrefix/runtest$$.1 | cmp -s \$out_file - ; then + if sed "s/
\$//" $TmpPrefix/runtest$$.1 | cmp -s \$out_file - ; then hit='YES' fi done @@ -275,7 +275,7 @@ fi hit='NO' for out_file in @PgmStderrFile ; do - if sed "s/\\r\$//" $TmpPrefix/runtest$$.2 | cmp -s \$out_file - ; then + if sed "s/
\$//" $TmpPrefix/runtest$$.2 | cmp -s \$out_file - ; then hit='YES' fi done |