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

ulm library compiled by fixing integer, longint, shortint and set sizes. -- noch

Browse source
This commit is contained in:
norayr 2016-11-30 19:39:26 +04:00
parent c549f5847b
commit 0e1c5fe498
39 changed files with 733 additions and 723 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/library/ulm/ulmTimers.Mod
View file

@ -38,7 +38,7 @@
MODULE ulmTimers;
IMPORT Clocks := ulmClocks, Disciplines := ulmDisciplines, Events := ulmEvents, Objects := ulmObjects, Op := ulmOperations, Priorities := ulmPriorities,
SYS := ulmSYSTEM, RelatedEvents := ulmRelatedEvents, Scales := ulmScales, Times := ulmTimes;
SYS := ulmSYSTEM, RelatedEvents := ulmRelatedEvents, Scales := ulmScales, Times := ulmTimes, Types := ulmTypes;
TYPE
Queue = POINTER TO QueueRec;
@ -88,7 +88,7 @@ MODULE ulmTimers;
ErrorEventRec* =
RECORD
(Events.EventRec)
errorcode*: SHORTINT;
errorcode*: Types.Int8;
END;
VAR
errormsg*: ARRAY errorcodes OF Events.Message;
@ -102,7 +102,7 @@ MODULE ulmTimers;
Events.Define(error); Events.SetPriority(error, Priorities.liberrors);
END InitErrorHandling;
PROCEDURE Error(errors: RelatedEvents.Object; code: SHORTINT);
PROCEDURE Error(errors: RelatedEvents.Object; code: Types.Int8);
VAR
event: ErrorEvent;
BEGIN