Skip to content

Commit 2edbaba

Browse files
committed
Merge branch 'development' into error-handling-on-bogus-format
2 parents 665f2f2 + 7e5e3a9 commit 2edbaba

1 file changed

Lines changed: 4 additions & 2 deletions

File tree

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,8 @@
11
sign
2-
signMessage: aString withKey: anObject
2+
signMessage: message withKey: anObject
33
| pkey sig |
44
pkey := LcEvpPublicKey setRSA: (LcRSA fromPemString: anObject).
5-
sig := pkey digestSignMessage: aString.
5+
message pinInMemory.
6+
sig := [ pkey digestSignMessage: message ]
7+
ensure: [ message unpinInMemory ].
68
^ sig

0 commit comments

Comments
 (0)