palmunits: change the obsolete dispatcher wrappers to syscalls, batch 2

git-svn-id: trunk@36894 -

packages/palmunits/src/floatmgr.pp

@@ -290,15 +290,15 @@ const
                 // Note: FlpBase10Info returns the actual sign bit in *signP (1 if negative)
                 // Note: FlpBase10Info reports that zero is "negative".
                 //          A workaround is to check (*signP && *mantissaP) instead of just *signP.
-function FlpBase10Info(a: FlpDouble; var mantissaP: UInt32; var exponentP, signP: Int16): Err;
+function FlpBase10Info(a: FlpDouble; var mantissaP: UInt32; var exponentP, signP: Int16): Err; syscall sysTrapFlpDispatch, sysFloatBase10Info;
 
-function FlpFToA(a: FlpDouble; s: PChar): Err;
+function FlpFToA(a: FlpDouble; s: PChar): Err; syscall sysTrapFlpDispatch, sysFloatFToA;
 
-function FlpAToF(const s: PChar): FlpDouble;
+function FlpAToF(const s: PChar): FlpDouble; syscall sysTrapFlpDispatch, sysFloatAToF;
 
-function FlpCorrectedAdd(firstOperand, secondOperand: FlpDouble; howAccurate: Int16): FlpDouble;
+function FlpCorrectedAdd(firstOperand, secondOperand: FlpDouble; howAccurate: Int16): FlpDouble; syscall sysTrapFlpDispatch, sysFloatCorrectedAdd;
 
-function FlpCorrectedSub(firstOperand, secondOperand: FlpDouble;  howAccurate: Int16): FlpDouble;
+function FlpCorrectedSub(firstOperand, secondOperand: FlpDouble;  howAccurate: Int16): FlpDouble; syscall sysTrapFlpDispatch, sysFloatCorrectedSub;
 
 // These next three functions correspond to the previous three above.
 // The signatures are different, but in fact with CodeWarrior for Palm OS
@@ -323,13 +323,13 @@ function FlpCorrectedSub(firstOperand, secondOperand: FlpDouble;  howAccurate: I
 //
 // See the SDK's SampleCalc example for further discussion.
 
-procedure FlpBufferAToF(var result: FlpDouble; const s: PChar);
+procedure FlpBufferAToF(var result: FlpDouble; const s: PChar); syscall sysTrapFlpDispatch, sysFloatAToF;
 
-procedure FlpBufferCorrectedAdd(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16);
+procedure FlpBufferCorrectedAdd(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16); syscall sysTrapFlpDispatch, sysFloatCorrectedAdd;
 
-procedure FlpBufferCorrectedSub(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16);
+procedure FlpBufferCorrectedSub(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16); syscall sysTrapFlpDispatch, sysFloatCorrectedSub;
 
-function FlpVersion: UInt32;
+function FlpVersion: UInt32; syscall sysTrapFlpDispatch, sysFloatVersion;
 
 //procedure FlpSelectorErrPrv(flpSelector: UInt16); // used only by NewFloatDispatch.c
 
@@ -360,15 +360,15 @@ function FlpVersion: UInt32;
  *      flpToNearest, flpTowardZero, flpUpward, or flpDownward
  *)
 
-function _fp_round(Value: Int32): Int32;
+function _fp_round(Value: Int32): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_fp_round;
 
 (*
  * Constants passed to _fp_set_fpscr and received from _fp_get_fpscr are:
  *      flpInvalid, flpOverflow, flpUnderflow, flpDivByZero, or flpInexact
  *)
 
-function _fp_get_fpscr: Int32;
-procedure _fp_set_fpscr(Value: Int32);
+function _fp_get_fpscr: Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_fp_get_fpscr;
+procedure _fp_set_fpscr(Value: Int32); syscall sysTrapFlpEmDispatch, sysFloatEm_fp_set_fpscr;
 
 (*
  * The shorthand here can be determined from the context:
@@ -382,33 +382,33 @@ procedure _fp_set_fpscr(Value: Int32);
  *      XtoY--> map of type X to a value of type Y
  *)
 
-function _f_utof(Value: UInt32): FlpFloat;
-function _f_itof(Value: Int32): FlpFloat;
+function _f_utof(Value: UInt32): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_utof;
+function _f_itof(Value: Int32): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_itof;
 //!!!function _f_ulltof(Value: sfpe_unsigned_long_long): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ulltof;
 //!!!function _f_lltof(Value: sfpe_long_long): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_lltof;
 
-function _d_utod(Value: UInt32): FlpDouble;
-function _d_itod(Value: Int32): FlpDouble;
+function _d_utod(Value: UInt32): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_utod;
+function _d_itod(Value: Int32): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_itod;
 //!!!function _d_ulltod(Value: sfpe_unsigned_long_long): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_ulltod;
 //!!!function _d_lltod(Value: sfpe_long_long): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_lltod;
 
-function _f_ftod(Value: FlpFloat): FlpDouble;
-function _d_dtof(Value: FlpDouble): FlpFloat;
+function _f_ftod(Value: FlpFloat): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ftod;
+function _d_dtof(Value: FlpDouble): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_d_dtof;
 
 //!!!function _f_ftoq(Value: FlpFloat): FlpLongDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ftoq;
-function _f_qtof(var Value: FlpLongDouble): FlpFloat;
+function _f_qtof(var Value: FlpLongDouble): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_qtof;
 
 //!!!function _d_dtoq(Value: FlpDouble): FlpLongDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_dtoq;
 //!!!function _d_qtod(var Value: FlpLongDouble): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_qtod;
 
