vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 22:42:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

ulmPrint added,

Browse source 
ulmIEEE, ulmMC68881, ulmReals ported
This commit is contained in:
Norayr Chilingarian 2013-10-22 17:10:42 +04:00
parent 577a398bfb
commit c648686eb7
4 changed files with 978 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/lib/ulm/ulmMC68881.Mod
View file

@ -1,7 +1,7 @@
(* Oberon Library - SunOS 4.1 - AFB 8/90 *)
(* (c) University of Ulm, Sektion Informatik, D-7900 Ulm *)
MODULE MC68881;
MODULE ulmMC68881;
(* library interface to MC68881 instructions *)
@ -170,14 +170,14 @@ MODULE MC68881;
float must consist of at least floatlen bytes
*)
PROCEDURE RealToFloat*(real: LONGREAL; VAR float: ARRAY OF BYTE);
PROCEDURE RealToFloat*(real: LONGREAL; VAR float: ARRAY OF SYS.BYTE);
BEGIN
SYS.WMOVE(SYS.ADR(real), SYS.ADR(float), floatlen DIV 4);
(*SYS.WMOVE(SYS.ADR(real), SYS.ADR(float), floatlen DIV 4);*)
END RealToFloat;
PROCEDURE FloatToReal*(float: ARRAY OF BYTE; VAR real: LONGREAL);
PROCEDURE FloatToReal*(float: ARRAY OF SYS.BYTE; VAR real: LONGREAL);
BEGIN
SYS.WMOVE(SYS.ADR(float), SYS.ADR(real), floatlen DIV 4);
(*SYS.WMOVE(SYS.ADR(float), SYS.ADR(real), floatlen DIV 4);*)
END FloatToReal;
END MC68881.
END ulmMC68881.