WebSVN – Kolibri OS – Path Comparison – /

Regard whitespace Rev 7208 → Rev 7209

/programs/develop/oberon07/Compiler.kex
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream

 /programs/develop/oberon07/Docs/About1251.txt
 ,6 → 17,8
                 "elf" - Linux
                 "kos" - KolibriOS
                 "obj" - KolibriOS DLL
+                "kem" - KolibriOS ñ àäðåñîì çàãðóçêè 0x10000 äëÿ âîçìîæíîãî
+                        èñïîëíåíèÿ â ýìóëÿòîðå
 ) ðàçìåð ñòýêà â ìåãàáàéòàõ, íåîáÿçàòåëüíûé ïàðàìåòð, ïî óìîë÷àíèþ -
 Ìá, äëÿ ELF èãíîðèðóåòñÿ. Åñëè 2-é ïàðàìåòð = "obj" (KolibriOS DLL),
         òî 3-é ïàðàìåòð çàäàåòñÿ øåñòíàäöàòèðè÷íûì ÷èñëîì

 /programs/develop/oberon07/Docs/About866.txt
 ,6 → 17,8
                 "elf" - Linux
                 "kos" - KolibriOS
                 "obj" - KolibriOS DLL
+                "kem" - KolibriOS á  ¤à¥á®¬ § £àã§ª¨ 0x10000 ¤«ï ¢®§¬®¦®£®
+                        ¨á¯®«¥¨ï ¢ í¬ã«ïâ®à¥
 ) à §¬¥à áâíª  ¢ ¬¥£ ¡ ©â å, ¥®¡ï§ â¥«ìë© ¯ à ¬¥âà, ¯® ã¬®«ç ¨î -
 ¡, ¤«ï ELF ¨£®à¨àã¥âáï. á«¨ 2-© ¯ à ¬¥âà = "obj" (KolibriOS DLL),
         â® 3-© ¯ à ¬¥âà § ¤ ¥âáï è¥áâ ¤æ â¨à¨çë¬ ç¨á«®¬

 /programs/develop/oberon07/Lib/KolibriOS/API.ob07
 ,5 → 1,5
 (*
-    Copyright 2016, 2017 Anton Krotov
+    Copyright 2016, 2017, 2018 Anton Krotov
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU Lesser General Public License as published by
 ,7 → 247,7
             res := 0
         END
     END;
-    IF res # 0 THEN
+    IF (res # 0) & (size <= MAX_SIZE) THEN
         zeromem(ASR(size, 2) - 1, res)
     END
     RETURN res

 /programs/develop/oberon07/Lib/KolibriOS/HOST.ob07
 ,10 → 124,20
   API.ExitProcess(0)
 END ExitProcess;
+PROCEDURE AppAdr(): INTEGER;
+VAR
+    buf: ARRAY 1024 OF CHAR;
+    a: INTEGER;
+BEGIN
+    a := API.sysfunc3(9, sys.ADR(buf), -1);
+    sys.GET(sys.ADR(buf) + 22, a)
+    RETURN a
+END AppAdr;
 PROCEDURE GetCommandLine*(): INTEGER;
 VAR param: INTEGER;
 BEGIN
-  sys.GET(28, param)
+  sys.GET(28 + AppAdr(), param)
   RETURN param
 END GetCommandLine;
 ,7 → 144,7
 PROCEDURE GetName*(): INTEGER;
 VAR name: INTEGER;
 BEGIN
-  sys.GET(32, name)
+  sys.GET(32 + AppAdr(), name)
   RETURN name
 END GetName;

 /programs/develop/oberon07/Lib/KolibriOS/KOSAPI.ob07
 ,5 → 1,5
 (*
-    Copyright 2016 Anton Krotov
+    Copyright 2016, 2018 Anton Krotov
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU Lesser General Public License as published by
 ,10 → 187,20
   RETURN ptr
 END realloc;
+PROCEDURE AppAdr(): INTEGER;
+VAR
+    buf: ARRAY 1024 OF CHAR;
+    a: INTEGER;
+BEGIN
+    a := sysfunc3(9, sys.ADR(buf), -1);
+    sys.GET(sys.ADR(buf) + 22, a)
+    RETURN a
+END AppAdr;
 PROCEDURE GetCommandLine*(): INTEGER;
 VAR param: INTEGER;
 BEGIN
-  sys.GET(28, param)
+  sys.GET(28 + AppAdr(), param)
   RETURN param
 END GetCommandLine;
 ,7 → 207,7
 PROCEDURE GetName*(): INTEGER;
 VAR name: INTEGER;
 BEGIN
-  sys.GET(32, name)
+  sys.GET(32 + AppAdr(), name)
   RETURN name
 END GetName;

 /programs/develop/oberon07/Source/Compiler.ob07
 ,5 → 1,5
 (*
-    Copyright 2016, 2017 Anton Krotov
+    Copyright 2016, 2017, 2018 Anton Krotov
     This file is part of Compiler.
 ,6 → 289,10
         IntType(e1.T, coord);
         Load(e1);
         IF e.T.Len = 0 THEN
+          IF e1.eType = eCONST THEN
+            idx := FLOOR(e1.Value);
+            Assert(idx >= 0, coord, 159)
+          END;
           BaseT := DECL.OpenBase(e.T);
           X86.PushConst(BaseT.Size);
           X86.OpenIdx(DECL.Dim(e.T))
 ,6 → 870,9
       X86.DropFpu(param.T.tType = TLONGREAL)
     END;
     IF (e1.T.tType = TSTRING) & (param.T.tType = TARRAY) THEN
+      IF param.T.Len > X86.maxstrlen THEN
+          X86.set_maxstrlen(param.T.Len)
+      END;
       s := DECL.GetString(e1.Value);
       IF s.Len = 1 THEN
         X86.Mono(s.Number)
 ,7 → 1892,11
   END;
   UTILS.Split(SelfName, SelfPath, CName, CExt);
   temp := Name;
-  IF UTILS.streq(system, "obj") THEN
+  IF UTILS.streq(system, "kem") THEN
+    X86.setkem;
+    platform := 4;
+    UTILS.concat(temp, ".kex")
+  ELSIF UTILS.streq(system, "obj") THEN
     platform := 6;
     UTILS.concat(temp, ".obj")
   ELSIF UTILS.streq(system, "elf") THEN
 ,6 → 1935,7
     UTILS.concat(SelfPath, "Windows32")
   END;
   UTILS.concat(SelfPath, UTILS.Slash);
+  X86.set_maxstrlen(0);
   X86.Init(platform);
   X86.Prolog(temp);
   DECL.Program(SelfPath, Path, Name, Ext, platform IN {1, 2, 3}, OpSeq, Expr, AssComp, sttypes);

 /programs/develop/oberon07/Source/X86.ob07
 ,5 → 1,5
 (*
-    Copyright 2016, 2017 Anton Krotov
+    Copyright 2016, 2017, 2018 Anton Krotov
     This file is part of Compiler.
 ,7 → 119,7
     reloc: ARRAY 1024 OF sys.CARD16
   END;
-VAR asmlist: UTILS.LIST; start: ASMLINE; dll, con, gui, kos, elf, obj: BOOLEAN;
+VAR asmlist: UTILS.LIST; start: ASMLINE; dll, con, gui, kos, elf, obj, kem: BOOLEAN;
     Lcount, reccount, topstk: INTEGER; recarray: ARRAY 2048 OF INTEGER; current*: ASMLINE;
     callstk: ARRAY 1024, 2 OF ASMLINE; OutFile: UTILS.STRING;
     Code: ARRAY 4000000 OF CHAR; ccount: INTEGER; Data: ARRAY 1000000 OF CHAR; dcount: INTEGER;
 ,7 → 128,13
     RtlProc: ARRAY 20 OF INTEGER; OutFilePos: INTEGER; RelocSection: SECTION;
     fpu*: INTEGER; isfpu: BOOLEAN; maxfpu: INTEGER; fpucmd: ASMLINE;
     kosexp: ARRAY 65536 OF RECORD Name: SCAN.NODE; Adr, NameLabel: INTEGER END; kosexpcount: INTEGER;
+    maxstrlen*: INTEGER;
+PROCEDURE set_maxstrlen* (value: INTEGER);
+BEGIN
+    maxstrlen := value
+END set_maxstrlen;
 PROCEDURE AddRtlProc*(idx, proc: INTEGER);
 BEGIN
   RtlProc[idx] := proc
 ,7 → 573,7
   NEW(nov);
   UTILS.MemErr(nov = NIL);
   UTILS.Push(asmlist, nov);
-  current := nov;
+  current := nov
 END Init;
 PROCEDURE datastr(str: UTILS.STRING);
 ,10 → 1562,10
   IF ~obj THEN
     Header.menuet01 := "MENUET01";
     Header.ver := 1;
-    Header.start := sys.SIZE(KOSHEADER);
+    Header.start := sys.SIZE(KOSHEADER) + ORD(kem) * 65536;
     Header.size := Align(size, 4) + datasize;
     Header.mem := Header.size + stk + gsize + strsize * 2 + 1000H;
-    Header.sp := Header.size + gsize + stk;
+    Header.sp := Header.size + gsize + stk;// + ORD(kem) * 65536;
     Header.param := Header.sp;
     Header.path := Header.param + strsize;
 ,7 → 1774,7
   ELSIF con OR gui THEN
     LoadAdr := 400000H
   ELSIF kos OR obj THEN
-    LoadAdr := sys.SIZE(KOSHEADER)
+    LoadAdr := sys.SIZE(KOSHEADER) + ORD(kem & kos) * 65536
   ELSIF elf THEN
     LoadAdr := 134514420 + 1024;
     INC(gsize, 1024)
 ,6 → 1932,9
 VAR i, glob: INTEGER;
 BEGIN
   glob := 0;
+  IF gsize < maxstrlen THEN
+      gsize := maxstrlen
+  END;
   gsize := Align(gsize, 4) + 4;
   COPY(FName, OutFile);
   Labels[RTABLE] := -dcount;
 ,4 → 1994,11
   FixLabels(FName, stk, gsize, glob)
 END Epilog;
+PROCEDURE setkem*;
+BEGIN
+    kem := TRUE
+END setkem;
+BEGIN
+    kem := FALSE
 END X86.

Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 7208 → Rev 7209