Commit c6e7b6c5 authored by John van Groningen's avatar John van Groningen
Browse files

use rem instead of mod

parent 9d47f50c
......@@ -178,8 +178,8 @@ IntToMemSize mem
= kilomemstr;
= memstr;
where {
mega = mem mod Mega == 0;
kilo = mem mod Kilo == 0;
mega = mem rem Mega == 0;
kilo = mem rem Kilo == 0;
megamemstr = toString (mem / Mega) +++ "M";
kilomemstr = toString (mem / Kilo) +++ "K";
memstr = toString mem;
......
......@@ -870,7 +870,7 @@ ReadOptionsFile file
| string.[offset] == ' '
= indentation (offset+1) (indent+1) string
| string.[offset] == '\t'
= indentation (offset+1) (indent + (TabSize - (indent mod TabSize))) string
= indentation (offset+1) (indent + (TabSize - (indent rem TabSize))) string
| otherwise
= (indent, offset)
......
......@@ -183,9 +183,9 @@ FindError flip prog=:{editor={editwindows}} io
THEN2 openmodule;
where {
errwdold = GetWindow ErrorWdID editwindows;
linenr | line_sel && flip = (lastline + dec textpos.l1) mod lastline;
| line_sel = (inc textpos.l1) mod lastline;
= textpos.l1 mod lastline;
linenr | line_sel && flip = (lastline + dec textpos.l1) rem lastline;
| line_sel = (inc textpos.l1) rem lastline;
= textpos.l1 rem lastline;
lastline = dec (errwdold.wtext.nrlines);
textpos = EW_GetTextPosition curline selection;
oldtsel = selection.tsel;
......
......@@ -19,7 +19,7 @@ EmptyText :== EmptyBlock:!Nil;
EmptyBlock :== EmptyLine:!Nil;
EmptyLine :== NewlStr:!Nil;
LineNr id :== id mod LinesPerBlock;
LineNr id :== id rem LinesPerBlock;
BlockNr id :== id / LinesPerBlock;
/* Retrieve a line from the text */
......
......@@ -367,7 +367,7 @@ DateToString {exists,yy,mm,dd,h,m}
VersionToString :: !Int -> String;
VersionToString version
= toString (version / 100) +++ "." +++ toString (version mod 100);
= toString (version / 100) +++ "." +++ toString (version rem 100);
ProcessorToString :: !Processor -> String;
// RWS ProcessorToString CurrentProcessor = "68020 + 68881";
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment