--- a/RegressionTests__CompilerTests2.st Fri Sep 19 18:05:02 2014 +0200
+++ b/RegressionTests__CompilerTests2.st Sat Sep 20 22:54:20 2014 +0200
@@ -776,11 +776,11 @@
malloc := 'malloc: size
- <cdecl: RegressionTests::CompilerTests2ExternalBytes "malloc" ( int ) module: ''librun.so''>
+ <cdecl: const RegressionTests::CompilerTests2ExternalBytes "malloc" ( int ) module: ''librun.so''>
self primitive failed'.
free := 'free: ptr
- <cdecl: void "free" ( RegressionTests::CompilerTests2ExternalBytes ) module: ''librun.so''>
+ <cdecl: const void "free" ( RegressionTests::CompilerTests2ExternalBytes ) module: ''librun.so''>
self primitive failed'.
#( #bc #stc ) do:[:mode |
| ptr |
@@ -789,10 +789,11 @@
self compile:free mode:mode.
ptr := self perform:(mode , '_malloc:') asSymbol with:1.
self assert:ptr class == RegressionTests::CompilerTests2ExternalBytes.
- self perform:(mode , 'free:') asSymbol with:ptr.
+ self perform:(mode , '_free:') asSymbol with:ptr.
]
"Created: / 06-01-2014 / 11:29:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 20-09-2014 / 21:51:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CompilerTests2 methodsFor:'tests - arg & var names'!