diff options
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/m68k/ra68kmot.pas | 2 | ||||
| -rw-r--r-- | compiler/raatt.pas | 2 | ||||
| -rw-r--r-- | compiler/rautils.pas | 15 |
3 files changed, 2 insertions, 17 deletions
diff --git a/compiler/m68k/ra68kmot.pas b/compiler/m68k/ra68kmot.pas index c4f25cf222..01180ed15d 100644 --- a/compiler/m68k/ra68kmot.pas +++ b/compiler/m68k/ra68kmot.pas @@ -1617,7 +1617,7 @@ const expr:=actasmpattern; if asciiz then expr:=expr+#0; - ConcatPasString(curlist,expr); + ConcatString(curlist,expr); Consume(AS_STRING); end; AS_COMMA: begin diff --git a/compiler/raatt.pas b/compiler/raatt.pas index e9271722cd..88971c60c6 100644 --- a/compiler/raatt.pas +++ b/compiler/raatt.pas @@ -947,7 +947,7 @@ unit raatt; expr:=actasmpattern; if asciiz then expr:=expr+#0; - ConcatPasString(curlist,expr); + ConcatString(curlist,expr); Consume(AS_STRING); end; AS_COMMA: diff --git a/compiler/rautils.pas b/compiler/rautils.pas index c473699cb4..90e3522554 100644 --- a/compiler/rautils.pas +++ b/compiler/rautils.pas @@ -206,7 +206,6 @@ Function SearchIConstant(const s:string; var l:aint): boolean; Instruction generation routines ---------------------------------------------------------------------} - Procedure ConcatPasString(p : TAsmList;s:string); Procedure ConcatLabel(p: TAsmList;var l : tasmlabel); Procedure ConcatConstant(p : TAsmList;value: aint; constsize:byte); Procedure ConcatConstSymbol(p : TAsmList;const sym:string;symtyp:tasmsymtype;l:aint); @@ -1528,20 +1527,6 @@ end; { Description: This routine adds the character chain pointed to in } { s to the instruction linked list. } {*********************************************************************} - Var - pc: PChar; - Begin - getmem(pc,length(s)+1); - p.concat(Tai_string.Create_pchar(strpcopy(pc,s),length(s))); - end; - - Procedure ConcatPasString(p : TAsmList;s:string); - {*********************************************************************} - { PROCEDURE ConcatPasString(s:string); } - { Description: This routine adds the character chain pointed to in } - { s to the instruction linked list, contrary to ConcatString it } - { uses a pascal style string, so it conserves null characters. } - {*********************************************************************} Begin p.concat(Tai_string.Create(s)); end; |