Subversion Repositories SvarDOS

Rev

Rev 2015 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2015 Rev 2016
Line 420... Line 420...
420 
  fprintf(fd, "svarlang_mem:\r\n");
 420 
  fprintf(fd, "svarlang_mem:\r\n");
421 
 
 421 
 
422 
  if (strings_bytes > 0) fprintf(fd, "db ");
 422 
  if (strings_bytes > 0) fprintf(fd, "db ");
423 
 
 423 
 
424 
  for (i = 0; i < strings_bytes; i++) {
 424 
  for (i = 0; i < strings_bytes; i++) {
425 
    if (!fprintf(fd, "%02xh", l->strings[i])) {
 425 
    if (!fprintf(fd, "%u", l->strings[i])) {
426 
      fclose(fd);
 426 
      fclose(fd);
427 
      return(0);
 427 
      return(0);
428 
    }
 428 
    }
429 
 
 429 
 
430 
    nextnlat++;
 430 
    nextnlat++;
Line 439... Line 439...
439 
  }
 439 
  }
440 
 
 440 
 
441 
  fprintf(fd, "\r\n%s svarlang_dict\r\n", public);
 441 
  fprintf(fd, "\r\n%s svarlang_dict\r\n", public);
442 
  fprintf(fd, "svarlang_dict:\r\n");
 442 
  fprintf(fd, "svarlang_dict:\r\n");
443 
  for (i = 0; i < l->num_strings; i++) {
 443 
  for (i = 0; i < l->num_strings; i++) {
444 
    if (!fprintf(fd, "dw %04xh,%04xh\r\n", l->dict[i].id, l->dict[i].offset)) {
 444 
    if (!fprintf(fd, "dw %u,%u\r\n", l->dict[i].id, l->dict[i].offset)) {
445 
      fclose(fd);
 445 
      fclose(fd);
446 
      return(0);
 446 
      return(0);
447 
    }
 447 
    }
448 
  }
 448 
  }
449 
 
 449