From b57e9c8f9bfaa26635393d2bbe2d12e8d47e22b3 Mon Sep 17 00:00:00 2001
From: Jon Rumsey <jrumsey@uk.ibm.com>
Date: Mon, 28 Oct 2024 17:53:01 +0000
Subject: [PATCH] OS400: don't delete source files when building with debug

Debugger not able to work against curl *SRVPGM when using temporary
source files.

Fixes #15445
Closes #15446
---
 packages/OS400/initscript.sh | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/OS400/initscript.sh b/packages/OS400/initscript.sh
index 2f6d78c245..69a354ab0d 100755
--- a/packages/OS400/initscript.sh
+++ b/packages/OS400/initscript.sh
@@ -189,8 +189,8 @@ make_module()
                 echo "#pragma convert(819)"
                 echo "#line 1"
                 cat "${2}"
-        } > __tmpsrcf.c
-        CMD="CRTCMOD MODULE(${TARGETLIB}/${1}) SRCSTMF('__tmpsrcf.c')"
+        } > "${1}"__819.c
+        CMD="CRTCMOD MODULE(${TARGETLIB}/${1}) SRCSTMF('${1}__819.c')"
         CMD="${CMD} SYSIFCOPT(*IFS64IO *ASYNCSIGNAL)"
 #       CMD="${CMD} OPTION(*INCDIRFIRST *SHOWINC *SHOWSYS)"
         CMD="${CMD} OPTION(*INCDIRFIRST)"
@@ -228,7 +228,9 @@ make_module()
         fi
 
         CLcommand "${CMD}"
-        rm -f __tmpsrcf.c
+        if [ "${DEBUG}" = "*NONE" ]
+        then    rm -f "${1}"__819.c
+        fi
         # shellcheck disable=SC2034
         LINK=YES
 }