Apply null-termination fixes.
This commit is contained in:
parent
c0313d8f42
commit
0b7ca5271c
13
WOPO.COB
13
WOPO.COB
|
@ -258,9 +258,14 @@
|
||||||
GET-MSG-CONTENTS.
|
GET-MSG-CONTENTS.
|
||||||
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
MOVE PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS)
|
||||||
TO PTR(DEST).
|
TO PTR(DEST).
|
||||||
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY "$NUL$"
|
UNSTRING MSG-BODY OF INPUT-BUFFER DELIMITED BY "$NUL$",
|
||||||
INTO R(DEST)
|
INTO R(DEST)
|
||||||
WITH POINTER PTR(DEST).
|
WITH POINTER PTR(DEST).
|
||||||
|
SUBTRACT PARAM OF IRC-PARAMS(NUM-PARAMS OF IRC-PARAMS), 4
|
||||||
|
FROM PTR(DEST).
|
||||||
|
STRING "$NUL$"
|
||||||
|
INTO R(DEST)
|
||||||
|
WITH POINTER PTR(DEST).
|
||||||
|
|
||||||
INDEX-PARAMS.
|
INDEX-PARAMS.
|
||||||
MOVE 0 TO NUM-PARAMS OF WOPO, STATE.
|
MOVE 0 TO NUM-PARAMS OF WOPO, STATE.
|
||||||
|
@ -282,7 +287,7 @@
|
||||||
|
|
||||||
GET-PARAM.
|
GET-PARAM.
|
||||||
MOVE PARAM OF WOPO(PTR(SRC)) TO PTR(DEST).
|
MOVE PARAM OF WOPO(PTR(SRC)) TO PTR(DEST).
|
||||||
UNSTRING R(SRC) DELIMITED BY SPACES
|
UNSTRING R(SRC) DELIMITED BY SPACES OR "$NUL$"
|
||||||
INTO R(DEST)
|
INTO R(DEST)
|
||||||
WITH POINTER PTR(DEST).
|
WITH POINTER PTR(DEST).
|
||||||
|
|
||||||
|
@ -950,7 +955,7 @@
|
||||||
PERFORM INDEX-PARAMS.
|
PERFORM INDEX-PARAMS.
|
||||||
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
||||||
STRING "CODE. ",
|
STRING "CODE. ",
|
||||||
BF-CODE,
|
BF-CODE DELIMITED BY "$NUL$",
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
D DISPLAY "BF-CODE. ", BF-CODE
|
D DISPLAY "BF-CODE. ", BF-CODE
|
||||||
|
@ -975,7 +980,7 @@
|
||||||
PERFORM INDEX-PARAMS.
|
PERFORM INDEX-PARAMS.
|
||||||
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
IF NUM-PARAMS OF WOPO IS LESS THAN 1 THEN
|
||||||
STRING "INPUT. ",
|
STRING "INPUT. ",
|
||||||
BF-INPUT,
|
BF-INPUT DELIMITED BY "$NUL$",
|
||||||
"$NUL$"
|
"$NUL$"
|
||||||
INTO R(1)
|
INTO R(1)
|
||||||
D DISPLAY "BF-INPUT. ", BF-INPUT
|
D DISPLAY "BF-INPUT. ", BF-INPUT
|
||||||
|
|
Loading…
Reference in New Issue