Bläddra i källkod

atari: fix external linkage of graf_movebox/graf_rubberbox

Thorsten Otto 3 år sedan
förälder
incheckning
17a90f9521
1 ändrade filer med 4 tillägg och 4 borttagningar
  1. 4 4
      packages/tosunits/src/aes.pas

+ 4 - 4
packages/tosunits/src/aes.pas

@@ -145,12 +145,12 @@ function form_button(fo_btree: PAESOBJECT; fo_bobject, fo_bclicks: smallint;
 function graf_rubbox(gr_rx, gr_ry, gr_rminwidth, gr_rminheight: smallint;
         out gr_rlastwidth, gr_rlastheight: smallint): smallint;
 function graf_rubberbox(gr_rx, gr_ry, gr_rminwidth, gr_rminheight: smallint;
-        out gr_rlastwidth, gr_rlastheight: smallint): smallint; external;
+        out gr_rlastwidth, gr_rlastheight: smallint): smallint; external name 'graf_rubberbox';
 function graf_dragbox(gr_dwidth, gr_dheight, gr_dstartx, gr_dstarty,
                       gr_dboundx, gr_dboundy, gr_dboundw, gr_dboundh: smallint;
               out gr_dfinishx, gr_dfinishy: smallint): smallint;
 function graf_mbox(gr_mwidth, gr_mheight, gr_msourcex, gr_msourcey, gr_mdestx, gr_mdesty: smallint): smallint;
-function graf_movebox(gr_mwidth, gr_mheight, gr_msourcex, gr_msourcey, gr_mdestx, gr_mdesty: smallint): smallint; external;
+function graf_movebox(gr_mwidth, gr_mheight, gr_msourcex, gr_msourcey, gr_mdestx, gr_mdesty: smallint): smallint; external name 'graf_movebox';
 function graf_growbox(gr_gstx, gr_gsty, gr_gstwidth, gr_gstheight,
                       gr_gfinx, gr_gfiny, gr_gfinwidth, gr_gfinheight :smallint): smallint;
 function graf_shrinkbox(gr_sfinx, gr_sfiny, gr_sfinwidth, gr_sfinheight,
@@ -1202,7 +1202,7 @@ end;
 
 
 function graf_rubbox(gr_rx, gr_ry, gr_rminwidth, gr_rminheight: smallint;
-        out gr_rlastwidth, gr_rlastheight: smallint): smallint; alias: 'AES_$$_GRAF_RUBBERBOX$SMALLINT$SMALLINT$SMALLINT$SMALLINT$SMALLINT$SMALLINT$$SMALLINT';
+        out gr_rlastwidth, gr_rlastheight: smallint): smallint; alias: 'graf_rubberbox';
 begin
   _intin[0]:=gr_rx;
   _intin[1]:=gr_ry;
@@ -1232,7 +1232,7 @@ begin
   gr_dfinishy:=_intout[2];
 end;
 
-function graf_mbox(gr_mwidth, gr_mheight, gr_msourcex, gr_msourcey, gr_mdestx, gr_mdesty: smallint): smallint; alias: 'AES_$$_GRAF_MOVEBOX$SMALLINT$SMALLINT$SMALLINT$SMALLINT$SMALLINT$SMALLINT$$SMALLINT';
+function graf_mbox(gr_mwidth, gr_mheight, gr_msourcex, gr_msourcey, gr_mdestx, gr_mdesty: smallint): smallint; alias: 'graf_movebox';
 begin
   _intin[0]:=gr_mwidth;
   _intin[1]:=gr_mheight;