# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1411246460 -7200
# Node ID 717489c30ebd6de8589cf46fc64109c54a733eac
# Parent  905541b3c4024efd86cf035c6149adccfaf7ef49
Added missing class CompilerTests2ExternalBytes - required by FFI test

diff -r 905541b3c402 -r 717489c30ebd RegressionTests__CompilerTests2.st
--- 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'!