atari: some small bug fixes to new bindings

packages/tosunits/src/aes.pas

@@ -508,9 +508,9 @@ function appl_search(ap_smode: smallint; out ap_sname: String; out ap_stype, ap_
 var s: aesstr;
 begin
   _intin[0]:=ap_smode;
-  s:=ap_sname;
   _addrin[0]:=@s[0];
   appl_search:=crys_if(18);
+  ap_sname:=PChar(@s[0]);
   ap_stype:=_intout[1];
   ap_sid:=_intout[2];
 end;

packages/tosunits/src/gem.pas

@@ -432,6 +432,7 @@ end;
 function menu_text(me_ttree: AESTreePtr; me_titem: smallint; me_ttext: String): smallint;
 var s: aesstr;
 begin
+  s:=me_ttext;
   menu_text:=aes.menu_text(@me_ttree[0], me_titem, @s);
 end;
 
@@ -442,7 +443,7 @@ end;
 
 function menu_istart(me_flag: smallint; me_tree: AESTreePtr; me_imenu, me_item: smallint): smallint; overload;
 begin
-  menu_istart:=aes.menu_istart(me_flag, @me_tree[0], me_item, me_item);
+  menu_istart:=aes.menu_istart(me_flag, @me_tree[0], me_imenu, me_item);
 end;
 
 

packages/tosunits/src/vdi.pas

@@ -961,6 +961,8 @@ begin
   _contrl[6]:=handle;
 
   vdi;
+
+  vs_mute:=_intout[0];
 end;
 
 procedure vt_resolution(handle, xres, yres: smallint;
@@ -1941,8 +1943,6 @@ end;
 
 function vsm_choice(handle: smallint; out choice: smallint): smallint;
 begin
-  _intin[0]:=choice;
-
   _contrl[0]:=30;
   _contrl[1]:=0;
   _contrl[3]:=0;
@@ -2305,6 +2305,8 @@ begin
   char_height:=_ptsout[1];
   cell_width:=_ptsout[2];
   cell_height:=_ptsout[3];
+
+  vst_point:=_intout[0];
 end;
 
 procedure vsl_ends(handle, beg_style, end_style: smallint);
@@ -2930,8 +2932,7 @@ begin
   advy:=PLongint(@_intout[4])^;
   xoff:=PLongint(@_intout[6])^;
   yoff:=PLongint(@_intout[8])^;
-  if (bitmap <> nil) then
-    bitmap:=PPointer(@_intout[10])^;
+  bitmap:=PPointer(@_intout[10])^;
 end;