-function _f_ftou(Value: FlpFloat): UInt32;
-function _f_ftoi(Value: FlpFloat): Int32;
+function _f_ftou(Value: FlpFloat): UInt32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ftou;
+function _f_ftoi(Value: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ftoi;
 
 //!!!function _f_ftoull(Value: FlpFloat): sfpe_unsigned_long_long; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ftoull;
 //!!!function _f_ftoll(Value: FlpFloat): sfpe_long_long; syscall sysTrapFlpEmDispatch, sysFloatEm_f_ftoll;
 
-function _d_dtou(Value: FlpDouble): UInt32;
-function _d_dtoi(Value: FlpDouble): Int32;
+function _d_dtou(Value: FlpDouble): UInt32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_dtou;
+function _d_dtoi(Value: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_dtoi;
 
 //!!!function _d_dtoull(Value: FlpDouble): sfpe_unsigned_long_long; syscall sysTrapFlpEmDispatch, sysFloatEm_d_dtoull;
 //!!!function _d_dtoll(Value: FlpDouble): sfpe_long_long; syscall sysTrapFlpEmDispatch, sysFloatEm_d_dtoll;
@@ -436,505 +436,41 @@ function _d_dtoi(Value: FlpDouble): Int32;
  *      or  --> ordered with (i.e. less than, equal to, or greater than)
  *)
 
-function _f_cmp(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_cmpe(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_feq(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_fne(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_flt(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_fle(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_fgt(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_fge(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_fun(Left: FlpFloat; Right: FlpFloat): Int32;
-function _f_for(Left: FlpFloat; Right: FlpFloat): Int32;
-
-function _d_cmp(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_cmpe(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_feq(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_fne(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_flt(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_fle(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_fgt(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_fge(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_fun(Left: FlpDouble; Right: FlpDouble): Int32;
-function _d_for(Left: FlpDouble; Right: FlpDouble): Int32;
-
-function _f_neg(Value: FlpFloat): FlpFloat;
-function _f_add(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-function _f_mul(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-function _f_sub(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-function _f_div(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-
-function _d_neg(Value: FlpDouble): FlpDouble;
-function _d_add(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-function _d_mul(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-function _d_sub(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-function _d_div(Left: FlpDouble; Right: FlpDouble): FlpDouble;
+function _f_cmp(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_cmp;
+function _f_cmpe(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_cmpe;
+function _f_feq(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_feq;
+function _f_fne(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_fne;
+function _f_flt(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_flt;
+function _f_fle(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_fle;
+function _f_fgt(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_fgt;
+function _f_fge(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_fge;
+function _f_fun(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_fun;
+function _f_for(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_f_for;
+
+function _d_cmp(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_cmp;
+function _d_cmpe(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_cmpe;
+function _d_feq(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_feq;
+function _d_fne(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_fne;
+function _d_flt(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_flt;
+function _d_fle(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_fle;
+function _d_fgt(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_fgt;
+function _d_fge(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_fge;
+function _d_fun(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_fun;
+function _d_for(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch, sysFloatEm_d_for;
+
+function _f_neg(Value: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_neg;
+function _f_add(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_add;
+function _f_mul(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_mul;
+function _f_sub(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_sub;
+function _f_div(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch, sysFloatEm_f_div;
+
+function _d_neg(Value: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_neg;
+function _d_add(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_add;
+function _d_mul(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_mul;
+function _d_sub(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_sub;
+function _d_div(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch, sysFloatEm_d_div;
 
-implementation
 
-function __FlpBase10Info(a: FlpDouble; var mantissaP: UInt32; var exponentP, signP: Int16): Err; syscall sysTrapFlpDispatch;
-function __FlpFToA(a: FlpDouble; s: PChar): Err; syscall sysTrapFlpDispatch;
-function __FlpAToF(const s: PChar): FlpDouble; syscall sysTrapFlpDispatch;
-function __FlpCorrectedAdd(firstOperand, secondOperand: FlpDouble; howAccurate: Int16): FlpDouble; syscall sysTrapFlpDispatch;
-function __FlpCorrectedSub(firstOperand, secondOperand: FlpDouble;  howAccurate: Int16): FlpDouble; syscall sysTrapFlpDispatch;
-
-procedure __FlpBufferAToF(var result: FlpDouble; const s: PChar); syscall sysTrapFlpDispatch;
-procedure __FlpBufferCorrectedAdd(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16); syscall sysTrapFlpDispatch;
-procedure __FlpBufferCorrectedSub(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16); syscall sysTrapFlpDispatch;
-function __FlpVersion: UInt32; syscall sysTrapFlpDispatch;
-
-function ___fp_round(Value: Int32): Int32; syscall sysTrapFlpEmDispatch;
-function ___fp_get_fpscr: Int32; syscall sysTrapFlpEmDispatch;
-procedure ___fp_set_fpscr(Value: Int32); syscall sysTrapFlpEmDispatch;
-function ___f_utof(Value: UInt32): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___f_itof(Value: Int32): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___d_utod(Value: UInt32): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___d_itod(Value: Int32): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___f_ftod(Value: FlpFloat): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___d_dtof(Value: FlpDouble): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___f_qtof(var Value: FlpLongDouble): FlpFloat; syscall sysTrapFlpEmDispatch;
-
-function ___f_ftou(Value: FlpFloat): UInt32; syscall sysTrapFlpEmDispatch;
-function ___f_ftoi(Value: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-
-function ___d_dtou(Value: FlpDouble): UInt32; syscall sysTrapFlpEmDispatch;
-function ___d_dtoi(Value: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-
-
-function FlpBase10Info(a: FlpDouble; var mantissaP: UInt32; var exponentP, signP: Int16): Err;
-begin
- asm
-  move.l #sysFloatBase10Info, D2;
- end;
- FlpBase10Info := __FlpBase10Info(a, mantissaP, exponentP, signP);
-end;
-
-function FlpFToA(a: FlpDouble; s: PChar): Err;
-begin
- asm
-  move.l #sysFloatFToA, D2;
- end;
- FlpFToA := __FlpFToA(a, s);
-end;
-
-function FlpAToF(const s: PChar): FlpDouble;
-begin
- asm
-  move.l #sysFloatAToF, D2
- end;
- FlpAToF := __FlpAToF(s);
-end;
-
-function FlpCorrectedAdd(firstOperand, secondOperand: FlpDouble; howAccurate: Int16): FlpDouble;
-begin
- asm
-  move.l #sysFloatCorrectedAdd, D2
- end;
- FlpCorrectedAdd := __FlpCorrectedAdd(firstOperand, secondOperand, howAccurate);
-end;
-
-function FlpCorrectedSub(firstOperand, secondOperand: FlpDouble;  howAccurate: Int16): FlpDouble;
-begin
- asm
-  move.l #sysFloatCorrectedSub, D2;
- end;
- FlpCorrectedSub := __FlpCorrectedSub(firstOperand, secondOperand, howAccurate);
-end;
-
-procedure FlpBufferAToF(var result: FlpDouble; const s: PChar);
-begin
- asm
-  move.l #sysFloatAToF, D2;
- end;
- __FlpBufferAToF(result, s);
-end;
-
-procedure FlpBufferCorrectedAdd(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16);
-begin
- asm
-  move.l #sysFloatCorrectedAdd, D2;
- end;
- __FlpBufferCorrectedAdd(result, firstOperand, secondOperand, howAccurate);
-end;
-
-procedure FlpBufferCorrectedSub(var result: FlpDouble; firstOperand, secondOperand: FlpDouble; howAccurate: Int16);
-begin
- asm
-  move.l #sysFloatCorrectedSub, D2
- end;
- __FlpBufferCorrectedSub(result, firstOperand, secondOperand, howAccurate);
-end;
-
-function FlpVersion: UInt32;
-begin
- asm
-  move.l #sysFloatVersion, D2;
- end;
- FlpVersion := __FlpVersion;
-end;
-
-function _fp_round(Value: Int32): Int32;
-begin
- asm
-  move.l #sysFloatEm_fp_round, D2;
- end;
- _fp_round := ___fp_round(Value);
-end;
-
-function _fp_get_fpscr: Int32;
-begin
- asm
-  move.l #sysFloatEm_fp_get_fpscr, D2;
- end;
- _fp_get_fpscr := ___fp_get_fpscr;
-end;
-
-procedure _fp_set_fpscr(Value: Int32);
-begin
- asm
-  move.l #sysFloatEm_fp_set_fpscr, D2;
- end;
- ___fp_set_fpscr(Value);
-end;
-
-function _f_utof(Value: UInt32): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_utof, D2;
- end;
- _f_utof := ___f_utof(Value);
-end;
-
-function _f_itof(Value: Int32): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_itof, D2;
- end;
- _f_itof := ___f_itof(Value);
-end;
-
-function _d_utod(Value: UInt32): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_utod, D2;
- end;
- _d_utod := ___d_utod(Value);
-end;
-
-function _d_itod(Value: Int32): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_itod, D2;
- end;
- _d_itod := ___d_itod(Value);
-end;
-
-function _f_ftod(Value: FlpFloat): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_f_ftod, D2;
- end;
- _f_ftod := ___f_ftod(Value);
-end;
-
-function _d_dtof(Value: FlpDouble): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_d_dtof, D2;
- end;
- _d_dtof := ___d_dtof(Value);
-end;
-
-function _f_qtof(var Value: FlpLongDouble): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_qtof, D2;
- end;
- _f_qtof := ___f_qtof(Value);
-end;
-
-function _f_ftou(Value: FlpFloat): UInt32;
-begin
- asm
-  move.l #sysFloatEm_f_ftou, D2;
- end;
- _f_ftou := ___f_ftou(Value);
-end;
-
-function _f_ftoi(Value: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_ftoi, D2;
- end;
- _f_ftoi := ___f_ftoi(Value);
-end;
-
-function _d_dtou(Value: FlpDouble): UInt32;
-begin
- asm
-  move.l #sysFloatEm_d_dtou, D2;
- end;
- _d_dtou := ___d_dtou(Value);
-end;
-
-function _d_dtoi(Value: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_dtoi, D2;
- end;
- _d_dtoi := ___d_dtoi(Value);
-end;
-
-function ___f_cmp(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_cmpe(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_feq(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_fne(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_flt(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_fle(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_fgt(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_fge(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_fun(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-function ___f_for(Left: FlpFloat; Right: FlpFloat): Int32; syscall sysTrapFlpEmDispatch;
-
-function ___d_cmp(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_cmpe(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_feq(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_fne(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_flt(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_fle(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_fgt(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_fge(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_fun(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-function ___d_for(Left: FlpDouble; Right: FlpDouble): Int32; syscall sysTrapFlpEmDispatch;
-
-function ___f_neg(Value: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___f_add(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___f_mul(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___f_sub(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch;
-function ___f_div(Left: FlpFloat; Right: FlpFloat): FlpFloat; syscall sysTrapFlpEmDispatch;
-
-function ___d_neg(Value: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___d_add(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___d_mul(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___d_sub(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch;
-function ___d_div(Left: FlpDouble; Right: FlpDouble): FlpDouble; syscall sysTrapFlpEmDispatch;
-
-
-function _f_cmp(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_cmp , D2
- end;
- _f_cmp := ___f_cmp(Left, Right);
-end;
-function _f_cmpe(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_cmpe , D2
- end;
- _f_cmpe := ___f_cmpe(Left, Right);
-end;
-function _f_feq(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_feq , D2
- end;
- _f_feq := ___f_feq(Left, Right);
-end;
-function _f_fne(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_fne , D2
- end;
- _f_fne := ___f_fne(Left, Right);
-end;
-function _f_flt(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_flt, D2;
- end;
- _f_flt := ___f_flt(Left, Right);
-end;
-function _f_fle(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_fle, D2;
- end;
- _f_fle := ___f_fle(Left, Right);
-end;
-function _f_fgt(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_fgt, D2;
- end;
- _f_fgt := ___f_fgt(Left, Right);
-end;
-function _f_fge(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_fge, D2;
- end;
- _f_fge := ___f_fge(Left, Right);
-end;
-function _f_fun(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_fun, D2;
- end;
- _f_fun := ___f_fun(Left, Right);
-end;
-function _f_for(Left: FlpFloat; Right: FlpFloat): Int32;
-begin
- asm
-  move.l #sysFloatEm_f_for, D2
- end;
- _f_for := ___f_for(Left, Right);
-end;
-function _d_cmp(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_cmp, D2
- end;
- _d_cmp := ___d_cmp(Left, Right);
-end;
-function _d_cmpe(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_cmpe, D2;
- end;
- _d_cmpe := ___d_cmpe(Left, Right);
-end;
-function _d_feq(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_feq, D2;
- end;
- _d_feq := ___d_feq(Left, Right);
-end;
-function _d_fne(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_fne, D2;
- end;
- _d_fne := ___d_fne(Left, Right);
-end;
-function _d_flt(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_flt, D2;
- end;
- _d_flt := ___d_flt(Left, Right);
-end;
-function _d_fle(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_fle, D2
- end;
- _d_fle := ___d_fle(Left, Right);
-end;
-function _d_fgt(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_fgt, D2;
- end;
- _d_fgt := ___d_fgt(Left, Right);
-end;
-function _d_fge(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_fge, D2;
- end;
- _d_fge := ___d_fge(Left, Right);
-end;
-
-function _d_fun(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_fun, D2
- end;
- _d_fun := ___d_fun(Left, Right);
-end;
-
-function _d_for(Left: FlpDouble; Right: FlpDouble): Int32;
-begin
- asm
-  move.l #sysFloatEm_d_for, D2
- end;
- _d_for := ___d_for(Left, Right);
-end;
-function _f_neg(Value: FlpFloat): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_neg, D2;
- end;
- _f_neg := ___f_neg(Value);
-end;
-function _f_add(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_add, D2;
- end;
- _f_add := ___f_add(Left, Right);
-end;
-function _f_mul(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_mul, D2;
- end;
- _f_mul := ___f_mul(Left, Right);
-end;
-function _f_sub(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_sub, D2;
- end;
- _f_sub := ___f_sub(Left, Right);
-end;
-function _f_div(Left: FlpFloat; Right: FlpFloat): FlpFloat;
-begin
- asm
-  move.l #sysFloatEm_f_div, D2
- end;
- _f_div := ___f_div(Left, Right);
-end;
-function _d_neg(Value: FlpDouble): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_neg, D2;
- end;
- _d_neg := ___d_neg(Value);
-end;
-
-function _d_add(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_add, D2;
- end;
- _d_add := ___d_add(Left, Right);
-end;
-
-function _d_mul(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_mul, D2;
- end;
- _d_mul := ___d_mul(Left, Right);
-end;
-
-function _d_sub(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_sub, D2;
- end;
- _d_sub := ___d_sub(Left, Right);
-end;
-
-function _d_div(Left: FlpDouble; Right: FlpDouble): FlpDouble;
-begin
- asm
-  move.l #sysFloatEm_d_div, D2;
- end;
- _d_div := ___d_div(Left, Right);
-end;
+implementation
 
 end.

packages/palmunits/src/vfsmgr.pp

@@ -303,512 +303,109 @@ type
 
   VFSExportProcPtr = function(totalBytes, offset: UInt32; userDataP: Pointer): Err;
 
-function VFSInit: Err;
+function VFSInit: Err; syscall sysTrapVFSMgr, vfsTrapInit;
 
 // if you pass NULL for fsCreator, VFS will iterate through
 // all installed filesystems until it finds one that does not return an error.
 function VFSCustomControl(fsCreator, apiCreator: UInt32; apiSelector: UInt16;
-                          valueP: Pointer; var valueLenP: UInt16): Err;
+                          valueP: Pointer; var valueLenP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapCustomControl;
 
-function VFSFileCreate(volRefNum: UInt16; const pathNameP: PChar): Err;
+function VFSFileCreate(volRefNum: UInt16; const pathNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapFileCreate;
 
-function VFSFileOpen(volRefNum: UInt16; const pathNameP: PChar; openMode: UInt16; var fileRefP: FileRef): Err;
+function VFSFileOpen(volRefNum: UInt16; const pathNameP: PChar; openMode: UInt16; var fileRefP: FileRef): Err; syscall sysTrapVFSMgr, vfsTrapFileOpen;
 
-function VFSFileClose(fileRef: FileRef): Err;
+function VFSFileClose(fileRef: FileRef): Err; syscall sysTrapVFSMgr, vfsTrapFileClose;
 
 function VFSFileReadData(fileRef: FileRef; numBytes: UInt32; bufBaseP: Pointer;
-                         offset: UInt32; var numBytesReadP: UInt32): Err;
+                         offset: UInt32; var numBytesReadP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileReadData;
 
-function VFSFileRead(fileRef: FileRef; numBytes: UInt32; bufP: Pointer; var numBytesReadP: UInt32): Err;
+function VFSFileRead(fileRef: FileRef; numBytes: UInt32; bufP: Pointer; var numBytesReadP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileRead;
 
-function VFSFileWrite(fileRef: FileRef; numBytes: UInt32; const dataP: Pointer; var numBytesWrittenP: UInt32): Err;
+function VFSFileWrite(fileRef: FileRef; numBytes: UInt32; const dataP: Pointer; var numBytesWrittenP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileWrite;
 
 // some file routines work on directories
-function VFSFileDelete(volRefNum: UInt16; const pathNameP: PChar): Err;
+function VFSFileDelete(volRefNum: UInt16; const pathNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapFileDelete;
 
-function VFSFileRename(volRefNum: UInt16; const pathNameP, newNameP: PChar): Err;
+function VFSFileRename(volRefNum: UInt16; const pathNameP, newNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapFileRename;
 
-function VFSFileSeek(fileRef: FileRef; origin: FileOrigin; offset: Int32): Err;
+function VFSFileSeek(fileRef: FileRef; origin: FileOrigin; offset: Int32): Err; syscall sysTrapVFSMgr, vfsTrapFileSeek;
 
-function VFSFileEOF(fileRef: FileRef): Err;
+function VFSFileEOF(fileRef: FileRef): Err; syscall sysTrapVFSMgr, vfsTrapFileEOF;
 
-function VFSFileTell(fileRef: FileRef; var filePosP: UInt32): Err;
+function VFSFileTell(fileRef: FileRef; var filePosP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileTell;
 
-function VFSFileSize(fileRef: FileRef; var fileSizeP: UInt32): Err;
+function VFSFileSize(fileRef: FileRef; var fileSizeP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileSize;
 
-function VFSFileResize(fileRef: FileRef; newSize: UInt32): Err;
+function VFSFileResize(fileRef: FileRef; newSize: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileResize;
 
-function VFSFileGetAttributes(fileRef: FileRef; var attributesP: UInt32): Err;
+function VFSFileGetAttributes(fileRef: FileRef; var attributesP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileGetAttributes;
 
-function VFSFileSetAttributes(fileRef: FileRef; attributes: UInt32): Err;
+function VFSFileSetAttributes(fileRef: FileRef; attributes: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileSetAttributes;
 
-function VFSFileGetDate(fileRef: FileRef; whichDate: UInt16; var dateP: UInt32): Err;
+function VFSFileGetDate(fileRef: FileRef; whichDate: UInt16; var dateP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileGetDate;
 
-function VFSFileSetDate(fileRef: FileRef; whichDate: UInt16; date: UInt32): Err;
+function VFSFileSetDate(fileRef: FileRef; whichDate: UInt16; date: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileSetDate;
 
 
-function VFSDirCreate(volRefNum: UInt16; const dirNameP: PChar): Err;
+function VFSDirCreate(volRefNum: UInt16; const dirNameP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapDirCreate;
 
-function VFSDirEntryEnumerate(dirRef: FileRef; var dirEntryIteratorP: UInt32; var infoP: FileInfoType): Err;
+function VFSDirEntryEnumerate(dirRef: FileRef; var dirEntryIteratorP: UInt32; var infoP: FileInfoType): Err; syscall sysTrapVFSMgr, vfsTrapDirEntryEnumerate;
 
 
 function VFSGetDefaultDirectory(volRefNum: UInt16; const fileTypeStr: PChar;
-                                pathStr: PChar; var bufLenP: UInt16): Err;
+                                pathStr: PChar; var bufLenP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapGetDefaultDirectory;
 
 function VFSRegisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32;
-                                     const pathStr: PChar): Err;
+                                     const pathStr: PChar): Err; syscall sysTrapVFSMgr, vfsTrapRegisterDefaultDirectory;
 
-function VFSUnregisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32): Err;
+function VFSUnregisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapUnregisterDefaultDirectory;
 
 
-function VFSVolumeFormat(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err;
+function VFSVolumeFormat(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err; syscall sysTrapVFSMgr, vfsTrapVolumeFormat;
 
-function VFSVolumeMount(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err;
+function VFSVolumeMount(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err; syscall sysTrapVFSMgr, vfsTrapVolumeMount;
 
-function VFSVolumeUnmount(volRefNum: UInt16): Err;
+function VFSVolumeUnmount(volRefNum: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapVolumeUnmount;
 
-function VFSVolumeEnumerate(var volRefNumP: UInt16; var volIteratorP: UInt32): Err;
+function VFSVolumeEnumerate(var volRefNumP: UInt16; var volIteratorP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapVolumeEnumerate;
 
-function VFSVolumeInfo(volRefNum: UInt16; var volInfoP: VolumeInfoType): Err;
+function VFSVolumeInfo(volRefNum: UInt16; var volInfoP: VolumeInfoType): Err; syscall sysTrapVFSMgr, vfsTrapVolumeInfo;
 
-function VFSVolumeGetLabel(volRefNum: UInt16; labelP: PChar; bufLen: UInt16): Err;
+function VFSVolumeGetLabel(volRefNum: UInt16; labelP: PChar; bufLen: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapVolumeGetLabel;
 
-function VFSVolumeSetLabel(volRefNum: UInt16; const labelP: PChar): Err;
+function VFSVolumeSetLabel(volRefNum: UInt16; const labelP: PChar): Err; syscall sysTrapVFSMgr, vfsTrapVolumeSetLabel;
 
-function VFSVolumeSize(volRefNum: UInt16; var volumeUsedP, volumeTotalP: UInt32): Err;
+function VFSVolumeSize(volRefNum: UInt16; var volumeUsedP, volumeTotalP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapVolumeSize;
 
-function VFSInstallFSLib(creator: UInt32; var fsLibRefNumP: UInt16): Err;
+function VFSInstallFSLib(creator: UInt32; var fsLibRefNumP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapInstallFSLib;
 
-function VFSRemoveFSLib(fsLibRefNum: UInt16): Err;
+function VFSRemoveFSLib(fsLibRefNum: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapRemoveFSLib;
 
 function VFSImportDatabaseFromFile(volRefNum: UInt16; const pathNameP: PChar;
-                                   var cardNoP: UInt16; var dbIDP: LocalID): Err;
+                                   var cardNoP: UInt16; var dbIDP: LocalID): Err; syscall sysTrapVFSMgr, vfsTrapImportDatabaseFromFile;
 
 function VFSImportDatabaseFromFileCustom(volRefNum: UInt16; const pathNameP: PChar;
                                          var cardNoP: UInt16; var dbIDP: LocalID;
-                                         importProcP: VFSImportProcPtr; userDataP: Pointer): Err;
+                                         importProcP: VFSImportProcPtr; userDataP: Pointer): Err; syscall sysTrapVFSMgr, vfsTrapImportDatabaseFromFileCustom;
 
 function VFSExportDatabaseToFile(volRefNum: UInt16; const pathNameP: PChar;
-                                 cardNo: UInt16; dbID: LocalID): Err;
+                                 cardNo: UInt16; dbID: LocalID): Err; syscall sysTrapVFSMgr, vfsTrapExportDatabaseToFile;
 
 function VFSExportDatabaseToFileCustom(volRefNum: UInt16; const pathNameP: PChar;
                                        cardNo: UInt16; dbID: LocalID;
-                                       exportProcP: VFSExportProcPtr; userDataP: Pointer): Err;
+                                       exportProcP: VFSExportProcPtr; userDataP: Pointer): Err; syscall sysTrapVFSMgr, vfsTrapExportDatabaseToFileCustom;
 
-function VFSFileDBGetResource(ref: FileRef; type_: DmResType; resID: DmResID; var resHP: MemHandle): Err;
+function VFSFileDBGetResource(ref: FileRef; type_: DmResType; resID: DmResID; var resHP: MemHandle): Err; syscall sysTrapVFSMgr, vfsTrapFileDBGetResource;
 
 function VFSFileDBInfo(ref: FileRef; nameP: PChar; var attributesP, versionP: UInt16;
                        var crDateP, modDateP, bckUpDateP, modNumP: UInt32;
                        var appInfoHP, sortInfoHP: MemHandle; var typeP, creatorP: UInt32;
-                       var numRecordsP: UInt16): Err;
+                       var numRecordsP: UInt16): Err; syscall sysTrapVFSMgr, vfsTrapFileDBInfo;
 
 function VFSFileDBGetRecord(ref: FileRef; recIndex: UInt16; var recHP: MemHandle;
-                            var recAttrP: UInt8; var uniqueIDP: UInt32): Err;
+                            var recAttrP: UInt8; var uniqueIDP: UInt32): Err; syscall sysTrapVFSMgr, vfsTrapFileDBGetRecord;
 
-implementation
-
-(**)
-function __VFSInit: Err; syscall sysTrapVFSMgr;
-function __VFSCustomControl(fsCreator, apiCreator: UInt32; apiSelector: UInt16;
-                          valueP: Pointer; var valueLenP: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSFileCreate(volRefNum: UInt16; const pathNameP: PChar): Err; syscall sysTrapVFSMgr;
-function __VFSFileOpen(volRefNum: UInt16; const pathNameP: PChar; openMode: UInt16; var fileRefP: FileRef): Err; syscall sysTrapVFSMgr;
-function __VFSFileClose(fileRef: FileRef): Err; syscall sysTrapVFSMgr;
-function __VFSFileReadData(fileRef: FileRef; numBytes: UInt32; bufBaseP: Pointer;
-                         offset: UInt32; var numBytesReadP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileRead(fileRef: FileRef; numBytes: UInt32; bufP: Pointer; var numBytesReadP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileWrite(fileRef: FileRef; numBytes: UInt32; const dataP: Pointer; var numBytesWrittenP: UInt32): Err; syscall sysTrapVFSMgr;
-// some file routines work on directories
-function __VFSFileDelete(volRefNum: UInt16; const pathNameP: PChar): Err; syscall sysTrapVFSMgr;
-function __VFSFileRename(volRefNum: UInt16; const pathNameP, newNameP: PChar): Err; syscall sysTrapVFSMgr;
-function __VFSFileSeek(fileRef: FileRef; origin: FileOrigin; offset: Int32): Err; syscall sysTrapVFSMgr;
-function __VFSFileEOF(fileRef: FileRef): Err; syscall sysTrapVFSMgr;
-function __VFSFileTell(fileRef: FileRef; var filePosP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileSize(fileRef: FileRef; var fileSizeP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileResize(fileRef: FileRef; newSize: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileGetAttributes(fileRef: FileRef; var attributesP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileSetAttributes(fileRef: FileRef; attributes: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileGetDate(fileRef: FileRef; whichDate: UInt16; var dateP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSFileSetDate(fileRef: FileRef; whichDate: UInt16; date: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSDirCreate(volRefNum: UInt16; const dirNameP: PChar): Err; syscall sysTrapVFSMgr;
-function __VFSDirEntryEnumerate(dirRef: FileRef; var dirEntryIteratorP: UInt32; var infoP: FileInfoType): Err; syscall sysTrapVFSMgr;
-function __VFSGetDefaultDirectory(volRefNum: UInt16; const fileTypeStr: PChar;
-                                pathStr: PChar; var bufLenP: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSRegisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32;
-                                     const pathStr: PChar): Err; syscall sysTrapVFSMgr;
-function __VFSUnregisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeFormat(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeMount(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeUnmount(volRefNum: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeEnumerate(var volRefNumP: UInt16; var volIteratorP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeInfo(volRefNum: UInt16; var volInfoP: VolumeInfoType): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeGetLabel(volRefNum: UInt16; labelP: PChar; bufLen: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeSetLabel(volRefNum: UInt16; const labelP: PChar): Err; syscall sysTrapVFSMgr;
-function __VFSVolumeSize(volRefNum: UInt16; var volumeUsedP, volumeTotalP: UInt32): Err; syscall sysTrapVFSMgr;
-function __VFSInstallFSLib(creator: UInt32; var fsLibRefNumP: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSRemoveFSLib(fsLibRefNum: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSImportDatabaseFromFile(volRefNum: UInt16; const pathNameP: PChar;
-                                   var cardNoP: UInt16; var dbIDP: LocalID): Err; syscall sysTrapVFSMgr;
-function __VFSImportDatabaseFromFileCustom(volRefNum: UInt16; const pathNameP: PChar;
-                                         var cardNoP: UInt16; var dbIDP: LocalID;
-                                         importProcP: VFSImportProcPtr; userDataP: Pointer): Err; syscall sysTrapVFSMgr;
-function __VFSExportDatabaseToFile(volRefNum: UInt16; const pathNameP: PChar;
-                                 cardNo: UInt16; dbID: LocalID): Err; syscall sysTrapVFSMgr;
-function __VFSExportDatabaseToFileCustom(volRefNum: UInt16; const pathNameP: PChar;
-                                       cardNo: UInt16; dbID: LocalID;
-                                       exportProcP: VFSExportProcPtr; userDataP: Pointer): Err; syscall sysTrapVFSMgr;
-function __VFSFileDBGetResource(ref: FileRef; type_: DmResType; resID: DmResID; var resHP: MemHandle): Err; syscall sysTrapVFSMgr;
-function __VFSFileDBInfo(ref: FileRef; nameP: PChar; var attributesP, versionP: UInt16;
-                       var crDateP, modDateP, bckUpDateP, modNumP: UInt32;
-                       var appInfoHP, sortInfoHP: MemHandle; var typeP, creatorP: UInt32;
-                       var numRecordsP: UInt16): Err; syscall sysTrapVFSMgr;
-function __VFSFileDBGetRecord(ref: FileRef; recIndex: UInt16; var recHP: MemHandle;
-                            var recAttrP: UInt8; var uniqueIDP: UInt32): Err; syscall sysTrapVFSMgr;
-(**)
-
-function VFSInit: Err;
-begin
- asm
-  move.l #vfsTrapInit, D2;
- end;
- VFSInit := __VFSInit;
-end;
-
-function VFSCustomControl(fsCreator, apiCreator: UInt32; apiSelector: UInt16;
-                          valueP: Pointer; var valueLenP: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapCustomControl, D2;
- end;
- VFSCustomControl := __VFSCustomControl(fsCreator, apiCreator, apiSelector, valueP, valueLenP);
-end;
-
-function VFSFileCreate(volRefNum: UInt16; const pathNameP: PChar): Err;
-begin
- asm
-  move.l #vfsTrapFileCreate, D2;
- end;
- VFSFileCreate := __VFSFileCreate(volRefNum, pathNameP);
-end;
-
-function VFSFileOpen(volRefNum: UInt16; const pathNameP: PChar; openMode: UInt16; var fileRefP: FileRef): Err;
-begin
- asm
-  move.l #vfsTrapFileOpen, D2;
- end;
- VFSFileOpen := __VFSFileOpen(volRefNum, pathNameP, openMode, fileRefP);
-end;
-
-function VFSFileClose(fileRef: FileRef): Err;
-begin
- asm
-  move.l #vfsTrapFileClose, D2;
- end;
- VFSFileClose := __VFSFileClose(fileRef);
-end;
-
-function VFSFileReadData(fileRef: FileRef; numBytes: UInt32; bufBaseP: Pointer;
-                         offset: UInt32; var numBytesReadP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileReadData, D2;
- end;
- VFSFileReadData := __VFSFileReadData(fileRef, numBytes, bufBaseP, offset, numBytesReadP);
-end;
-
-function VFSFileRead(fileRef: FileRef; numBytes: UInt32; bufP: Pointer; var numBytesReadP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileRead, D2;
- end;
- VFSFileRead := __VFSFileRead(fileRef, numBytes, bufP, numBytesReadP);
-end;
-
-function VFSFileWrite(fileRef: FileRef; numBytes: UInt32; const dataP: Pointer; var numBytesWrittenP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileWrite, D2;
- end;
- VFSFileWrite := __VFSFileWrite(fileRef, numBytes, dataP, numBytesWrittenP);
-end;
-
-function VFSFileDelete(volRefNum: UInt16; const pathNameP: PChar): Err;
-begin
- asm
-  move.l #vfsTrapFileDelete, D2;
- end;
- VFSFileDelete := __VFSFileDelete(volRefNum, pathNameP);
-end;
-
-function VFSFileRename(volRefNum: UInt16; const pathNameP, newNameP: PChar): Err;
-begin
- asm
-  move.l #vfsTrapFileRename, D2;
- end;
- VFSFileRename := __VFSFileRename(volRefNum, pathNameP, newNameP);
-end;
-
-function VFSFileSeek(fileRef: FileRef; origin: FileOrigin; offset: Int32): Err;
-begin
- asm
-  move.l #vfsTrapFileSeek, D2;
- end;
- VFSFileSeek := __VFSFileSeek(fileRef, origin, offset);
-end;
-
-function VFSFileEOF(fileRef: FileRef): Err;
-begin
- asm
-  move.l #vfsTrapFileEOF, D2;
- end;
- VFSFileEOF := __VFSFileEOF(fileRef);
-end;
-
-function VFSFileTell(fileRef: FileRef; var filePosP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileTell, D2;
- end;
- VFSFileTell := __VFSFileTell(fileRef, filePosP);
-end;
-
-function VFSFileSize(fileRef: FileRef; var fileSizeP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileSize, D2;
- end;
- VFSFileSize := __VFSFileSize(fileRef, fileSizeP);
-end;
-
-function VFSFileResize(fileRef: FileRef; newSize: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileResize, D2;
- end;
- VFSFileResize := __VFSFileResize(fileRef, newSize);
-end;
-
-function VFSFileGetAttributes(fileRef: FileRef; var attributesP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileGetAttributes, D2;
- end;
- VFSFileGetAttributes := __VFSFileGetAttributes(fileRef, attributesP);
-end;
-
-function VFSFileSetAttributes(fileRef: FileRef; attributes: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileSetAttributes, D2;
- end;
- VFSFileSetAttributes := __VFSFileSetAttributes(fileRef, attributes);
-end;
-
-function VFSFileGetDate(fileRef: FileRef; whichDate: UInt16; var dateP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileGetDate, D2;
- end;
- VFSFileGetDate := __VFSFileGetDate(fileRef, whichDate, dateP);
-end;
-
-function VFSFileSetDate(fileRef: FileRef; whichDate: UInt16; date: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileSetDate, D2;
- end;
- VFSFileSetDate := __VFSFileSetDate(fileRef, whichDate, date);
-end;
-
-function VFSDirCreate(volRefNum: UInt16; const dirNameP: PChar): Err;
-begin
- asm
-  move.l #vfsTrapDirCreate, D2;
- end;
- VFSDirCreate := __VFSDirCreate(volRefNum, dirNameP);
-end;
-
-function VFSDirEntryEnumerate(dirRef: FileRef; var dirEntryIteratorP: UInt32; var infoP: FileInfoType): Err;
-begin
- asm
-  move.l #vfsTrapDirEntryEnumerate, D2;
- end;
- VFSDirEntryEnumerate := __VFSDirEntryEnumerate(dirRef, dirEntryIteratorP, infoP);
-end;
-
-function VFSGetDefaultDirectory(volRefNum: UInt16; const fileTypeStr: PChar;
-                                pathStr: PChar; var bufLenP: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapGetDefaultDirectory, D2;
- end;
- VFSGetDefaultDirectory := __VFSGetDefaultDirectory(volRefNum, fileTypeStr, pathStr, bufLenP);
-end;
-
-function VFSRegisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32;
-                                     const pathStr: PChar): Err;
-begin
- asm
-  move.l #vfsTrapRegisterDefaultDirectory, D2;
- end;
- VFSRegisterDefaultDirectory := __VFSRegisterDefaultDirectory(fileTypeStr, mediaType, pathStr);
-end;
-
-function VFSUnregisterDefaultDirectory(const fileTypeStr: PChar; mediaType: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapUnregisterDefaultDirectory, D2;
- end;
- VFSUnregisterDefaultDirectory := __VFSUnregisterDefaultDirectory(fileTypeStr, mediaType);
-end;
-
-function VFSVolumeFormat(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err;
-begin
- asm
-  move.l #vfsTrapVolumeFormat, D2;
- end;
- VFSVolumeFormat := __VFSVolumeFormat(flags, fsLibRefNum, vfsMountParamP);
-end;
-
-function VFSVolumeMount(flags: UInt8; fsLibRefNum: UInt16; vfsMountParamP: VFSAnyMountParamPtr): Err;
-begin
- asm
-  move.l #vfsTrapVolumeMount, D2;
- end;
- VFSVolumeMount := __VFSVolumeMount(flags, fsLibRefNum, vfsMountParamP);
-end;
-
-function VFSVolumeUnmount(volRefNum: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapVolumeUnmount, D2;
- end;
- VFSVolumeUnmount := __VFSVolumeUnmount(volRefNum);
-end;
-
-function VFSVolumeEnumerate(var volRefNumP: UInt16; var volIteratorP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapVolumeEnumerate, D2;
- end;
- VFSVolumeEnumerate := __VFSVolumeEnumerate(volRefNumP, volIteratorP);
-end;
-
-function VFSVolumeInfo(volRefNum: UInt16; var volInfoP: VolumeInfoType): Err;
-begin
- asm
-  move.l #vfsTrapVolumeInfo, D2;
- end;
- VFSVolumeInfo := __VFSVolumeInfo(volRefNum, volInfoP);
-end;
-
-function VFSVolumeGetLabel(volRefNum: UInt16; labelP: PChar; bufLen: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapVolumeGetLabel, D2;
- end;
- VFSVolumeGetLabel := __VFSVolumeGetLabel(volRefNum, labelP, bufLen);
-end;
-
-function VFSVolumeSetLabel(volRefNum: UInt16; const labelP: PChar): Err;
-begin
- asm
-  move.l #vfsTrapVolumeSetLabel, D2;
- end;
- VFSVolumeSetLabel := __VFSVolumeSetLabel(volRefNum, labelP);
-end;
-
-function VFSVolumeSize(volRefNum: UInt16; var volumeUsedP, volumeTotalP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapVolumeSize, D2;
- end;
- VFSVolumeSize := __VFSVolumeSize(volRefNum, volumeUsedP, volumeTotalP);
-end;
-
-function VFSInstallFSLib(creator: UInt32; var fsLibRefNumP: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapInstallFSLib, D2;
- end;
- VFSInstallFSLib := __VFSInstallFSLib(creator, fsLibRefNumP);
-end;
-
-function VFSRemoveFSLib(fsLibRefNum: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapRemoveFSLib, D2;
- end;
- VFSRemoveFSLib := __VFSRemoveFSLib(fsLibRefNum);
-end;
 
-function VFSImportDatabaseFromFile(volRefNum: UInt16; const pathNameP: PChar;
-                                   var cardNoP: UInt16; var dbIDP: LocalID): Err;
-begin
- asm
-  move.l #vfsTrapImportDatabaseFromFile, D2;
- end;
- VFSImportDatabaseFromFile := __VFSImportDatabaseFromFile(volRefNum, pathNameP, cardNoP, dbIDP);
-end;
-
-function VFSImportDatabaseFromFileCustom(volRefNum: UInt16; const pathNameP: PChar;
-                                         var cardNoP: UInt16; var dbIDP: LocalID;
-                                         importProcP: VFSImportProcPtr; userDataP: Pointer): Err;
-begin
- asm
-  move.l #vfsTrapImportDatabaseFromFileCustom, D2;
- end;
- VFSImportDatabaseFromFileCustom := __VFSImportDatabaseFromFileCustom(volRefNum, pathNameP,
-                                    cardNoP, dbIDP, importProcP, userDataP);
-end;
-
-function VFSExportDatabaseToFile(volRefNum: UInt16; const pathNameP: PChar;
-                                 cardNo: UInt16; dbID: LocalID): Err;
-begin
- asm
-  move.l #vfsTrapExportDatabaseToFile, D2;
- end;
- VFSExportDatabaseToFile := __VFSExportDatabaseToFile(volRefNum, pathNameP, cardNo, dbID);
-end;
-
-function VFSExportDatabaseToFileCustom(volRefNum: UInt16; const pathNameP: PChar;
-                                       cardNo: UInt16; dbID: LocalID;
-                                       exportProcP: VFSExportProcPtr; userDataP: Pointer): Err;
-begin
- asm
-  move.l #vfsTrapExportDatabaseToFileCustom, D2;
- end;
- VFSExportDatabaseToFileCustom := __VFSExportDatabaseToFileCustom(volRefNum, pathNameP,
-                                  cardNo, dbID, exportProcP, userDataP);
-end;
-
-function VFSFileDBGetResource(ref: FileRef; type_: DmResType; resID: DmResID; var resHP: MemHandle): Err;
-begin
- asm
-  move.l #vfsTrapFileDBGetResource, D2;
- end;
- VFSFileDBGetResource := __VFSFileDBGetResource(ref, type_, resID, resHP);
-end;
-
-function VFSFileDBInfo(ref: FileRef; nameP: PChar; var attributesP, versionP: UInt16;
-                       var crDateP, modDateP, bckUpDateP, modNumP: UInt32;
-                       var appInfoHP, sortInfoHP: MemHandle; var typeP, creatorP: UInt32;
-                       var numRecordsP: UInt16): Err;
-begin
- asm
-  move.l #vfsTrapFileDBInfo, D2;
- end;
- VFSFileDBInfo := __VFSFileDBInfo(ref, nameP, attributesP, versionP, crDateP, modDateP,
-                  bckUpDateP, modNumP, appInfoHP, sortInfoHP, typeP, creatorP, numRecordsP);
-end;
-
-function VFSFileDBGetRecord(ref: FileRef; recIndex: UInt16; var recHP: MemHandle;
-                            var recAttrP: UInt8; var uniqueIDP: UInt32): Err;
-begin
- asm
-  move.l #vfsTrapFileDBGetRecord, D2;
- end;
- VFSFileDBGetRecord := __VFSFileDBGetRecord(ref, recIndex, recHP, recAttrP, uniqueIDP);
-end;
+implementation
 
 end.