paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 06:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* bugfix with parameter line, removed enter key when found in it

Browse Source
This commit is contained in:
carl 1998-07-01 14:09:12 +00:00
parent e664873b05
commit 8b4ffa26ba
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/amiga/prt0.as
View File

@ -18,7 +18,17 @@ start:
movel a0,__ARGS movel a0,__ARGS
beq .Ldont_nullit beq .Ldont_nullit
| Remove $0a character from end of string
movew d0,d1
subqw #1,d1
cmpb #0x0a,a0@(0,d1:w)
bne .Lcontt
| Decrement count by one to remove the $0a character
movew d1,d0
.Lcontt:
moveb #0,a0@(0,d0:w) | null terminate it moveb #0,a0@(0,d0:w) | null terminate it
movew d0,__ARGC
.Ldont_nullit: .Ldont_nullit:
jsr PASCALMAIN jsr PASCALMAIN