Commit e935ea1

committed

improved append operator's performance

1 parent 980c18a commit e935ea1Copy full SHA for e935ea1

File tree

-2

lines changed

-2

lines changed

Lines changed: 4 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -222,7 +222,8 @@ function append_char( lhs, rhs )`
`222`	`222`	`character(len=*), intent(in) :: rhs`
`223`	`223`	`type(stringlist_type) :: append_char`
`224`	`224`
`225`		`- append_char = lhs // string_type( rhs )`
	`225`	`+ append_char = lhs ! Intent: creating a full, deep copy`
	`226`	`+ call append_char%insert_at( list_tail, rhs )`
`226`	`227`
`227`	`228`	`end function append_char`
`228`	`229`
`@@ -245,7 +246,8 @@ function prepend_char( lhs, rhs )`
`245`	`246`	`type(stringlist_type), intent(in) :: rhs`
`246`	`247`	`type(stringlist_type) :: prepend_char`
`247`	`248`
`248`		`- prepend_char = string_type( lhs ) // rhs`
	`249`	`+ prepend_char = rhs ! Intent: creating a full, deep copy`
	`250`	`+ call prepend_char%insert_at( list_head, lhs )`
`249`	`251`
`250`	`252`	`end function prepend_char`
`251`	`253`

Comments

(0)